--- 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 <hs@schlittermann.de>  Wed, 21 Sep 2011 22:45:40 +0200
+
 littlebird (2011092000-1) stable; urgency=low
 
   * new upstream 

--- /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 =~ /^(?<name>.+)[-_](?<version>\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;" );
+}
+