]>
Commit | Line | Data |
---|---|---|
800e75b3 | 1 | #!/usr/bin/perl -w |
2 | # Delete substring from zope.conf between two string | |
3 | # For PLD by Ciesiel | |
4 | ||
5 | use strict; | |
6 | use locale; | |
7 | use File::Copy; | |
8 | ||
9 | my $plik_we; | |
10 | my $plik_tmp; | |
11 | my $first_string; | |
12 | my $sec_string; | |
13 | my $usun; | |
14 | ||
15 | $plik_we="/etc/zope/main/zope.conf"; | |
16 | $plik_tmp="./zope_pld_tmp"; | |
17 | $first_string="%import timerserver"; | |
18 | $sec_string="</timer-server>"; | |
19 | $usun=0; | |
20 | ||
21 | open (PLIK_WEJ,"$plik_we") || die "Error - File not found: $plik_we\n"; | |
22 | open (PLIK_WYJ,">$plik_tmp") || die "Error - File not found: $plik_tmp\n"; | |
23 | ||
24 | while (<PLIK_WEJ>) | |
25 | { | |
26 | if (/^$first_string/) | |
27 | { | |
28 | ++$usun; | |
29 | } | |
30 | ||
31 | if (/^$sec_string/) | |
32 | { | |
33 | $usun=99999.5; | |
34 | } | |
35 | ||
36 | if ($usun>0) | |
37 | { | |
38 | $_=""; | |
39 | } | |
40 | print PLIK_WYJ; | |
41 | ||
42 | if ($usun==99999.5) | |
43 | { | |
44 | $usun=0; | |
45 | } | |
46 | } | |
47 | ||
48 | close(PLIK_WEJ); | |
49 | close(PLIK_WYJ); | |
50 | if ($usun==0) | |
51 | { | |
52 | move($plik_tmp,$plik_we); | |
53 | } | |
54 | else | |
55 | { | |
56 | unlink($plik_tmp); | |
57 | print "\nNot found $first_string or $sec_string in zope.conf! - zope.conf not changed!\n"; | |
58 | } |