prefs results from the CPAN

prefs

M3-ServerView

view release on metacpan or search on metacpan


my $v = Test::M3::ServerView::MockView->new();
my $parser = M3::ServerView::Parser->new($v);

is($Test::M3::ServerView::MockView::called_entry_class, 1);
is($Test::M3::ServerView::MockView::called_entry_columns, 1);
is($Test::M3::ServerView::MockView::called_add_entry, 0);

$parser->parse(qq{
<h3><b><td align "center">Movex 12.4.3 AMO PROD ServerView: linas1.linserv.se/194.17.14.105:6666</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:6666/">Home</a></td><td><a href="http://linas1.linserv.se:6666/threads?addr=194.17.14.105&port=6500">Threads</a></td><td><a href="http://linas1.linserv.se:666...
</table>
});

is($Test::M3::ServerView::MockView::called_add_entry, 0);
is($parser->{table_is_data}, 0);

$v = Test::M3::ServerView::MockView->new();
$parser = M3::ServerView::Parser->new($v);

$parser->parse(qq{
<h3><b><td align "center">Movex 12.4.3 AMO PROD ServerView: linas1.linserv.se/194.17.14.105:6666</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:6666/">Home</a></td><td><a href="http://linas1.linserv.se:6666/threads?addr=194.17.14.105&port=6500">Threads</a></td><td><a href="http://linas1.linserv.se:666...
</table>
<hr WIDTH="100%"<p>
<table cellpadding="1" cellspacing="1" WIDTH="100%" BORDER="0"><tr bgcolor="#333333"><th align="left">No</th><th align="left">Type</th><th align="left">Address</th></tr></table>
});

is($Test::M3::ServerView::MockView::called_add_entry, 0);
is($parser->{table_is_data}, 1);

$v = Test::M3::ServerView::MockView->new();
$parser = M3::ServerView::Parser->new($v);

$parser->parse(qq{
<h3><b><td align "center">Movex 12.4.3 AMO PROD ServerView: linas1.linserv.se/194.17.14.105:6666</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:6666/">Home</a></td><td><a href="http://linas1.linserv.se:6666/threads?addr=194.17.14.105&port=6500">Threads</a></td><td><a href="http://linas1.linserv.se:666...
</table>
<hr WIDTH="100%"<p>
<table cellpadding="1" cellspacing="1" WIDTH="100%" BORDER="0"><tr bgcolor="#333333"><th align="left">No</th><th align="left">Type</th><th align="left">Address</th><th>Num</th></tr>
<tr bgcolor="#232323"><td>1</td><td>Supervisor</td><td><a href="http://linas1.linserv.se:6666/super?addr=194.17.14.105&port=6500">linas1.linserv.se:6500</a></td><td>-</td></tr>
<tr bgcolor="#232323"><td>2</td><td>Sub:A</td><td></td><td>1</td></tr></table>
});

is($Test::M3::ServerView::MockView::called_add_entry, 2);

is_deeply(\@Test::M3::ServerView::MockView::entries, [ {

t/data/findjob.html view on Meta::CPAN

<html>
<head>
<title>Movex 12.4.3 SHM PROD ServerView</title>
<META HTTP-EQUIV="Expires" CONTENT="0">
</head>
<BODY bgColor=000000 text=FFFFFF link=00FF00 vlink=00FF00 alink=00FF00><font face="Arial,Helvetica" size=2 color=#FFFFFF>
<h3><b><td align "center">Find job MMS001::</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:16666/">Home</a></td><td><a href="http://linas1.linserv.se:16666/runjob">Run</a></td><td><a href="http://linas1.linserv.se:16666/findjob">Find job</a></td><td...
</table>

<hr WIDTH="100%"<p>
<table cellpadding="1" cellspacing="1" WIDTH="100%" BORDER="0"><td>No</td><td>Type</td><td>Location</td><td>Name</td><td>Id</td><td>User</td><td>Status</td><td>Change</td><tr bgcolor="#333333"><td>1</td><td>Job:I</td><td><a href="http://linas1.linser...
<tr bgcolor="#232323"><td>2</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16114">linas1.linserv.se:16114</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16114&p1=1169">MMS00...
<tr bgcolor="#333333"><td>3</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16114">linas1.linserv.se:16114</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16114&p1=1874">MMS00...
<tr bgcolor="#232323"><td>4</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16114">linas1.linserv.se:16114</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16114&p1=2068">MMS00...
<tr bgcolor="#333333"><td>5</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16109">linas1.linserv.se:16109</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16109&p1=355">MMS001...
<tr bgcolor="#232323"><td>6</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16109">linas1.linserv.se:16109</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16109&p1=445">MMS001...
<tr bgcolor="#333333"><td>7</td><td>Job:I</td><td><a href="http://linas1.linserv.se:16666/subs?addr=194.17.14.195&port=16109">linas1.linserv.se:16109</a></td><td><a href="http://linas1.linserv.se:16666/job?addr=194.17.14.195&port=16109&p1=962">MMS001...

t/data/home.html view on Meta::CPAN

<html>
<head>
<title>Movex 12.4.3 AMO PROD ServerView</title>
<META HTTP-EQUIV="Expires" CONTENT="0">
</head>
<BODY bgColor=000000 text=FFFFFF link=00FF00 vlink=00FF00 alink=00FF00><font face="Arial,Helvetica" size=2 color=#FFFFFF>
<h3><b><td align "center">Movex 12.4.3 AMO PROD ServerView: linas1.linserv.se/194.17.14.105:6666</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:6666/">Home</a></td><td><a href="http://linas1.linserv.se:6666/threads?addr=194.17.14.105&port=6500">Threads</a></td><td><a href="http://linas1.linserv.se:666...
</table>

<hr WIDTH="100%"<p>
<table cellpadding="1" cellspacing="1" WIDTH="100%" BORDER="0"><tr bgcolor="#333333"><th align="left">No</th><th align="left">Type</th><th align="left">Address</th><th align="left">PID</th><th align="left">Started</th><th align="left">Jobs</th><th al...
<tr bgcolor="#232323"><td>1</td><td>Supervisor</td><td><a href="http://linas1.linserv.se:6666/super?addr=194.17.14.105&port=6500">linas1.linserv.se:6500</a></td><td><acronym title="508672/MSRVADM/S.6500">6443</acronym></td><td>20070918-00:20:10</td><...
<tr bgcolor="#333333"><td>1.0</td><td>Transaction Server</td><td><a href="http://linas1.linserv.se:6666/ts?addr=194.17.14.105&port=4269">linas1.linserv.se:4269</a></td><td><acronym title="508672/MSRVADM/S.6500">6443</acronym></td><td>20070918-00:20:1...
<tr bgcolor="#232323"><td>1.1</td><td>Server:DBIMAS</td><td><a href="http://linas1.linserv.se:6666/server?addr=194.17.14.105&port=6600">linas1.linserv.se:6600</a></td><td><acronym title="508672/MSRVADM/S.6500">6443</acronym></td><td>20070918-00:20:15...
<tr bgcolor="#333333"><td>1.1.1</td><td>Sub:I:PRODES</td><td><a href="http://linas1.linserv.se:6666/subs?addr=194.17.14.105&port=6110">linas1.linserv.se:6110</a></td><td><acronym title="508829/MSRVADM/I.6110">6600</acronym></td><td>20070918-00:31:55<...
</tr>
<tr bgcolor="#232323"><td>1.1.2</td><td>Sub:M:PRODES</td><td><a href="http://linas1.linserv.se:6666/subs?addr=194.17.14.105&port=6109">linas1.linserv.se:6109</a></td><td><acronym title="508815/MSRVADM/M.6109">6587</acronym></td><td>20070918-00:29:39<...

t/data/server.html view on Meta::CPAN

<html>
<head>
<title>Movex 12.4.3 AMO PROD ServerView</title>
<META HTTP-EQUIV="Expires" CONTENT="0">
</head>
<BODY bgColor=000000 text=FFFFFF link=00FF00 vlink=00FF00 alink=00FF00><font face="Arial,Helvetica" size=2 color=#FFFFFF>
<h3><b><td align "center">Server view: /194.17.14.195:6600</td></b></h3>
<table cellpadding="1" cellspacing="1" BORDER="0"><tr><td><a href="http://linas1.linserv.se:6666/">Home</a></td><td><a href="http://linas1.linserv.se:6666/threads?addr=194.17.14.195&port=6600">Threads</a></td><td><a href="http://linas1.linserv.se:666...
</table>

<hr WIDTH="100%"<p>
<table cellpadding="1" cellspacing="1" WIDTH="100%" BORDER="0"><tr bgcolor="#333333"><td>No</td><td>Type</td><td>Address</td><td>Jobs</td><td>Threads</td><td>Status</td><td>Command</td></tr>
<tr>
<td>1</td><td>Sub:B:PRODMX</td><td><a href="http://linas1.linserv.se:6666/subs?addr=194.17.14.195&port=6110">linas1.linserv.se:6110</a></td><td>0</td><td>10</td><td>Up</td><td><a href="http://linas1.linserv.se:6666/lock?addr=194.17.14.195&port=6110&p...
</tr>
<tr>
<td>2</td><td>Sub:M:PRODUS</td><td><a href="http://linas1.linserv.se:6666/subs?addr=194.17.14.195&port=6128">linas1.linserv.se:6128</a></td><td>0</td><td>21</td><td>Up</td><td><a href="http://linas1.linserv.se:6666/lock?addr=194.17.14.195&port=6128&p...
</tr>

( run in 1.062 second using v1.01-cache-2.11-cpan-8f98c5d2c55 )