From a6e4b3bd9ee2e545bb1e6a0dbfd5927336b24c0a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 19 Dec 1999 21:53:25 +0000 Subject: *** empty log message *** --- init-sh/lib.sh | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) (limited to 'init-sh') diff --git a/init-sh/lib.sh b/init-sh/lib.sh index e8798c7..6a613e9 100644 --- a/init-sh/lib.sh +++ b/init-sh/lib.sh @@ -46,30 +46,7 @@ AddRules() { AddBegRules() { echo "Modifying config in ${2}..." -/usr/bin/perl -e ' - my $m; - - $file = shift or die; - $temp = `mktemp /tmp/secure.XXXXXX`; - - chomp $temp; - - open FH, $file; - open FW, ">$temp"; - - while () { - if (!/^\#/ && !/^$/ && !$m) { - print FW $ENV{"COMMENT"}; - print FW "\n"; - print FW "@ARGV\n\n"; $m++; - } - print FW; - } - close FH; - close FW; - - `mv -f $temp $file`; -' $@ + perl -pe -i '/^#/ or /^$/ or $m++ or print "$ENV{COMMENT}\n@ARGV\n\n"' $@ echo -e "done.\n" } -- cgit v1.2.1