build debian stable packet
authorarnold
Tue, 14 Apr 2009 14:48:42 +0000
changeset 4 b37e229edb1d
parent 3 6cc86a8d1085
child 5 482b827bb2cd
build debian stable packet
debian/changelog
debian/send-config/DEBIAN/conffiles
debian/send-config/DEBIAN/control
debian/send-config/DEBIAN/md5sums
debian/send-config/etc/send-config/config
debian/send-config/usr/sbin/send-config
--- 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: