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
|
<?vsp
declare PID any;
declare action any;
PID := {?'id'};
action := {?'sa'};
if (action = 'init')
{
declare aq any;
declare url any;
declare mt any;
url := {?'url'};
mt := {?'mt'};
http_flush ();
DB.DBA.ri_s_1_worker (PID, url, mt);
}
else if (action = 'state')
{
declare rc, msg int;
commit work;
set isolation='uncommitted';
for select rerr, rstate from ri_s_1_log where rid = PID do
{
if (rstate <> 0)
{
if (rstate > 0)
http (rerr);
else
{
http ('<font style="color:red">');
http (rerr);
http ('</font>');
}
}
else
http ('importing');
}
}
?>
|
