[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.517, Wed Sep 6 13:59:26 2006 UTC revision 1.518, Thu Sep 14 14:11:51 2006 UTC
# Line 6159  Line 6159 
6159      }      }
6160  }  }
6161    
6162  sub net_bbhs  sub net_bbhs {
 {  
6163      my($self, $peg, $cutoff) = @_;      my($self, $peg, $cutoff) = @_;
6164      my $ua = LWP::UserAgent->new();      return FIGRules::BBHData($peg, $cutoff);
     my $url = $FIG_Config::bbh_server_url;  
     $url = "http://anno-2.nmpdr.org/simserver/perl/bbhs.pl" if $url eq '';  
   
     my $resp = $ua->post($url, { id => $peg, cutoff => $cutoff });  
     if ($resp->is_success)  
     {  
         my @out;  
         my $dat = $resp->content;  
         while ($dat =~ /([^\n]+)\n/g)  
         {  
             my @l = split(/\t/, $1);  
             push(@out, \@l);  
         }  
         return @out;  
     }  
     else  
     {  
         die "Failure retriving network coupling: " . $resp->content . "\n";  
     }  
6165  }  }
6166    
6167    
# Line 13172  Line 13152 
13152  only subsystems in which the variant is definitively known are returned. The  only subsystems in which the variant is definitively known are returned. The
13153  default is FALSE.  default is FALSE.
13154    
13155    =back
13156    
13157  =cut  =cut
13158    
13159    

Legend:
Removed from v.1.517  
changed lines
  Added in v.1.518

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3