index 7a95901c2a7fc8e9480490e86c5290ec7c06feea..f732b34859c0ba7ccdf9c317b1182c8e667a836d 100644 (file)
"create_xml_string",
"transform_msg2hash",
"get_time",
+ "get_utc_time",
"build_msg",
"db_res2xml",
"db_res2si_msg",
"inform_all_other_si_server",
"read_configfile",
"check_opsi_res",
+ "calc_timestamp",
+ "opsi_callobj2string",
);
@EXPORT = @functions;
use strict;
use XML::Simple;
use Data::Dumper;
use Net::DNS;
+use DateTime;
my $op_hash = {
sub get_time {
my ($seconds, $minutes, $hours, $monthday, $month,
- $year, $weekday, $yearday, $sommertime) = localtime(time);
+ $year, $weekday, $yearday, $sommertime) = localtime;
$hours = $hours < 10 ? $hours = "0".$hours : $hours;
$minutes = $minutes < 10 ? $minutes = "0".$minutes : $minutes;
$seconds = $seconds < 10 ? $seconds = "0".$seconds : $seconds;
}
+sub get_utc_time {
+ my $utc_time = qx(date --utc +%Y%m%d%H%M%S);
+ $utc_time =~ s/\s$//;
+ return $utc_time;
+}
+
#=== FUNCTION ================================================================
# NAME: build_msg
my $len_db_res= keys %{$db_res};
for( my $i= 1; $i<= $len_db_res; $i++ ) {
- $xml .= "\n<answer>";
+ $xml .= "\n<answer$i>";
my $hash= $db_res->{$i};
while ( my ($column_name, $column_value) = each %{$hash} ) {
$xml .= "<$column_name>";
if( $column_name eq "xmlmessage" ) {
$xml_content = &encode_base64($column_value);
} else {
- $xml_content = $column_value;
+ $xml_content = defined $column_value ? $column_value : "";
}
$xml .= $xml_content;
$xml .= "</$column_name>";
}
- $xml .= "</answer>";
+ $xml .= "</answer$i>";
}
return 0;
}
+sub calc_timestamp {
+ my ($timestamp, $operation, $value) = @_ ;
+ my $res_timestamp = 0;
+
+ $value = int($value);
+ $timestamp = int($timestamp);
+ $timestamp =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;
+ my $dt = DateTime->new( year => $1,
+ month => $2,
+ day => $3,
+ hour => $4,
+ minute => $5,
+ second => $6,
+ );
+
+ if ($operation eq "plus" || $operation eq "+") {
+ $dt->add( seconds => $value);
+ $res_timestamp = $dt->ymd('').$dt->hms('');
+ }
+
+ if ($operation eq "minus" || $operation eq "-") {
+ $dt->subtract(seconds => $value);
+ $res_timestamp = $dt->ymd('').$dt->hms('');
+ }
+
+ return $res_timestamp;
+}
+sub opsi_callobj2string {
+ my ($callobj) = @_;
+ my @callobj_string;
+ while(my ($key, $value) = each(%$callobj)) {
+ my $value_string = "";
+ if (ref($value) eq "ARRAY") {
+ $value_string = join(",", @$value);
+ } else {
+ $value_string = $value;
+ }
+ push(@callobj_string, "$key=$value_string")
+ }
+ return join(", ", @callobj_string);
+}
1;