[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 20 10:28:12 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv32397

Modified Files:
	MOBY-Client05.cgi 
Log Message:
with fear and loathing, I have made the crappy CGI client more 'generic' so that it will run on other peoples systems.  I hate to do this because I would rather that people invest some effort into writing a better client than installing this crappy one...

moby-live/Perl/scripts MOBY-Client05.cgi,1.22,1.23
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/18 00:21:23	1.22
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/20 14:28:12	1.23
@@ -182,7 +182,7 @@
                 if (($ENV{HTTP_HOST} =~ /localhost/) || ($ENV{HTTP_HOST} =~ /192\.168\.1\./)){               
                     $XrefString .= "<a href='http://localhost/cgi-bin/MOBY-Client.cgi?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
                 } else {
-                    $XrefString .= "<a href='http://mobycentral.cbr.nrc.ca/cgi-bin/Client/MOBY-Client05.cgi?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
+                    $XrefString .= "<a href='http://$ENV{SERVER_NAME}/$ENV{SCRIPT_NAME}?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
                 }
             }
             $XrefString .="<br>\n";