Rev 13828 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | !if robot isin $session |
2 | error=robot |
||
3 | !exit |
||
4 | !endif |
||
5 | |||
6 | !if $job=$empty |
||
391 | obado | 7 | error=wrong request: no job |
23 | reyssat | 8 | !exit |
9 | !endif |
||
10 | |||
11 | code=!word 1 of $code |
||
12 | !if $code=$empty |
||
13 | error=random code not defined |
||
14 | !exit |
||
15 | !endif |
||
16 | |||
17 | ident=!word 1 of $ident |
||
18 | ident=!text select -_$char_alnum in $ident |
||
19 | !if $ident=$empty |
||
20 | error=identification failure |
||
21 | !exit |
||
22 | !endif |
||
23 | |||
3261 | obado | 24 | #pour certaines listes d'items, on propose d'utiliser un separateur different de la virgule |
25 | !default separator=, |
||
26 | |||
23 | reyssat | 27 | !readdef wimshome/log/classes/.connections/$ident |
28 | ident_agent=!translate internal ./,; to $ $ in $ident_agent |
||
29 | ident_agent=!word 1 of $ident_agent |
||
30 | ident_site=!items2words $ident_site |
||
31 | passwd=!text select $char_alnum in $passwd |
||
32 | agent=!translate internal ./,; to $ $ in $httpd_HTTP_USER_AGENT |
||
33 | agent=!word 1 of $agent |
||
34 | protocol=!translate internal : to $ $ in $wims_ref_name |
||
35 | protocol=!word 1 of $protocol |
||
36 | |||
37 | !if ($ident_allow!=$empty and $job notwordof $ident_allow) or \ |
||
38 | ($ident_deny!=$empty and $job iswordof $ident_deny) |
||
39 | error=illegal job |
||
40 | !exit |
||
41 | !endif |
||
42 | |||
391 | obado | 43 | |
9896 | obado | 44 | !if $ident_type=$empty or $passwd != $ident_password |
4629 | obado | 45 | error=Identification Failure : bad login/pwd |
23 | reyssat | 46 | !exit |
47 | !endif |
||
48 | |||
391 | obado | 49 | !if $httpd_REMOTE_ADDR notwordof $ident_site |
15331 | obado | 50 | error=Identification Failure : '$httpd_REMOTE_ADDR' is a bad IP |
391 | obado | 51 | !exit |
52 | !endif |
||
53 | |||
54 | !if ($ident_agent!=$empty and $agent != $ident_agent) |
||
5601 | obado | 55 | error=Identification Failure : '$agent' is a bad Agent |
391 | obado | 56 | !exit |
57 | !endif |
||
58 | |||
59 | !if ($ident_protocol=https and $protocol != https) |
||
60 | error=Identification Failure : bad Protocol |
||
61 | !exit |
||
3261 | obado | 62 | !endif |