[Bio] / Clearinghouse / clearinghouse.pl Repository:
ViewVC logotype

View of /Clearinghouse/clearinghouse.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (as text) (annotate) (vendor branch)
Thu Apr 7 15:55:31 2005 UTC (14 years, 6 months ago) by olson
Branch: init, MAIN
CVS Tags: myrast_33, init1, HEAD
Changes since 1.1: +0 -0 lines
Initial import of clearinghouse code.

use strict;

use SOAP::Lite;
use SOAP::Transport::HTTP;
use DBrtns;

my $ns = "http://theseed.uchicago.edu/clearinghouse";

my $dbname = "clearinghouse";

my $db = new DBrtns(undef, $dbname) or die;

my $serv = new SOAP::Transport::HTTP::CGI;

my $inst = bless('Service', { });

$serv->dispatch_with({ $ns => $inst });
$serv->handle();

package Service;
use strict;

sub register_genome
{
    my($self, 
}


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3