summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-12-02 11:06:01 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-12-02 11:06:01 +0000
commit8171a705b8bdd273d394f2a6c83e463fe53fc777 (patch)
treee128e0111534b4dceaba1e1b36adf989f7d22688
parenta22181c017e8288c622c27866e41815b8fcf0bb1 (diff)
downloaddrakx-backup-do-not-use-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar
drakx-backup-do-not-use-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.gz
drakx-backup-do-not-use-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.bz2
drakx-backup-do-not-use-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.xz
drakx-backup-do-not-use-8171a705b8bdd273d394f2a6c83e463fe53fc777.zip
drop unused variables
-rwxr-xr-xmove/etc-monitorer.pl5
1 files changed, 1 insertions, 4 deletions
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