Rev 16367 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 16367 | Rev 17882 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !! wims_read_parm : file name |
2 | !! wims_read_parm : file name |
3 | !! output : output=yes output=no |
3 | !! output : output=yes output=no |
4 | !! condition= the condition string |
4 | !! condition= the condition string |
- | 5 | !! accessstart= starting access date, if not empty |
|
- | 6 | !! accessend= ending access date, if not empty |
|
5 | 7 | ||
6 | data_=!record 0 of wimshome/log/classes/$wims_class/.$wims_read_parm |
8 | data_=!record 0 of wimshome/log/classes/$wims_class/.$wims_read_parm |
7 | cle_=!word 1 of $data_ |
9 | cle_=!word 1 of $data_ |
8 | !! process for technical variable definition (replace data_ by value decide by the technical variable) |
10 | !! process for technical variable definition (replace data_ by value decide by the technical variable) |
9 | !if \ isin $cle_ |
11 | !if \ isin $cle_ |
Line 33... | Line 35... | ||
33 | !exit |
35 | !exit |
34 | !endif |
36 | !endif |
35 | !if $condition!=$empty |
37 | !if $condition!=$empty |
36 | data_=!words2items $condition |
38 | data_=!words2items $condition |
37 | symb_=<,> |
39 | symb_=<,> |
38 | !reset |
40 | !reset IP_,accessend,accessstart |
39 | !for l_ in $data_ |
41 | !for l_ in $data_ |
40 | !set c_=!char 1 of $l_ |
42 | !set c_=!char 1 of $l_ |
41 | !if $(symb_[1])=$c_ |
43 | !if $(symb_[1])=$c_ |
42 |
|
44 | accessend=!char 2 to -1 of $l_ |
- | 45 | accessend=!text select char 0123456789 in $accessend |
|
43 | !else |
46 | !else |
44 | !if $(symb_[2])=$c_ |
47 | !if $(symb_[2])=$c_ |
45 |
|
48 | accessstart=!char 2 to -1 of $l_ |
- | 49 | accessstart=!text select char 0123456789 in $accessstart |
|
46 | !else |
50 | !else |
47 | IP_=!text select 0123456789. in $l_ |
51 | IP_=!text select 0123456789. in $l_ |
48 | !endif |
52 | !endif |
49 | !endif |
53 | !endif |
50 | !next l_ |
54 | !next l_ |
51 | !! !! ------ test for IP |
55 | !! !! ------ test for IP |
52 | !! !! TODO this test is not operationnel |
56 | !! !! TODO this test is not operationnel |
- | 57 | !! !! need to be careful: like this, it only works for IP (not for dns names) |
|
53 | !! !if $IP_!=$empty_ |
58 | !! !if $IP_!=$empty_ |
54 | !! nb_=!charcnt $IP_ |
59 | !! nb_=!charcnt $IP_ |
55 | !! user_=!char 1 to $nb_ of http_REMOTE_ADDR |
60 | !! user_=!char 1 to $nb_ of http_REMOTE_ADDR |
56 | !! !if $user_!=$IP_ |
61 | !! !if $user_!=$IP_ |
57 | !! output=no |
62 | !! output=no |
Line 59... | Line 64... | ||
59 | !! !endif |
64 | !! !endif |
60 | !! !endif |
65 | !! !endif |
61 | now_=!text select char 0123456789 in $wims_now |
66 | now_=!text select char 0123456789 in $wims_now |
62 | now_=!char 1 to 12 of $now_ |
67 | now_=!char 1 to 12 of $now_ |
63 | !! ----- test for expiration |
68 | !! ----- test for expiration |
64 | !if |
69 | !if $accessend!=$empty |
65 | expiration_=!text select char 0123456789 in $expiration_ |
- | |
66 | !if $now_> |
70 | !if $now_>$accessend |
67 | output=no |
71 | output=no |
68 | !exit |
72 | !exit |
69 | !endif |
73 | !endif |
70 | !endif |
74 | !endif |
71 | !! ----- test for begin |
75 | !! ----- test for begin |
72 | !if |
76 | !if $accessstart!=$empty |
73 | beginning_=!text select char 0123456789 in $beginning_ |
- | |
74 | !if $now_< |
77 | !if $now_<$accessstart |
75 | output=no |
78 | output=no |
76 | !exit |
79 | !exit |
77 | !endif |
80 | !endif |
78 | !endif |
81 | !endif |
79 | !endif |
82 | !endif |