--- /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;" );
+}
+