--- a/send-config.pl Thu Apr 28 14:30:34 2005 +0000
+++ b/send-config.pl Tue May 03 08:30:20 2005 +0000
@@ -17,7 +17,7 @@
use Socket;
my $ME = basename $0;
-my $CONFIG = "./config";
+my $CONFIG = "/etc/send-config/config";
my $opt_verbose = 0;
my $opt_keepgoing = 0;
@@ -41,7 +41,7 @@
my $hostname_long = hostname_long();
my $user = "root";
- my $path = "/root/Config/Hosts/$hostname_long";
+ my $path = "/root/Configs/Hosts/$hostname_long";
my $ssh_cmd = "mkdir -m 0700 -p $path";
sshopen2("$user\@$host", *READER, *WRITER, "$ssh_cmd") || die "ssh: $!";
@@ -50,15 +50,13 @@
open(CONF, $CONFIG) or die "$ME: Can't open $CONFIG: $!\n";
my @cmd = (
- qw(rsync --rsh),
- "ssh -x",
+ qw(rsync --rsh), "ssh -x",
qw(--compress --numeric-ids
--delete --delete-excluded
--archive --relative)
);
push @cmd, "--verbose" if $opt_verbose;
- # get exclusion list
while (<CONF>) {
chomp;
/^!(.*)\s*/ or next;