#!/usr/bin/php
<?php
/**
 * Plugin: UPNP router
 * Author: Sebastian S. (scitor@@el337.de)
 * Version: 0.1 (TESTING)
 *
 * Munin (http://munin.projects.linpro.no/) plugin for monitoring traffic on UPNP enabled routers.
 *
 * Requirements:
 ***************
 * - PHP (translate it for performance gain)
 * - upnpc (MiniUPnP client: http://miniupnp.tuxfamily.org/)
 *
 * Usage:
 ********
 * Copy to upnp_router_ your munin plugins directory (/usr/share/munin/plugins) and execute:
 *
 * $ munin-node-configure --shell
 *
 * Don't forget to enable UPNP on your router, the script should find any connections automatically.
 * Change the path of your upnpc binary if you didn't make install it.
 *
 ********************
 * TESTING VERSION! *
 ********************
 * Please Note: This version was only tested on one single router so far.
 * I tried to make the router detection pretty general, but you never know.
 * If you have a router with enabled upnp not being detected by this script
 * feel free to send me an email with your output of:
 *
 * $ upnpc -s
 *
 * command.
 *
 * Changelog:
 ************
 * version 0.1 - 26 Aug, 2009
 * Sebastian S. <scitor@@el337.de>
 * - initial author
 *
 **/
#%# family=auto
#%# capabilities=autoconf suggest

        $result = explode("\n",shell_exec('/usr/bin/upnpc -s'));

        foreach($result as $line)
        {
                switch(true)
                {
                        case preg_match('%Found .* IGD : http://([^/]+):\d+(?:/[^/]+)*/([^/]+)\b%', $line,$regs):
                                $IGD = $regs[1].'_'.$regs[2];
                                $routers[$IGD]['ip'] = $regs[1];
                                $routers[$IGD]['name'] = $regs[2];
                         break;

                        case preg_match('/ExternalIPAddress = \b((?:[0-9]{1,3}\.){3}[0-9]{1,3})\b/', $line, $regs):
                                $routers[$IGD]['ext_ip'] = $regs[1];
                         break;

                        case preg_match('/Status : ([^,]+),/', $line, $regs):
                                $routers[$IGD]['status'] = $regs[1];
                         break;

                        case preg_match('/Bytes:\s*Sent:\s*(\d+)\s*Recv:\s*(\d+)\s*/', $line, $regs):
                                $routers[$IGD]['bytes_in']  = $regs[2];
                                $routers[$IGD]['bytes_out'] = $regs[1];
                         break;

                        case preg_match('/Packets:\s*Sent:\s*(\d+)\s*Recv:\s*(\d+)\s*/', $line, $regs):
                                $routers[$IGD]['pkts_in']  = $regs[2];
                                $routers[$IGD]['pkts_out'] = $regs[1];
                         break;
                }
        }

        $param_IGD = pathinfo($argv[0],PATHINFO_BASENAME);
        if (preg_match('/upnp_router_(bytes|pkts)_((?:[0-9]{1,3}\.){3}[0-9]{1,3})_(.+)/i', $param_IGD, $regs))
        {
                $param_IGD = $regs[2].'_'.$regs[3];
                $param_type = $regs[1];
        }

        switch($argv[1])
        {
                case 'suggest':
                        echo 'bytes_'.implode("\nbytes_",array_keys($routers))."\n";
                        echo 'pkts_'.implode("\npkts_",array_keys($routers))."\n";
                 break;

                case 'autoconf':
                        echo (count($routers)>0?'yes':'no (no routers found)')."\n";
                 break;

                case 'config':
        echo "graph_order down up\n";
        echo "graph_title UPNP $param_IGD $param_type traffic\n";
        echo "graph_args --base 1000\n";
        echo "graph_vlabel $param_type in (-) / out (+) per \${graph_period}\n";
        echo "graph_category network\n";
        echo "graph_info This graph shows the incoming and outgoing $param_type of the UPNP router found at $param_IGD.\n";
        echo "down.label received\n";
        echo "down.type COUNTER\n";
        echo "down.graph no\n";
        //echo "down.cdef down,8,*\n";
        echo "up.label bps\n";
        echo "up.type COUNTER\n";
        echo "up.negative down\n";
        //echo "up.cdef up,8,*\n";
                 break;

                default:
                        if (isset($routers[$param_IGD]))
                        {
                                echo 'up.value '.$routers[$param_IGD][$param_type.'_out']."\n";
                                echo 'down.value '.$routers[$param_IGD][$param_type.'_in']."\n";
                        }
                 break;
        }