2013-05-09 11:13:16 -04:00

60 lines
1.6 KiB
HTML

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" title="Default" href="main.css" type="text/css" />
</head>
<?
@list = $EQW->ListLaunchers();
?>
<body>
<h2 align="center">Launchers</h2>
<hr/>
<?
print "You have ".($#list+1)." launchers. (@list)";
?>
<hr/>
<table width="100%" border="1" cellspacing="2" cellpadding="3" class="zonelist">
<tr>
<th scope="col">Launcher Name </th>
<th scope="col">IP</th>
<th scope="col">Zone Count</th>
<th scope="col">Actions</th>
</tr>
<?
for my $lk (sort @list) {
my $l = $EQW->GetLauncher($lk);
if(!$l) {
#$zone->{name} = "ERROR: no launcher";
}
print "<tr>\n";
if($l->IsConnected()) {
print "\t<td><a href='launcher.html?name=".$l->GetName()."'>".$l->GetName()."</a></td>";
print "<td>_IP_</td>";
} else {
print "<td><a href='launcher.html?name=".$l->GetName()."'>".$l->GetName()."</a><br><b>Not Connected</b></td>";
print "<td>&nbsp;</td>";
}
print "<td>".$l->GetStaticCount()."s, ".$l->GetDynamicCount()."d</td>";
print "<td>";
print "<a href='launcher.html?name=".$l->GetName()."'>Details</a> - ";
print "<a href='action.html?action=remlauncher&name=".$l->GetName()."'>Remove</a>";
print "</td>\n";
print "</tr>\n";
}
?>
</table>
<form action="launcher.html" method="POST">
Add Launcher: Name: <input type='text' name='name'>
Dynamic Count: <input type='text' name='dynamics' size="3">
<input type='submit' name='action' value='Add'>
</form>
</body>
</html>