[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Mar 30 09:16:38 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv24814/Perl/MOSES-MOBY/bin/scripts

Modified Files:
	moses-generate-services.pl 
Log Message:
added support for async cgi services.
moby-live/Perl/MOSES-MOBY/bin/scripts moses-generate-services.pl,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-generate-services.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-generate-services.pl	2008/08/25 16:28:57	1.6
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-generate-services.pl	2009/03/30 13:16:38	1.7
@@ -8,8 +8,8 @@
 
 # some command-line options
 use Getopt::Std;
-use vars qw/ $opt_h $opt_A $opt_d $opt_R $opt_v $opt_a $opt_s $opt_b $opt_f $opt_u $opt_F $opt_S $opt_t $opt_c /;
-getopts('hdvasbfuFStcAR:');
+use vars qw/ $opt_h $opt_A $opt_d $opt_R $opt_v $opt_a $opt_s $opt_b $opt_f $opt_u $opt_F $opt_S $opt_t $opt_c $opt_C /;
+getopts('hdvasbfuFStcCAR:');
 # usage
 if (not($opt_u or $opt_f)) {
 if ($opt_h or (not $opt_a and @ARGV == 0)) {
@@ -39,8 +39,12 @@
     -S ... generate implementation and the base of service[s], the
            implementation module has enabled option to read the base
            statically (that is why it is also generated here)
+    
     -i ... generate an implementation of the given service
+    
     -c ... generate a cgi based implementation of the given service
+    -C ... generate an asynchronous cgi based implementation of the given service
+    
     -A ... generate an asynchronous based implementation of the given service       
     -t ... update dispatch table of services (a table used by the
 	       cgi-bin script and SOAP::Lite to dispatch requests);
@@ -118,6 +122,9 @@
     }  elsif ($opt_c) {
     $generator->generate_impl;
 	$generator->generate_cgi;
+    } elsif ($opt_C) {
+    $generator->generate_impl;
+	$generator->generate_async_cgi;
     } elsif ($opt_t) {
 	$generator->update_table;
     } elsif ($opt_A) {
@@ -144,7 +151,14 @@
 		$generator->generate_cgi(service_names => [@ARGV],
 				       authority     => $authority,
 				       outcode       => \$code);
-    }elsif ($opt_A) {
+    } elsif ($opt_C) {
+    	$generator->generate_impl(service_names => [@ARGV],
+				       authority     => $authority,
+				       outcode       => \$code);
+		$generator->generate_async_cgi(service_names => [@ARGV],
+				       authority     => $authority,
+				       outcode       => \$code);
+    } elsif ($opt_A) {
 		$generator->generate_async(service_names => [@ARGV],
 					       authority     => $authority,
 					       outcode       => \$code);
@@ -186,6 +200,13 @@
 					force_over    => $opt_F);
 		$generator->generate_cgi(service_names => [@ARGV],
 				      authority     => $authority);
+    } elsif ($opt_C) {
+    	$generator->generate_impl(
+					service_names => [@ARGV],
+					authority     => $authority,
+					force_over    => $opt_F);
+		$generator->generate_async_cgi(service_names => [@ARGV],
+				      authority     => $authority);
     } elsif ($opt_t) {
 	    $generator->update_table (service_names => [@ARGV],
 				      authority     => $authority);