#! /bin/sh
patch -d scriba-1.0b30 -p 1 <<'PATCH_END'
diff -aur scriba-1.0b30/extensions/cgi/interface.c scriba-1.0b30p1/extensions/cgi/interface.c
--- scriba-1.0b30/extensions/cgi/interface.c    Tue Sep 17 11:30:56 2002
+++ scriba-1.0b30p1/extensions/cgi/interface.c  Fri Oct 11 14:04:04 2002
@@ -471,6 +471,9 @@
 
 besEND
 
+/*
+=section PostParamEx
+*/
 besFUNCTION(getpostex)
 // char *cgi_PostParamEx(pModuleObject pCO, char *pszParam, pSymbolList *p);
   pModuleObject p;
diff -aur scriba-1.0b30/headerer.pl scriba-1.0b30p1/headerer.pl
--- scriba-1.0b30/headerer.pl   Tue Sep 17 11:30:54 2002
+++ scriba-1.0b30p1/headerer.pl Fri Oct 11 13:56:07 2002
@@ -176,7 +176,7 @@
 for $sub ( @bas_subs ){
   #                 declare command xxx
   $bas_declares .= "declare sub     " . 
-                   '"' . $sub->[0] . '"' . ' ' x ($max_bas_function_name_len - length($sub->[0])) .
+                         $sub->[0] .       ' ' x ($max_bas_function_name_len - length($sub->[0])) .
                    " alias " .
                    '"' . $sub->[1] . '"' . ' ' x ($max_c_function_name_len   - length($sub->[1])) .
                    " lib \"$module_name\"\n";
@@ -186,7 +186,7 @@
 
 for $sub ( @bas_coms ){
   $bas_declares .= "declare command " . 
-                   '"' . $sub->[0] . '"' . ' ' x ($max_bas_function_name_len - length($sub->[0])) .
+                         $sub->[0] .       ' ' x ($max_bas_function_name_len - length($sub->[0])) .
                    " alias " .
                    '"' . $sub->[1] . '"' . ' ' x ($max_c_function_name_len   - length($sub->[1])) .
                    " lib \"$module_name\"\n";
PATCH_END
#