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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.716, Wed Sep 3 20:27:26 2008 UTC revision 1.717, Fri Sep 5 10:40:29 2008 UTC
# Line 17892  Line 17892 
17892    
17893  sub publish_subsystem_to_clearinghouse  sub publish_subsystem_to_clearinghouse
17894  {  {
17895      my ($self, $ssa, $url) = @_;      my ($self, $ssa, $url, $newsys) = @_;
17896      my ($id, $token);      my ($id, $token);
17897    
17898      $ssa =~ s/[ \/]/_/g;      $ssa =~ s/[ \/]/_/g;
# Line 17919  Line 17919 
17919    
17920      my $time = int(time());      my $time = int(time());
17921    
17922        my $returnlog = '';
17923    
17924        if ( !$newsys ) {
17925      print "publishing: ss=$ssa version=$version time=$time curator=$curator seed_id=$seed_id\n";      print "publishing: ss=$ssa version=$version time=$time curator=$curator seed_id=$seed_id\n";
17926        }
17927        else {
17928            $returnlog .= "publishing: ss=$ssa version=$version time=$time curator=$curator seed_id=$seed_id<BR>";
17929        }
17930      my $ret = $ch->publish_subsystem($ssa, $version, $time, $curator, $pedigree, $seed_id,      my $ret = $ch->publish_subsystem($ssa, $version, $time, $curator, $pedigree, $seed_id,
17931                                       $roles, \@genome_names);                                       $roles, \@genome_names);
17932    
17933      ($id, $token, $url) = @$ret;      ($id, $token, $url) = @$ret;
17934        if ( !$newsys ) {
17935      print "Got id  $id token $token url $url\n";      print "Got id  $id token $token url $url\n";
17936        }
17937        else {
17938            $returnlog .= "Got id  $id token $token url $url<BR>";
17939        }
17940    
17941    
17942      #      #
17943      # Retrieve the package      # Retrieve the package
17944      #      #
17945    
17946        if ( !$newsys ) {
17947      print "Packaging...\n";      print "Packaging...\n";
17948        }
17949        else {
17950            $returnlog .= "Packaging...<BR>";
17951        }
17952    
17953      my($spreadsheet, $notes) = $self->exportable_subsystem($ssa);      my($spreadsheet, $notes) = $self->exportable_subsystem($ssa);
17954      my $package = join("", @$spreadsheet, @$notes);      my $package = join("", @$spreadsheet, @$notes);
17955        if ( !$newsys ) {
17956      print "Sending...\n";      print "Sending...\n";
17957        }
17958        else {
17959            $returnlog .= "Sending...<BR>";
17960        }
17961      $ch->upload_subsystem_package($url, $package);      $ch->upload_subsystem_package($url, $package);
17962    
17963        if ( !$newsys ) {
17964      return 1;      return 1;
17965  }  }
17966        else {
17967            return $returnlog;
17968        }
17969    }
17970    
17971  #  #
17972  # Feh - for credentials handling it's easier to set up subclass of LWP::UserAgent.  # Feh - for credentials handling it's easier to set up subclass of LWP::UserAgent.

Legend:
Removed from v.1.716  
changed lines
  Added in v.1.717

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3