===================================================================
RCS file: /cvs/wpscripts/ztransfer/fetch.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- wpscripts/ztransfer/fetch.pm	2011/07/20 07:50:57	1.2
+++ wpscripts/ztransfer/fetch.pm	2011/07/20 07:52:32	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: fetch.pm,v 1.2 2011/07/20 07:50:57 yason Exp $
+# $Id: fetch.pm,v 1.3 2011/07/20 07:52:32 yason Exp $
 package fetch;
 use db;
 use log;  # bad! only for log::filelist()
@@ -92,38 +92,6 @@
 }
 
 
-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()
 {
     my @dbids;
@@ -152,38 +120,6 @@
 
     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) );
 }