cleanup option added to remove source data files after parsing

misc-scripts/xref_mapping/XrefParser/BaseParser.pm

@@ -22,7 +22,7 @@ my %dependent_sources;
 my %taxonomy2species_id;
 my %name2species_id;
 
-my ($host, $port, $dbname, $user, $pass, $create, $release);
+my ($host, $port, $dbname, $user, $pass, $create, $release, $cleanup);
 my $skipdownload;
 
 # --------------------------------------------------------------------------------
@@ -30,7 +30,7 @@ my $skipdownload;
 
 sub run {
 
-  ($host, $port, $dbname, $user, $pass, my $speciesr, my $sourcesr, $skipdownload, $create, $release) = @_;
+  ($host, $port, $dbname, $user, $pass, my $speciesr, my $sourcesr, $skipdownload, $create, $release, $cleanup) = @_;
 
   my @species = @$speciesr;
   my @sources = @$sourcesr;
@@ -179,6 +179,8 @@ sub run {
 	# set release if specified
 	set_release($release, $source_id) if ($release);
 
+	unlink("$dir/$new_file[0]") if ($cleanup);
+
       }
     elsif(!$dsn && !$empty){
       print "Ignoring ".join(' ',@new_file)." as checksums match\n";

misc-scripts/xref_mapping/xref_parser.pl

@@ -3,7 +3,7 @@ use strict;
 use Getopt::Long;
 use XrefParser::BaseParser;
 
-my ($host, $port, $dbname, $user, $pass, @species, @sources, $skipdownload, $create, $release);
+my ($host, $port, $dbname, $user, $pass, @species, @sources, $skipdownload, $create, $release, $cleanup);
 
 GetOptions('user=s'       => \$user,
 	   'pass=s'       => \$pass,
@@ -15,6 +15,7 @@ GetOptions('user=s'       => \$user,
 	   'skipdownload' => \$skipdownload,
 	   'create'       => \$create,
 	   'setrelease=s' => \$release,
+	   'cleanup'      => \$cleanup,
 	   'help'         => sub { usage(); exit(0); });
 
 @species = split(/,/,join(',',@species));
@@ -28,7 +29,7 @@ if (!$user || !$host || !$dbname) {
 
 }
 
-XrefParser::BaseParser::run($host, $port, $dbname, $user, $pass, \@species, \@sources, $skipdownload, $create, $release);
+XrefParser::BaseParser::run($host, $port, $dbname, $user, $pass, \@species, \@sources, $skipdownload, $create, $release, $cleanup);
 
 # --------------------------------------------------------------------------------
 
@@ -71,6 +72,8 @@ sub usage {
 
   -setrelease   Set the release version for ALL the sources specified.
 
+  -cleanup      Delete the Downloaded source files after parsing.
+
 EOF
 
 }