# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1316639102 -7200 # Node ID 6f699c40753ded231809d4005f8e1ae48026b88c # Parent 8c18a2ba221f5ca4fa93588498e117176a171d41 new upstream diff -r 8c18a2ba221f -r 6f699c40753d debian/changelog --- a/debian/changelog Tue Sep 20 22:56:03 2011 +0200 +++ b/debian/changelog Wed Sep 21 23:05:02 2011 +0200 @@ -1,3 +1,9 @@ +littlebird (2011092100-1) stable; urgency=low + + * new upstream + + -- Heiko Schlittermann Wed, 21 Sep 2011 22:45:40 +0200 + littlebird (2011092000-1) stable; urgency=low * new upstream diff -r 8c18a2ba221f -r 6f699c40753d debian/source/get --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/source/get Wed Sep 21 23:05:02 2011 +0200 @@ -0,0 +1,24 @@ +#! /usr/bin/perl +use 5.010; +use strict; +use warnings; +use autodie qw(:all); + +my $url = "sftp://schlittermann\@92.51.155.210"; +my $dir = "../orig"; + + +if (fork()) { wait } +else { + my ($src, $dst); + chdir $dir; + + chomp($src = (`lftp $url -e "cat latest; exit;"`)[0]); + + $src =~ /^(?.+)[-_](?\d+)\.tar\.gz/ + or die "$0: source file `$src' does not match expectations\n"; + $dst = "$+{name}_$+{version}.orig.tar.gz"; + + system(lftp => $url, -e => "get -c $src -o $dst; exit;" ); +} +