Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

Initial version

Browse Source
This commit is contained in:
Steve Mokris 2009-01-20 02:37:05 +01:00 committed by Steve Schnepp
parent 772423894a
commit 4e3ab0c60b
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
plugins/other/toshiba_5520c_byfunction_black_ Executable file
View File

@ -0,0 +1,40 @@
#!/bin/bash
#
# toshiba_5520c_byfunction_black_ munin grabber script
# 2009.01 by steve@kosada.com
destination=`basename $0 | sed 's/^toshiba_5520c_byfunction_black_//g'`
if [ "$1" = "config" ]; then
echo "graph_title Toshiba 5520C: Black Pages (by function)"
echo 'graph_vlabel Pages'
echo 'graph_args --lower-limit 0'
echo 'graph_category printer'
echo "blackPrintCopy.label Print: Copy"
echo "blackPrintCopy.draw AREA"
echo "blackPrintComputer.label Print from Computer"
echo "blackPrintComputer.draw STACK"
echo "blackScanNetwork.label Scan to Network"
echo "blackScanNetwork.draw STACK"
echo "blackSendFax.label Fax: Send"
echo "blackSendFax.draw STACK"
echo "blackReceiveFax.label Fax: Receive"
echo "blackReceiveFax.draw STACK"
echo "blackPrintList.label Print: List"
echo "blackPrintList.draw STACK"
else
infopage=`wget -q -O - http://$destination:8080/TopAccess/Counter/TotalCount/List.htm | dos2unix | perl -p -e 's/\n/ /m'`
echo blackPrintCopy.value `echo $infopage | perl -p -e 's/^.+\<B\>Print Counter\<\/B\>.+?\{Black\,([0-9]+).+$/$1/'`
echo blackPrintList.value `echo $infopage | perl -p -e 's/^.+\<B\>Print Counter\<\/B\>.+?\{Black(\,[0-9]+){3}\,([0-9]+).+$/$2/'`
echo blackPrintComputer.value `echo $infopage | perl -p -e 's/^.+\<B\>Print Counter\<\/B\>.+?\{Black(\,[0-9]+){2}\,([0-9]+).+$/$2/'`
echo blackScanNetwork.value `echo $infopage | perl -p -e 's/^.+\<B\>Scan Counter\<\/B\>.+?\{Black\,[0-9]+\,([0-9]+).+$/$1/'`
echo blackSendFax.value `echo $infopage | perl -p -e 's/^.+\<B\>Scan Counter\<\/B\>.+?\{Black(\,[0-9]+){2}\,([0-9]+).+$/$2/'`
echo blackReceiveFax.value `echo $infopage | perl -p -e 's/^.+\<B\>Print Counter\<\/B\>.+?\{Black\,[0-9]+\,([0-9]+).+$/$1/'`
fi