[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at pub.open-bio.org
Sat Mar 1 18:05:15 UTC 2003
mwilkinson
Sat Mar 1 13:05:15 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv13611
Modified Files:
DeRegisterService.pl RegisterDataType.pl RegisterService.pl
RegisterServiceType.pl central_connection_example.pl
central_connection_example_localhost.pl complex_client.pl
testcentral.pl
Log Message:
updated all example screipts with new connection information
moby-live/Perl/scripts DeRegisterService.pl,1.1,1.2 RegisterDataType.pl,1.2,1.3 RegisterService.pl,1.1,1.2 RegisterServiceType.pl,1.1,1.2 central_connection_example.pl,1.1,1.2 central_connection_example_localhost.pl,1.1,1.2 complex_client.pl,1.1,1.2 testcentral.pl,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/DeRegisterService.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/DeRegisterService.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/DeRegisterService.pl 2003/03/01 18:05:15 1.2
@@ -16,17 +16,11 @@
use MOBY::Client::Central ;
my $MOBY = MOBY::Client::Central->new(
# Default server: 'http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl'
- # for a local central, you can use "http://localhost/cgi-bin/MOBY-Central.pl"
- MOBY_server => "URL of your chosen MOBY Central server",
-
- # Default URI: 'http://mobycentral.cbr.nrc.ca/MOBY/Central'
- # for a local central, you can "http://localhost/MOBY/Central"
- MOBY_uri => "URI of your chosen MOBY Central server",
);
my $reg = $MOBY->deregisterService(serviceID => $serviceID);
if($reg->success) {
- print "Service '",$reg->registration_id,"' successfully deregistered?\n";
+ print "Service successfully deregistered!\n";
} else {
print "### Error: ", $reg->error_message, "!\n";
}
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/RegisterDataType.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/RegisterDataType.pl 2003/02/20 21:04:12 1.2
+++ /home/repository/moby/moby-live/Perl/scripts/RegisterDataType.pl 2003/03/01 18:05:15 1.3
@@ -13,15 +13,7 @@
# 19/02/2003 - R. Bruskiewich: script extracted from MOBY testcentral.pl
#
use MOBY::Client::Central ;
-my $MOBY = MOBY::Client::Central->new(
- # Default server: 'http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl'
- # for a local central, you can use "http://localhost/cgi-bin/MOBY-Central.pl"
- # MOBY_server => "URL of your chosen MOBY Central server",
-
- # Default URI: 'http://mobycentral.cbr.nrc.ca/MOBY/Central'
- # for a local central, you can "http://localhost/MOBY/Central"
- # MOBY_uri => "URI of your chosen MOBY Central server",
-);
+my $MOBY = MOBY::Client::Central->new();
my $reg = $C->registerObject(
objectType => "testObject",
description => "this is a test",
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/RegisterService.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/RegisterService.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/RegisterService.pl 2003/03/01 18:05:15 1.2
@@ -14,15 +14,7 @@
# 19/02/2003 - R. Bruskiewich: script extracted from MOBY docs
#
use MOBY::Client::Central ;
-my $MOBY = MOBY::Client::Central->new(
- # Default server: 'http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl'
- # for a local central, you can use "http://localhost/cgi-bin/MOBY-Central.pl"
- # MOBY_server => "URL of your chosen MOBY Central server",
-
- # Default URI: 'http://mobycentral.cbr.nrc.ca/MOBY/Central'
- # for a local central, you can "http://localhost/MOBY/Central"
- # MOBY_uri => "URI of your chosen MOBY Central server",
-);
+my $MOBY = MOBY::Client::Central->new();
my $reg = $MOBY->registerService(
serviceName => "ExampleService", # this is the subroutine name!
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/RegisterServiceType.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/RegisterServiceType.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/RegisterServiceType.pl 2003/03/01 18:05:15 1.2
@@ -2,10 +2,7 @@
use lib "/home/markw/BIO/moby-live/Perl/Client";
use MOBY::Client::Central;
-my $C = MOBY::Client::Central->new(
- MOBY_server => "http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl",
- MOBY_uri => "http://mobycentral.cbr.nrc.ca/MOBY/Central"
- );
+my $C = MOBY::Client::Central->new( );
$r = $C->registerObject(
objectType => "testObject",
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/central_connection_example.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/central_connection_example.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/central_connection_example.pl 2003/03/01 18:05:15 1.2
@@ -2,7 +2,7 @@
use lib "../Client";
use MOBY::Client::Central;
-my ($Central) = MOBY::Client::Central->new(MOBY_server => 'http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl',MOBY_uri => 'http://mobycentral.cbr.nrc.ca/MOBY/Central');
+my ($Central) = MOBY::Client::Central->new();
# a simple MOBY_Central call to get service types
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/central_connection_example_localhost.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/central_connection_example_localhost.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/central_connection_example_localhost.pl 2003/03/01 18:05:15 1.2
@@ -1,9 +1,11 @@
#!/usr/bin/perl -w
use lib "../Client";
use MOBY::Client::Central;
-my ($Central) = MOBY::Client::Central->new(
- MOBY_server => 'http://localhost/cgi-bin/MOBY-Central.pl',
- MOBY_uri => 'http://localhost/MOBY/Central'
+my ($Central) = MOBY::Client::Central->new(Registries => {
+ 'local' => {
+ URL => 'http://localhost/cgi-bin/MOBY-Central.pl',
+ URI => 'http://localhost/MOBY/Central'}
+ }
);
# a simple MOBY_Central call to get service types
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/complex_client.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/complex_client.pl 2003/02/19 21:22:08 1.1
+++ /home/repository/moby/moby-live/Perl/scripts/complex_client.pl 2003/03/01 18:05:15 1.2
@@ -3,9 +3,7 @@
use MOBY::Client::Central;
use MOBY::Client::Service;
-my $Central = MOBY::Client::Central->new(
- MOBY_server => "http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl",
- MOBY_uri => "http://mobycentral.cbr.nrc.ca/MOBY/Central");
+my $Central = MOBY::Client::Central->new();
my $ObjectNames = $Central->retrieveObjectNames;
my $ServiceTypes = $Central->retrieveServiceTypes;
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testcentral.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/testcentral.pl 2003/02/20 02:23:34 1.2
+++ /home/repository/moby/moby-live/Perl/scripts/testcentral.pl 2003/03/01 18:05:15 1.3
@@ -2,10 +2,7 @@
use lib "../";
use MOBY::Client::Central;
-my $C = MOBY::Client::Central->new(
- MOBY_server => "http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl",
- MOBY_uri => "http://mobycentral.cbr.nrc.ca/MOBY/Central"
- );
+my $C = MOBY::Client::Central->new( );
$r = $C->registerObject(
objectType => "testObject",
More information about the MOBY-guts
mailing list