#!/usr/bin/perl

## make sure we can run this from bims via sudo from pubmed
use lib qw(/home/ernad/ernad/perl /home/ernad/usr/share/perl /home/ernad/lib/perl);

use strict;
use warnings;

use File::Basename;
use Data::Dumper;

use Ernad::Args;
use Ernad::Erimp;

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();
$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

my $learn_dir=$e->{'dir'}->{'learn'} ;
my $model_dir=$learn_dir . '/model/';

my $generations_to_keep;
foreach my $fufi (`find $model_dir -name '*.model'`) {
  chomp $fufi;
  my $gen=&get_generation($fufi) or next;
  $generations_to_keep->{$gen}=1;
}

print Dumper $generations_to_keep;

my $vemli_dir="$learn_dir/vemli";
&clean_dir($vemli_dir);
my $fidek_dir="$learn_dir/fidek";
&clean_dir($fidek_dir);

exit;


sub clean_dir {
  my $fudi=shift;
  foreach my $fufi (`find $fudi`) {
    chomp $fufi;
    my $gen=&get_generation($fufi) or next;
    if($generations_to_keep->{$gen}) {
      print "I keep $fufi\n";
      next;
    }
    print "$fufi to go, of $gen\n";
    unlink($fufi)
  }
}


sub get_generation {
  my $fufi=shift;
  if(not -f $fufi) {
    print "I don't see $fufi\n";
    return;
  }
  my $bana=basename($fufi);
  if($bana=~m|^[^_]+_([^_]+)[._]|) {
    my $gen=$1;
    $gen=~s|\.json||;
    return $gen;
  }
  print "no gen for $fufi\n";
  return '';
}