[MOBY-guts] biomoby commit
Eddie Kawas
kawas at dev.open-bio.org
Tue Sep 2 13:14:18 UTC 2008
kawas
Tue Sep 2 09:14:18 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv22188/Perl/MOBY-Server/lib/MOBY
Modified Files:
secondary_input.pm collection_input.pm MobyXMLConstants.pm
service_instance.pm central_db_connection.pm OntologyServer.pm
dbConfig.pm MOBY.pm MOBYXSLT.pm service_type.pm authority.pm
CommonSubs.pm mysql.pm Central.pm Config.pm CrossReference.pm
collection_output.pm simple_input.pm simple_output.pm
Log Message:
added $VERSION numbers to the modules.
moby-live/Perl/MOBY-Server/lib/MOBY secondary_input.pm,1.2,1.3 collection_input.pm,1.3,1.4 MobyXMLConstants.pm,1.1,1.2 service_instance.pm,1.2,1.3 central_db_connection.pm,1.2,1.3 OntologyServer.pm,1.2,1.3 dbConfig.pm,1.2,1.3 MOBY.pm,1.3,1.4 MOBYXSLT.pm,1.2,1.3 service_type.pm,1.2,1.3 authority.pm,1.2,1.3 CommonSubs.pm,1.4,1.5 mysql.pm,1.2,1.3 Central.pm,1.6,1.7 Config.pm,1.4,1.5 CrossReference.pm,1.2,1.3 collection_output.pm,1.2,1.3 simple_input.pm,1.2,1.3 simple_output.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/secondary_input.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/secondary_input.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/secondary_input.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::secondary_input - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/collection_input.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/collection_input.pm 2008/07/07 16:50:25 1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/collection_input.pm 2008/09/02 13:14:18 1.4
@@ -4,6 +4,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::collection_input - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MobyXMLConstants.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/MobyXMLConstants.pm 2008/02/21 00:21:27 1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MobyXMLConstants.pm 2008/09/02 13:14:18 1.2
@@ -2,6 +2,8 @@
use strict;
use vars qw( $VERSION @ISA @EXPORT @NodeNames);
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
BEGIN {
@ISA = qw( Exporter );
#########################################################
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/service_instance.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/service_instance.pm 2008/02/21 17:58:58 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/service_instance.pm 2008/09/02 13:14:18 1.3
@@ -8,6 +8,9 @@
use MOBY::authority;
use MOBY::Config;
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
#@ISA = qw(MOBY::central_db_connection); # can't do this yet...
=head1 NAME
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/central_db_connection.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/central_db_connection.pm 2008/02/21 17:54:56 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/central_db_connection.pm 2008/09/02 13:14:18 1.3
@@ -4,6 +4,9 @@
use vars qw($AUTOLOAD @ISA);
use MOBY::Config;
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::central_db_connection - container object for a specific DB connection
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/OntologyServer.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/OntologyServer.pm 2008/08/22 18:30:50 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/OntologyServer.pm 2008/09/02 13:14:18 1.3
@@ -70,6 +70,10 @@
use DBI;
use DBD::mysql;
use MOBY::Config;
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
my $debug = 0;
{
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/dbConfig.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/dbConfig.pm 2008/06/20 19:50:55 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/dbConfig.pm 2008/09/02 13:14:18 1.3
@@ -2,6 +2,10 @@
use strict;
use Carp;
use vars qw($AUTOLOAD);
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
use Text::Shellwords;
{
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MOBY.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/MOBY.pm 2008/07/07 16:29:19 1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MOBY.pm 2008/09/02 13:14:18 1.4
@@ -3,11 +3,10 @@
use strict;
use warnings;
-
-
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
+# add versioning to this module
BEGIN {
- $VERSION = '0.85';
+ $VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
@ISA = qw{ Exporter };
@EXPORT = qw{};
@EXPORT_OK = qw{};
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MOBYXSLT.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/MOBYXSLT.pm 2008/02/21 17:15:40 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/MOBYXSLT.pm 2008/09/02 13:14:18 1.3
@@ -4,6 +4,9 @@
my $XSLTPROC = '/usr/bin/xsltproc';#Where your xsltproc binary is located
my $XSL_SHEET = 'xsl/parseMobyMessage.xsl';#Where your xsltproc style-sheet is located
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
#$Id$
=pod
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/service_type.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/service_type.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/service_type.pm 2008/09/02 13:14:18 1.3
@@ -4,6 +4,9 @@
use Carp;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::service_type - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/authority.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/authority.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/authority.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::authority - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm 2008/09/01 19:01:49 1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm 2008/09/02 13:14:18 1.5
@@ -239,6 +239,10 @@
use constant BE_STRICT => 0;
our @ISA = qw(Exporter);
our @EXPORT = qw(COLLECTION SIMPLE SECONDARY PARAMETER BE_NICE BE_STRICT);
+
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
our %EXPORT_TAGS = (
all => [
qw(
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/mysql.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/mysql.pm 2008/02/21 17:58:58 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/mysql.pm 2008/09/02 13:14:18 1.3
@@ -4,6 +4,9 @@
use Carp;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::mysql - makes a MYSQL database connection.
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm 2008/08/22 19:12:20 1.6
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm 2008/09/02 13:14:18 1.7
@@ -27,6 +27,9 @@
use LWP;
use MOBY::CommonSubs;
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
use Encode;
use MOBY::MobyXMLConstants;
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Config.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Config.pm 2008/04/15 00:26:29 1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Config.pm 2008/09/02 13:14:18 1.5
@@ -41,6 +41,9 @@
use vars qw($AUTOLOAD);
use Text::Shellwords;
use vars '$VERSION', '@ISA', '@EXPORT', '$CONFIG';
+
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
@ISA = qw(Exporter);
@EXPORT = ('$CONFIG');
{
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CrossReference.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/CrossReference.pm 2008/02/21 17:15:40 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CrossReference.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use Carp;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::Client::CrossReference - a small object describing a MOBY Simple input/output article
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/collection_output.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/collection_output.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/collection_output.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::collection_output - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/simple_input.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/simple_input.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/simple_input.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::simple_input - a lightweight connection to the
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/simple_output.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/simple_output.pm 2008/07/07 16:50:25 1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/simple_output.pm 2008/09/02 13:14:18 1.3
@@ -5,6 +5,9 @@
use MOBY::Config;
use vars qw($AUTOLOAD @ISA);
+use vars qw /$VERSION/;
+$VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
+
=head1 NAME
MOBY::simple_output - a lightweight connection to the
More information about the MOBY-guts
mailing list