#!/usr/bin/env php
<?php
//requires php-curl and php-xml
$host = '';
$protocol = 'http';
$timeout = 15;
$messages_separator = "\n";

$shortopts  = "";
$shortopts .= "H:";  // Required value
$shortopts .= "p::"; // Optional value
$shortopts .= "t::"; // Optional value
$shortopts .= "s::"; // Optional value
$shortopts .= "h";   // Optional value

$longopts  = array(
    "host:",
    "protocol::",
    "timeout::",
    "separator::",
    "help"
);


$STATE_OK=0;
$STATE_WARN=1;
$STATE_CRIT=2;
$STATE_UNK=3;
$toner_info_available = true;
$toner_info_parseable = true;
$black_toner_level = 0;
$color_toner_level = 0;
$error_messages = "";
$warn_msg = "WARNING: ";
$crit_msg = "CRITICAL: ";

function print_help() {
        global $messages_separator;
        echo "Usage: check_printer -H (--host) %host% [-p (--port) %port (http/https)%] [-t (--timeout) %timeout%] [-s (--separator) %string_separator%] [-h (--help)]".$messages_separator;
}


$options = getopt($shortopts, $longopts);
if( array_key_exists("h",$options) || array_key_exists("help",$options)) {
        print_help();
        exit($STATE_UNK);
}
if (
        (
                (
                        (!array_key_exists("H",$options))
                        &&
                        (!array_key_exists("host",$options))
                )
                ||
                (
                        (!$options["H"])
                        &&
                        (!$options["host"])
                )
        )
        ||
        (
                empty($options["H"])
                &&
                empty($options["host"])
        )
) {
        echo $crit_msg."Not enough arguments".$messages_separator;
        print_help();
        exit($STATE_CRIT);
}
else {
        if(array_key_exists("host",$options) && (!empty($options["host"]))) $host = $options["host"];
        else $host = $options["H"];
}
//var_dump($options);
if(array_key_exists("p",$options) && (!empty($options["p"]))) $protocol = $options["p"];
if(array_key_exists("protocol",$options) && (!empty($options["protocol"]))) $protocol = $options["protocol"];
if(($protocol != 'http') && ($protocol != 'https')) $protocol = 'http';
if(array_key_exists("t",$options) && (!empty($options["t"]))) $timeout = inval($options["t"]);
if(array_key_exists("timeout",$options) && (!empty($options["timeout"]))) $timeout = intval($options["timeout"]);
if(array_key_exists("s",$options) && (!empty($options["s"]))) $messages_separator = $options["s"];
if(array_key_exists("separator",$options) && (!empty($options["separator"]))) $messages_separator = $options["separator"];

ini_set('default_socket_timeout', $timeout);
$options = array(
    'http' => array(
        'protocol_version' => '1.0',
        'method' => 'GET',
        'timeout' => $timeout
    )
);
$context = stream_context_create($options);
$printer_toner_url = "$protocol://$host/DevMgmt/ConsumableConfigDyn.xml";

$ch = curl_init(str_replace(" ","%20",$printer_toner_url));
curl_setopt($ch, CURLOPT_TIMEOUT, $timeout);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
$xml_str = curl_exec($ch);
curl_close($ch);
if($xml_str === false) {
        $toner_info_available = false;
        $error_messages .= "Cannot access printer.".$messages_separator;
} else {
$xml_str = preg_replace("/<([a-z][a-z0-9]*)[^>:]:/si","<$1$2_",$xml_str);
$xml_str = preg_replace("/<(\\/[a-z][a-z0-9]*)[^>:]:/si","<$1$2_",$xml_str);
        $xml=new SimpleXMLElement($xml_str);
        if($xml === false) {
                $toner_info_parseable = false;
                $error_messages .= "Toner info is not parseable.".$messages_separator;
                foreach(libxml_get_errors() as $error) {
                        $error_messages .= $error->message.$messages_separator;
                }
        } else {
                try {
                        $color_toner_level = intval($xml->ccdy_ConsumableInfo[0]->d_ConsumablePercentageLevelRemaining[0]);
                        $black_toner_level = intval($xml->ccdy_ConsumableInfo[1]->d_ConsumablePercentageLevelRemaining[0]);
                }
                catch (Exception $e) {
                        $toner_info_parseable = false;
                        $error_messages .= "Toner info is not parseable.".$messages_separator;
                        $error_messages .= $e->getMessage().$messages_separator;
                }
        }
}
if((!$toner_info_available) || (!$toner_info_parseable)) {
        echo $crit_msg.$error_messages;
        exit($STATE_CRIT);
} else if(($color_toner_level == 0) || ($black_toner_level == 0)) {
        if($color_toner_level == 0) echo $warn_msg."Color toner level is reporting empty.".$messages_separator;
        else echo "Color toner level is $color_toner_level%.".$messages_separator;
        if($black_toner_level == 0) echo $warn_msg."Black toner level is reporting empty.".$messages_separator;
        else echo "Black toner level is $black_toner_level%.".$messages_separator;
        exit($STATE_WARN);
} else {
        echo "Printer responded with OK status. Black level toner is $black_toner_level%, color level toner is $color_toner_level%.";
        exit($STATE_OK);
}