send-config.pl
changeset 3 6cc86a8d1085
parent 1 2ee0eb0ef5d3
child 6 e7973168471d
--- 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;