Add source and progress indicator

svn path=/; revision=593

diff --git a/interactome_scripts/po_obsolete_check.pl b/interactome_scripts/po_obsolete_check.pl
index 657e3904bd81c311a814f071271b26d3fb851022..666a7dc3d531eef7fc533df915115507c1a4b2cb 100755 (executable)
--- a/interactome_scripts/po_obsolete_check.pl
+++ b/interactome_scripts/po_obsolete_check.pl
@@ -37,7 +37,7 @@ my $out_file = $ARGV[2];
 my @assoc_files = glob("$assoc_dir*.assoc");
 # if the files had a differenct extension, like .txt check here
 if ($#assoc_files == 0) {
-       my @assoc_files = glob("$assoc_dir*.txt");
+       my @assoc_files = glob("$assoc_dir*.assoc");
 }
 
 # init GO parser
@@ -60,7 +60,7 @@ foreach my $term (@$obo_terms) {
        }
 }
 
-my @source_array = ('sgn','tair','gramene','maizegdb','nasc', 'jaiswallab', 'cosmoss', 'AgBase');
+my @source_array = ('sgn','tair','gramene','maizegdb','nasc', 'jaiswallab', 'cosmoss', 'AgBase', 'poc');
 
 my %bad_term_hash;
 
@@ -71,6 +71,8 @@ foreach my $file (@assoc_files) {
        
        $file = fileparse($file);
        
+       print "checking file: $file\n";
+       
        my $source_db;
        foreach my $source (@source_array) {
                if ($file =~ /$source/i) {