[BACK]Return to fetch.pm CVS log [TXT][DIR] Up to [local] / wpscripts / ztransfer

Diff for /wpscripts/ztransfer/fetch.pm between version 1.2 and 1.3

version 1.2, 2011/07/20 07:50:57 version 1.3, 2011/07/20 07:52:32
Line 92 
Line 92 
 }  }
   
   
 sub jpegs_list()  
 {  
     my @dbids;  
     my @dbpaths;  
     my $i = 0;  
   
     $sth = $db::dbh->prepare($QUERY_J);  
     $sth->execute( );  
     while(($dbids[$i], $dbpaths[$i]) = $sth->fetchrow_array( ) )  
     {  
         $dbpaths[$i] = substr($dbpaths[$i], 23);  
         $dbpaths[$i] =~ tr/\\/\//;  
         $dbpaths[$i] = '/WIDEPRINT/' . $dbpaths[$i];  
         $dbpaths[$i] = substr($dbpaths[$i], 0, ( index($dbpaths[$i], ' ', 0) ) );  
             if($EXPAND_SYMLINKS && -e $dbpaths[$i])  
             {  
                 chomp( $_ = `dirname $dbpaths[$i] | xargs /usr/bin/readlink` );  
                 chomp( $dbpaths[$i] = $_ . '/' . `basename $dbpaths[$i]` );  
             }  
         $i++;  
     }  
   
     $i--;  
     $#dbids = $i;  
     $#dbpaths = $i;  
   
     log::filelist(\@dbpaths);  
   
     return( (\@dbids, \@dbpaths) );  
 }  
   
   
 sub probas_list()  sub probas_list()
 {  {
     my @dbids;      my @dbids;
Line 152 
Line 120 
   
     log::filelist(\@dbpaths);      log::filelist(\@dbpaths);
   
   
     return( (\@dbids, \@dbpaths) );  
 }  
   
   
 sub tpps_list()  
 {  
     my @dbids;  
     my @dbpaths;  
     my $i = 0;  
   
     $sth = $db::dbh->prepare($QUERY_T);  
     $sth->execute( );  
     while(($dbids[$i], $dbpaths[$i]) = $sth->fetchrow_array( ) )  
     {  
         $dbpaths[$i] = substr($dbpaths[$i], 23);  
         $dbpaths[$i] =~ tr/\\/\//;  
         $dbpaths[$i] = '/WIDEPRINT/' . $dbpaths[$i];  
         $dbpaths[$i] = substr($dbpaths[$i], 0, ( index($dbpaths[$i], ' ', 0) ) );  
             if($EXPAND_SYMLINKS && -e $dbpaths[$i])  
             {  
                 chomp( $_ = `dirname $dbpaths[$i] | xargs /usr/bin/readlink` );  
                 chomp( $dbpaths[$i] = $_ . '/' . `basename $dbpaths[$i]` );  
             }  
         $i++;  
     }  
   
     $i--;  
     $#dbids = $i;  
     $#dbpaths = $i;  
   
     log::filelist(\@dbpaths);  
   
     return( (\@dbids, \@dbpaths) );      return( (\@dbids, \@dbpaths) );
 }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVSweb