![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updatedb.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.44, 2009/05/02 21:23:07 | version 1.46, 2009/05/24 10:10:17 |
|---|---|
| Line 90 sub parseDate { | Line 90 sub parseDate { |
| $to =~ s/-(.*)-/-$month-/; | $to =~ s/-(.*)-/-$month-/; |
| $to =~ s/-00*$/-01/; | $to =~ s/-00*$/-01/; |
| } | } |
| print Dumper($from, $to); | |
| return ($from, $to); | return ($from, $to); |
| } | } |
| Line 121 sub getField { | Line 120 sub getField { |
| next; | next; |
| } | } |
| if ($key) { | if ($key) { |
| $value .= $_; | $value .= $_."\n"; |
| next; | next; |
| } | } |
| } | } |
| if ($key && $value) { | if ($key && $value) { |
| $value=~s/\s+$//; | $value=~s/\s+$//sm; |
| return ($key, $value); | return ($key, $value); |
| } | } |
| return (0, 0); | return (0, 0); |