1 | 7c7
|
---|
2 | < use File::Basename;
|
---|
3 | ---
|
---|
4 | > #use File::Basename;
|
---|
5 | 19c19
|
---|
6 | < mkdir 0755,$bkpdir if (! -d $bkpdir) ;
|
---|
7 | ---
|
---|
8 | > mkdir $bkpdir,0755 if (! -d $bkpdir) ;
|
---|
9 | 44c44
|
---|
10 | < $tooldir = dirname($tool);
|
---|
11 | ---
|
---|
12 | > ($tooldir = $tool) =~ s#[\\/][^\\/]*$##;
|
---|
13 | 55c55
|
---|
14 | < print SCRIPT "(cd $tooldir ; $tool -s -f$bkpdir/conrep.dat)");
|
---|
15 | ---
|
---|
16 | > print SCRIPT "(cd $tooldir ; $tool -s -f$bkpdir/conrep.dat)";
|
---|
17 | 60c60
|
---|
18 | < print SCRIPT "$tool -r $bkpdir/cpqacuxe.dat");
|
---|
19 | ---
|
---|
20 | > print SCRIPT "$tool -r $bkpdir/cpqacuxe.dat";
|
---|
21 | 65c65
|
---|
22 | < print SCRIPT "$tool -r $bkpdir/hponcfg.dat");
|
---|
23 | ---
|
---|
24 | > print SCRIPT "$tool -r $bkpdir/hponcfg.dat";
|
---|
25 | 68c68
|
---|
26 | < print SCRIPT "$tool");
|
---|
27 | ---
|
---|
28 | > print SCRIPT "$tool";
|
---|