<?php

// My own hostname
$myhost = 'marmento.kd2.org';

if(file_exists('myhost.inc.php'))
{
    require_once('myhost.inc.php');
}

// Machines to monitor (myself included)
$monitor = array(

    // Server host
    'marmento.kd2.org' => array(

        // Service name => port
        'http'  =>  80,
        'https' =>  443,
        'ssh'   =>  22,
        'mpd'   =>  6600,
        'ftp'   =>  21,
        'nfs'   =>  2049,
        'samba' =>  139,

        // array of ports only available on localhost
        'local_ports' => array(6600, 21, 2049, 139),
    ),
    'alinea.kd2.org' => array(
        'dns'   =>  53,
        'http'  =>  80,
        'https' =>  443,
        'ssh'   =>  22,
        'ftp'   =>  21,
        'icecast'=> 8000,

        'local_ports' => array(8000, 21),
    ),
    'barmizo.kd2.org' => array(
        'dns'   =>  53,
        'http'  =>  80,
        'https' =>  443,
        'ssh'   =>  22,

        'ftp'   =>  21,
        'icecast'=> 8000,
        'telnet' => 23,
        'pop3'  =>  110,
        'smtp'  =>  25,
        'imap'  =>  143,
        'pop3s' =>  995,
        'imaps' =>  993,
        'ssh2'  =>  24,
        'mysql' =>  3306,

        // Don't overload your servers: show only vital ports from other servers
        'local_ports' => array(21, 24, 23, 25, 110, 143, 8000, 995, 993, 3306),
    ),
    'montagne.kd2.org' => array(
        'http'  =>  80,
        'https' =>  443,
        'ssh'   =>  22,
        'mpd'   =>  6600,
        'dns'   =>  53,
        'nfs'   =>  2049,
        'samba' =>  139,
        'bitlbee' => 6667,
        'smtp'  =>  25,
        'mysql' =>  3306,

        'local_ports' => array(6600, 53, 2049, 139, 6667, 25, 3306),
    ),
);

/* HTML things */

$images = array(
    'fond'  =>  'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAoAAABACAMAAAAULxaFAAAAwFBMVEUAAwAFBwMJDAgOEA0TFBIWGBUaGxkeHx0iIyEmJyUqKyktLywxMzE2ODU5Ozg+Pz1BQ0BGR0VJS0lOUE1SVFFXWFZbXFpeYF1iY2FlZ2Rpa2htb2xydHF2eHV6fHl+gH2ChIGGiIWKjImNj4yRk5CVl5Sam5ieoJyipKGmqKWpq6itr6yytLG2uLW5u7i9v7zCxMDGyMXJy8jO0MzS1NHV19Ta3Nje4N3h5ODm6OXp6+ju8Ozx8/D2+PT5+/j+//z2MjBvAAAAAWJLR0QAiAUdSAAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9YLCAA7IL0Lg5wAAACISURBVCjPRcTFVkIBAADR4T26JASUlkZapOv//4rDZriLy0PcxU1cxUWcxUkcxUHsxU78i634ExuxFiuxFAsxFzPxK6ZiIsZiJIZiIPqiJ35EV3REW7REUzREXXyLL1ETVVERn6IsSqIoCuJD5EVOZEVGpEVKJEVCxEVMREUYhGEQvCYQEfH2BPr1Tr0gN0NZAAAAAElFTkSuQmCC',
    'logo'  =>  'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQAAAABkBAMAAACbTvOtAAAAGFBMVEUCAgIvLy9KSkp0dHSTk5OysrLQ0ND9/f3acM57AAAAAWJLR0QAiAUdSAAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9YLCAA3Iv+wrbwAAAAddEVYdENvbW1lbnQAQ3JlYXRlZCB3aXRoIFRoZSBHSU1Q72QlbgAACYFJREFUaN7tms1b4roawFMKsi0z9+K24jhsq8zItirQLUeBbvEI7RZom/z7933z3ZZ6HY9HN/R59IE0SX95v5NC2Bdf5ARwAjgBnABOAPz/xo+buzx9+3cB6PLBJ6QBYLu48UjLatiMRtP0YwF2BK8GgADvGYDCx+/O7YcCZCO/GeBp5FkA1CPiGn+sDRTNAIwdLIBAPp846ccaofcKQGEA9kRfZx8L4L8JABXwO6WPXARfAbCXun/+UCv4A4CAdIwpdr8AwCeR+LAGgM5XACjFZwDgfgWAWjUtBadPBDjXg74IQFu+90kAdLlMbIDIAhA2sKoM2C7fEiLpdpUeBchGeCkUes0jzsgApBYAtwc6Kc3LB3yX44uRun5V0uc9n/dXWgdY24km93TcrYlbxQG6sARXyAFOpF1Fpw4rfdKg3GgDFAtf5xmINq0ZS+6PARQKs0hmZmKfOLN0e61moAt80ixJlvelwBkSnJjeqwRYtgFIfZHq5/Cmv48A4OL4Q3K20I1zOTQ0QUo949nKHfAEN5WN42MAfakAQs51Cq4C7FTThuVKvbnKkNTkdp1k4cPQJLRUBdYjAGFLC8oKe1WAUD1sy+jMtMU6UJ9VAOZaKpDQ+jq51wFypStq5FjUATylKPDCpR7gGmJHrVEC7Kx8ogQAQ+oAoWtKj2EjgJEJAEgd7K0axVM2Z5uWo4a29Tx+DSBXFogCTRsB1to+oDuN1ICxpaFuGQCttjIU+9UAwo5ZRIs1Amgx0pjbgVx1atmo2wDgay9DmipAZq+63QiQa/ug2L9IRSfHLmOd4yooFIgYXg1Eft+a4qwRYK3tnT+bi8EunZFQLEUD7KVMDseiqu4ZOrYQu40AnpZOzpeRiAHGuDASRFUvOCsp5wjA6k7bfdlWqgAmWLIC/pZxIQZ0SqliXAKYS6ea25wVAEIsgPkrAIFZxBbz4ZLFfMBZCWBYAvCkUYRHakkFUKoxwmaA3PK3BKwQCoDEio2lyKsAMjVd8ArAX6TsyU0Ac0uLcT6TmqgBnFsAkCdd7cCNACvPuhk0GiG1M6sEADkETQDfBoMLmCCtABRLca0sL1gTE0vCRoC1bcZxIcwxblYBKe39A2WEO3nDtQAKa8tpG0sJgNqRjKY0ld7wmg1YFh0oN8xuLvD5337bcSAw0WzeFAmfbTfCOPQyuEWS+StuaOXzuTWXUrkBOBhPXJPjuQDKicisH+JQ9mNxAc9A/bVLALFlhDp786KzmrKsUGw8cWd1tAFsAcy7AHAJNSbIfosJnyYrUzLaucAEiZ1lD0ozFsBae+KBWOGuJDZTBXvDLTsMCyhFIRrhmcF0EVXqBVXt60o3s3xdRUcLAMnbeg3nx05IOlZlHK1Y+ISleEwXD+hCeayrmU4pG+qSkFr7+nUdANViqsh2HcAWwJ6wGfNkCC9mWAVt0komUQDGQnyTjY4BZNoTQxMUdHaHT1IAmP+CFp3lwplhTUs0qYVxtpiVS03VYgWbkgo8Y7bi/t7oYG7VmGKWzWSyeiGdIjoIAMDaYMaf6VjRqhSlvlpYbjytChCp5/aVshxtDkRaUDvh19NkcuORziaSp2Zt3CIZ8zpods9auFPVQWgDqNFUHwECH/mvPhocs1Soxbp+LpQEXCxNja8F+hRRBwCz8IMG9SyAXC2cP7evF/59CpvFK4TyxhzOvuJFnGkANiuU5+rcy0eM9cJbZqOV2kwAwH2J/FDNgn8tn9NncstcVADYIi20DUBt8iz2xbCpljKmd6gevW2QIsA9tBuLPfLQPqyWuvH1AVig9OuJPX8FwGVTJt3wnJeHFIf2ejr3qu15V20JpWL4tr/HN91yd3wYiOsH1xF8uDTHDQgVio08HZirNxhcQRiQkGOemPL4jn/7Lg0gl32H+tvQPscgzu//+8Zk+8D75PVTlyIWW6K1PrWlEUSBYjL6Fb/liGbxMFn9s1c2U7EfyImOF9PZ+9+YjMotL284Bt7EYlcCUv8uWtRhTXb7xwBFRQjzNxwD06kAYNupQpKK2nU+DuDIiRs1IsjLd1QiqAMk7wV4rksid4wItuVbkyYJ7DvvBZjX34pkZgu8rRjdNm4A2P1LANVDUjb7RwBZmvMzUnrduwUA+Hyb+S4eml73MECNsAAeQwgZcSMvftELHndHwvGLi94tquSudwXPQ0fgrpXfXMZ50BpFLzCh6MXv3A8wazz2rgyAfy7S1ByCZNDF8N/Ze04v4g2QnXh934U43usLSYSOB6F1L1OH73hkijUrjO7wNeOkGLw7B5hmOOcpHXtF0CoqjAw6a4DMSemGJPzg6hmid+L3U64CCgnj2VEAWgUZcekKItDehSjfhRwLeyPIMN5PXjUpgLCVQrjEb/TZTUSvNtxxYfyYrTvidIcDYGmNQw4tfCbYQHAubGDviOO0GsAYNiNtBMBu8w42RRmuyNMA8hiO2wDvyHvBnTF/9aBMDVtyrMMQYI2dAwtg3RYNNYC0SPctBYBvMij5vXfFQZcEyAgrAYheUYEPC7ts3TIA4RmTQsMPoQXAG+BDDQDyL/yT83qY57wrXCKuQQLsW2UA0WvInQ7nkjUQAnjnEgAXz2WjAERDpwbggP4QoLV8hAVxWXvDoCOeJwF2bhlA9lIAkMsjBbB2lASqAKLhrBFAVHBy6vDPAKjXVgAFFkd4g8cebQNd2RAeA1ixgwMSSLAHFy4Zc4OZv64CMtYAgJ9qL2hLI0Ror2qEoGWUVmgAXkga4QphXmxCZEpidJnCB4A2Vgo1I5S9DADlOuAA6KLcDXn4kABrADg4oh/SA1gu5qT35GeMgpGSRUzomcEsU4gDuPQ94TEEAdoSQPYyAMwAMO9MBqI+Cz0ZiHYtSMhen/0F8wUu+xvAgIUKgFaMJ9vSvfEjWqDXKe4gDmCU8GUgmuIzUx6IZC8FcJ1mRgVs7ahQTNy5CMVYb3X5m/IhL6sdNEifV4DFgxPyghUBUEhyV4sbIAwlUPf+h4iCzeWvHsTBhOilAHy5YxUlWR7JZATpA0oyTEaQLQYw6dOAp5/7AbZDcYvf8gfn5eYS8HOoWukv+Lvh6YUNvsWPt9jrSiSjwSU/xZHJSPTid2Cugs/wvqIUAI6/oNxEbPbnRek7AO6dCVzLZZKklXKdRp8FkCbJdrlQHLLuo1GRfgZAAQC6OISn45kncKySzWzLPgOAPTqzIytNtpNJ9DkAh4Yf0Sze8SuvD/01HX3H75tOvyc8AZwATgAngC8H+B+Wuhtf8+hcqAAAAABJRU5ErkJggg==',
);

function get_img($name)
{
    global $images;

    return $images[$name];
}

function kb2mb($int)
{
    return round($int/1024);
}

function tpl_top($title)
{
    global $monitor;
    echo '
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr">
<html>
<head>
    <title>'.htmlspecialchars($title).'</title>
    <style type="text/css">
    * { margin: 0; padding: 0; }
    body { font-size: 12px; font-family: Arial, Helvetica, sans-serif; padding: 1em; }

    .fond {
        background-image: url('.get_img('fond').');
    }

    #page {
        width: 600px;
        margin-left: auto;
        margin-right: auto;
    }

    #header {
        height: 100px;
    }

    #header img {
        float: left;
    }
    #header h1 {
        float: right;
        margin-top: 20px;
    }
    #header .hosts {
        float: right;
        clear: right;
        padding: 0.5em;
        background: #eee;
        border: 1px solid #ccc;
        margin-top: 0.5em;
        color: #999;
    }
    #header .hosts a {
        color: darkblue;
    }

    #header .hosts a:hover {
        color: red;
    }

    .content {
        border: 2px solid #999;
        margin-bottom: 1em;
    }

    .content h2 {
        padding: 0.3em;
        border-bottom: 2px solid #999;
        background: url('.get_img('fond').') repeat-x top left;
    }

    .content div {
        margin: 1em;
    }

    dl dt { font-weight: bold; }
    dl dd { margin: 0.5em; }

    table.services { border-collapse: collapse; width: 100%; }
    table.services tr { border: 1px solid #ccc; }
    table.services th { text-align: left; font-weight: normal; width: 15%; }
    table.services th, table.services td { padding: 0.3em; }
    table.services td.ok { color: darkgreen; }
    table.services td span { font-weight: bold; }
    table.services td.fail { color: red; }
    </style>
</head>

<body>

<div id="page">
<div id="header">
    <img src="'.get_img('logo').'" alt="" />
    <h1>'.htmlspecialchars($title).'</h1>
    <div class="hosts">';

$started = false;
foreach($monitor as $k=>$a)
{
    if($k == $GLOBALS['myhost']) continue;
    if(in_array('80', $a))
    {
        if($started) echo ' | ';
        echo '<a href="http://'.$k.'">'.$k.'</a>';
        $started = true;
    }
}

echo '</div>
</div>

<div class="content">
    <h2>System status</h2>
    <div>';
}

function tpl_end()
{
    echo '
    </div>
</div>
</div>
</body>
</html>';
}

/* Test functions */

function is_port_local_only($host, $port)
{
    if($host == 'localhost') return false;
    global $monitor;
    if(empty($monitor[$host]['local_ports'])) return false;
    if(in_array($port, $monitor[$host]['local_ports'])) return true;
    return false;
}

function status_test_port($host, $port)
{
    if(is_port_local_only($host, $port))
        return 'Local port only';

    // Only 2 secs, will detect lags on your internet connexion
    $fp = @fsockopen($host, $port, $errno, $errstr, 2);
    if($fp)
    {
        @fclose($fp);
        return 'OK';
    }
    else
    {
        @fclose($fp);
        return "$errno - $errstr";
    }
}

function status_get_load()
{
    $load = @file('/proc/loadavg');
    if(!$load)
    {
        return false;
    }
    $load = ereg_replace('^(([0-9.]+ ){3}).*$', '\\1', $load[0]);
    return $load;
}

function status_get_mem_usage()
{
    $mem = @file('/proc/meminfo');
    if(!$mem)
    {
        return false;
    }

    $out = array();
    foreach($mem as $line)
    {
        $line = explode(':', $line);
        $name = trim($line[0]);
        $value = ereg_replace('[^0-9]', '', trim($line[1]));

        switch($name)
        {
            case 'MemTotal':
                $out['total'] = $value;
                break;
            case 'MemFree':
                $out['free'] = $value;
                break;
            case 'Buffers':
                $out['buffers'] = $value;
                break;
            case 'Cached':
                $out['cached'] = $value;
                break;
            case 'SwapCached':
                $out['swap'] = $value;
                break;
            default:
                break;
        }
    }

    $out['free_real'] = $out['free'] + $out['buffers'] + $out['cached'];
    $out['percent'] = 100 - round(($out['free_real'] / $out['total']) * 100);
    return $out;
}

function status_test_host($host, $services)
{
    $out = '<table class="services">';

    foreach($services as $service => $port)
    {
        if(!is_numeric($port)) continue;
        if(is_port_local_only($host, $port)) continue;

        $result = status_test_port($host, $port);

        $out.= '<tr>
        <th>'.htmlspecialchars($service).'</th>
        <td class="'.($result == 'OK' ? 'ok' : 'fail').'">
            '.($result == 'OK' ? '<span>OK</span>' : '<span>Failed!</span> Error: '.$result).'
        </td></tr>';
    }

    $out.= '</table>';
    return $out;
}

/* App general things */

tpl_top($myhost);

echo '<dl>
    <dt>Load:</dt>
    <dd>'.(($load = status_get_load()) ? $load : 'Unavailable.').'</dd>
    <dt>Memory usage:</dt>
    <dd>';

$mem = status_get_mem_usage();

if(!$mem) echo 'Unavailable.';
else {
    echo $mem['percent'].'% used ('.kb2mb($mem['total']).' Mb total, '.kb2mb($mem['free']).' Mb free and '.
        kb2mb($mem['buffers'] + $mem['cached']).' Mb buffers and cache), and '.kb2mb($mem['swap']).' Mb of swap used.';
}

echo '</dd>
    <dt>Services status for localhost</dt>
    <dd>'.status_test_host('localhost', $monitor[$myhost]).'</dd>
    </dl>
    </div>
</div>

<div class="content">
    <h2>Other servers status</h2>
    <div><dl>
';

flush();

foreach($monitor as $host => $services)
{
    if($host == $myhost) continue;
    echo '<dt>'.$host.'</dt>
    <dd>'.status_test_host($host, $services).'</dd>';
    flush();
}

echo '</dl>
    </div>
</div>

<div class="content">
    <div><a href="http://kd2.org/">http://kd2.org/</a></div>
</div>';

tpl_end();

?>