1 files changed, 135 insertions, 0 deletions
diff --git a/munin-grapher.pl b/munin-grapher.pl
new file mode 100755
index 0000000..d70cc70
--- /dev/null
+++ b/munin-grapher.pl
@@ -0,0 +1,135 @@
+#!/usr/bin/perl
+
+# Sample script for monitoring smartshop prices using munin.
+
+# Copyright (C) 2018 Gabriel Pérez-Cerezo, licensed under CC-0, like
+# rest of the smartshop mod
+
+# adjust variable $file to the smartshop_report.txt file in your
+# world, adjust %items to the items you want to have graphed.
+
+
+use strict;
+use warnings;
+my $file = "/var/games/minetest-server/.minetest/worlds/world/smartshop_report.txt";
+my %items = ("ores" => {"gold" => ["default:gold_ingot", "Gold Ingot"],
+			"mese" => ["default:mese_crystal", "Mese Crystal"],
+			"diamond" => ["default:diamond", "Diamond"],
+			"steel" => ["default:steel_ingot", "Steel Ingot"],
+			"coal" => ["default:coal_lump", "Coal Lump"],
+			"copper" => ["default:copper_ingot", "Copper Ingot"],
+			"uranium" => ["technic:uranium_ingot", "Uranium Ingot"],
+			"chromium" => ["technic:chromium_ingot", "Chromium Ingot"],
+			"lead" => ["technic:lead_ingot", "Lead Ingot"],
+			"zinc" => ["technic:zinc_ingot", "Zinc Ingot"],
+			"tin" => ["default:tin_ingot", "Tin Ingot"],
+			"silver" => ["moreores:silver_ingot", "Silver Ingot"],
+		       },
+	     "stones" => {"cobble" => ["default:cobble", "Cobblestone"],
+			  "sandstone" => ["default:sandstone", "Sandstone"],
+			  "desertstone" => ["default:desert_stone", "Desert Stone"],
+			  "desertcobble" => ["default:desert_cobble", "Desert Stone"],
+			  "obsidian" => ["default:obsidian", "Obsidian"],
+			  "brick" => ["default:brick", "Brick"],
+			  "marble" => ["technic:marble", "Marble"],
+			  "graninte" => ["technic:granite", "Granite"],
+			  "sand" => ["default:sand", "Sand"],
+			  "gravel" => ["default:gravel", "Gravel"],
+			  "dirt" => ["default:dirt", "Dirt"],
+			 },
+	     "crops" => {
+			 "carrot" => ["farming:carrot", "Carrot"],
+			 "tomato" => ["farming:tomato", "Tomato"],
+			 "melon" => ["farming:melon_slice", "Melon"],
+			 "pumpkin" => ["farming:pumpkin_slice", "Pumpkin"],
+			 "wheat" => ["farming:wheat", "Wheat"],
+			 "rhubarb" => ["farming:rhubarb", "Rhubarb"],
+			 "blueberries" => ["farming:blueberries", "Blueberries"],
+			 "corn" => ["farming:corn", "Corn"],
+			 "cucumber" => ["farming:cucumber", "Cucumber"],
+			 "grapes" => ["farming:grapes", "Grapes"],			 
+			},			  
+	    );
+
+sub print_legend {
+  my $cat = shift;
+  print "graph_category minetest\n";
+  foreach (keys %{$items{$cat}}) {
+    print "$_.label $items{$cat}{$_}[1]\n";    
+  }
+  print "\n";
+}
+
+if ($_ = shift @ARGV and $_ eq "config") {
+#  print "config\n";
+  ## initialize the graph
+  my $k;
+  foreach $k(keys %items) {
+    print "multigraph $k"."_supply\n";
+    print "graph_title $k being sold\n";
+    print "graph_vlabel Number of items for sale\n";
+    print_legend $k;
+    print "multigraph $k"."_price\n";
+    print "graph_title $k Prices\n";
+    print "graph_vlabel Price in Minegeld\n";
+    print_legend $k;
+    print "multigraph $k"."_shops\n";
+    print "graph_title Number of shops selling $k\n";
+    print "graph_vlabel Number of shops selling this item\n";
+    print_legend $k;
+  }
+  exit 0;
+
+}
+
+
+
+my @report;
+
+#$file = "smartshop_report.txt";
+
+open my $fh, "<", $file
+  or die "could not open $file: $!";
+chomp(@report = <$fh>);
+
+close $fh;
+
+sub vals {
+  my $cat = shift;
+  my $key = shift;
+  foreach (keys %{$items{$cat}}) {
+    my @s = @{$items{$cat}{$_}};
+    print "$_.value $s[$key]\n";
+  }
+  print "\n";
+}
+
+my @price;
+foreach (keys %items) {
+  # print values for each category
+  my %cat = %{$items{$_}};  
+  foreach (keys %cat) {
+    my $ore = $cat{$_}[0];
+    @price = grep(/$ore /, @report);
+    #  @price[0] eq "" and 
+    if (scalar @price == 0) {
+      $price[0] = "invalid 0 0 0";
+    }
+    my @data = split(/ /, $price[0]);
+    shift @data;
+    my $pr = shift @data;
+    my $nu = shift @data;
+    my $f = shift @data;
+    #  print $items{$_}[0];
+    push  @{$cat{$_}}, $pr, $nu, $f;
+    #  print "$_ $items{$_}[2] $items{$_}[3]\n"
+  }
+  
+  print "multigraph $_"."_supply\n";
+  vals $_,2;
+  print "multigraph $_"."_price\n";
+  vals $_,3;
+  print "multigraph $_"."_shops\n";
+  vals $_,4;
+}
+