=================================================================== RCS file: /cvs/wpscripts/ztransfer/send.pm,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- wpscripts/ztransfer/send.pm 2011/08/30 08:30:42 1.5 +++ wpscripts/ztransfer/send.pm 2011/12/21 09:19:22 1.6 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: send.pm,v 1.5 2011/08/30 08:30:42 yason Exp $ +# $Id: send.pm,v 1.6 2011/12/21 09:19:22 yason Exp $ package send; use fetch; use db; @@ -89,13 +89,13 @@ $remotepaths[$i] =~ s/\/mnt\/maket/\/mnt\/rmt_maket/; } - if(-e $remotepaths[$i] || -e $remotepaths[$i] . '.rar') - { - log::error("Remote file $remotepaths[$i] or $remotepaths[$i].rar already exists"); - db::change_status($dbids[$i], 1); - } - else - { +# if(-e $remotepaths[$i] || -e $remotepaths[$i] . '.rar') +# { +# log::error("Remote file $remotepaths[$i] or $remotepaths[$i].rar already exists"); +# db::change_status($dbids[$i], 1); +# } +# else +# { # In this place we must be sure that local file is ok if( -e $localpaths[$i] ) { @@ -205,7 +205,7 @@ log::zayavki("Can not open local file $localpaths[$i]"); } - } +# } # next iteration of 'while' and increment of $i $i++;