[MOBY-guts] biomoby commit
Eddie Kawas
kawas at dev.open-bio.org
Tue Sep 2 13:11:40 UTC 2008
kawas
Tue Sep 2 09:11:40 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv21774/Perl/MOBY-Server/lib/MOBY/Client
Modified Files:
Service.pm SimpleArticle.pm ServiceInstance.pm SimpleInput.pm
Registration.pm OntologyServer.pm SecondaryArticle.pm
CollectionArticle.pm Central.pm
Log Message:
added $VERSION numbers to the modules.
moby-live/Perl/MOBY-Server/lib/MOBY/Client Service.pm,1.2,1.3 SimpleArticle.pm,1.2,1.3 ServiceInstance.pm,1.1,1.2 SimpleInput.pm,1.3,1.4 Registration.pm,1.1,1.2 OntologyServer.pm,1.1,1.2 SecondaryArticle.pm,1.3,1.4 CollectionArticle.pm,1.2,1.3 Central.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Service.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Service.pm 2008/02/21 17:15:40 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Service.pm 2008/09/02 13:11:40 1.3
@@ -48,6 +48,10 @@
use Cwd;
use URI::Escape;
use vars qw($AUTOLOAD @ISA);
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
my $debug = 0;
if ( $debug ) {
open( OUT, ">/tmp/ServiceCallLogOut.txt" ) || die "cant open logfile\n";
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleArticle.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleArticle.pm 2008/02/21 17:15:40 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleArticle.pm 2008/09/02 13:11:40 1.3
@@ -5,6 +5,9 @@
use MOBY::MobyXMLConstants;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::SimpleArticle - a small object describing the Simple articles from the findService Response message of MOBY Central
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm 2008/02/21 00:21:27 1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm 2008/09/02 13:11:40 1.2
@@ -3,6 +3,9 @@
use Carp;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::ServiceInstance - a small object describing a MOBY service
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleInput.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleInput.pm 2008/02/21 17:42:15 1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SimpleInput.pm 2008/09/02 13:11:40 1.4
@@ -3,6 +3,9 @@
use Carp;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::SimpleInput - a small object describing a MOBY service
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Registration.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Registration.pm 2008/02/21 00:21:27 1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Registration.pm 2008/09/02 13:11:40 1.2
@@ -70,6 +70,10 @@
use strict;
use Carp;
use vars qw($AUTOLOAD);
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
{
#Encapsulated class data
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm 2008/02/21 00:21:27 1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm 2008/09/02 13:11:40 1.2
@@ -75,6 +75,10 @@
use Carp;
use vars qw($AUTOLOAD);
use LWP::UserAgent;
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
my $debug = 0;
my $user_agent = "MOBY-OntologyServer-Perl";
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SecondaryArticle.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SecondaryArticle.pm 2008/02/21 17:42:15 1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/SecondaryArticle.pm 2008/09/02 13:11:40 1.4
@@ -5,6 +5,9 @@
use MOBY::MobyXMLConstants;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::SecondaryArticle - a small object describing the Simple articles from the findService Response message of MOBY Central
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/CollectionArticle.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/CollectionArticle.pm 2008/02/21 17:15:40 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/CollectionArticle.pm 2008/09/02 13:11:40 1.3
@@ -6,6 +6,9 @@
use vars qw($AUTOLOAD @ISA);
use MOBY::Client::SimpleArticle;
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::CollectionArticle - a small object describing the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm 2008/05/14 14:04:03 1.5
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/Central.pm 2008/09/02 13:11:40 1.6
@@ -15,6 +15,9 @@
use MOBY::Client::OntologyServer;
use vars qw($AUTOLOAD @ISA $MOBY_server $MOBY_uri);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::Central - a client side wrapper for MOBY Central
More information about the MOBY-guts
mailing list