1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
Definitions
! Standard Defines
Include "RESPONSE_CODES.INC"
Include "GLOBAL_VARIABLES.INC"
CHARACTER*512 USER_AGENT
Integer USE_PAGE_TIMERS
CHARACTER*256 MESSAGE
CONSTANT DEFAULT_HEADERS = "User-Agent: "
! fichier contenant le USER
CHARACTER*512 FIC_USER, FILE ="T_USER", GLOBAL
! fichier contenant le mot de passe
CHARACTER*512 FIC_PASSWORD, FILE ="T_PASSWORD", GLOBAL
! Variable contenant le USER
CHARACTER*512 USER, THREAD
! Variable contenant le PASSWORD
CHARACTER*512 PASSWORD, THREAD
Code
!Read in the default browser user agent field
Entry[USER_AGENT,USE_PAGE_TIMERS]
SYNCHRONIZE REQUESTS
ACQUIRE MUTEX "LECTURE"
NEXT FIC_USER
NEXT FIC_PASSWORD
SET USER=FIC_HRUSER
SET PASWWORD=FIC_PASSWORD
LOG "USER= ", USER
LOG "PASSWORD= ", PASSWORD
RELEASE MUTEX "LECTURE" |
