Rev 20 | Rev 5165 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | |
| 2 | wims_print_precision=15 |
||
| 3 | a_=!randint 10^8,10^10 |
||
| 4 | b_=!randint 10^8,10^10 |
||
| 5 | cn_code=$a_$b_ |
||
| 6 | |||
| 7 | url=$back_url?module=adm/raw&ident=$back_ident&passwd=$back_password&code=$cn_code&qclass=$cn_class&rclass=$wims_class&quser=$cn_user |
||
| 8 | !for p in option,data1,data2,format |
||
| 9 | CN_$p=!httpquery $(cn_$p) |
||
| 10 | !next p |
||
| 11 | URL=$url&job=$cn_method&format=$CN_format&option=$CN_option&data1=$CN_data1&data2=$CN_data2 |
||
| 12 | |||
| 13 | !if $cn_method notwordof getlog getcsv getclassfile getclasstgz |
||
| 5163 | czzmrn | 14 | !! cfr. auth-cas: deal with gzipped data (Content-Encoding: gzip) |
| 15 | tmpdir=$wims_home/tmp/sessions/$wims_session |
||
| 16 | cn_data=!sh export wims_exec_parm="$URL" ; \ |
||
| 17 | bin/webget > $tmpdir/getdata.gz ; gunzip -c -f $tmpdir/getdata |
||
| 18 | !! cn_data=!exec webget $URL |
||
| 20 | reyssat | 19 | cn_status=!line 1 of $cn_data |
| 20 | cn_data=!line 2 to -1 of $cn_data |
||
| 21 | cn_status=!trim $cn_status |
||
| 22 | cn_status=!upper $cn_status |
||
| 23 | !distribute words $cn_status into cn_status,cnr_code |
||
| 24 | !if $cn_status=OK and $cn_method iswordof authuser addclass |
||
| 25 | cn_data=!word 1 of $cn_data |
||
| 26 | !endif |
||
| 27 | !else |
||
| 5163 | czzmrn | 28 | tmpdir=$wims_home/tmp/sessions/$wims_session |
| 29 | cn_data=!sh export wims_exec_parm="$URL" ; \ |
||
| 30 | bin/webget > $tmpdir/getdata.gz ; gunzip -c -f $tmpdir/getdata |
||
| 31 | !sh gunzip -c -f $tmpdir/getdata> $wims_home/$wims_sesdir/webget.data |
||
| 32 | !! these lines used to work when getcsv returned the OK+ctl |
||
| 33 | !! it does not behave like that any longer (except for ERROR??) |
||
| 34 | cn_status=!sh cd $tmpdir >/dev/null;\ |
||
| 35 | zcat getdata.gz | head -1;\ |
||
| 36 | zcat getdata.gz | tail --lines=+2 >webget.data 2>/dev/null |
||
| 37 | !! webget_output=webget.out |
||
| 38 | !! cn_status=!sh cd ../$wims_sesdir >/dev/null\ |
||
| 39 | !! head -1 webget.out\ |
||
| 40 | !! tail +2 webget.out >webget.data 2>/dev/null |
||
| 20 | reyssat | 41 | !distribute words $cn_status into cn_status,cnr_code |
| 42 | !if $cn_status issametext ERROR |
||
| 43 | cn_data=!record 0 of wimshome/$wims_sesdir/webget.data |
||
| 44 | !endif |
||
| 5163 | czzmrn | 45 | !! if getcsv, we are ok if the first word is "login" (CHECK THIS) |
| 46 | !if login isitemof $cn_status |
||
| 47 | cn_status=OK |
||
| 48 | cn_code=$cnr_code |
||
| 49 | !endif |
||
| 20 | reyssat | 50 | !endif |
| 51 | |||
| 52 | !if $cn_status=OK and $cn_code!=$cnr_code |
||
| 53 | cn_status=ERROR |
||
| 54 | cn_data=return code discord |
||
| 55 | !endif |
||
| 56 |