source: trunk/cgi-bin/geisa_post_getfname @ 1

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

Geisa inital import

File size: 618 bytes
Line 
1#file=geisa_post_getfname
2#on entry: $menu_opt=...Fnam=xxx&... (POST method)
3#on exit: $filelen
4ifs=$IFS;IFS="&";fnami=;for s in $menu_opt;do
5l=`expr "$s" : 'Fnam=\(.*\)'`;[ "$l" ]&&fnami="$l"
6done
7[ "$fnami" = "^M" ]&&fnami=;
8[ "$fnami" ]||
9{
10echo "<em>"
11 echol "Erreur: Le fichier source n'est pas sp&eacute;cifi&eacute;" "Error: The source filename was not specified"
12 echo ".</em><br>"
13error=1
14}
15IFS=$ifs;read filelen
16[ "$fnami" -a "$filelen" = "0" ]&&
17{
18echo "<em>"
19 echol "Erreur: Le fichier source </em>$fnami<em> est inexistant ou vide" "The source file was not found or is empty"
20 echo ".</em><br>"
21error=1
22}
Note: See TracBrowser for help on using the repository browser.