Diff for /loncom/lond between versions 1.113 and 1.114

version 1.113, 2003/03/13 21:01:52 version 1.114, 2003/03/14 19:29:36
Line 1776  sub currentversion { Line 1776  sub currentversion {
     if ($fname=~/^(.+)\/[^\/]+$/) {      if ($fname=~/^(.+)\/[^\/]+$/) {
        $ulsdir=$1;         $ulsdir=$1;
     }      }
       my ($fnamere1,$fnamere2);
       # remove version if already specified
     $fname=~s/\.\d+\.(\w+(?:\.meta)*)$/\.$1/;      $fname=~s/\.\d+\.(\w+(?:\.meta)*)$/\.$1/;
     $fname=~s/\.(\w+(?:\.meta)*)$/\.\(\\d\+\)\.$1\$/;      # get the bits that go before and after the version number
       if ( $fname=~/^(.*\.)(\w+(?:\.meta)*)$/ ) {
    $fnamere1=$1;
    $fnamere2='.'.$2;
       }
     if (-e $fname) { $version=1; }      if (-e $fname) { $version=1; }
     if (-e $ulsdir) {      if (-e $ulsdir) {
        if(-d $ulsdir) {         if(-d $ulsdir) {
           if (opendir(LSDIR,$ulsdir)) {            if (opendir(LSDIR,$ulsdir)) {
   
              while ($ulsfn=readdir(LSDIR)) {               while ($ulsfn=readdir(LSDIR)) {
 # see if this is a regular file (ignore links produced earlier)  # see if this is a regular file (ignore links produced earlier)
                  my $thisfile=$ulsdir.'/'.$ulsfn;                   my $thisfile=$ulsdir.'/'.$ulsfn;
                  unless (-l $thisfile) {                   unless (-l $thisfile) {
     if ($thisfile=~/$fname/) {       if ($thisfile=~/\Q$fnamere1\E(\d+)\Q$fnamere2\E/) {
         if ($1>$version) { $version=$1; }   if ($1>$version) { $version=$1; }
                     }       }
  }   }
              }               }
              closedir(LSDIR);               closedir(LSDIR);

Removed from v.1.113  
changed lines
  Added in v.1.114


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