sub library_todayis {
 my ($time)=@_;
 if ($time<1) { $time=time(); }
 my @months=qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
 my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = localtime($time);
 if ($day<10) { $day="0".$day; }
 if ($hour<10) { $hour="0".$hour; }
 if ($min<10) { $min="0".$min; }
 if ($sec<10) { $sec="0".$sec; }
 $year      = $year + 1900;
 return ("$day $months[$mon] $year $hour:$min");
}