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.3 and 1.5

version 1.3, 2011/07/20 07:52:32

version 1.5, 2011/07/22 07:43:56

Line 4

use db;

use log; # bad! only for log::filelist()

use warnings;

my $EXPAND_SYMLINKS = 1;

#my $EXPAND_SYMLINKS = 1;

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";

Line 39

#convert samba-paths to local unix paths

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

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

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

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

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

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

# Returning of array with bad element is deprecated,

# So this code too weak to work correctly.

if($EXPAND_SYMLINKS && -e $dbpaths[$i])

# if($EXPAND_SYMLINKS && -e $dbpaths[$i])

{

# {

chomp( $_ = `dirname $dbpaths[$i] | xargs /usr/bin/readlink` );

# chomp( $_ = `dirname $dbpaths[$i] | xargs /usr/bin/readlink` );

chomp( $dbpaths[$i] = $_ . '/' . `basename $dbpaths[$i]` );

# chomp( $dbpaths[$i] = $_ . '/' . `basename $dbpaths[$i]` );

# increment $i ONLY if local file exists, otherwise replace element in next iteration

# # increment $i ONLY if local file exists, otherwise replace element in next iteration

$i++;

# $i++;

}

# }

# if localfile does not exists, write result of next iteration on its place

}

else

Line 102

$sth->execute( );

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

{

$dbpaths[$i] = substr($dbpaths[$i], 23);

$dbpaths[$i] = substr($dbpaths[$i], 13);

$dbpaths[$i] =~ tr/\\/\//;

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