version 1.6, 2011/08/30 08:30:41 |
version 1.8, 2012/04/01 06:52:10 |
|
|
my $QUERY_Z = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=0"; |
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_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_T = "SELECT ID,Path,file_priority FROM upload_files WHERE Status=0 AND type_file=2"; |
|
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; |
my $sth; |
|
|
|
|
return( (\@dbids, \@dbpaths) ); |
return( (\@dbids, \@dbpaths) ); |
} |
} |
|
|
|
sub zjpeg_list() |
|
{ |
|
my @dbids; |
|
my @dbpaths; |
|
my $i = 0; |
|
|
|
$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( ) ) |
|
{ |
|
$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); |
return(1); |