source: trunk/cgi-bin/cross_post_debug @ 1

Last change on this file since 1 was 1, checked in by cbipsl, 18 years ago

Geisa inital import

File size: 722 bytes
Line 
1#file=cross_post_debug
2#on entry: $menu_opt=...Naml=xxx&...Env=yyy&... (POST method)
3#on exit: defines $naml="xxx" if Naml is defined
4#                 $naml="" otherwise
5#                 $env="yyy" if Env is defined
6#                 $env="" otherwise
7ifs=$IFS;IFS="&";naml=;env=;for s in $menu_opt;do
8l=`expr "$s" : 'Naml=\(.*\)'`;[ "$l" ]&&naml="$l"
9l=`expr "$s" : 'Env=\(.*\)'`;[ "$l" ]&&env="$l"
10done;IFS=$ifs
11[ "$naml" != "" ]&&
12{
13echo "<em>"
14echol "Commande de l'ex&eacute;cutif" "Executive command line"
15 echo ":</em><br>&nbsp;opt=$execute_opt$execute_parms/<br>"
16}
17[ "$env" != "" ]&&
18{
19echo "<em>"
20 echoln "Environnement de l'ex&eacute;cutif" "Executive environment set"
21 echon ":</em><pre>"
22set
23echo "</pre>"
24}
Note: See TracBrowser for help on using the repository browser.