Subversion Repositories wimsdev

Rev

Rev 5165 | Details | Compare with Previous | Last modification | View Log | RSS feed

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