[Bio] / ClusterTools / reg_cluster.pl Repository:
ViewVC logotype

View of /ClusterTools/reg_cluster.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Sun Feb 27 16:09:09 2005 UTC (14 years, 8 months ago) by olson
Branch: MAIN
CVS Tags: HEAD
Changes since 1.3: +0 -3 lines
Don't need a FIG obj.

use strict;

use ClusterWorker;

@ARGV > 1 or die "Usage: $0 cluster-name description\n";

my $port = 80;
my $host = "xenophilus.nmpdr.org";
my $url = "http://$host:$port/olson/FIG/cluster_service.cgi";

my $c = new Cluster::Worker($url);

my $name = shift @ARGV;
my $desc = join(" ", @ARGV);

my $id = $c->register_cluster($name, $desc);

print "registered, cluster id=$id\n";


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3