use IO::File;
use Data::Dumper;
-use Carp;
-
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(atime ztime cldate cldatetime slat slong yesno promptf
parray parraypairs shellregex readfilestr writefilestr
- print_all_fields cltounix iscallsign
+ print_all_fields cltounix iscallsign unpad
);
@month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
sub ztime
{
my $t = shift;
- my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
- $year += 1900;
- my $buf = sprintf "%02d%02dZ", $hour, $min;
+ $t = defined $t ? $t : time;
+ my $dst = shift;
+ my ($sec,$min,$hour) = $dst ? localtime($t): gmtime($t);
+ my $buf = sprintf "%02d%02d%s", $hour, $min, ($dst) ? '' : 'Z';
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);
+ $t = defined $t ? $t : time;
+ my $dst = shift;
+ my ($sec,$min,$hour,$mday,$mon,$year) = $dst ? localtime($t) : gmtime($t);
$year += 1900;
my $buf = sprintf "%2d-%s-%04d", $mday, $month[$mon], $year;
return $buf;
sub cldatetime
{
my $t = shift;
- my $date = cldate($t);
- my $time = ztime($t);
+ my $dst = shift;
+ my $date = cldate($t, $dst);
+ my $time = ztime($t, $dst);
return "$date $time";
}
# start an attempt at determining whether this string might be a callsign
sub iscallsign
{
- my $call = shift;
- return 1 if $call =~ /^\w+\d+/;
- return 1 if $call =~ /^\d+\w+/;
+ my $call = uc shift;
+ return 1 if $call =~ /^[A-Z]+\d+[A-Z]+/;
+ return 1 if $call =~ /^\d+[A-Z]\d+[A-Z]+/;
return undef;
}
$fh->close;
}
}
+
+# remove leading and trailing spaces from an input string
+sub unpad
+{
+ my $s = shift;
+ $s =~ s/^\s+|\s+$//;
+ return $s;
+}
+
+
+
+
+