2 # various utilities which are exported globally
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
13 @EXPORT = qw(atime ztime cldate
16 @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
18 # a full time for logging and other purposes
22 my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
24 my $buf = sprintf "%02d%s%04d\@%02d:%02d:%02d", $mday, $month[$mon], $year, $hour, $min, $sec;
28 # get a zulu time in cluster format (2300Z)
32 my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
34 my $buf = sprintf "%02d%02dZ", $hour, $min;
39 # get a cluster format date (23-Jun-1998)
43 my ($sec,$min,$hour,$mday,$mon,$year) = gmtime((defined $t) ? $t : time);
45 my $buf = sprintf "%02d-%s-%04d", $mday, $month[$mon], $year;