started the command processor code.

[spider.git] / perl / DXUtil.pm

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 638a2bce28535c6a23d4aa951366f1283124e942..3ce684988537bbfa5632790d2afb929b38c6240e 100644 (file)
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -10,18 +10,40 @@ package DXUtil;
 
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(atime
+@EXPORT = qw(atime ztime cldate
             );
 
 @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 
+# a full time for logging and other purposes
 sub atime
 {
-  my ($sec,$min,$hour,$mday,$mon,$year) = gmtime(time);
+  my $t = shift;
+  my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
   $year += 1900;
   my $buf = sprintf "%02d%s%04d\@%02d:%02d:%02d", $mday, $month[$mon], $year, $hour, $min, $sec;
   return $buf;
 }
 
+# get a zulu time in cluster format (2300Z)
+sub ztime
+{
+  my $t = shift;
+  my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
+  $year += 1900;
+  my $buf = sprintf "%02d%02dZ", $hour, $min;
+  return $buf;
+
+}
+
+# get a cluster format date (23-Jun-1998)
+sub cldate
+{
+  my $t = shift;
+  my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
+  $year += 1900;
+  my $buf = sprintf "%02d-%s-%04d", $mday, $month[$mon], $year;
+  return $buf;
+}