modules/MISC: add write_datestring

diff --git a/modules/MISC.pm b/modules/MISC.pm
index b21bf102b5db3e667d83a27e33e0e4fb16e98bfd..a6e7e4f2ffec58ce36c86c477100552ce5b8c6b7 100644 (file)
--- a/modules/MISC.pm
+++ b/modules/MISC.pm
@@ -8,6 +8,8 @@ use v5.012;
 #
 #  read_datestring(): turn a date/time string into list
 #      (y,m,d,h,m,s) = read_datestring($string)
+#  write_datestring(): turn a list into a date/time string
+#      $str = write_datestring(y,m,d,h,m,s)
 #
 #  format converters (die on error)
 #    fido2text(): convert [ zone,net,node,point ] to "zone:net/node.point"
@@ -107,6 +109,18 @@ sub read_datestring($)
        return($year, $month, $day, $hour, $minute, $second);
 }
 
+sub write_datestring(@)
+{
+       my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
+                       "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
+       my @date = @_;
+
+       return(sprintf("%02d %s %02d  %02d:%02d:%02d",
+               $date[2], $months[$date[1]-1], $date[0] % 100,
+               $date[3], $date[4], $date[5])
+       );
+}
+
 sub fido2text($)
 {
        return(undef) if(!defined $_[0]);