version 1.1, 2011/06/03 09:28:47 |
version 1.2, 2011/06/03 11:03:41 |
|
|
use warnings; |
use warnings; |
|
|
# spool path constants (without leading slash) |
# spool path constants (without leading slash) |
our $SPOOL_ZAYAVKI = "/usr/backup/wp/zayavki"; |
our $SPOOL_ZAYAVKI = "/mnt/archive/archive/wp/zayavki"; |
our $SPOOL_PROBAS = "/usr/backup/wp/proba"; |
our $SPOOL_PROBAS = "/mnt/archive/archive/wp/proba"; |
our $SPOOL_TMPDIR = "/usr/backup/temp"; |
our $SPOOL_TMPDIR = "/mnt/archive/archive/temp"; |
|
|
# temp variables for map table lookup |
# temp variables for map table lookup |
our $ret; |
our $ret; |
|
|
else |
else |
{ |
{ |
# hardcoded |
# hardcoded |
|
# how maket/rmt_maket could be used there? |
$remotepaths[$i] =~ s/V(1)/zV7/; |
$remotepaths[$i] =~ s/V(1)/zV7/; |
$remotepaths[$i] =~ s/V(2)/zV8/; |
$remotepaths[$i] =~ s/V(2)/zV8/; |
$remotepaths[$i] =~ s/V(3)/zV6/; |
$remotepaths[$i] =~ s/V(3)/zV6/; |