From 8171a705b8bdd273d394f2a6c83e463fe53fc777 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 2 Dec 2003 11:06:01 +0000 Subject: drop unused variables --- move/etc-monitorer.pl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'move') diff --git a/move/etc-monitorer.pl b/move/etc-monitorer.pl index ccbbfde00..2f79b7a49 100755 --- a/move/etc-monitorer.pl +++ b/move/etc-monitorer.pl @@ -5,11 +5,8 @@ use MDK::Common; sub outpend { my $f = shift; local *F; open F, ">>$f" or die "outpend in file $f failed: $!\n"; print F foreach @_ } sub logit { outpend "/var/log/etc-monitorer.log", sprintf("[%s] @_\n", chomp_(`date`)) } -my $machine_ident = cat_('/var/lib/machine_ident'); -my $sysconf = "/home/.sysconf/$machine_ident"; - foreach my $dir (@ARGV) { - my $destdir = "/home/.sysconf/$machine_ident"; + my $destdir = '/home/.sysconf/' . cat_('/var/lib/machine_ident'); my @etcfiles = glob_("$dir/*"); foreach (@etcfiles) { if ($_ eq '/etc/sudoers' #- /etc/sudoers can't be a link -- cgit v1.2.1