wpscripts/ztransfer/fetch.pm - diff

Return to fetch.pm CVS log

Up to [local] / wpscripts / ztransfer

Diff for /wpscripts/ztransfer/fetch.pm between version 1.7 and 1.8

version 1.7, 2011/12/21 10:19:26

version 1.8, 2012/04/01 06:52:10

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 $QUERY_ZJ = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=3";

my $QUERY_PJ = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=4";

my $sth;

Line 141

Line 142

return( (\@dbids, \@dbpaths) );

}

sub jpeg_list()

sub zjpeg_list()

{

my @dbids;

my @dbpaths;

my $i = 0;

$sth = $db::dbh->prepare($QUERY_J);

$sth = $db::dbh->prepare($QUERY_ZJ);

$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) );

}

sub pjpeg_list()

{

my @dbids;

my @dbpaths;

my $i = 0;

$sth = $db::dbh->prepare($QUERY_PJ);

$sth->execute( );

while(($dbids[$i], $dbpaths[$i]) = $sth->fetchrow_array( ) )

{

CVSweb