=================================================================== RCS file: /cvs/wpscripts/ztransfer/send.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- wpscripts/ztransfer/send.pm 2011/07/01 12:44:28 1.3 +++ wpscripts/ztransfer/send.pm 2011/07/22 09:44:02 1.4 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $Id: send.pm,v 1.3 2011/07/01 12:44:28 yason Exp $ +# $Id: send.pm,v 1.4 2011/07/22 09:44:02 yason Exp $ package send; use fetch; use db; @@ -110,7 +110,7 @@ log::zayavki("compressing '$localpaths[$i]' -> '$spool/$curfile'"); - `/usr/local/bin/rar a -rr10% -ep '$spool/$curfile' '$localpaths[$i]'`; + `/usr/bin/rar a -rr10% -ep '$spool/$curfile' '$localpaths[$i]'`; if( ($? >> 8) == 0) { # rar exited successfully @@ -312,7 +312,7 @@ log::probas("compressing '$localpaths[$i]' -> '$spool/$curfile'"); - `/usr/local/bin/rar a -rr10% -ep '$spool/$curfile' '$localpaths[$i]'`; + `/usr/bin/rar a -rr10% -ep '$spool/$curfile' '$localpaths[$i]'`; if( ($? >> 8) == 0) { # rar exited successfully