#!/usr/bin/perl
# Use the modules here!
use strict;
use warnings;
BEGIN {
$|=1;
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
}
$kjarnavelar = "9";
$i = "0";
$rbports = "0";
$oraports = "0";
@host = ("x00802","x00803","x00804","x00902","x00903","x00904","xb0011
+2","xb00113","xb00114");
foreach $host (@host) {
$rbport = `/usr/bin/telnet $host 1367 |egrep -v "Trying|Connec
+|Escape"`;
$rbarray[$i] = "$rbport";
$oracle = `/usr/bin/telnet $host 1371 |egrep -v "Trying|Connec
+|Escape"`;
$oraarray[$i] = "$oracle";
$oraports = $oraports+$oracle;
$rbports = $rbports+$rbport;
$i++;
}
print "";
print "";
print "| Host | RB Ports Active | Oracle Po
+rts Active |
";
for($start=0;$start<=$kjarnavelar;$start++)
{
print "| $host[$start] | $rbarray[$start] |
+$oraarray[$start] |
";
}
print "
";
print "";
print "| Samtals RB Port | Samtals Oracle Port | <
+/TR>";
print "
| $rbports | $oraports |
";
print "
";
print "";