=================================================================== RCS file: /cvs/wpscripts/ztransfer/fetch.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- wpscripts/ztransfer/fetch.pm 2011/07/20 07:52:32 1.3 +++ wpscripts/ztransfer/fetch.pm 2011/07/22 07:34:56 1.4 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: fetch.pm,v 1.3 2011/07/20 07:52:32 yason Exp $ +# $Id: fetch.pm,v 1.4 2011/07/22 07:34:56 yason Exp $ package fetch; use db; use log; # bad! only for log::filelist() @@ -39,7 +39,7 @@ #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!