[Bio] / FigKernelScripts / fig_xmlrpc_server.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/fig_xmlrpc_server.pl

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

revision 1.2, Mon May 24 15:55:52 2004 UTC revision 1.5, Mon Dec 5 18:56:37 2005 UTC
# Line 1  Line 1 
1  #  #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18    #
19  # XMLRPC server to provide network access to FIG routines.  # XMLRPC server to provide network access to FIG routines.
20  #  #
21  # We create a single FIG instance to use for all calls.  # We create a single FIG instance to use for all calls.
# Line 114  Line 131 
131    
132      push(@d, $methName);      push(@d, $methName);
133  }  }
134    
135    sub genomes
136    {
137        my($dummy) = @_;
138    
139        my(@ret);
140    
141        @ret = $fig->genomes();
142    
143        return force_to_strings(@ret);
144    }
145    
146    
147    sub genus_species
148    {
149        my($dummy, $genome) = @_;
150    
151        my($ret);
152    
153        $ret = $fig->genus_species($genome);
154    
155        return force_to_string($ret);
156    }
157    
158    
159  $server->dispatch_to(@d);  $server->dispatch_to(@d);
160  #$server->dispatch_to('XMLPKG');  #$server->dispatch_to('XMLPKG');
161    
# Line 150  Line 192 
192              {              {
193                  print "Exiting due to closed stdin\n";                  print "Exiting due to closed stdin\n";
194                  $sel->remove($stdin);                  $sel->remove($stdin);
195                  #exit;                  exit;
196              }              }
197          }          }
198      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3