perl/DXUtil.pm

   1 #
   2 # various utilities which are exported globally
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 package DXUtil;
  10
  11 require Exporter;
  12 @ISA = qw(Exporter);
  13 @EXPORT = qw(atime ztime cldate
  14             );
  15
  16 @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  17
  18 # a full time for logging and other purposes
  19 sub atime
  20 {
  21   my $t = shift;
  22   my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
  23   $year += 1900;
  24   my $buf = sprintf "%02d%s%04d\@%02d:%02d:%02d", $mday, $month[$mon], $year, $hour, $min, $sec;
  25   return $buf;
  26 }
  27
  28 # get a zulu time in cluster format (2300Z)
  29 sub ztime
  30 {
  31   my $t = shift;
  32   my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
  33   $year += 1900;
  34   my $buf = sprintf "%02d%02dZ", $hour, $min;
  35   return $buf;
  36
  37 }
  38
  39 # get a cluster format date (23-Jun-1998)
  40 sub cldate
  41 {
  42   my $t = shift;
  43   my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
  44   $year += 1900;
  45   my $buf = sprintf "%02d-%s-%04d", $mday, $month[$mon], $year;
  46   return $buf;
  47 }
  48
  49