index 2e939db40534fe3aea9c0519860fec646cd340db..65bea486ad1499fab5cd1e2d101c9875cfef8028 100644 (file)
"create_xml_string",
"transform_msg2hash",
"get_time",
+ "get_utc_time",
"build_msg",
"db_res2xml",
"db_res2si_msg",
}
+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
# DESCRIPTION: Send a message to a destination