#!/usr/bin/perl -w
use strict;

my ($list_file);

if(!$ARGV[0]){ die "# usage: $0 <list upgraded species>\n" }
else{ 
    ($list_file) = @ARGV;
}

open(LIST,"<",$list_file) || die "# cannot read $list_file\n";
while(<LIST>){
    next if(/^#/);
    my $species = (split)[0];
    $species =~ s/\s+//g;
    next if($species eq '' || $species =~ m/\//);

    print "$species\n";

    # mv deprecated data folders
    system("mv data/genomes/$species data/genomes/old");
}
close(LIST);