added more timestamp functions

modules/util/Util/ts.pm

@@ -8,7 +8,7 @@ use vars qw(@ISA @EXPORT);
 require Exporter;
 
 @ISA= qw(Exporter);
-@EXPORT= qw(ts ts_date ts_ISO ts_ISO2_gmt ts_pg);
+@EXPORT= qw(ts ts_date ts_ISO ts_ISO_gmt ts_ISO2_gmt ts_pg);
 
 sub ts
 {
@@ -25,6 +25,13 @@ sub ts_date
   sprintf ("%4d-%02d-%02d", $ts[5]+1900, $ts[4]+1, $ts[3]);
 }
 
+sub ts_gmdate
+{
+  my $time= shift || time ();
+  my @ts= gmtime ($time);
+  sprintf ("%4d-%02d-%02d", $ts[5]+1900, $ts[4]+1, $ts[3]);
+}
+
 sub ts_ISO
 {
   my $time= shift || time ();
@@ -41,6 +48,14 @@ sub ts_ISO2_gmt
            $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
 }
 
+sub ts_ISO3_gmt
+{
+  my $time= shift || time ();
+  my @ts= gmtime ($time);
+  sprintf ("%04d-%02d-%02dT%02d:%02d:%02dZ",
+           $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+}
+
 sub ts_ISO_gmt
 {
   my $time= shift || time ();