*** mhtime.pl.org	Thu Aug 12 17:59:59 1999
--- mhtime.pl	Thu Aug 12 18:02:51 1999
***************
*** 84,89 ****
--- 84,91 ----
      my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  	    ($local ? localtime($time) : gmtime($time));
  
+     $fmt = '%a %b %d %H:%M:%S %Y'  if $fmt !~ /\S/;
+ 
      POSIXMODCHK: {
  	eval { require POSIX; };
  	last  POSIXMODCHK  if ($@) || !defined(&POSIX::strftime);
***************
*** 97,147 ****
      $hour12   = $hour > 12 ? $hour-12 : $hour;
  
      ## Format output
!     if ($fmt =~ /\S/) {
! 	$fmt =~ s/\%c/\%a \%b \%d \%H:\%M:\%S \%Y/g;
  
- 	$fmt =~ s/\%a/$wdays[$wday]/g;
- 	$fmt =~ s/\%A/$Wdays[$wday]/g;
- 	$fmt =~ s/\%[bh]/$mons[$mon]/g;
- 	$fmt =~ s/\%B/$Mons[$mon]/g;
- 
- 	$sec	  = sprintf("%02d", $sec);
- 	$min	  = sprintf("%02d", $min);
- 	$hour	  = sprintf("%02d", $hour);
- 	$hour12   = sprintf("%02d", $hour12);
- 	$mday	  = sprintf("%02d", $mday);
- 	$mon	  = sprintf("%02d", $mon+1);
- 	$year	  = sprintf("%02d", $year);
- 	$yearfull = sprintf("%04d", $yearfull);
- 	$wday	  = sprintf("%02d", $wday+1);
- 	$yday	  = sprintf("%03d", $yday);
- 
- 	$fmt =~ s/\%d/$mday/g;
- 	$fmt =~ s/\%H/$hour/g;
- 	$fmt =~ s/\%I/$hour12/g;
- 	$fmt =~ s/\%j/$yday/g;
- 	$fmt =~ s/\%m/$mon/g;
- 	$fmt =~ s/\%M/$min/g;
- 	$fmt =~ s/\%n/\n/g;
- 	$fmt =~ s/\%p/am/g if ($hour < 12);
- 	$fmt =~ s/\%p/pm/g if ($hour >= 12);
- 	$fmt =~ s/\%P/AM/g if ($hour < 12);
- 	$fmt =~ s/\%P/PM/g if ($hour >= 12);
- 	$fmt =~ s/\%S/$sec/eg;
- 	$fmt =~ s/\%w/$wday/g;
- 	$fmt =~ s/\%y/$year/g; 
- 	$fmt =~ s/\%Y/$year+1900/ge; 
- 
- 	$fmt =~ s/\%\%/\%/g ; 
- 
- 	$date = $fmt ;
- 
-     } else {
- 	$date = sprintf("%s %s %02d %02d:%02d:%02d ".
- 				($local ? "%d" : "GMT %d"),
- 			$wdays[$wday], $mons[$mon],
- 			$mday, $hour, $min, $sec, $yearfull);
-     }
      $date ;
  }
  
--- 99,142 ----
      $hour12   = $hour > 12 ? $hour-12 : $hour;
  
      ## Format output
!     $fmt =~ s/\%c/\%a \%b \%d \%H:\%M:\%S \%Y/g;
! 
!     $fmt =~ s/\%a/$wdays[$wday]/g;
!     $fmt =~ s/\%A/$Wdays[$wday]/g;
!     $fmt =~ s/\%[bh]/$mons[$mon]/g;
!     $fmt =~ s/\%B/$Mons[$mon]/g;
! 
!     $sec	= sprintf("%02d", $sec);
!     $min	= sprintf("%02d", $min);
!     $hour	= sprintf("%02d", $hour);
!     $hour12	= sprintf("%02d", $hour12);
!     $mday	= sprintf("%02d", $mday);
!     $mon	= sprintf("%02d", $mon+1);
!     $year	= sprintf("%02d", $year);
!     $yearfull	= sprintf("%04d", $yearfull);
!     $wday	= sprintf("%02d", $wday+1);
!     $yday	= sprintf("%03d", $yday);
! 
!     $fmt =~ s/\%d/$mday/g;
!     $fmt =~ s/\%H/$hour/g;
!     $fmt =~ s/\%I/$hour12/g;
!     $fmt =~ s/\%j/$yday/g;
!     $fmt =~ s/\%m/$mon/g;
!     $fmt =~ s/\%M/$min/g;
!     $fmt =~ s/\%n/\n/g;
!     $fmt =~ s/\%p/am/g if ($hour < 12);
!     $fmt =~ s/\%p/pm/g if ($hour >= 12);
!     $fmt =~ s/\%P/AM/g if ($hour < 12);
!     $fmt =~ s/\%P/PM/g if ($hour >= 12);
!     $fmt =~ s/\%S/$sec/eg;
!     $fmt =~ s/\%w/$wday/g;
!     $fmt =~ s/\%y/$year/g; 
!     $fmt =~ s/\%Y/$year+1900/ge; 
! 
!     $fmt =~ s/\%\%/\%/g ; 
! 
!     $date = $fmt ;
  
      $date ;
  }