1 #! /usr/bin/perl

     2 use 5.010;

     3 use strict;

     4 use warnings;

     5 use autodie qw(:all);

     6 

     7 my $url = "sftp://schlittermann\@92.51.155.210";

     8 my $dir = "../orig";

     9 

    10 

    11 if (fork()) { wait }

    12 else {

    13     my ($src, $dst);

    14     chdir $dir;

    15 

    16     chomp($src = (`lftp $url -e "cat latest; exit;"`)[0]);

    17 

    18     $src =~ /^(?<name>.+)[-_](?<version>\d+)\.tar\.gz/

    19 	or die "$0: source file `$src' does not match expectations\n";

    20     $dst = "$+{name}_$+{version}.orig.tar.gz";

    21 

    22     system(lftp => $url, -e => "get -c $src -o $dst; exit;" );

    23 }

    24