From: Sebastian <basti@notizbuch>
Date: Tue, 10 Jun 2014 20:55:43 +0000 (+0200)
Subject: modules/MISC: add write_datestring
X-Git-Url: http://sraa.de/git/?a=commitdiff_plain;h=f24eda98eab9d1681510710688b113fa8c482f8c;p=fido.git

modules/MISC: add write_datestring
---

diff --git a/modules/MISC.pm b/modules/MISC.pm
index b21bf10..a6e7e4f 100644
--- 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]);