-sub _UTCTime ($) {
- my ($datetime) = @_;
-
- my @localtime = localtime;
- my ($sec, $min, $hour, $mday, $mon, $year) = gmtime (
- _dateToEpoch ($datetime) - (timegm (@localtime) - timelocal (@localtime))
- );
-
- $year += 1900;
- $mon++;
-
- $sec = '0' . $sec if $sec < 10;
- $min = '0' . $min if $min < 10;
- $hour = '0' . $hour if $hour < 10;
- $mon = '0' . $mon if $mon < 10;
- $mday = '0' . $mday if $mday < 10;
-
- return "$year-$mon-${mday}T$hour:$min:${sec}Z";
-} # _UTCTime
-
-sub _UTC2Localtime ($) {