#file=geisa_post_moles_nu
#on entry: $menu_opt=...Moles=[sel|all]&...Mole_mmm=on&...\
# Nu1=nnn&...Nu2=ppp&...[Dnu=qqq&]... (POST method)
#on exit: defines $mole=mmm,mmm,... if not all moles,
# $mole="" otherwise,
# $nu1=nnn,
# $nu2=ppp,
# $dnu=qqq, if $dnu_opt was defined !=0 on entry,
# $dnu="" otherwise.
# $execute_parms=$execute_parms",mole='mmm','mmm',...,nu1=nnn,nu2=ppp[,dnu=qqq]"
HOME_GEISA=/usr/local/apache/cgi-bin/geisa
ifs=$IFS;IFS="&";all=0;none=1;
for s in $menu_opt; do [ "$s" = "Moles=all" ]&&{ all=1;break;}
[ "`expr \"$s\" : 'Mole_\(.*\)='`" ]&&none=0;done
[ $all = 0 -a $none = 1 ]&&
{
echo ""
echol "Erreur: Aucune molécule sélectionnée" "Error: No mole was selected"
echo ".
"
error=1
}
mole=;[ $all = 0 ]&&{
execute_parms=$execute_parms",mole=";c=;for s in $menu_opt;do
l=`expr "$s" : 'Mole_\(.*\)='`;[ "$l" ]||continue
mole=$mole$c$l;execute_parms=$execute_parms"$c'$l'";c=",";done;}
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" "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"