Subversion Repositories wimsdev

Rev

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