--- a/debian/changelog Tue May 03 08:30:20 2005 +0000
+++ b/debian/changelog Tue Apr 14 14:48:42 2009 +0000
@@ -1,3 +1,9 @@
+send-config (1.1-1) stable; urgency=low
+
+ * build debian stable packet
+
+ -- Christian Arnold <arnold@hopper.home.site> Tue, 14 Apr 2009 16:43:41 +0200
+
send-config (1.0-1) unstable; urgency=low
* Initial Release.
--- a/debian/send-config/DEBIAN/conffiles Tue May 03 08:30:20 2005 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-/etc/send-config/config
--- a/debian/send-config/DEBIAN/control Tue May 03 08:30:20 2005 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,9 +0,0 @@
-Package: send-config
-Version: 1.0-1
-Section: net
-Priority: optional
-Architecture: all
-Depends: rsync, perl, libnet-ssh-perl, libsys-hostname-long-perl
-Installed-Size: 40
-Maintainer: Christian Arnold <arnold@schlittermann.de>
-Description: transfers selected files to an remote host
--- a/debian/send-config/DEBIAN/md5sums Tue May 03 08:30:20 2005 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,2 +0,0 @@
-b45290129c376e44ce45c205e4c3ec4d usr/sbin/send-config
-c90817bbc4f8d56036dad70b323288a7 etc/send-config/config
--- a/debian/send-config/etc/send-config/config Tue May 03 08:30:20 2005 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,13 +0,0 @@
-!*~
-!*kernel-source*
-!/usr/local/uvscan
-!/usr/local/src
-!/etc/samba/codepages
-/etc
-/usr/local
-/var/cache/debconf
-/var/lib/dpkg/status
-/boot/config*
-/usr/src/*/.config
-/usr/src/*config*/
-/root/LOG
--- a/debian/send-config/usr/sbin/send-config Tue May 03 08:30:20 2005 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,91 +0,0 @@
-#! /usr/bin/perl -w
-# $Id: send-config.pl 840 2005-04-28 14:28:04Z arnold $
-# $URL: svn://svn.schlittermann.de/is/send-config/trunk/send-config.pl $
-
-my $USAGE = <<'_';
-Usage: $ME [options] host
- host destination host
- -v --[no]verbose be verbose [$opt_verbose]
- -k --keepgoing don't stop on errors [$opt_keepgoing]
-_
-
-use strict;
-use File::Basename;
-use Getopt::Long;
-use Net::SSH qw(sshopen2);
-use Sys::Hostname::Long;
-use Socket;
-
-my $ME = basename $0;
-my $CONFIG = "/etc/send-config/config";
-
-my $opt_verbose = 0;
-my $opt_keepgoing = 0;
-
-MAIN: {
- GetOptions(
- "verbose!" => \$opt_verbose,
- "keepgoing" => \$opt_keepgoing,
- ) or die eval "\"$USAGE\"";
-
- unless (scalar(@ARGV) == 1) { die eval "\"$USAGE\""; }
-
- (my $host = $ARGV[0]) =~ s/.*\/([a-z0-9.-]+).*/$1/;
- my $ip = scalar gethostbyname($host);
-
- $ip or do {
- warn "can't resolve $host\n";
- next;
- };
- my $addr = inet_ntoa($ip);
- my $hostname_long = hostname_long();
-
- my $user = "root";
- my $path = "/root/Configs/Hosts/$hostname_long";
- my $ssh_cmd = "mkdir -m 0700 -p $path";
-
- sshopen2("$user\@$host", *READER, *WRITER, "$ssh_cmd") || die "ssh: $!";
- close(READER); close(WRITER);
-
- open(CONF, $CONFIG) or die "$ME: Can't open $CONFIG: $!\n";
-
- my @cmd = (
- qw(rsync --rsh), "ssh -x",
- qw(--compress --numeric-ids
- --delete --delete-excluded
- --archive --relative)
- );
- push @cmd, "--verbose" if $opt_verbose;
-
- while (<CONF>) {
- chomp;
- /^!(.*)\s*/ or next;
- push @cmd, "--exclude", $1;
- }
- seek CONF, 0, 0 or die "$ME: Can't seek $CONFIG: $!\n";
-
- while (<CONF>) {
- chomp;
- /^\// or next;
- my $status = "";
- my $src = "$_";
- my $dst = "$user\@$host:$path";
- print "* $src -> $dst$_\n";
- system @cmd, $src, $dst;
- if ($?) {
- $status = "ERR " . ($? >> 8);
- $status .= " SIGNAL " . ($? & 127);
- } else { $status = "OK"; };
-
- if ($status ne "OK") {
- warn "$ME: ???. system command ended with $status" unless $opt_keepgoing;
- }
- }
-
- my $STAMP = "/var/tmp/get-config.stamp";
- open(TOUCH, ">$STAMP") or die "$ME: Can't open >>$STAMP: $!\n";
- close(TOUCH);
-
-}
-
-# vim:sts=4 sw=4 aw ai sm: