gecko-dev/config/bdate.pl
1998-08-24 23:08:56 +00:00

3 lines
119 B
Perl
Executable File

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
printf("500%02d%03d%02d\n", $year, 1+$yday, $hour);