[BACK]Return to updatedb.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/updatedb.pl between versions 1.19 and 1.20

version 1.19, 2000/11/11 04:05:52 version 1.20, 2001/07/21 23:59:52
Line 70  sub getField { Line 70  sub getField {
             chomp $key;              chomp $key;
             if ($key eq 'δΑΤΑ') {              if ($key eq 'δΑΤΑ') {
                 $value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;                  $value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;
                 my($month) = $RevMonths{$2} || '000';                  my($month) = $RevMonths{$2} || '01';
                 $value =~ s/$2/$month/;                  $value =~ s/-(.*)-/-$month-/;
                   $value =~ s/-00*$/-01/;
             }              }
             $value = $dbh->quote($value);              $value = $dbh->quote($value);
             return ($key, $value);              return ($key, $value);
Removed from v.1.19  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>