projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added a first pass at receiving mail and files. It seems to work.
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 605bfca4aa6bf23da413b96a1652bb2e4aeab7ce..24ab19a614f17b05e2a3b9305f2e6af07605cf88 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-8,10
+8,12
@@
package DXUtil;
package DXUtil;
+use Date::Parse;
+
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(atime ztime cldate cldatetime slat slong yesno promptf parray parraypairs
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(atime ztime cldate cldatetime slat slong yesno promptf parray parraypairs
- print_all_fields
+ print_all_fields
cltounix
);
@month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
);
@month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@@
-56,6
+58,16
@@
sub cldatetime
return "$date $time";
}
return "$date $time";
}
+# return a unix date from a cluster date and time
+sub cltounix
+{
+ my $date = shift;
+ my $time = shift;
+ $date =~ s/^\s*(\d+)-(\w\w\w)-(19\d\d)$/$1 $2 $3/;
+ $time =~ s/^(\d\d)(\d\d)Z$/$1:$2 +0000/;
+ return str2time("$date $time");
+}
+
# turn a latitude in degrees into a string
sub slat
{
# turn a latitude in degrees into a string
sub slat
{