[Bio] / FigWebServices / fig_scripts_service.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/fig_scripts_service.cgi

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

revision 1.6, Fri Oct 26 19:40:55 2007 UTC revision 1.7, Sat Nov 10 19:35:56 2007 UTC
# Line 221  Line 221 
221  =cut  =cut
222  sub function_of {  sub function_of {
223          my ($class, $arg) = @_;          my ($class, $arg) = @_;
224          return stdin_caller($class, "function_of", $arg);          my $fig=new FIG;
225            return scalar($fig->function_of($arg));
226  }  }
227    
228  =begin WSDL  =begin WSDL
# Line 234  Line 235 
235          return stdin_caller($class, "genomes_of", $arg);          return stdin_caller($class, "genomes_of", $arg);
236  }  }
237    
238    
239    =begin WSDL
240    _IN genome $string
241    _RETURN $string
242    _DOC Input is a genome ID, output is the genus and species of the genome
243    =cut
244    sub genus_species {
245            my ($class, $arg) = @_;
246            my $fig=new FIG;
247            return $fig->genus_species($arg);
248    }
249    
250    
251  =begin WSDL  =begin WSDL
252  _IN in $string  _IN in $string
253  _RETURN $string  _RETURN $string
# Line 247  Line 261 
261  =begin WSDL  =begin WSDL
262  _IN in $string  _IN in $string
263  _RETURN $string  _RETURN $string
264    _DOC Input is a genome id, output is a list of pegs in that genome
265    =cut
266    sub pegs_of {
267            my ($class, $arg) = @_;
268            my $fig = new FIG;
269            return (join ",", $fig->pegs_of($arg));
270    }
271    
272    =begin WSDL
273    _IN genome $string
274    _IN contig $string
275    _RETURN $string
276    _DOC Input is a genome id and a contig name, return is the length of the contig
277    =cut
278    sub contig_ln {
279            my $class = shift();
280            my $fig = new FIG;
281            return $fig->contig_ln(@_);
282    }
283    
284    =begin WSDL
285    _IN in $string
286    _RETURN $string
287  _DOC Input is a single column table of pegs, output is a single column table of archaeal pegs  _DOC Input is a single column table of pegs, output is a single column table of archaeal pegs
288  =cut  =cut
289  sub is_archaeal {  sub is_archaeal {
# Line 345  Line 382 
382  _IN restrictions $string  _IN restrictions $string
383  _IN domain $string  _IN domain $string
384  _RETURN @string  _RETURN @string
385    _DOC Input is constraints, output is a comma separated list of genomes
386    =cut
387    sub all_genomes {
388            my $class = shift();
389            my $fig=new FIG;
390            my @genomes=$fig->genomes(@_);
391            return join(",", @genomes);
392    }
393    
394    =begin WSDL
395    _IN complete $string
396    _IN restrictions $string
397    _IN domain $string
398    _RETURN @string
399  _DOC Input is constraints, output is list of genomes  _DOC Input is constraints, output is list of genomes
400  =cut  =cut
401  sub genomes {  sub genomes {

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3