| 1 | #file=geisa_init |
|---|
| 2 | #on entry: $0=$func $1=$base $2=$lang |
|---|
| 3 | #on exit: $geisa $geisab |
|---|
| 4 | # HOME=`grep geisa /etc/passwd|cut -d: -f6`/httpd |
|---|
| 5 | # export HOME |
|---|
| 6 | HOME_GEISA=/usr/local/apache/cgi-bin/geisa |
|---|
| 7 | export HOME_GEISA |
|---|
| 8 | test -f /usr/bin/ulimit&&ulimit -c 0 |
|---|
| 9 | if [ "`echo -n`" = "" ];then echo="echo -n";elif [ -f /usr/ucb/echo -a "`/usr/ucb/echo -n`" = "" ];then echo="/usr/ucb/echo -n";else echon=echo;fi |
|---|
| 10 | export echon |
|---|
| 11 | base=${1:-new} |
|---|
| 12 | lang=${2:-fr} |
|---|
| 13 | [ -r nologin ]&& |
|---|
| 14 | { |
|---|
| 15 | bname=GEISA |
|---|
| 16 | titlel "provisoirement indisponible" "currently not available" |
|---|
| 17 | . geisa_page_begin |
|---|
| 18 | ###echo "<em>Serveur provisoirement indisponible!</em>" |
|---|
| 19 | [ -s nologin ]&&{ echo "<em> (\c";cat nologin;echo ")</em>";} |
|---|
| 20 | . geisa_page_end |
|---|
| 21 | exit |
|---|
| 22 | } |
|---|
| 23 | #$maxhttpd=max concurrent httpd accesses at this time for this whole script |
|---|
| 24 | #this one being included, should not be less than 1, default below. |
|---|
| 25 | ###while [ `ps -ugeisa|grep -c httpd` -gt ${maxhttpd:=9} ];do sleep 1;done |
|---|
| 26 | skip() { while [ $1 != 0 ];do read l;set `expr $1 - 1`;done;} |
|---|
| 27 | execute() |
|---|
| 28 | { sh -fs $geisa <$1;} |
|---|
| 29 | exec_cross() |
|---|
| 30 | { sh -fs $cross <$1;} |
|---|
| 31 | titlel() |
|---|
| 32 | { if [ "$lang" = fr ]; then title="$1";else title="$2";fi;} |
|---|
| 33 | subtitlel() |
|---|
| 34 | { if [ "$lang" = fr ]; then subtitle="$1";else subtitle="$2";fi;} |
|---|
| 35 | bnamel() |
|---|
| 36 | { if [ "$lang" = fr ]; then bname="$1";else bname="$2";fi;} |
|---|
| 37 | infoc() |
|---|
| 38 | { if [ "$1" ]; then info=$info"$1";else info=;fi;} |
|---|
| 39 | infol() |
|---|
| 40 | { if [ "$lang" = fr ]; then info=$info"$1";else info=$info"$2";fi;} |
|---|
| 41 | echol() |
|---|
| 42 | { if [ "$lang" = fr ]; then echo "$1";else echo "$2";fi;} |
|---|
| 43 | echoln() |
|---|
| 44 | { if [ "$lang" = fr ]; then $echo "$1";else $echo "$2";fi;} |
|---|
| 45 | echon() |
|---|
| 46 | { $echo "$1";} |
|---|
| 47 | geisao=/usr/local/apache/cgi-bin/geisa/pgm/geisao;geisa=$geisao;geisabo=`. $HOME_GEISA/geisab` |
|---|
| 48 | geisan=/usr/local/apache/cgi-bin/geisa/pgm/geisan;geisa=$geisan;geisabn=`. $HOME_GEISA/geisab` |
|---|
| 49 | geisan2003=/usr/local/apache/cgi-bin/geisa/pgm/geisa2003;geisa=$geisan2003;geisabn2003=`. $HOME_GEISA/geisab` |
|---|
| 50 | crosso=/usr/local/apache/cgi-bin/geisa/crs97/cross97;crossbo=GEISA01 |
|---|
| 51 | crossn=/usr/local/apache/cgi-bin/geisa/crs97/cross97;crossbn=GEISA01 |
|---|
| 52 | if [ ${base:=new} = new ];then |
|---|
| 53 | geisa=$geisan;geisab=$geisabn;geisabc=$geisabo |
|---|
| 54 | cross=$crossn;crossb=$crossbn;crossbc=$crossbo |
|---|
| 55 | fi |
|---|
| 56 | if [ ${base:=new} = old ];then |
|---|
| 57 | geisa=$geisao;geisab=$geisabo;geisabc=$geisabn |
|---|
| 58 | cross=$crosso;crossb=$crossbo;crossbc=$crossbn |
|---|
| 59 | fi |
|---|
| 60 | if [ ${base:=new} = new2003 ];then |
|---|
| 61 | geisa=$geisan2003;geisab=$geisabn2003;geisabc=$geisabo |
|---|
| 62 | cross=$crosso;crossb=$crossbo;crossbc=$crossbn |
|---|
| 63 | fi |
|---|
| 64 | if [ ${lang:=fr} = fr ];then |
|---|
| 65 | geisal=français;geisalc=english |
|---|
| 66 | geisabl=$geisab" Raies";crossbl=$crossb" Sections-efficaces" |
|---|
| 67 | geisabcl=$geisabc" Raies";crossbcl=$crossbc" Sections-efficaces" |
|---|
| 68 | else |
|---|
| 69 | geisal=english;geisalc=français |
|---|
| 70 | geisabl=$geisab" Lines";crossbl=$crossb" Cross-sections" |
|---|
| 71 | geisabcl=$geisabc" Lines";crossbcl=$crossbc" Cross-sections" |
|---|
| 72 | fi |
|---|
