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

