[Bio] / FigKernelPackages / MetaSubsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/MetaSubsystem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Sat Aug 30 10:04:38 2008 UTC revision 1.3, Fri Sep 5 15:02:22 2008 UTC
# Line 544  Line 544 
544    
545    $self->load_version();    $self->load_version();
546  }  }
547    
548    sub get_curator_from_metaname {
549      my ( $metaname ) = @_;
550      my $msadir = get_dir_from_name( $metaname );
551    
552      if  ( open( LOG, "<$msadir/curation.log" ) ) {
553        my $last = 0;
554        while ( defined( $_ = <LOG> ) ) {
555          if ( /^(\d+)\t(\S+)\s+started/ ) {
556            my $tmpcurator = $2;
557            if ( $tmpcurator =~ /master\:(.*)/ ) {
558              return $1;
559            }
560            else {
561              return $tmpcurator;
562            }
563          }
564        }
565        close( LOG );
566      }
567    }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3