[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jun 25 17:10:05 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv16924/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
this is the new 0.5 API-compliant CGI client.  It is horribly limited simply because it is a CGI, but it does allow simple-in/simple-out services to be run.  Default values will execute the service example that I just committed into the repository

moby-live/Perl/scripts MOBY-Client05.cgi,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/06/25 20:17:45	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/06/25 21:10:05	1.2
@@ -82,18 +82,21 @@
     start_html(-title => 'A Simple MOBY Client', -bgcolor => "white"),
     "<table BGCOLOR='#AAAAFF' width = '100%'><TR><TD><center>",
     "<IMG SRC=http://www.biomoby.org/moby1.gif>",
-    h1('MOBY Client Initialization'),"</center></TD></TR></table><p>",
+    h1('MOBY Client Initialization'),"(sample values have been selected for you for demonstration purposes)</center></TD></TR></table><p>",
     start_form,
     "<h2>What namespace do you have? ";
     my %nslabels = (%{$NameSpaces});
     print popup_menu(-name => 'namespace',
     '-values' => ["select", (keys %{$NameSpaces})],
+    '-default' => 'GO/Accession',
     );
 
     print p,
     "Which ID(s) within this namespace? (one per line)</h2>",
     p,
-    textarea(-name => 'id', -rows => 10, -cols => 20);
+    textarea(-name => 'id', -rows => 10, -cols => 20, -value =>
+"GO:0003924
+GO:0004272",);
 
     print p,
     &InitializeParams,
@@ -439,12 +442,12 @@
     #my @services = $Central->locateServiceByInput(\@types, $namespace);
     # I'm not sure why the call commented out above
     # used a list ref of types...  I'm too tired to think about it.
+    my %popup_services;
     foreach (@types){
         my ($SI, $Reg) = $Central->findService(input => [[$_, $namespace]], authoritative => 0, expandServices => 1, expandObjects => 1);
         if ($Reg){
             return "<p><b>".($Reg->message).'<\b><p>';
         }
-        my %popup_services;
         foreach (@{$SI}) {
             my ($URI) = $_->authority;
             my ($name) = $_->name;
@@ -454,11 +457,11 @@
             $URI ||=""; $name ||=""; $type ||=""; $obj ||=""; $desc ||="";  # set default for next print statement or we choke!
             $popup_services{"$URI#$name"} = "$type returns $obj  @"."$URI : $desc";
         }
-        $response .= popup_menu(-name => 'SelectedService',
-                  -values => [keys %popup_services],
-                  -labels => \%popup_services,
-                 );
     }
+    $response .= popup_menu(-name => 'SelectedService',
+              -values => [keys %popup_services],
+              -labels => \%popup_services,
+             );
     return $response;
 }