Rev 5163 | 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 |
||
| 5165 | czzmrn | 28 | !if $cn_method iswordof getcsv |
| 29 | tmpdir=$wims_home/tmp/sessions/$wims_session |
||
| 30 | cn_data=!sh export wims_exec_parm="$URL" ; \ |
||
| 5163 | czzmrn | 31 | bin/webget > $tmpdir/getdata.gz ; gunzip -c -f $tmpdir/getdata |
| 5165 | czzmrn | 32 | !sh gunzip -c -f $tmpdir/getdata> $wims_home/$wims_sesdir/webget.data |
| 5163 | czzmrn | 33 | !! these lines used to work when getcsv returned the OK+ctl |
| 5165 | czzmrn | 34 | !! it does not behave like that any longer (except for ERRORS??) |
| 35 | cn_status=!sh head -1 $wims_home/$wims_sesdir/webget.data |
||
| 36 | !distribute words $cn_status into cn_status,cnr_code |
||
| 37 | !if $cn_status issametext ERROR |
||
| 38 | cn_data=!record 0 of wimshome/$wims_sesdir/webget.data |
||
| 39 | !endif |
||
| 40 | !! if getcsv, we are ok if the first word is "login" (FIXME: CHECK THIS) |
||
| 41 | !if login isitemof $cn_status |
||
| 42 | cn_status=OK |
||
| 43 | cn_code=$cnr_code |
||
| 44 | !endif |
||
| 45 | !else |
||
| 46 | !! FIXME: the only remaining should be getclasstgz?? how about getlog getclassfile |
||
| 47 | tmpdir=$wims_home/tmp/sessions/$wims_session |
||
| 48 | cn_data=!sh export wims_exec_parm="$URL" ; \ |
||
| 49 | bin/webget > $wims_home/$wims_sesdir/webget.data |
||
| 50 | !! FIXME: need to insert some check!! |
||
| 5163 | czzmrn | 51 | cn_status=OK |
| 52 | cn_code=$cnr_code |
||
| 53 | !endif |
||
| 20 | reyssat | 54 | !endif |
| 55 | |||
| 56 | !if $cn_status=OK and $cn_code!=$cnr_code |
||
| 57 | cn_status=ERROR |
||
| 58 | cn_data=return code discord |
||
| 59 | !endif |
||
| 60 |