+sub date_str {
+ my $date_utc = shift;
+ my $format = shift || "date-time";
+
+ my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
+ my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
+ my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($date_utc);
+ if ($format eq "date-time") {
+ return sprintf "%s, %d %s %4d %02d:%02d:%02d", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
+ } elsif ($format eq "day-time") {
+ return sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min;
+ }
+}
+