#!/usr/bin/perl

use IO::Socket::INET;
$time   = localtime;
$users  = grep{ -d $_ } glob('/home/*');
$users = $users + 600;

$mx1pop3 = IO::Socket::INET->new(
  Timeout  => 1,
  PeerAddr => 'mail.test.com',
  PeerPort => 110,
  Proto    => 'tcp');

$mx1smtp = IO::Socket::INET->new(
  Timeout  => 1,
  PeerAddr => 'mail.test.com',
  PeerPort => 25,
  Proto    => 'tcp');

$mx1web = IO::Socket::INET->new(
  Timeout  => 1,
  PeerAddr => 'test.com',
  PeerPort => 80,
  Proto    => 'tcp');

$mx1dns = IO::Socket::INET->new(
  Timeout  => 1,
  PeerAddr => 'test.com',
  PeerPort => 53,
  Proto    => 'tcp');


if ($mx1pop3 and $mx1smtp) {
    $mail = 'Up';
} else {
    $mail = 'Down';
}

if ($mx1web) {
    $web = 'Up';
} else {
    $web = 'Down';
}

if ($mx1dns) {
    $dns = 'Up';
} else {
    $dns = 'Down';
}

print "Content-type: text/html\n\n";
print "<p><font size=1 face=Arial, Helvetica, sans-serif>$time</font></p>\n" ;
print "<p><font size=1 face=Arial, Helvetica, sans-serif>Mail Servers: $mail<br>Web Servers: $web<br>DNS Servers: $dns</font></p>\n" ;
print "<p><font size=1 face=Arial, Helvetica, sans-serif>Active Users: $users</font></p>\n" ;