#file=geisa_post_moliso_nu
#on entry: $menu_opt=...Moliso=mmm_iii&...\
# or: $menu_opt=...Mole=mmm&...Isot=iii&\
# Nu1=nnn&...Nu2=ppp&...[Dnu=qqq&]... (POST method)
#on exit: defines $mole=mmm,
# $isot=iii, if "_iii" defined
# $isot="" otherwise
# $nu1=nnn,
# $nu2=ppp,
# $dnu=qqq, if $dnu_opt was defined !=0 on entry,
# $dnu="" otherwise.
# $execute_parms=$execute_parms",mole='mmm'[,isot=iii],nu1=nnn,nu2=ppp[,dnu=qqq]"
HOME_GEISA=/usr/local/apache/cgi-bin/geisa
ifs=$IFS;IFS="&";mole=;isot=;for s in $menu_opt;do
l=`expr "$s" : 'Moliso=\(.*\)'`;[ "$l" ]&&{ mole="$l";break;}
l=`expr "$s" : 'Mole=\(.*\)'`;[ "$l" ]&&{ mole="$l";continue;}
[ "$mole" ]||continue
l=`expr "$s" : 'Isot=\(.*\)'`
[ "$l" ]&&{ [ "$l" != "$mole" ]&&isot="$l";break;}
done
[ "$mole" ]||
{
echo ""
echol "Erreur: Aucune molécule sélectionnée" "Error: No mole was selected"
echo ".
"
error=1
}
[ "$isot" ]||{ isot=`expr "$mole" : '.*_\(.*\)'`
[ "$isot" ]&&mole=`expr "$mole" : '\(.*\)_'`;}
execute_parms=$execute_parms",mole='$mole'"
[ "$isot" ]&&execute_parms=$execute_parms",isot=$isot"
nu1=;nu2=;dnu=;for s in $menu_opt;do
l=`expr "$s" : 'Nu1=\(.*\)'`;[ "$l" ]&&nu1="$l"
l=`expr "$s" : 'Nu2=\(.*\)'`;[ "$l" ]&&nu2="$l"
l=`expr "$s" : 'Dnu=\(.*\)'`;[ "$l" ]&&dnu="$l"
done;IFS=$ifs
nu1=`$HOME_GEISA/unescape -b "$nu1"`
nu2=`$HOME_GEISA/unescape -b "$nu2"`
dnu=`$HOME_GEISA/unescape -b "$dnu"`
[ `$HOME_GEISA/vreal "$nu1"` = 1 ]&&
{
echo ""
echol "Erreur: La limite inférieure du domaine spectral est incorrecte" "Error: Invalid spectral area lower bound"
echo ".
"
error=2
}
[ `$HOME_GEISA/vreal "$nu2"` = 1 ]&&
{
echo ""
echol "Erreur: La limite supérieure du domaine spectral est incorrecte" "Error: Invalid spectral area upper bound"
echo ".
"
error=2
}
[ ${error:-0} -lt 2 -a `$HOME_GEISA/vord "$nu1" "$nu2"` = 1 ]&&
{
echo ""
echol "Erreur: Les limites du domaine spectral sont incorrectes" "Error: Invalid spectral area bounds"
echo ".
"
error=1
}
[ "$dnu" ]&&[ `$HOME_GEISA/vreal "$dnu"` = 1 ]&&
{
echo ""
echol "Erreur: Le pas d'étude du domaine spectral est incorrect" "Error: Invalid spectral area sampling step"
echo ".
"
error=1
}
execute_parms=$execute_parms",nu1=$nu1,nu2=$nu2"
[ "$dnu" ]&&execute_parms=$execute_parms",dnu=$dnu"