| 1 | #file=geisa_put |
|---|
| 2 | #on entry: $curdir $tempdir |
|---|
| 3 | # $fluno if not "2" |
|---|
| 4 | # $fnamo if not "geisa_data" |
|---|
| 5 | # $fcomo if not "" |
|---|
| 6 | # $ftypo if not "" |
|---|
| 7 | HOME_GEISA=/usr/local/apache/cgi-bin/geisa |
|---|
| 8 | . $HOME_GEISA/geisa_menu |
|---|
| 9 | cd "$tempdir" |
|---|
| 10 | [ -s fort.${fluno:=2} -a "$ftypo" != "off" -a "$fcomo" != "off" ]&& |
|---|
| 11 | { #output |
|---|
| 12 | echol "transfert du fichier resultant..." "transfering result file..." |
|---|
| 13 | case $ftypo in |
|---|
| 14 | formate|formate_m) |
|---|
| 15 | fnamo=$fnamo.txt;; |
|---|
| 16 | binaire) |
|---|
| 17 | bin=1;fnamo=$fnamo.bin;; |
|---|
| 18 | binaire_m) |
|---|
| 19 | fnamo=$fnamo.bim;; |
|---|
| 20 | esac |
|---|
| 21 | case $fcomo in |
|---|
| 22 | Z) |
|---|
| 23 | fnamo=$fnamo.Z;[ $bin ]||fnamo=$fnamo.Z;; |
|---|
| 24 | gz) |
|---|
| 25 | fnamo=$fnamo.gz;[ $bin ]||fnamo=$fnamo.gz;; |
|---|
| 26 | z) |
|---|
| 27 | fnam=$fnamo;fnamo=$fnamo.zip;; |
|---|
| 28 | bz2) |
|---|
| 29 | fnam=$fnamo;fnamo=$fnamo.bz2;; |
|---|
| 30 | esac |
|---|
| 31 | fnamo=${fnamo:-geisa_data} |
|---|
| 32 | cat <<EOF >>cgi |
|---|
| 33 | echo "content-disposition: ; filename=$fnamo" |
|---|
| 34 | echo content-type: application/octet-stream |
|---|
| 35 | echo content-length: `wc -c fort.${fluno:-2}|awk '{print $1}'` |
|---|
| 36 | echo |
|---|
| 37 | EOF |
|---|
| 38 | case $ftypo in |
|---|
| 39 | binaire) |
|---|
| 40 | case $fcomo in |
|---|
| 41 | Z) |
|---|
| 42 | echo "$curdir/geisa_bif2bin<fort.$fluno|compress -q">>cgi;; |
|---|
| 43 | gz) |
|---|
| 44 | echo "$curdir/geisa_bif2bin<fort.$fluno|gzip -q">>cgi;; |
|---|
| 45 | z) |
|---|
| 46 | echo "$curdir/geisa_bif2bin<fort.$fluno|zip -q9">>cgi;; |
|---|
| 47 | bz2) |
|---|
| 48 | echo "$curdir/geisa_bif2bin<fort.$fluno|bzip2">>cgi;; |
|---|
| 49 | *) |
|---|
| 50 | echo "$curdir/geisa_bif2bin<fort.$fluno">>cgi;; |
|---|
| 51 | esac;; |
|---|
| 52 | binaire_m) |
|---|
| 53 | case $fcomo in |
|---|
| 54 | Z) |
|---|
| 55 | echo "$curdir/geisa_bif2bim<fort.$fluno|compress -q">>cgi;; |
|---|
| 56 | gz) |
|---|
| 57 | echo "$curdir/geisa_bif2bim<fort.$fluno|gzip -q">>cgi;; |
|---|
| 58 | z) |
|---|
| 59 | echo "$curdir/geisa_bif2bim<fort.$fluno|zip -q9">>cgi;; |
|---|
| 60 | bz2) |
|---|
| 61 | echo "$curdir/geisa_bif2bim<fort.$fluno|bzip2">>cgi;; |
|---|
| 62 | *) |
|---|
| 63 | echo "$curdir/geisa_bif2bim<fort.$fluno">>cgi;; |
|---|
| 64 | esac;; |
|---|
| 65 | formate_m) |
|---|
| 66 | case $fcomo in |
|---|
| 67 | Z) |
|---|
| 68 | echo "unix2dos <fort.$fluno 2>/dev/null|compress -qc">>cgi;; |
|---|
| 69 | gz) |
|---|
| 70 | echo "unix2dos <fort.$fluno 2>/dev/null|gzip -qc">>cgi;; |
|---|
| 71 | z) |
|---|
| 72 | echo "unix2dos <fort.$fluno >$fnam 2>/dev/null;zip -q9 - $fnam">>cgi;; |
|---|
| 73 | bz2) |
|---|
| 74 | echo "unix2dos <fort.$fluno 2>/dev/null|bzip2">>cgi;; |
|---|
| 75 | *) |
|---|
| 76 | echo "unix2dos <fort.$fluno 2>/dev/null">>cgi;; |
|---|
| 77 | esac;; |
|---|
| 78 | *) #formate & others |
|---|
| 79 | case $fcomo in |
|---|
| 80 | Z) |
|---|
| 81 | echo "compress -qc fort.$fluno">>cgi;; |
|---|
| 82 | gz) |
|---|
| 83 | echo "gzip -qc fort.$fluno">>cgi;; |
|---|
| 84 | z) |
|---|
| 85 | echo "mv fort.$fluno $fnam;zip -q9 - $fnam">>cgi;; |
|---|
| 86 | bz2) |
|---|
| 87 | echo "bzip2 -c fort.$fluno">>cgi;; |
|---|
| 88 | *) |
|---|
| 89 | echo "cat fort.$fluno">>cgi;; |
|---|
| 90 | esac;; |
|---|
| 91 | esac |
|---|
| 92 | } #output |
|---|
| 93 | cd "$curdir" |
|---|
