wpscripts/ztransfer/fetch.pm - diff

Return to fetch.pm CVS log

Up to [local] / wpscripts / ztransfer

version 1.1, 2011/06/03 09:28:47

version 1.2, 2011/07/20 07:50:57

Line 6

use warnings;

my $EXPAND_SYMLINKS = 1;

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

my $QUERY_J = "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_P = "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=3";

my $sth;

Line 39

Line 37

if($dbids[$i]) # element exists (THIS CODE SHOULD BE FIXED)

{

#convert samba-paths to local unix paths

$dbpaths[$i] = substr($dbpaths[$i], 23); # remove \\fileserver\wideprint\

$dbpaths[$i] = substr($dbpaths[$i], 13); # remove \\fileserver\

$dbpaths[$i] =~ tr/\\/\//; # convert each \ to /

$dbpaths[$i] = '/WIDEPRINT/' . $dbpaths[$i];

$dbpaths[$i] = '/mnt/rmt_maket/' . $dbpaths[$i];

$dbpaths[$i] = substr($dbpaths[$i], 0, ( index($dbpaths[$i], ' ', 0) ) );

# We must not save non-existent local file in array!