source: trunk/cgi-bin/cross_post_list_ftyp @ 1

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

Geisa inital import

File size: 634 bytes
Line 
1#file=cross_post_list_ftyp
2#on entry: $menu_opt=...List=xxx&...Ftypo=yyy&...Fcomo=zzz&... (POST method)
3#on exit: defines $list=xxx if List is defined
4#                 $list="" otherwise
5#                 $ftypo=yyy if Ftypo is defined
6#                 $ftypo="" otherwise
7#                 $fcomo=zzz if Fcomo is defined
8#                 $fcomo="" otherwise
9ifs=$IFS;IFS="&";list=;ftypo=;for s in $menu_opt;do
10l=`expr "$s" : 'Style=\(.*\)'`;[ "$l" ]&&style="$l"
11l=`expr "$s" : 'List=\(.*\)'`;[ "$l" ]&&list="$l"
12l=`expr "$s" : 'Ftypo=\(.*\)'`;[ "$l" ]&&ftypo="$l"
13l=`expr "$s" : 'Fcomo=\(.*\)'`;[ "$l" ]&&fcomo="$l"
14done;IFS=$ifs
Note: See TracBrowser for help on using the repository browser.