index d6420a1424ac75ff010c9b204ab848f209786087..7d769c08ad6ff4e302a900203e214f955cb2b16c 100644 (file)
use Crypt::Rijndael;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Base64;
use Crypt::Rijndael;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use MIME::Base64;
+use XML::Quote qw(:all);
use XML::Simple;
use Data::Dumper;
use Net::DNS;
use XML::Simple;
use Data::Dumper;
use Net::DNS;
} elsif ( ref $content eq "ARRAY") {
$s .= &_transformArrayToString($tag, $content);
} else {
} elsif ( ref $content eq "ARRAY") {
$s .= &_transformArrayToString($tag, $content);
} else {
- $s .= "<$tag>".$content."</$tag>";
+ $content = defined $content ? $content : "";
+ $s .= "<$tag>".&xml_quote($content)."</$tag>";
}
}
return $s;
}
}
return $s;
if (ref $content eq "HASH") {
$s .= "<$tag>".&_transformHashToString($content)."</$tag>";
} else {
if (ref $content eq "HASH") {
$s .= "<$tag>".&_transformHashToString($content)."</$tag>";
} else {
- $s .= "<$tag>$content</$tag>";
+ $content = defined $content ? $content : "";
+ $s .= "<$tag>".&xml_quote($content)."</$tag>";
}
}
return $s;
}
}
return $s;
sub get_interface_for_ip {
my $result;
my $ip= shift;
sub get_interface_for_ip {
my $result;
my $ip= shift;
+
+ if($ip =~ /^[a-z]/i) {
+ my $ip_address = inet_ntoa(scalar gethostbyname($ip));
+ if(defined($ip_address) && $ip_address =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
+ # Write ip address to $source variable
+ $ip = $ip_address;
+ }
+ }
+
if ($ip && length($ip) > 0) {
my @ifs= &get_interfaces();
if($ip eq "0.0.0.0") {
if ($ip && length($ip) > 0) {
my @ifs= &get_interfaces();
if($ip eq "0.0.0.0") {