diff options
Diffstat (limited to 'base/rsync')
| -rw-r--r-- | base/rsync/.footprint | 13 | ||||
| -rw-r--r-- | base/rsync/.md5sum | 2 | ||||
| -rwxr-xr-x | base/rsync/Pkgfile | 23 | ||||
| -rw-r--r-- | base/rsync/rsync.driver | 143 |
4 files changed, 181 insertions, 0 deletions
diff --git a/base/rsync/.footprint b/base/rsync/.footprint new file mode 100644 index 000000000..cf9c999ea --- /dev/null +++ b/base/rsync/.footprint @@ -0,0 +1,13 @@ +drwxr-xr-x root/root etc/ +drwxr-xr-x root/root etc/ports/ +drwxr-xr-x root/root etc/ports/drivers/ +-rwxr-xr-x root/root etc/ports/drivers/rsync +drwxr-xr-x root/root usr/ +drwxr-xr-x root/root usr/bin/ +-rwxr-xr-x root/root usr/bin/rsync +drwxr-xr-x root/root usr/share/ +drwxr-xr-x root/root usr/share/man/ +drwxr-xr-x root/root usr/share/man/man1/ +-rw-r--r-- root/root usr/share/man/man1/rsync.1.gz +drwxr-xr-x root/root usr/share/man/man5/ +-rw-r--r-- root/root usr/share/man/man5/rsyncd.conf.5.gz diff --git a/base/rsync/.md5sum b/base/rsync/.md5sum new file mode 100644 index 000000000..a73044712 --- /dev/null +++ b/base/rsync/.md5sum @@ -0,0 +1,2 @@ +e9865d093a18e4668b9d31b635dc8e99 rsync-3.0.6.tar.gz +f1c011016983c8237533efd336594ecf rsync.driver diff --git a/base/rsync/Pkgfile b/base/rsync/Pkgfile new file mode 100755 index 000000000..fdcfe8275 --- /dev/null +++ b/base/rsync/Pkgfile @@ -0,0 +1,23 @@ +# Description: Protocol de synchronisation de fichiers très efficace +# URL: http://samba.anu.edu.au/rsync/ +# Maintainer: NuTyX core team +# Packager: thierryn1 at hispeed dot ch +# Depends on: libiconv, popt + +name=rsync +version=3.0.6 +release=1 +source=( http://rsync.samba.org/ftp/$name/$name-$version.tar.gz\ + rsync.driver) + + +build() { + cd $name-$version + ./configure --prefix=/usr \ + --mandir=/usr/share/man \ + --infodir=/usr/share/info + make + make DESTDIR=$PKG install + install -d $PKG/etc/ports/drivers + install -m 755 $SRC/rsync.driver $PKG/etc/ports/drivers/rsync +} diff --git a/base/rsync/rsync.driver b/base/rsync/rsync.driver new file mode 100644 index 000000000..21fd54c45 --- /dev/null +++ b/base/rsync/rsync.driver @@ -0,0 +1,143 @@ +#!/usr/bin/perl +# +# /etc/ports/drivers/rsync: rsync(1) driver script for ports(8) +# + +use warnings; +use strict; +use File::Basename; + +my $host = ''; +my $collection = ''; +my $destination = ''; +my %new_checkouts; +my %old_checkouts; + +sub error +{ + my $message = shift; + print "Error: $message ($!)\nUpdating failed\n"; + exit 1; +} + +sub warning +{ + my $message = shift; + print "Warning: $message ($!)\n"; +} + +if ($#ARGV < 0) +{ + print "Usage: $0 <file>\n"; + exit 1; +} + +open(FILE, $ARGV[0]) or error("Couldn't open $ARGV[0]"); +while (<FILE>) +{ + chomp; + if (/^host=(.*)/) { $host = $1; } + elsif (/^collection=(.*)/) { $collection = $1; } + elsif (/^destination=(.*)/) { $destination = $1; } +} +close(FILE); + +if ($host eq '') { error("Host field not set in $ARGV[0]"); } +if ($collection eq '') { error("Collection field not set in $ARGV[0]"); } +if ($destination eq '') { error("Destination field not set in $ARGV[0]"); } + +if (-e "$destination/.checkouts") +{ + # read the old .checkouts file into memory + open(FILE, "$destination/.checkouts") or error("Couldn't read checkouts from $destination/.checkouts"); + while (<FILE>) + { + chomp; + $old_checkouts{$_} = 1; + } + close(FILE); +} + +print "Updating file list from " . $host . "::$collection\n"; + +# get the remote file list (new .checkouts) +open(PIPE, 'rsync -crz rsync://' . $host . '/' . $collection . '|') or error("Couldn't open pipe to rsync"); +while (<PIPE>) +{ + chomp; + + next if /^MOTD:/; # ignore MOTD lines + s/^(.{43})//; # ignore the first 43 characters (mode, date etc...) + next if /^.$/; # ignore the . directory + + $new_checkouts{$_} = 1; +} +close(PIPE); +error("Running rsync failed") unless $? == 0; + +print "Updating collection " . basename($destination) . "\n"; + +# now really run rsync +open(PIPE, 'rsync -crz --log-format "%o %n" rsync://' . $host . "/$collection $destination|") or error("Couldn't open pipe to rsync"); +while (<PIPE>) +{ + chomp; + + if (/^recv (.*)/) + { + if ($old_checkouts{$1}) + { + s/^recv/ Edit/; + } + else + { + s/^recv/ Checkout/; + } + } + + print $_ . "\n"; +} +close(PIPE); +error("Running rsync failed") unless $? == 0; + +# save new checkouts into .checkouts +open(FILE, ">$destination/.checkouts") or error("Couldn't save checkouts to $destination/.checkouts"); +foreach my $checkout (sort keys %new_checkouts) +{ + print FILE "$checkout\n"; +} +close(FILE); + +# use chroot as an additional safety measure when removing files +chroot($destination) or error("Couldn't chroot into $destination"); +chdir('/'); + +# iterate through old checkouts, remove obsolete files +foreach my $checkout (sort keys %old_checkouts) +{ + if (!$new_checkouts{$checkout}) + { + if (-f $checkout) + { + print " Delete $checkout\n"; + unlink($checkout) or warning("Couldn't delete $checkout"); + } + } +} + +# iterate through old checkouts, remove obsolete directories +foreach my $checkout (sort keys %old_checkouts) +{ + if (!$new_checkouts{$checkout}) + { + if (-d $checkout) + { + print " Delete $checkout\n"; + rmdir($checkout) or warning("Couldn't delete $checkout"); + } + } +} + +print "Finished successfully\n"; + +# End of file |