Changed files:
Zope-timerserver_remover -> 1.1
--- /dev/null
+#!/usr/bin/perl -w
+# Delete substring from zope.conf between two string
+# For PLD by Ciesiel
+
+use strict;
+use locale;
+use File::Copy;
+
+my $plik_we;
+my $plik_tmp;
+my $first_string;
+my $sec_string;
+my $usun;
+
+ $plik_we="/etc/zope/main/zope.conf";
+ $plik_tmp="./zope_pld_tmp";
+ $first_string="%import timerserver";
+ $sec_string="</timer-server>";
+ $usun=0;
+
+open (PLIK_WEJ,"$plik_we") || die "Error - File not found: $plik_we\n";
+open (PLIK_WYJ,">$plik_tmp") || die "Error - File not found: $plik_tmp\n";
+
+while (<PLIK_WEJ>)
+{
+ if (/^$first_string/)
+ {
+ ++$usun;
+ }
+
+ if (/^$sec_string/)
+ {
+ $usun=99999.5;
+ }
+
+ if ($usun>0)
+ {
+ $_="";
+ }
+ print PLIK_WYJ;
+
+ if ($usun==99999.5)
+ {
+ $usun=0;
+ }
+}
+
+close(PLIK_WEJ);
+close(PLIK_WYJ);
+if ($usun==0)
+ {
+ move($plik_tmp,$plik_we);
+ }
+ else
+ {
+ unlink($plik_tmp);
+ print "\nNot found $first_string or $sec_string in zope.conf! - zope.conf not changed!\n";
+ }