Lines Matching refs:date
78 my @date;
80 push(@date,$6,$5,$4,$3,$month{$2},($7 - 1900),-1,-1,-1);
82 die ("Cannot parse date '$str'\n'");
84 return @date;
281 my @date;
307 #print STDERR "debug ($state, " . (@date ? (strftime "%Y-%m-%d", @date) : "") . "): `$_'\n";
312 if ($_l =~ m,^Date: (.*),) {
313 @date = strptime($1);
315 $state = 1 if ($_l =~ m,^$, and $author and (@date+0>0));
340 print (strftime "%Y-%m-%d $author\n\n", @date);
357 @date = ();
367 if (@date + 0)
369 print (strftime "%Y-%m-%d $author\n\n", @date);
