[1] | 1 | #file=geisa_post_moliso_nu |
---|
| 2 | #on entry: $menu_opt=...Moliso=mmm_iii&...\ |
---|
| 3 | # or: $menu_opt=...Mole=mmm&...Isot=iii&\ |
---|
| 4 | # Nu1=nnn&...Nu2=ppp&...[Dnu=qqq&]... (POST method) |
---|
| 5 | #on exit: defines $mole=mmm, |
---|
| 6 | # $isot=iii, if "_iii" defined |
---|
| 7 | # $isot="" otherwise |
---|
| 8 | # $nu1=nnn, |
---|
| 9 | # $nu2=ppp, |
---|
| 10 | # $dnu=qqq, if $dnu_opt was defined !=0 on entry, |
---|
| 11 | # $dnu="" otherwise. |
---|
| 12 | # $execute_parms=$execute_parms",mole='mmm'[,isot=iii],nu1=nnn,nu2=ppp[,dnu=qqq]" |
---|
| 13 | HOME_GEISA=/usr/local/apache/cgi-bin/geisa |
---|
| 14 | ifs=$IFS;IFS="&";mole=;isot=;for s in $menu_opt;do |
---|
| 15 | l=`expr "$s" : 'Moliso=\(.*\)'`;[ "$l" ]&&{ mole="$l";break;} |
---|
| 16 | l=`expr "$s" : 'Mole=\(.*\)'`;[ "$l" ]&&{ mole="$l";continue;} |
---|
| 17 | [ "$mole" ]||continue |
---|
| 18 | l=`expr "$s" : 'Isot=\(.*\)'` |
---|
| 19 | [ "$l" ]&&{ [ "$l" != "$mole" ]&&isot="$l";break;} |
---|
| 20 | done |
---|
| 21 | [ "$mole" ]|| |
---|
| 22 | { |
---|
| 23 | echo "<em>" |
---|
| 24 | echol "Erreur: Aucune molécule sélectionnée" "Error: No mole was selected" |
---|
| 25 | echo ".</em><br>" |
---|
| 26 | error=1 |
---|
| 27 | } |
---|
| 28 | [ "$isot" ]||{ isot=`expr "$mole" : '.*_\(.*\)'` |
---|
| 29 | [ "$isot" ]&&mole=`expr "$mole" : '\(.*\)_'`;} |
---|
| 30 | execute_parms=$execute_parms",mole='$mole'" |
---|
| 31 | [ "$isot" ]&&execute_parms=$execute_parms",isot=$isot" |
---|
| 32 | nu1=;nu2=;dnu=;for s in $menu_opt;do |
---|
| 33 | l=`expr "$s" : 'Nu1=\(.*\)'`;[ "$l" ]&&nu1="$l" |
---|
| 34 | l=`expr "$s" : 'Nu2=\(.*\)'`;[ "$l" ]&&nu2="$l" |
---|
| 35 | l=`expr "$s" : 'Dnu=\(.*\)'`;[ "$l" ]&&dnu="$l" |
---|
| 36 | done;IFS=$ifs |
---|
| 37 | nu1=`$HOME_GEISA/unescape -b "$nu1"` |
---|
| 38 | nu2=`$HOME_GEISA/unescape -b "$nu2"` |
---|
| 39 | dnu=`$HOME_GEISA/unescape -b "$dnu"` |
---|
| 40 | [ `$HOME_GEISA/vreal "$nu1"` = 1 ]&& |
---|
| 41 | { |
---|
| 42 | echo "<em>" |
---|
| 43 | echol "Erreur: La limite inférieure du domaine spectral est incorrecte" "Error: Invalid spectral area lower bound" |
---|
| 44 | echo ".</em><br>" |
---|
| 45 | error=2 |
---|
| 46 | } |
---|
| 47 | [ `$HOME_GEISA/vreal "$nu2"` = 1 ]&& |
---|
| 48 | { |
---|
| 49 | echo "<em>" |
---|
| 50 | echol "Erreur: La limite supérieure du domaine spectral est incorrecte" "Error: Invalid spectral area upper bound" |
---|
| 51 | echo ".</em><br>" |
---|
| 52 | error=2 |
---|
| 53 | } |
---|
| 54 | [ ${error:-0} -lt 2 -a `$HOME_GEISA/vord "$nu1" "$nu2"` = 1 ]&& |
---|
| 55 | { |
---|
| 56 | echo "<em>" |
---|
| 57 | echol "Erreur: Les limites du domaine spectral sont incorrectes" "Error: Invalid spectral area bounds" |
---|
| 58 | echo ".</em><br>" |
---|
| 59 | error=1 |
---|
| 60 | } |
---|
| 61 | [ "$dnu" ]&&[ `$HOME_GEISA/vreal "$dnu"` = 1 ]&& |
---|
| 62 | { |
---|
| 63 | echo "<em>" |
---|
| 64 | echol "Erreur: Le pas d'étude du domaine spectral est incorrect" "Error: Invalid spectral area sampling step" |
---|
| 65 | echo ".</em><br>" |
---|
| 66 | error=1 |
---|
| 67 | } |
---|
| 68 | execute_parms=$execute_parms",nu1=$nu1,nu2=$nu2" |
---|
| 69 | [ "$dnu" ]&&execute_parms=$execute_parms",dnu=$dnu" |
---|