From 480d2b551cc5fceef31ee366a06b3c15d660bbea Mon Sep 17 00:00:00 2001 From: Guillaume Rousse Date: Mon, 25 Jan 2010 21:26:01 +0000 Subject: adapt del-syslog to new add-syslog behaviour --- del-syslog | 39 ++++++++++++++++++++++++++++++--------- 1 file changed, 30 insertions(+), 9 deletions(-) (limited to 'del-syslog') diff --git a/del-syslog b/del-syslog index 185b6ae..08176ca 100755 --- a/del-syslog +++ b/del-syslog @@ -11,19 +11,22 @@ my ($package, $number) = @ARGV; # don't do anything for upgrade exit(0) if $number == 1; -if (-f '/etc/syslog.conf') { - del_syslog_entry($package, '/etc/syslog.conf'); - system(qw/service syslog condrestart/); -} +open(my $fh, '<', '/etc/mandriva-release') + or die "can't open /etc/mandriva-release: $!"; +my $line = <$fh>; +$line =~ /^Mandriva Linux release (\d\d\d\d\.\d)/; +my $release = $1; +close($fh); -if (-f '/etc/syslog-ng.conf') { - del_syslog_entry($package, '/etc/syslog-ng.conf'); - system(qw/service syslog-ng condrestart/); +if (version->parse($release) < version->parse("2010.1")) { + del_sysklogd_entry($package); +} else { + del_rsyslog_entry($package); } -sub del_syslog_entry { - my ($package, $file) = @_; +sub del_sysklogd_entry { + my $file = "/etc/syslog.conf"; my $content; open(my $in, '<', $file) or die "Can't open $file for reading: $!"; @@ -41,4 +44,22 @@ sub del_syslog_entry { or die "Can't open $file for writing: $!"; print $out $content; close($out); + + system(qw/service syslog condrestart/); +} + +sub del_rsyslog_entry { + + my $file = "/etc/rsyslog.d/$package.conf"; + + # check the file is the one created by package installation + open(my $in, '<', $file) + or die "Can't open $file for reading: $!"; + my $line = <$in>; + close($in); + return if $line ne "# Automatically added by $package installation\n"; + + unlink $file + or die "Can't delete $file: $!"; + system(qw/service rsyslog condrestart/); } -- cgit v1.2.1