qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-03-21 01:41:10 +00:00
Code Issues Projects Releases Packages Wiki Activity

make a little more robust. seems not all cvs servers use the same datestamp

Browse source 
format
This commit is contained in:
Bill Currie 2005-07-16 03:59:20 +00:00
parent ddae3850e8
commit d25a5de0df
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/cvs2cl/cvs2cl.pl
View file

@ -897,9 +897,9 @@ sub parse_date_and_author ()
my $line = shift;
my ($year, $mon, $mday, $hours, $min, $secs, $offset, $author) = $line =~
m#(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)\s+([+-]\d+);\s+author:\s+([^;]+);#
or die "Couldn't parse date ``$line''";
my ($year, $mon, $mday, $hours, $min, $secs, $f, $offset, $author) = $line =~
m#(\d+)[/-](\d+)[/-](\d+)\s+(\d+):(\d+):(\d+)(\s+([+-]\d+))?;\s+author:\s+([^;]+);#
or die "Couldn't parse date ``$line''";
die "Bad date or Y2K issues" unless ($year > 1969 and $year < 2258);
# Kinda arbitrary, but useful as a sanity check
my $time = timegm($secs,$min,$hours,$mday,$mon-1,$year);