diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-02 11:06:01 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-12-02 11:06:01 +0000 |
| commit | 8171a705b8bdd273d394f2a6c83e463fe53fc777 (patch) | |
| tree | e128e0111534b4dceaba1e1b36adf989f7d22688 /move | |
| parent | a22181c017e8288c622c27866e41815b8fcf0bb1 (diff) | |
| download | drakx-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar drakx-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.gz drakx-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.bz2 drakx-8171a705b8bdd273d394f2a6c83e463fe53fc777.tar.xz drakx-8171a705b8bdd273d394f2a6c83e463fe53fc777.zip | |
drop unused variables
Diffstat (limited to 'move')
| -rwxr-xr-x | move/etc-monitorer.pl | 5 |
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 |