[MOBY-guts] biomoby commit
michael ng
mng at pub.open-bio.org
Wed Aug 31 21:35:22 UTC 2005
mng
Wed Aug 31 17:35:22 EDT 2005
Update of /home/repository/moby/moby-live/Accessories
In directory pub.open-bio.org:/tmp/cvs-serv1028
Modified Files:
code-generator0.6.cgi
Log Message:
code-generator with MOBY API 0.86 updated
moby-live/Accessories code-generator0.6.cgi,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Accessories/code-generator0.6.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Accessories/code-generator0.6.cgi 2005/08/26 20:55:13 1.4
+++ /home/repository/moby/moby-live/Accessories/code-generator0.6.cgi 2005/08/31 21:35:22 1.5
@@ -156,6 +156,7 @@
my $simORcollInput = shift;
my $simORcollOutput = shift;
my $outnameSpace = shift;
+ my $nameOfarticle = shift;
#initialize variables
$error_msg = "" if (!$error_msg);
@@ -173,6 +174,7 @@
$simORcollInput = "" if (!$simORcollInput);
$simORcollOutput = "" if (!$simORcollOutput);
$outnameSpace = "" if (!$outnameSpace);
+ $nameOfarticle = "" if (!$nameOfarticle);
#$options is a list of objectNames use to display in a drop down menu
my $options = $Central->retrieveObjectNames();
@@ -312,6 +314,7 @@
<input type="radio" name="genORcom" id="genORcom" value="complexInputParser"$genORcom_rad_com_sel>Objects with Secondary <A HREF="javascript:openHelp('withSecondary')">[?]</A><br>
<input type="radio" name="simORcollInput" id="simORcollInput" value="SIMPLE"$simORcollInput_rad_sim_sel>Simple <A HREF="javascript:openHelp('simple')">[?]</A>
<br>
+ <input name="nameOfarticle" type="nameOfarticle" id="" value="$nameOfarticle">Article Name of the Object<br>
<select name="nameSpace" id="nameSpace">
$nameSpace_html
</select>
@@ -428,6 +431,7 @@
my $genORcom = $query->param("genORcom");
my $simORcollInput = $query->param("simORcollInput");
my $simORcollOutput = $query->param("simORcollOutput");
+ my $nameOfarticle = $query->param("nameOfarticle");
my $parse_html = "";
@@ -447,11 +451,12 @@
$error_msg .= "Please provide a service description<br>" if (!$description);
$error_msg .= "Please provide the directory of your MOBY files<br>" if (!$directory);
$error_msg .= "Please select using SQL or an algorithm<br>" if (!$sqlORalgor_rad);
+ $error_msg .= "Please provide the article name of object<br>" if (!$nameOfarticle);
if ( $error_msg )
{
#Returns users to original form
- webservice_properties($error_msg, $serviceType, $objectConsumed, $objectProduced, $nameSpace, $serviceName, $authURI, $sqlORalgor_rad, $contactEmail, $description, $directory, $genORcom, $simORcollInput, $simORcollOutput,$outnameSpace);
+ webservice_properties($error_msg, $serviceType, $objectConsumed, $objectProduced, $nameSpace, $serviceName, $authURI, $sqlORalgor_rad, $contactEmail, $description, $directory, $genORcom, $simORcollInput, $simORcollOutput,$outnameSpace,$nameOfarticle);
}
elsif ($sqlORalgor_rad eq "sql")
{
@@ -729,6 +734,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
$parse_html
</form>
</body>
@@ -774,6 +780,7 @@
my $genORcom = $query->param("genORcom");
my $simORcollInput = $query->param("simORcollInput");
my $simORcollOutput = $query->param("simORcollOutput");
+ my $nameOfarticle = $query->param("nameOfarticle");
#Build drop down list box for Database types
my $dbType_html = "";
@@ -810,6 +817,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<font color="FF000"> <b>$error_msg_sql</b></font>
<table width="50%" border="1" align="center">
@@ -899,6 +907,8 @@
my $description = $query->param("description");
my $directory = $query->param("directory");
my $outnameSpace = $query->param("outnameSpace");
+ my $nameOfarticle = $query->param("nameOfarticle");
+
my $dbType = $query->param("dbType");
my $dbInstance = $query->param("dbInstance");
my $host_port = $query->param("host_port");
@@ -974,6 +984,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<br>
<table width="40%" border="1">
<tr>
@@ -1033,6 +1044,8 @@
my $contactEmail = $query->param("contactEmail");
my $description = $query->param("description");
my $directory = $query->param("directory");
+ my $nameOfarticle = $query->param("nameOfarticle");
+
my $dbType = $query->param("dbType");
my $dbInstance = $query->param("dbInstance");
my $host_port = $query->param("host_port");
@@ -1120,6 +1133,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
$parse_html
<input type="hidden" name="column_length" value="$column_length">
@@ -1171,6 +1185,7 @@
my $description = $query->param("description");
my $directory = $query->param("directory");
my $outnameSpace = $query->param("outnameSpace");
+ my $nameOfarticle = $query->param("nameOfarticle");
#DataBase Properties
my $dbType = $query->param("dbType");
@@ -1267,6 +1282,7 @@
<input type="hidden" name="nameSpace" value="$nameSpace">
<input type="hidden" name="serviceName" value="$serviceName">
<input type="hidden" name="authURI" value="$authURI">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="sqlORalgor_rad" value="$sqlORalgor_rad">
<input type="hidden" name="outnameSpace" value="$outnameSpace">
<input type="hidden" name="serviceCode" value="$serviceCode">
@@ -1375,6 +1391,7 @@
my $password1 = $query->param("password1");
my $password2 = $query->param("password2");
my $prefixed = $query->param("prefixed");
+ my $nameOfarticle = $query->param("nameOfarticle");
#Perl Modules still needs to be implemented.
my $perlModules = $query->param("perlModules");
@@ -1675,6 +1692,7 @@
<input type="hidden" name="URL" value="$URL">
<input type="hidden" name="contactEmail" value="$contactEmail">
<input type="hidden" name="description" value="$description">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<h2>THE FOLLOWING IS THE PERL MODULE FOR YOUR SERVICE</h2>
Confirm that the code below are correct, click on the 'Save Code As' button and save the perl module onto your server. Save the service as XXX.pm (where XXX is your service name). Place the file in the same folder as the dispatcher.cgi. Then click on the 'Register' button to register the service.<br>
@@ -1785,6 +1803,8 @@
my $URL = $query->param("URL");
my $contactEmail = $query->param("contactEmail");
my $description = $query->param("description");
+ my $nameOfarticle = $query->param("nameOfarticle");
+
print <<HTML;
@@ -1822,7 +1842,7 @@
description => $description,
category => "moby",
URL => $URL, #site of the dispatcher
- input => [['',["$objectConsumed" => ["$nameSpace"]]],],
+ input => [['$nameOfariticle',["$objectConsumed" => ["$nameSpace"]]],],
output => [['',["$objectProduced" => ["$nameSpace"]]],],
);
die "Bad return value from registerService" unless $reg;
@@ -1890,6 +1910,7 @@
my $genORcom = $query->param("genORcom");
my $simORcollInput = $query->param("simORcollInput");
my $simORcollOutput = $query->param("simORcollOutput");
+ my $nameOfarticle = $query->param("nameOfarticle");
my $UI_string = UI_template("2");
javascript_functions();
@@ -1918,6 +1939,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="radio" name="htmlORcom" id="htmlORcom" value="htmlWrapper">HTML Wrapper <A HREF="javascript:openHelp('HTMLWrapper')">[?]</A>
<input type="radio" name="htmlORcom" id="htmlORcom" value="CommandLine">Command Line <A HREF="javascript:openHelp('CommandLine_al')">[?]</A>
<hr>
@@ -1966,6 +1988,7 @@
my $htmlORcom = $query->param("htmlORcom");
my $outnameSpace = $query->param("outnameSpace");
my $serviceCode = $query->param("serviceCode");
+ my $nameOfarticle = $query->param("nameOfarticle");
my $service_html ="";
my $service_html2 ="";
@@ -2011,6 +2034,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="htmlORcom" value="$htmlORcom">
<table width="75%" border="1">
<tr>
@@ -2067,6 +2091,7 @@
my $InputParam = $query->param("InputParam");
my $outnameSpace = $query->param("outnameSpace");
my $serviceCode = $query->param("serviceCode");
+ my $nameOfarticle = $query->param("nameOfarticle");
my $comline = $ServiceURL;
@@ -2133,6 +2158,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="htmlORcom" value="$htmlORcom">
<input type="hidden" name="ServiceURL" value="$ServiceURL">
<input type="hidden" name="InputParam" value="$InputParam">
@@ -2192,6 +2218,7 @@
my $InputParam = $query->param("InputParam");
my $outnameSpace = $query->param("outnameSpace");
my $serviceCode = $query->param("serviceCode");
+ my $nameOfarticle = $query->param("nameOfarticle");
my $object_articles_html="";
my $temp="";
@@ -2245,6 +2272,7 @@
<input type="hidden" name="genORcom" value="$genORcom">
<input type="hidden" name="simORcollInput" value="$simORcollInput">
<input type="hidden" name="simORcollOutput" value="$simORcollOutput">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="htmlORcom" value="$htmlORcom">
<input type="hidden" name="ServiceURL" value="$ServiceURL">
<input type="hidden" name="InputParam" value="$InputParam">
@@ -2296,6 +2324,7 @@
my $contactEmail = $query->param("contactEmail");
my $description = $query->param("description");
my $directory = $query->param("directory");
+ my $nameOfarticle = $query->param("nameOfarticle");
#ADD IN HIDDEN INPUT TYPE IF THIS VARIABLE IS NEEDED
#my $perlModules = $query->param("perlModules");
@@ -2375,6 +2404,7 @@
<input type="hidden" name="contactEmail" value="$contactEmail">
<input type="hidden" name="description" value="$description">
<input type="hidden" name="directory" value="$directory">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="outnameSpace" value="$outnameSpace">
<input type="hidden" name="InputParam" value="$InputParam">
<input type="hidden" name="genORcom" value="$genORcom">
@@ -2425,6 +2455,7 @@
my $description = $query->param("description");
my $directory = $query->param("directory");
my $outnameSpace = $query->param("outnameSpace");
+ my $nameOfarticle = $query->param("nameOfarticle");
#DataBase Properties
my $dbType = $query->param("dbType");
@@ -2557,6 +2588,7 @@
<input type="hidden" name="contactEmail" value="$contactEmail">
<input type="hidden" name="description" value="$description">
<input type="hidden" name="directory" value="$directory">
+ <input type="hidden" name="nameOfarticle" value="$nameOfarticle">
<input type="hidden" name="dbType" value="$dbType">
<input type="hidden" name="dbInstance" value="$dbInstance">
<input type="hidden" name="host_port" value="$host_port">
@@ -2582,6 +2614,7 @@
<tr><td width="40%" height="28">Service Type:</td><td width="60%">$serviceType</td></tr>
<tr><td width="40%" height="28">Object Consumed:</td><td width="60%">$objectConsumed</td></tr>
<tr><td width="40%" height="28">Input Namespace:</td><td width="60%">$nameSpace</td></tr>
+ <tr><td width="40%" height="28">Article Name of Object:</td><td width="60%">$nameOfarticle</td></tr>
<tr><td width="40%" height="28">Simple or Collection (Input):</td><td width="60%">$simORcollInput</td></tr>
<tr><td width="40%" height="28">Object Produced:</td><td width="60%">$objectConsumed</td></tr>
<tr><td width="40%" height="28">Output Namespace:</td><td width="60%">$outnameSpace</td></tr>
More information about the MOBY-guts
mailing list