source: ether_geisa/trunk/cgi-bin/geisa_post_nu

#file=geisa_post_nu
#on entry: $menu_opt=...Nu1=nnn&...Nu2=ppp&...[Dnu=qqq&]... (POST method)
#on exit: defines $nu1=nnn,
#                 $nu2=ppp,
#                 $dnu=qqq, if $dnu_opt was defined !=0 on entry,
#                 $dnu="" otherwise.
#                 $execute_parms=$execute_parms",nu1=nnn,nu2=ppp[,dnu=qqq]"
HOME_GEISA=/usr/local/apache/cgi-bin/geisa
ifs=$IFS;IFS="&";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 "<em>"
 echol "Erreur: La limite inf&eacute;rieure du domaine spectral est incorrecte"
"Error: Invalid spectral area lower bound"
 echo ".</em><br>"
error=2
}
[ `$HOME_GEISA/vreal "$nu2"` = 1 ]&&
{
echo "<em>"
 echol "Erreur: La limite sup&eacute;rieure du domaine spectral est incorrecte" "Error: Invalid spectral area upper bound"
 echo ".</em><br>"
error=2
}
[ ${error:-0} -lt 2 -a `$HOME_GEISA/vord "$nu1" "$nu2"` = 1 ]&&
{
echo "<em>"
 echol "Erreur: Les limites du domaine spectral sont incorrectes" "Invalid spectral area bounds"
 echo ".</em><br>"
error=1
}
[ "$dnu" ]&&[ `$HOME_GEISA/vreal "$dnu"` = 1 ]&&
{
echo "<em>"
 echol "Erreur: Le pas d'&eacute;tude du domaine spectral est incorrect" "Error: Invalid spectral area sampling step"
 echo ".</em><br>"
error=1
}
execute_parms=$execute_parms",nu1=$nu1,nu2=$nu2"
[ "$dnu" ]&&execute_parms=$execute_parms",dnu=$dnu"