#! /usr/bin/env perl

use strict;
use warnings;
use File::Basename;
use File::Path;
use Cwd 'getcwd';

my $CWD=dirname(${0});
chdir $CWD;
$CWD=getcwd;
my $PWD=dirname($CWD);
my $ESROOT=$PWD;

my $conf=sprintf("%s/pfam_ls_lftp", $CWD);
my $pfam_lftp=sprintf("%s/pfam_lftp", $CWD);

my %m=();;
my $ver = '';
open(FD, "$ESROOT/local/bin/lftp -f $conf |");
while(my $line = readline(FD)){
  my @d = split(/\s+/, $line);
  if( $d[8] =~ /^Pfam/ ){
    $d[8]=~s/^Pfam//;
    my $ver=$d[8]*10;
    $ver=sprintf("%05s", $ver);
    $m{$ver}=$d[8];
  }
}
close(FD);  
my $key = '';
$ver = '';
foreach $key (reverse (sort(keys %m))){
   chomp($key);
   if( ! $key ){
     next;
   }
   $ver = $m{$key};
   last;
}

open(WD, ">$pfam_lftp");
print WD << "DATA";
set xfer:clobber on
set pget:default-n 8
open ftp.ebi.ac.uk
cd /pub/databases/Pfam/releases/Pfam$ver/
pget Pfam-A.full.gz -o $ESROOT/data/source/pfam/
DATA
close(FD);