[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 17:18:31 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv7647

Modified Files:
	MOBY-Client05.cgi OntologyServer.cgi Services.cgi 
Log Message:
use strict for mod_perl

moby-live/Perl/scripts MOBY-Client05.cgi,1.19,1.20 OntologyServer.cgi,1.1,1.2 Services.cgi,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/16 17:21:35	1.19
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/16 21:18:31	1.20
@@ -522,7 +522,7 @@
 
 sub _LOG {
   return unless $debug;
-  open LOG, ">>/tmp/Client051LogOut.txt" or die "can't open logfile $!\n";
+  open LOG, ">>/tmp/Client05LogOut.txt" or die "can't open logfile $!\n";
   print LOG join "\n", @_;
   print LOG "\n---\n";
   close LOG;

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/08/01 14:58:20	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/08/16 21:18:31	1.2
@@ -3,10 +3,11 @@
 use CGI qw/:standard/;
 use lib "/usr/local/apache/cgi-bin/MOBY05";
 use MOBY::OntologyServer;
+use strict;
 
 my $q = CGI->new();
- at params = $q->param;
-$param = $params[0];  # one call per customer
+my @params = $q->param;
+my $param = $params[0];  # one call per customer
 
 &$param($q->param($param));  #call that subroutie with the passed value
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services.cgi,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/06/25 21:07:09	1.2
+++ /home/repository/moby/moby-live/Perl/scripts/Services.cgi	2003/08/16 21:18:31	1.3
@@ -3,6 +3,7 @@
 use SOAP::Transport::HTTP;
 use lib "/usr/local/apache/cgi-bin";
 use Services::LocalServices;
+use strict;
 
 my $x = new SOAP::Transport::HTTP::CGI;