I added my voting addresses to the script to monitor donations.
(http://i.imgur.com/G51qBl4l.png) (http://imgur.com/G51qBl4)
#!/usr/bin/perl
if ($ARGV[0] =~ /config/i ) {
print "graph_title Memorycoins\n";
print "graph_vlabel MMC\n";
print "graph_category coins\n";
print "graph_info This graph shows memorycoin income.\n";
print "total.label MMC mined\n";
print "total.type GAUGE\n";
print "total.info Memorycoins\n";
print "cto.label CTO donations\n";
print "cto.type GAUGE\n";
print "cto.info Memorycoins\n";
print "cha.label CHA donations\n";
print "cha.type GAUGE\n";
print "cha.info Memorycoins\n";
} else {
$k=`wget -T 30 -qO /dev/stdout http://www.chainbrowser.com/memorycoin/address/M8KwEyRxVTHFtZbtA7s1qVHuoGACRfJZYC/`;
@rows = split(/\n/, $k);
foreach (@rows) {
$row = $_;
if ($row =~ /Total Input Amounts: <\/span>(.*) MMC<\/div>/i ) {
$coins = $1;
}
}
print "total.value ".$coins."\n";
$k=`wget -T 30 -qO /dev/stdout http://www.chainbrowser.com/memorycoin/address/MVTEctoAKRbPGwXbxaVU46KphsynmrVVC4/`;
@rows = split(/\n/, $k);
foreach (@rows) {
$row = $_;
if ($row =~ /Total Input Amounts: <\/span>(.*) MMC<\/div>/i ) {
$coins = $1;
}
}
print "cto.value ".$coins."\n";
$k=`wget -T 30 -qO /dev/stdout http://www.chainbrowser.com/memorycoin/address/MVTEcha4La8HeNaewF4oaSFUwaRep8xEyR/`;
@rows = split(/\n/, $k);
foreach (@rows) {
$row = $_;
if ($row =~ /Total Input Amounts: <\/span>(.*) MMC<\/div>/i ) {
$coins = $1;
}
}
print "cha.value ".$coins."\n";
}