wpscripts/ztransfer/fetch.pm - diff

Return to fetch.pm CVS log

Up to [local] / wpscripts / ztransfer

-version 1.6, 2011/08/30 08:30:41
+version 1.7, 2011/12/21 10:19:26
 Line 7
 Line 7
 Line 7
  my $QUERY_Z = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=0";
  my $QUERY_P = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=1";
  my $QUERY_T = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=2";
+ my $QUERY_J = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=3";
  my $sth;
-Line 140
+Line 141
 Line 140
 Line 141
      return( (\@dbids, \@dbpaths) );
  }
+ sub jpeg_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], 13);
+         $dbpaths[$i] =~ tr/\\/\//;
+         $dbpaths[$i] = '/mnt/maket/' . $dbpaths[$i];
+         $dbpaths[$i] = substr($dbpaths[$i], 0, ( index($dbpaths[$i], ' ', 0) ) );
+         $i++;
+     }
+     $i--;
+     $#dbids = $i;
+     $#dbpaths = $i;
+     log::filelist(\@dbpaths);
+     return( (\@dbids, \@dbpaths) );
+ }
  return(1);