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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
<?vsp
--
-- $Id$
--
-- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
-- project.
--
-- Copyright (C) 1998-2018 OpenLink Software
--
-- This project is free software; you can redistribute it and/or modify it
-- under the terms of the GNU General Public License as published by the
-- Free Software Foundation; only version 2 of the License, dated June 1991.
--
-- This program is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- General Public License for more details.
--
-- You should have received a copy of the GNU General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
--
--
declare cli, el any;
declare idx, len integer;
declare ip, uri, pid varchar;
set isolation='uncommitted';
if ('' <> get_keyword('uri', params, ''))
{
ip := get_keyword('ip', params, '');
uri := get_keyword('uri', params, '');
pid := atoi (get_keyword('pid', params, '0'));
http_kill (ip, uri, pid);
http_header ('Location: vs_r_1_stat.vsp\r\n');
http_request_status ('HTTP/1.1 302 Found');
return(0);
}
cli := http_pending_req ();
idx := 0; len := length (cli);
?>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../demo.css">
<title>Web robot</title>
<meta name="DESCRIPTION" content="Web robot status">
<meta HTTP-EQUIV="REFRESH" content="5; URL=vs_r_1_stat.vsp">
</head>
<body>
<H3>Web robot status</H3>
<P>To drop any active connection just click over 'Kill' link.</P>
<p>To start new thread click <a href="vs_r_1_run.vsp">here</a>.</p>
<?vsp
declare retr_links integer;
select count (*) into retr_links from WS.WS.VFS_QUEUE where VQ_STAT = 'retrieved';
?>
<p>Totally retrieved links <?=retr_links?>.</p>
<table BORDER="1" CELLPADDING="0" class="tableentry" width="86%">
<tr>
<td width="13%">#</td>
<td width="23%">IP address</td>
<td width="51%">URL</td>
<td width="13%">Action</td>
</tr>
<?vsp
while (idx < len)
{
el := aref (cli, idx);
ip := aref (el, 0);
uri := aref (el, 1);
pid := aref (el, 2);
if (uri like '%/vs_r_1_run.vsp')
{
?>
<tr>
<td width="13%"><?=pid?></td>
<td width="23%"><?=ip?></td>
<td width="51%"><?=uri?></td>
<td width="13%"><a href="vs_r_1_stat.vsp?ip=<?=ip?>&uri=<?=uri?>&pid=<?=pid?>">Kill</a></td>
</tr>
<?vsp
}
idx := idx + 1;
}
?>
</table>
</body>
</html>
|
