From a1a283e7454d00eff36a780c021f052c4a620b1d Mon Sep 17 00:00:00 2001
From: Jordi Sanfeliu <jordi@fibranet.cat>
Date: Fri, 4 Jan 2013 09:27:05 +0100
Subject: [PATCH] new 3.0 branch created

---
 Changes          |    16 +-
 lib/Monitorix.pm |   218 +
 lib/apache.pm    |   562 ++
 lib/bind.pm      |  1403 +++++
 lib/disk.pm      |   598 ++
 lib/fail2ban.pm  |   436 ++
 lib/fs.pm        |  1012 ++++
 lib/hptemp.pm    |   604 ++
 lib/icecast.pm   |   566 ++
 lib/int.pm       |  1165 ++++
 lib/kern.pm      |   892 +++
 lib/lighttpd.pm  |   575 ++
 lib/lmsens.pm    |  1040 ++++
 lib/mail.pm      |  1139 ++++
 lib/mysql.pm     |  1187 ++++
 lib/net.pm       |   648 +++
 lib/nfsc.pm      |   879 +++
 lib/nfss.pm      |  1251 ++++
 lib/nginx.pm     |   626 ++
 lib/ntp.pm       |   601 ++
 lib/nvidia.pm    |   626 ++
 lib/port.pm      |   497 ++
 lib/proc.pm      |   658 +++
 lib/serv.pm      |   976 ++++
 lib/squid.pm     |  1463 +++++
 lib/system.pm    |   744 +++
 lib/user.pm      |   460 ++
 monitorix        |  6843 +---------------------
 monitorix.cgi    | 13877 +--------------------------------------------
 monitorix.conf   |  1359 ++---
 30 files changed, 21749 insertions(+), 21172 deletions(-)
 create mode 100644 lib/Monitorix.pm
 create mode 100644 lib/apache.pm
 create mode 100644 lib/bind.pm
 create mode 100644 lib/disk.pm
 create mode 100644 lib/fail2ban.pm
 create mode 100644 lib/fs.pm
 create mode 100644 lib/hptemp.pm
 create mode 100644 lib/icecast.pm
 create mode 100644 lib/int.pm
 create mode 100644 lib/kern.pm
 create mode 100644 lib/lighttpd.pm
 create mode 100644 lib/lmsens.pm
 create mode 100644 lib/mail.pm
 create mode 100644 lib/mysql.pm
 create mode 100644 lib/net.pm
 create mode 100644 lib/nfsc.pm
 create mode 100644 lib/nfss.pm
 create mode 100644 lib/nginx.pm
 create mode 100644 lib/ntp.pm
 create mode 100644 lib/nvidia.pm
 create mode 100644 lib/port.pm
 create mode 100644 lib/proc.pm
 create mode 100644 lib/serv.pm
 create mode 100644 lib/squid.pm
 create mode 100644 lib/system.pm
 create mode 100644 lib/user.pm

diff --git a/Changes b/Changes
index 6802192..cd5262a 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
-N.N.N  - NN-XXX-NNNN
+3.0.0  - NN-XXX-2013
 ====================
+- Complete rewrite.
 - Introduced some modifications to the device name detection for FreeBSD.
 	(thanks to Chris Rees, utisoft AT gmail.com)
 - Improved support of Linux NFSv4 spliting the operation names in two different
@@ -10,6 +11,19 @@ N.N.N  - NN-XXX-NNNN
   pause().
 - Fixed a bug in multihost introduced by the groups code.
 
+- Added a new option in 'port' to define the number of graphs per row.
+- Fixed a missing description in the first entry of each network interface in
+  the options list.
+- Fixed a missing argument on each *_init() function preventing show an "Ok"
+  message when debugging is enabled.
+- Fixed some bugs in Groups.
+- Fixed a typo in the percentage variable in FS alert.
+- Fixed variables naming in 'mail' graph when using Postfix MTA that prevented
+  to see the values bounced, discarded and forwarded.
+- Fixed a number of small bugs.
+- Fixed a bad naming of the bitrate variables when creating the Bitrate graph
+  of the Icecast Streaming Media Server.
+
 
 2.6.0  - 19-Sep-2012
 ====================
diff --git a/lib/Monitorix.pm b/lib/Monitorix.pm
new file mode 100644
index 0000000..002003f
--- /dev/null
+++ b/lib/Monitorix.pm
@@ -0,0 +1,218 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package Monitorix;
+
+use strict;
+use warnings;
+use Exporter 'import';
+our @EXPORT = qw(logger trim get_nvidia_data flush_accounting_rules);
+
+sub logger {
+	my ($msg) = @_;
+
+	$msg = localtime() . " - " . $msg;
+	print("$msg\n");
+}
+
+sub trim {
+	my $str = shift;
+
+	if($str) {
+		$str =~ s/^\s+//;
+		$str =~ s/\s+$//;
+		return $str;
+	}
+}
+
+sub get_nvidia_data {
+	my ($gpu) = @_;
+	my $total = 0;
+	my $used = 0;
+	my $mem = 0;
+	my $cpu = 0;
+	my $temp = 0;
+	my $check_mem = 0;
+	my $check_cpu = 0;
+	my $check_temp = 0;
+	my $l;
+
+	open(IN, "nvidia-smi -q -i $gpu -d MEMORY,UTILIZATION,TEMPERATURE |");
+	my @data = <IN>;
+	close(IN);
+	for($l = 0; $l < scalar(@data); $l++) {
+		if($data[$l] =~ /Memory Usage/) {
+			$check_mem = 1;
+			next;
+		}
+		if($check_mem) {	
+			if($data[$l] =~ /Total/) {
+				my (undef, $tmp) = split(':', $data[$l]);
+				if($tmp eq "\n") {
+					$l++;
+					$tmp = $data[$l];
+				}
+				my ($value, undef) = split(' ', $tmp);
+				$value =~ s/[-]/./;
+				$value =~ s/[^0-9.]//g;
+				if(int($value) > 0) {
+					$total = int($value);
+				}
+			}
+			if($data[$l] =~ /Used/) {
+				my (undef, $tmp) = split(':', $data[$l]);
+				if($tmp eq "\n") {
+					$l++;
+					$tmp = $data[$l];
+				}
+				my ($value, undef) = split(' ', $tmp);
+				$value =~ s/[-]/./;
+				$value =~ s/[^0-9.]//g;
+				if(int($value) > 0) {
+					$used = int($value);
+				}
+				$check_mem = 0;
+			}
+		}
+
+		if($data[$l] =~ /Utilization/) {
+			$check_cpu = 1;
+			next;
+		}
+		if($check_cpu) {	
+			if($data[$l] =~ /Gpu/) {
+				my (undef, $tmp) = split(':', $data[$l]);
+				if($tmp eq "\n") {
+					$l++;
+					$tmp = $data[$l];
+				}
+				my ($value, undef) = split(' ', $tmp);
+				$value =~ s/[-]/./;
+				$value =~ s/[^0-9.]//g;
+				if(int($value) > 0) {
+					$cpu = int($value);
+				}
+			}
+			if($data[$l] =~ /Memory/) {
+				my (undef, $tmp) = split(':', $data[$l]);
+				if($tmp eq "\n") {
+					$l++;
+					$tmp = $data[$l];
+				}
+				my ($value, undef) = split(' ', $tmp);
+				$value =~ s/[-]/./;
+				$value =~ s/[^0-9.]//g;
+				if(int($value) > 0) {
+					$mem = int($value);
+				}
+			}
+			$check_cpu = 0;
+		}
+
+		if($data[$l] =~ /Temperature/) {
+			$check_temp = 1;
+			next;
+		}
+		if($check_temp) {	
+			if($data[$l] =~ /Gpu/) {
+				my (undef, $tmp) = split(':', $data[$l]);
+				if($tmp eq "\n") {
+					$l++;
+					$tmp = $data[$l];
+				}
+				my ($value, undef) = split(' ', $tmp);
+				$value =~ s/[-]/./;
+				$value =~ s/[^0-9.]//g;
+				if(int($value) > 0) {
+					$temp = int($value);
+				}
+			}
+			$check_temp = 0;
+		}
+	}
+
+	# NVIDIA driver v285.+ not supported (needs new output parsing).
+	# This is to avoid a divide by zero message.
+	if($total) {
+		$mem = ($used * 100) / $total;
+	} else {
+		$mem = $used = $total = 0;
+	}
+	return join(" ", $mem, $cpu, $temp);
+}
+
+# flushes out all Monitorix iptables/ipfw rules
+sub flush_accounting_rules {
+	my ($config, $debug) = @_;
+
+	if($config->{os} eq "Linux") {
+		my $num = 0;
+
+		logger("Flushing out iptables rules.") if $debug;
+		if(open(IN, "iptables -nxvL INPUT --line-numbers |")) {
+			my @rules;
+			my @names;
+			while(<IN>) {
+				my ($rule, undef, undef, $name) = split(' ', $_);
+				if($name =~ /monitorix_IN/ || /monitorix_nginx_IN/) {
+					push(@rules, $rule);
+					push(@names, $name);
+				}
+			}
+			close(IN);
+			@rules = reverse(@rules);
+			foreach(@rules) {
+				system("iptables -D INPUT $_");
+				$num++;
+			}
+			foreach(@names) {
+				system("iptables -X $_");
+			}
+		}
+		if(open(IN, "iptables -nxvL OUTPUT --line-numbers |")) {
+			my @rules;
+			my @names;
+			while(<IN>) {
+				my ($rule, undef, undef, $name) = split(' ', $_);
+				if($name =~ /monitorix_OUT/ || /monitorix_nginx_OUT/) {
+					push(@rules, $rule);
+					push(@names, $name);
+				}
+			}
+			close(IN);
+			@rules = reverse(@rules);
+			foreach(@rules) {
+				system("iptables -D OUTPUT $_");
+				$num++;
+			}
+			foreach(@names) {
+				system("iptables -X $_");
+			}
+		}
+		logger("$num iptables rules have been flushed.") if $debug;
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		logger("Flushing out ipfw rules.") if $debug;
+		system("ipfw delete $config->{port}->{rule} 2>/dev/null");
+		system("ipfw delete $config->{nginx}->{rule} 2>/dev/null");
+	}
+}
+
+1;
diff --git a/lib/apache.pm b/lib/apache.pm
new file mode 100644
index 0000000..8dfbb1c
--- /dev/null
+++ b/lib/apache.pm
@@ -0,0 +1,562 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package apache;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use LWP::UserAgent;
+use Exporter 'import';
+our @EXPORT = qw(apache_init apache_update apache_cgi);
+
+sub apache_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $apache = $config->{apache};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(!scalar(my @al = split(',', $apache->{list}))) {
+		logger("$myself: ERROR: missing or not defined 'list' option.");
+		return 0;
+	}
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 5 != scalar(my @al = split(',', $apache->{list}))) {
+			logger("Detected size mismatch between 'list' option (" . scalar(my @al = split(',', $apache->{list})) . ") and $rrd (" . scalar(@ds) / 5 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @al = split(',', $apache->{list})); $n++) {
+			push(@tmp, "DS:apache" . $n . "_acc:GAUGE:120:0:U");
+			push(@tmp, "DS:apache" . $n . "_kb:GAUGE:120:0:U");
+			push(@tmp, "DS:apache" . $n . "_cpu:GAUGE:120:0:U");
+			push(@tmp, "DS:apache" . $n . "_busy:GAUGE:120:0:U");
+			push(@tmp, "DS:apache" . $n . "_idle:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{apache_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub apache_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $apache = $config->{apache};
+
+	my $str;
+	my $rrdata = "N";
+
+	my $n = 0;
+	foreach(my @al = split(',', $apache->{list})) {
+		my $url = trim($_) . "/server-status?auto";
+		my $ua = LWP::UserAgent->new(timeout => 30);
+		my $response = $ua->request(HTTP::Request->new('GET', $url));
+
+		my $acc = 0;
+		my $kb = 0;
+		my $cpu = 0;
+		my $busy = 0;
+		my $idle = 0;
+
+		foreach(split('\n', $response->content)) {
+			if(/^Total Accesses:\s+(\d+)$/) {
+				$str = $n . "acc";
+				$acc = $1 - ($config->{apache_hist}->{$str} || 0);
+				$acc = 0 unless $acc != $1;
+				$acc /= 60;
+				$config->{apache_hist}->{$str} = $1;
+				next;
+			}
+			if(/^Total kBytes:\s+(\d+)$/) {
+				$str = $n . "kb";
+				$kb = $1 - ($config->{apache_hist}->{$str} || 0);
+				$kb = 0 unless $kb != $1;
+				$config->{apache_hist}->{$str} = $1;
+				next;
+			}
+			if(/^CPULoad:\s+(\d*\.\d+)$/) {
+				$cpu = abs($1) || 0;
+				next;
+			}
+			if(/^BusyWorkers:\s+(\d+)/ || /^BusyServers:\s+(\d+)/) {
+				$busy = int($1) || 0;
+				next;
+			}
+			if(/^IdleWorkers:\s+(\d+)/ || /^IdleServers:\s+(\d+)/) {
+				$idle = int($1) || 0;
+				last;
+			}
+		}
+		$rrdata .= ":$acc:$kb:$cpu:$busy:$idle";
+		$n++;
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub apache_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $apache = $config->{apache};
+	my @rigid = split(',', $apache->{rigid});
+	my @limit = split(',', $apache->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $e;
+	my $e2;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @al = split(',', $apache->{list})); $n++) {
+			$line1 = "                                          ";
+			$line2 .= "   Acceses     kbytes      CPU  Busy  Idle";
+			$line3 .= "------------------------------------------";
+			if($line1) {
+				my $i = length($line1);
+				printf(sprintf("%${i}s", sprintf("%s", trim($al[$n]))));
+			}
+		}
+		print("\n");
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @al = split(',', $apache->{list})); $n2++) {
+				undef(@row);
+				$from = $n2 * 5;
+				$to = $from + 5;
+				push(@row, @$line[$from..$to]);
+				printf("   %7d  %9d    %4.2f%%   %3d   %3d", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @al = split(',', $apache->{list})); $n++) {
+		for($n2 = 1; $n2 <= 3; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach my $url (my @al = split(',', $apache->{list})) {
+		if($e) {
+			print("  <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:apache" . $e . "_idle#4444EE:Idle");
+		push(@tmp, "GPRINT:apache" . $e . "_idle:LAST:            Current\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_idle:AVERAGE:   Average\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_idle:MIN:   Min\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_idle:MAX:   Max\\: %3.0lf\\n");
+		push(@tmp, "AREA:apache" . $e . "_busy#44EEEE:Busy");
+		push(@tmp, "GPRINT:apache" . $e . "_busy:LAST:            Current\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_busy:AVERAGE:   Average\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_busy:MIN:   Min\\: %3.0lf");
+		push(@tmp, "GPRINT:apache" . $e . "_busy:MAX:   Max\\: %3.0lf\\n");
+		push(@tmp, "LINE1:apache" . $e . "_idle#0000EE");
+		push(@tmp, "LINE1:apache" . $e . "_busy#00EEEE");
+		push(@tmp, "LINE1:apache" . $e . "_tot#EE0000");
+		push(@tmpz, "AREA:apache" . $e . "_idle#4444EE:Idle");
+		push(@tmpz, "AREA:apache" . $e . "_busy#44EEEE:Busy");
+		push(@tmpz, "LINE2:apache" . $e . "_idle#0000EE");
+		push(@tmpz, "LINE2:apache" . $e . "_busy#00EEEE");
+		push(@tmpz, "LINE2:apache" . $e . "_tot#EE0000");
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
+			"--title=$config->{graphs}->{_apache1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Workers",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:apache" . $e . "_busy=$rrd:apache" . $e . "_busy:AVERAGE",
+			"DEF:apache" . $e . "_idle=$rrd:apache" . $e . "_idle:AVERAGE",
+			"CDEF:apache" . $e . "_tot=apache" . $e . "_busy,apache" . $e . "_idle,+",
+			"COMMENT: \\n",
+			@tmp,
+			"COMMENT: \\n",
+			"COMMENT: \\n");
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
+				"--title=$config->{graphs}->{_apache1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Workers",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:apache" . $e . "_busy=$rrd:apache" . $e . "_busy:AVERAGE",
+				"DEF:apache" . $e . "_idle=$rrd:apache" . $e . "_idle:AVERAGE",
+				"CDEF:apache" . $e . "_tot=apache" . $e . "_busy,apache" . $e . "_idle,+",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:apache" . $e . "_cpu#44AAEE:CPU");
+		push(@tmp, "GPRINT:apache" . $e . "_cpu:LAST:                  Current\\: %5.2lf%%\\n");
+		push(@tmp, "LINE1:apache" . $e . "_cpu#00EEEE");
+		push(@tmpz, "AREA:apache" . $e . "_cpu#44AAEE:CPU");
+		push(@tmpz, "LINE1:apache" . $e . "_cpu#00EEEE");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
+			"--title=$config->{graphs}->{_apache2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent (%)",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:apache" . $e . "_cpu=$rrd:apache" . $e . "_cpu:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
+				"--title=$config->{graphs}->{_apache2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Percent",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:apache" . $e . "_cpu=$rrd:apache" . $e . "_cpu:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:apache" . $e . "_acc#44EE44:Accesses");
+		push(@tmp, "GPRINT:apache" . $e . "_acc:LAST:             Current\\: %5.2lf\\n");
+		push(@tmp, "LINE1:apache" . $e . "_acc#00EE00");
+		push(@tmpz, "AREA:apache" . $e . "_acc#44EE44:Accesses");
+		push(@tmpz, "LINE1:apache" . $e . "_acc#00EE00");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
+			"--title=$config->{graphs}->{_apache3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Accesses/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:apache" . $e . "_acc=$rrd:apache" . $e . "_acc:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
+				"--title=$config->{graphs}->{_apache3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Accesses/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:apache" . $e . "_acc=$rrd:apache" . $e . "_acc:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b style='{color: " . $colors->{title_fg_color} . "}'>&nbsp;&nbsp;$url<b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/bind.pm b/lib/bind.pm
new file mode 100644
index 0000000..905337f
--- /dev/null
+++ b/lib/bind.pm
@@ -0,0 +1,1403 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package bind;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use LWP::UserAgent;
+use XML::Simple;
+use Exporter 'import';
+our @EXPORT = qw(bind_init bind_update bind_cgi);
+
+sub bind_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $bind = $config->{bind};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 135 != scalar(my @bl = split(',', $bind->{list}))) {
+			logger("Detected size mismatch between 'list' (" . scalar(my @bl = split(',', $bind->{list})) . ") and $rrd (" . scalar(@ds) / 135 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @bl = split(',', $bind->{list})); $n++) {
+			push(@tmp, "DS:bind" . $n . "_totalinq:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq01:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq02:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq03:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq04:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq05:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_inq06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_inq20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq01:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_ouq02:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_ouq03:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_ouq04:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_ouq05:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_ouq06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ouq20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss01:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss02:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss03:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss04:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss05:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_ss20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs01:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs02:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs03:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs04:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs05:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_rs20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr01:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_crr02:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_crr03:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_crr04:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_crr05:GAUGE:120:U:U");
+			push(@tmp, "DS:bind" . $n . "_crr06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_crr20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio01:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio02:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio03:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio04:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio05:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio06:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio07:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio08:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio09:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio10:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio11:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio12:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio13:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio14:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio15:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio16:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio17:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio18:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio19:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_sio20:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_totaluse:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_inuse:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_blksize:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_ctxtsize:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_lost:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_val01:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_val02:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_mem_val03:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_workthrds:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_defquantm:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_tasksrun:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_val01:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_val02:GAUGE:120:0:U");
+			push(@tmp, "DS:bind" . $n . "_tsk_val03:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{bind_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub bind_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $bind = $config->{bind};
+
+	my $totalinq;
+	my %inq = ();
+	my %ouq = ();
+	my %ss = ();
+	my %rs = ();
+	my %crr = ();
+	my %sio = ();
+	my $str;
+	my $n;
+	my $n2;
+	my $rrdata = "N";
+
+	for($n = 0; $n < scalar(my @bl = split(',', $bind->{list})); $n++) {
+		my $l = trim($bl[$n]);
+		my $ua = LWP::UserAgent->new(timeout => 30);
+		my $response = $ua->request(HTTP::Request->new('GET', $l));
+		my $data = XMLin($response->content);
+		my $value;
+
+		$value = $data->{bind}->{statistics}->{server}->{requests}->{opcode}->{counter};
+		$str = $n . "totalinq";
+		$totalinq = $value - ($config->{bind_hist}->{$str} || 0);
+		$totalinq = 0 unless $totalinq != $value;
+		$totalinq /= 60;
+		$config->{bind_hist}->{$str} = $value;
+
+		$value = $data->{bind}->{statistics}->{server}->{'queries-in'}->{rdtype};
+		foreach(keys %{$value}) {
+			$str = $n . "inq_$_";
+			$inq{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
+			$inq{$str} = 0 unless $inq{$str} != $value->{$_}->{counter};
+			$inq{$str} /= 60;
+			$config->{bind_hist}->{$str} = $value->{$_}->{counter};
+		}
+
+		my $views_default = $data->{bind}->{statistics}->{views}->{view}->{_default};
+		$value = $views_default->{rdtype};
+		foreach(keys %{$value}) {
+			$str = $n . "ouq_$_";
+			$ouq{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
+			$ouq{$str} = 0 unless $ouq{$str} != $value->{$_}->{counter};
+			$ouq{$str} /= 60;
+			$config->{bind_hist}->{$str} = $value->{$_}->{counter};
+		}
+
+		$value = $data->{bind}->{statistics}->{server}->{nsstat};
+		foreach(keys %{$value}) {
+			$str = $n . "ss_$_";
+			$ss{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
+			$ss{$str} = 0 unless $ss{$str} != $value->{$_}->{counter};
+			$ss{$str} /= 60;
+			$config->{bind_hist}->{$str} = $value->{$_}->{counter};
+		}
+
+		$value = $views_default->{resstat};
+		foreach(keys %{$value}) {
+			$str = $n . "rs_$_";
+			$rs{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
+			$rs{$str} = 0 unless $rs{$str} != $value->{$_}->{counter};
+			$rs{$str} /= 60;
+			$config->{bind_hist}->{$str} = $value->{$_}->{counter};
+		}
+
+		$value = $views_default->{cache}->{rrset};
+		foreach(keys %{$value}) {
+			$str = $n . "crr_$_";
+			$crr{$str} = $value->{$_}->{counter};
+		}
+
+#		Socket I/O Statistics
+#		$value = $data->{bind}->{statistics}->{server}->{sockstat};
+#		foreach(keys %{$value}) {
+#			$str = $n . "sio_$_";
+#			$sio{$str} = $value->{$_}->{counter} - ($config->{bind_hist}->{$str} || 0);
+#			$sio{$str} = 0 unless $sio{$str} != $value->{$_}->{counter};
+#			$sio{$str} /= 60;
+#			$config->{bind_hist}->{$str} = $value->{$_}->{counter};
+#		}
+
+		$rrdata .= ":$totalinq";
+		my @i;
+		@i = split(',', $bind->{in_queries_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = trim($i[$n2]);
+			$str = $n . "inq_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($inq{$str}) ? $inq{$str} : 0;
+		}
+		@i = split(',', $bind->{out_queries_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = trim($i[$n2]);
+			$str = $n . "ouq_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($ouq{$str}) ? $ouq{$str} : 0;
+		}
+		@i = split(',', $bind->{server_stats_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = trim($i[$n2]);
+			$str = $n . "ss_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($ss{$str}) ? $ss{$str} : 0;
+		}
+		@i = split(',', $bind->{resolver_stats_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = trim($i[$n2]);
+			$str = $n . "rs_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($rs{$str}) ? $rs{$str} : 0;
+		}
+		@i = split(',', $bind->{cache_rrsets_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = trim($i[$n2]);
+			$str = $n . "crr_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($crr{$str}) ? $crr{$str} : 0;
+		}
+#		@i = split(',', $bind->{sio_stats_list}->{$l});
+		for($n2 = 0; $n2 < 20; $n2++) {
+			my $j = "";	#trim($i[$n2]);
+			$str = $n . "sio_$j";
+			$rrdata .= ":";
+			$rrdata .= defined($sio{$str}) ? $sio{$str} : 0;
+		}
+		$value = $data->{bind}->{statistics}->{memory};
+		$rrdata .= ":" . $value->{summary}->{TotalUse};
+		$rrdata .= ":" . $value->{summary}->{InUse};
+		$rrdata .= ":" . $value->{summary}->{BlockSize};
+		$rrdata .= ":" . $value->{summary}->{ContextSize};
+		$rrdata .= ":" . $value->{summary}->{Lost};
+		$rrdata .= ":0:0:0";
+		$value = $data->{bind}->{statistics}->{taskmgr};
+		$rrdata .= ":" . $value->{'thread-model'}->{'worker-threads'};
+		$rrdata .= ":" . $value->{'thread-model'}->{'default-quantum'};
+		$rrdata .= ":" . $value->{'thread-model'}->{'tasks-running'};
+		$rrdata .= ":0:0:0";
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub bind_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $bind = $config->{bind};
+	my @rigid = split(',', $bind->{rigid});
+	my @limit = split(',', $bind->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $e;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#4444EE",
+		"#EEEE44",
+		"#44EEEE",
+		"#EE44EE",
+		"#888888",
+		"#5F04B4",
+		"#44EE44",
+		"#448844",
+		"#EE4444",
+		"#444444",
+		"#E29136",
+		"#CCCCCC",
+		"#AEB404",
+		"#8A2908",
+		"#8C7000",
+		"#DDAE8C",
+		"#037C8C",
+		"#48D4D4",
+		"#9048D4",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line0;
+		my $line1;
+		my $line2;
+		my $line3;
+		my $n2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		$line0 = "                                                                                                                                                $config->{graphs}->{_bind1}                                                                                                                                     $config->{graphs}->{_bind2}                                                                                                                                                                                                                                                                                                          $config->{graphs}->{_bind3}                                                                                                                                                                                                                                                                                                  $config->{graphs}->{_bind4}                                                                                                                                      $config->{graphs}->{_bind5}                                           $config->{graphs}->{_bind6}                     $config->{graphs}->{_bind7}";
+		for($n = 0; $n < scalar(my @bl = split(',', $bind->{list})); $n++) {
+			my $l = trim($bl[$n]);
+			$line1 .= $line0;
+			$line3 .= "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------";
+			$n2 = 0;
+			foreach (split(',', $bind->{in_queries_list}->{$l})) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+				$n2++;
+			}
+			for(; $n2 < 20; $n2++) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+			}
+
+			$n2 = 0;
+			foreach (split(',', $bind->{out_queries_list}->{$l})) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+				$n2++;
+			}
+			for(; $n2 < 20; $n2++) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+			}
+
+			$n2 = 0;
+			foreach (split(',', $bind->{server_stats_list}->{$l})) {
+				$str = sprintf("%15s", substr(trim($_), 0, 15));
+				$line2 .= sprintf(" %15s", $str);
+				$n2++;
+			}
+			for(; $n2 < 20; $n2++) {
+				$str = sprintf("%15s", substr(trim($_), 0, 15));
+				$line2 .= sprintf(" %15s", $str);
+			}
+
+			$n2 = 0;
+			foreach (split(',', $bind->{resolver_stats_list}->{$l})) {
+				$str = sprintf("%15s", substr(trim($_), 0, 15));
+				$line2 .= sprintf(" %15s", $str);
+				$n2++;
+			}
+			for(; $n2 < 20; $n2++) {
+				$str = sprintf("%15s", substr(trim($_), 0, 15));
+				$line2 .= sprintf(" %15s", $str);
+			}
+
+			$n2 = 0;
+			foreach (split(',', $bind->{cache_rrsets_list}->{$l})) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+				$n2++;
+			}
+			for(; $n2 < 20; $n2++) {
+				$str = sprintf("%7s", substr(trim($_), 0, 7));
+				$line2 .= sprintf(" %7s", $str);
+			}
+
+			foreach ("TotalUse", "InUse", "BlockSize", "ContxtSize", "Lost") {
+				$str = sprintf("%10s", substr($_, 0, 10));
+				$line2 .= sprintf(" %10s", $str);
+			}
+
+			foreach ("WorkerThds", "DefQuantum", "TasksRunng") {
+				$str = sprintf("%10s", substr($_, 0, 10));
+				$line2 .= sprintf(" %10s", $str);
+			}
+
+			my $i = length($line0);
+			printf(sprintf("%${i}s", sprintf("BIND server: %s", $l)));
+		}
+		print("\n");
+		print("    $line1\n");
+		print("Time$line2 \n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			$from = 1;
+			printf(" %2d$tf->{tc} ", $time);
+			for($n2 = 0; $n2 < scalar(my @bl = split(',', $bind->{list})); $n2++) {
+				# inq
+				$from += $n2 * 95;
+				$to = $from + 20;
+				@row = @$line[$from..$to];
+				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
+				# ouq
+				$from = $to;
+				$to = $from + 20;
+				@row = @$line[$from..$to];
+				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
+				# ss
+				$from = $to;
+				$to = $from + 20;
+				@row = @$line[$from..$to];
+				printf("%15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d ", @row);
+				# rs
+				$from = $to;
+				$to = $from + 20;
+				@row = @$line[$from..$to];
+				printf("%15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d ", @row);
+				# crr
+				$from = $to;
+				$to = $from + 20;
+				@row = @$line[$from..$to];
+				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
+				# mem
+				$from = $to;
+				$to = $from + 8;
+				@row = @$line[$from..$to];
+				printf("%10d %10d %10d %10d %10d ", @row);
+				# tsk
+				$from = $to;
+				$to = $from + 6;
+				@row = @$line[$from..$to];
+				printf("%10d %10d %10d ", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @bl = split(',', $bind->{list})); $n++) {
+		my $l = trim($bl[$n]);
+		for($n2 = 1; $n2 <= 7; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach (my @bl = split(',', $bind->{list})) {
+		my $l = trim($_);
+		if($e) {
+			print("   <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		my @i;
+		@i = split(',', $bind->{in_queries_list}->{$l});
+		for($n = 0; $n < scalar(@i); $n += 2) {
+			$str = sprintf("%-8s", substr(trim($i[$n]), 0, 8));
+			push(@tmp, "LINE1:inq" . $n . $LC[$n] . ":$str");
+			push(@tmp, "GPRINT:inq" . $n . ":LAST: Current\\:%5.1lf       ");
+			push(@tmpz, "LINE2:inq" . $n . $LC[$n] . ":$str");
+			$str = sprintf("%-8s", substr(trim($i[$n + 1]), 0, 8));
+			push(@tmp, "LINE1:inq" . ($n + 1) . $LC[$n + 1] . ":$str");
+			push(@tmp, "GPRINT:inq" . ($n + 1) . ":LAST: Current\\:%5.1lf\\n");
+			push(@tmpz, "LINE2:inq" . ($n + 1) . $LC[$n + 1] . ":$str");
+		}
+		for(; $n < 20; $n += 2) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7]",
+			"--title=$config->{graphs}->{_bind1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Queries/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:inq0=$rrd:bind" . $e . "_inq01:AVERAGE",
+			"DEF:inq1=$rrd:bind" . $e . "_inq02:AVERAGE",
+			"DEF:inq2=$rrd:bind" . $e . "_inq03:AVERAGE",
+			"DEF:inq3=$rrd:bind" . $e . "_inq04:AVERAGE",
+			"DEF:inq4=$rrd:bind" . $e . "_inq05:AVERAGE",
+			"DEF:inq5=$rrd:bind" . $e . "_inq06:AVERAGE",
+			"DEF:inq6=$rrd:bind" . $e . "_inq07:AVERAGE",
+			"DEF:inq7=$rrd:bind" . $e . "_inq08:AVERAGE",
+			"DEF:inq8=$rrd:bind" . $e . "_inq09:AVERAGE",
+			"DEF:inq9=$rrd:bind" . $e . "_inq10:AVERAGE",
+			"DEF:inq10=$rrd:bind" . $e . "_inq11:AVERAGE",
+			"DEF:inq11=$rrd:bind" . $e . "_inq12:AVERAGE",
+			"DEF:inq12=$rrd:bind" . $e . "_inq13:AVERAGE",
+			"DEF:inq13=$rrd:bind" . $e . "_inq14:AVERAGE",
+			"DEF:inq14=$rrd:bind" . $e . "_inq15:AVERAGE",
+			"DEF:inq15=$rrd:bind" . $e . "_inq16:AVERAGE",
+			"DEF:inq16=$rrd:bind" . $e . "_inq17:AVERAGE",
+			"DEF:inq17=$rrd:bind" . $e . "_inq18:AVERAGE",
+			"DEF:inq18=$rrd:bind" . $e . "_inq19:AVERAGE",
+			"DEF:inq19=$rrd:bind" . $e . "_inq20:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7]",
+				"--title=$config->{graphs}->{_bind1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Queries/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:inq0=$rrd:bind" . $e . "_inq01:AVERAGE",
+				"DEF:inq1=$rrd:bind" . $e . "_inq02:AVERAGE",
+				"DEF:inq2=$rrd:bind" . $e . "_inq03:AVERAGE",
+				"DEF:inq3=$rrd:bind" . $e . "_inq04:AVERAGE",
+				"DEF:inq4=$rrd:bind" . $e . "_inq05:AVERAGE",
+				"DEF:inq5=$rrd:bind" . $e . "_inq06:AVERAGE",
+				"DEF:inq6=$rrd:bind" . $e . "_inq07:AVERAGE",
+				"DEF:inq7=$rrd:bind" . $e . "_inq08:AVERAGE",
+				"DEF:inq8=$rrd:bind" . $e . "_inq09:AVERAGE",
+				"DEF:inq9=$rrd:bind" . $e . "_inq10:AVERAGE",
+				"DEF:inq10=$rrd:bind" . $e . "_inq11:AVERAGE",
+				"DEF:inq11=$rrd:bind" . $e . "_inq12:AVERAGE",
+				"DEF:inq12=$rrd:bind" . $e . "_inq13:AVERAGE",
+				"DEF:inq13=$rrd:bind" . $e . "_inq14:AVERAGE",
+				"DEF:inq14=$rrd:bind" . $e . "_inq15:AVERAGE",
+				"DEF:inq15=$rrd:bind" . $e . "_inq16:AVERAGE",
+				"DEF:inq16=$rrd:bind" . $e . "_inq17:AVERAGE",
+				"DEF:inq17=$rrd:bind" . $e . "_inq18:AVERAGE",
+				"DEF:inq18=$rrd:bind" . $e . "_inq19:AVERAGE",
+				"DEF:inq19=$rrd:bind" . $e . "_inq20:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind1/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{URL} . $config->{imgs_dir} . $PNGz[$e * 7] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		@i = split(',', $bind->{out_queries_list}->{$l});
+		for($n = 0; $n < scalar(@i); $n += 2) {
+			$str = sprintf("%-8s", substr(trim($i[$n]), 0, 8));
+			push(@tmp, "LINE1:ouq" . $n . $LC[$n] . ":$str");
+			push(@tmp, "GPRINT:ouq" . $n . ":LAST: Current\\:%5.1lf       ");
+			push(@tmpz, "LINE2:ouq" . $n . $LC[$n] . ":$str");
+			$str = sprintf("%-8s", substr(trim($i[$n + 1]), 0, 8));
+			push(@tmp, "LINE1:ouq" . ($n + 1) . $LC[$n + 1] . ":$str");
+			push(@tmp, "GPRINT:ouq" . ($n + 1) . ":LAST: Current\\:%5.1lf\\n");
+			push(@tmpz, "LINE2:ouq" . ($n + 1) . $LC[$n + 1] . ":$str");
+		}
+		for(; $n < 20; $n += 2) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 1]",
+			"--title=$config->{graphs}->{_bind2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Queries/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ouq0=$rrd:bind" . $e . "_ouq01:AVERAGE",
+			"DEF:ouq1=$rrd:bind" . $e . "_ouq02:AVERAGE",
+			"DEF:ouq2=$rrd:bind" . $e . "_ouq03:AVERAGE",
+			"DEF:ouq3=$rrd:bind" . $e . "_ouq04:AVERAGE",
+			"DEF:ouq4=$rrd:bind" . $e . "_ouq05:AVERAGE",
+			"DEF:ouq5=$rrd:bind" . $e . "_ouq06:AVERAGE",
+			"DEF:ouq6=$rrd:bind" . $e . "_ouq07:AVERAGE",
+			"DEF:ouq7=$rrd:bind" . $e . "_ouq08:AVERAGE",
+			"DEF:ouq8=$rrd:bind" . $e . "_ouq09:AVERAGE",
+			"DEF:ouq9=$rrd:bind" . $e . "_ouq10:AVERAGE",
+			"DEF:ouq10=$rrd:bind" . $e . "_ouq11:AVERAGE",
+			"DEF:ouq11=$rrd:bind" . $e . "_ouq12:AVERAGE",
+			"DEF:ouq12=$rrd:bind" . $e . "_ouq13:AVERAGE",
+			"DEF:ouq13=$rrd:bind" . $e . "_ouq14:AVERAGE",
+			"DEF:ouq14=$rrd:bind" . $e . "_ouq15:AVERAGE",
+			"DEF:ouq15=$rrd:bind" . $e . "_ouq16:AVERAGE",
+			"DEF:ouq16=$rrd:bind" . $e . "_ouq17:AVERAGE",
+			"DEF:ouq17=$rrd:bind" . $e . "_ouq18:AVERAGE",
+			"DEF:ouq18=$rrd:bind" . $e . "_ouq19:AVERAGE",
+			"DEF:ouq19=$rrd:bind" . $e . "_ouq20:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 1]",
+				"--title=$config->{graphs}->{_bind2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Queries/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:ouq0=$rrd:bind" . $e . "_ouq01:AVERAGE",
+				"DEF:ouq1=$rrd:bind" . $e . "_ouq02:AVERAGE",
+				"DEF:ouq2=$rrd:bind" . $e . "_ouq03:AVERAGE",
+				"DEF:ouq3=$rrd:bind" . $e . "_ouq04:AVERAGE",
+				"DEF:ouq4=$rrd:bind" . $e . "_ouq05:AVERAGE",
+				"DEF:ouq5=$rrd:bind" . $e . "_ouq06:AVERAGE",
+				"DEF:ouq6=$rrd:bind" . $e . "_ouq07:AVERAGE",
+				"DEF:ouq7=$rrd:bind" . $e . "_ouq08:AVERAGE",
+				"DEF:ouq8=$rrd:bind" . $e . "_ouq09:AVERAGE",
+				"DEF:ouq9=$rrd:bind" . $e . "_ouq10:AVERAGE",
+				"DEF:ouq10=$rrd:bind" . $e . "_ouq11:AVERAGE",
+				"DEF:ouq11=$rrd:bind" . $e . "_ouq12:AVERAGE",
+				"DEF:ouq12=$rrd:bind" . $e . "_ouq13:AVERAGE",
+				"DEF:ouq13=$rrd:bind" . $e . "_ouq14:AVERAGE",
+				"DEF:ouq14=$rrd:bind" . $e . "_ouq15:AVERAGE",
+				"DEF:ouq15=$rrd:bind" . $e . "_ouq16:AVERAGE",
+				"DEF:ouq16=$rrd:bind" . $e . "_ouq17:AVERAGE",
+				"DEF:ouq17=$rrd:bind" . $e . "_ouq18:AVERAGE",
+				"DEF:ouq18=$rrd:bind" . $e . "_ouq19:AVERAGE",
+				"DEF:ouq19=$rrd:bind" . $e . "_ouq20:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 1]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 1] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		@i = split(',', $bind->{server_stats_list}->{$l});
+		for($n = 0; $n < scalar(@i); $n += 2) {
+			$str = sprintf("%-14s", substr(trim($i[$n]), 0, 14));
+			push(@tmp, "LINE1:ss" . $n . $LC[$n] . ":$str");
+			push(@tmp, "GPRINT:ss" . $n . ":LAST:Cur\\:%5.1lf     ");
+			push(@tmpz, "LINE2:ss" . $n . $LC[$n] . ":$str");
+			$str = sprintf("%-14s", substr(trim($i[$n + 1]), 0, 14));
+			push(@tmp, "LINE1:ss" . ($n + 1) . $LC[$n + 1] . ":$str");
+			push(@tmp, "GPRINT:ss" . ($n + 1) . ":LAST:Cur\\:%5.1lf\\n");
+			push(@tmpz, "LINE2:ss" . ($n + 1) . $LC[$n + 1] . ":$str");
+		}
+		for(; $n < 20; $n += 2) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 2]",
+			"--title=$config->{graphs}->{_bind3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ss0=$rrd:bind" . $e . "_ss01:AVERAGE",
+			"DEF:ss1=$rrd:bind" . $e . "_ss02:AVERAGE",
+			"DEF:ss2=$rrd:bind" . $e . "_ss03:AVERAGE",
+			"DEF:ss3=$rrd:bind" . $e . "_ss04:AVERAGE",
+			"DEF:ss4=$rrd:bind" . $e . "_ss05:AVERAGE",
+			"DEF:ss5=$rrd:bind" . $e . "_ss06:AVERAGE",
+			"DEF:ss6=$rrd:bind" . $e . "_ss07:AVERAGE",
+			"DEF:ss7=$rrd:bind" . $e . "_ss08:AVERAGE",
+			"DEF:ss8=$rrd:bind" . $e . "_ss09:AVERAGE",
+			"DEF:ss9=$rrd:bind" . $e . "_ss10:AVERAGE",
+			"DEF:ss10=$rrd:bind" . $e . "_ss11:AVERAGE",
+			"DEF:ss11=$rrd:bind" . $e . "_ss12:AVERAGE",
+			"DEF:ss12=$rrd:bind" . $e . "_ss13:AVERAGE",
+			"DEF:ss13=$rrd:bind" . $e . "_ss14:AVERAGE",
+			"DEF:ss14=$rrd:bind" . $e . "_ss15:AVERAGE",
+			"DEF:ss15=$rrd:bind" . $e . "_ss16:AVERAGE",
+			"DEF:ss16=$rrd:bind" . $e . "_ss17:AVERAGE",
+			"DEF:ss17=$rrd:bind" . $e . "_ss18:AVERAGE",
+			"DEF:ss18=$rrd:bind" . $e . "_ss19:AVERAGE",
+			"DEF:ss19=$rrd:bind" . $e . "_ss20:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 2]",
+				"--title=$config->{graphs}->{_bind3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Requests/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:ss0=$rrd:bind" . $e . "_ss01:AVERAGE",
+				"DEF:ss1=$rrd:bind" . $e . "_ss02:AVERAGE",
+				"DEF:ss2=$rrd:bind" . $e . "_ss03:AVERAGE",
+				"DEF:ss3=$rrd:bind" . $e . "_ss04:AVERAGE",
+				"DEF:ss4=$rrd:bind" . $e . "_ss05:AVERAGE",
+				"DEF:ss5=$rrd:bind" . $e . "_ss06:AVERAGE",
+				"DEF:ss6=$rrd:bind" . $e . "_ss07:AVERAGE",
+				"DEF:ss7=$rrd:bind" . $e . "_ss08:AVERAGE",
+				"DEF:ss8=$rrd:bind" . $e . "_ss09:AVERAGE",
+				"DEF:ss9=$rrd:bind" . $e . "_ss10:AVERAGE",
+				"DEF:ss10=$rrd:bind" . $e . "_ss11:AVERAGE",
+				"DEF:ss11=$rrd:bind" . $e . "_ss12:AVERAGE",
+				"DEF:ss12=$rrd:bind" . $e . "_ss13:AVERAGE",
+				"DEF:ss13=$rrd:bind" . $e . "_ss14:AVERAGE",
+				"DEF:ss14=$rrd:bind" . $e . "_ss15:AVERAGE",
+				"DEF:ss15=$rrd:bind" . $e . "_ss16:AVERAGE",
+				"DEF:ss16=$rrd:bind" . $e . "_ss17:AVERAGE",
+				"DEF:ss17=$rrd:bind" . $e . "_ss18:AVERAGE",
+				"DEF:ss18=$rrd:bind" . $e . "_ss19:AVERAGE",
+				"DEF:ss19=$rrd:bind" . $e . "_ss20:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 2]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind3/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 2] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[3]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+		} else {
+			if(trim($rigid[3]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[3]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		@i = split(',', $bind->{resolver_stats_list}->{$l});
+		for($n = 0; $n < scalar(@i); $n += 2) {
+			$str = sprintf("%-14s", substr(trim($i[$n]), 0, 14));
+			push(@tmp, "LINE1:rs" . $n . $LC[$n] . ":$str");
+			push(@tmp, "GPRINT:rs" . $n . ":LAST:Cur\\:%5.1lf     ");
+			push(@tmpz, "LINE2:rs" . $n . $LC[$n] . ":$str");
+			$str = sprintf("%-14s", substr(trim($i[$n + 1]), 0, 14));
+			push(@tmp, "LINE1:rs" . ($n + 1) . $LC[$n + 1] . ":$str");
+			push(@tmp, "GPRINT:rs" . ($n + 1) . ":LAST:Cur\\:%5.1lf\\n");
+			push(@tmpz, "LINE2:rs" . ($n + 1) . $LC[$n + 1] . ":$str");
+		}
+		for(; $n < 20; $n += 2) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 3]",
+			"--title=$config->{graphs}->{_bind4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:rs0=$rrd:bind" . $e . "_rs01:AVERAGE",
+			"DEF:rs1=$rrd:bind" . $e . "_rs02:AVERAGE",
+			"DEF:rs2=$rrd:bind" . $e . "_rs03:AVERAGE",
+			"DEF:rs3=$rrd:bind" . $e . "_rs04:AVERAGE",
+			"DEF:rs4=$rrd:bind" . $e . "_rs05:AVERAGE",
+			"DEF:rs5=$rrd:bind" . $e . "_rs06:AVERAGE",
+			"DEF:rs6=$rrd:bind" . $e . "_rs07:AVERAGE",
+			"DEF:rs7=$rrd:bind" . $e . "_rs08:AVERAGE",
+			"DEF:rs8=$rrd:bind" . $e . "_rs09:AVERAGE",
+			"DEF:rs9=$rrd:bind" . $e . "_rs10:AVERAGE",
+			"DEF:rs10=$rrd:bind" . $e . "_rs11:AVERAGE",
+			"DEF:rs11=$rrd:bind" . $e . "_rs12:AVERAGE",
+			"DEF:rs12=$rrd:bind" . $e . "_rs13:AVERAGE",
+			"DEF:rs13=$rrd:bind" . $e . "_rs14:AVERAGE",
+			"DEF:rs14=$rrd:bind" . $e . "_rs15:AVERAGE",
+			"DEF:rs15=$rrd:bind" . $e . "_rs16:AVERAGE",
+			"DEF:rs16=$rrd:bind" . $e . "_rs17:AVERAGE",
+			"DEF:rs17=$rrd:bind" . $e . "_rs18:AVERAGE",
+			"DEF:rs18=$rrd:bind" . $e . "_rs19:AVERAGE",
+			"DEF:rs19=$rrd:bind" . $e . "_rs20:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 3]",
+				"--title=$config->{graphs}->{_bind4}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Requests/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:rs0=$rrd:bind" . $e . "_rs01:AVERAGE",
+				"DEF:rs1=$rrd:bind" . $e . "_rs02:AVERAGE",
+				"DEF:rs2=$rrd:bind" . $e . "_rs03:AVERAGE",
+				"DEF:rs3=$rrd:bind" . $e . "_rs04:AVERAGE",
+				"DEF:rs4=$rrd:bind" . $e . "_rs05:AVERAGE",
+				"DEF:rs5=$rrd:bind" . $e . "_rs06:AVERAGE",
+				"DEF:rs6=$rrd:bind" . $e . "_rs07:AVERAGE",
+				"DEF:rs7=$rrd:bind" . $e . "_rs08:AVERAGE",
+				"DEF:rs8=$rrd:bind" . $e . "_rs09:AVERAGE",
+				"DEF:rs9=$rrd:bind" . $e . "_rs10:AVERAGE",
+				"DEF:rs10=$rrd:bind" . $e . "_rs11:AVERAGE",
+				"DEF:rs11=$rrd:bind" . $e . "_rs12:AVERAGE",
+				"DEF:rs12=$rrd:bind" . $e . "_rs13:AVERAGE",
+				"DEF:rs13=$rrd:bind" . $e . "_rs14:AVERAGE",
+				"DEF:rs14=$rrd:bind" . $e . "_rs15:AVERAGE",
+				"DEF:rs15=$rrd:bind" . $e . "_rs16:AVERAGE",
+				"DEF:rs16=$rrd:bind" . $e . "_rs17:AVERAGE",
+				"DEF:rs17=$rrd:bind" . $e . "_rs18:AVERAGE",
+				"DEF:rs18=$rrd:bind" . $e . "_rs19:AVERAGE",
+				"DEF:rs19=$rrd:bind" . $e . "_rs20:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 3]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind4/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 3] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[4]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+		} else {
+			if(trim($rigid[4]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[4]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		@i = split(',', $bind->{cache_rrsets_list}->{$l});
+		for($n = 0; $n < scalar(@i); $n += 2) {
+			$str = sprintf("%-8s", substr(trim($i[$n]), 0, 8));
+			push(@tmp, "LINE1:crr" . $n . $LC[$n] . ":$str");
+			push(@tmp, "GPRINT:crr" . $n . ":LAST:  Cur\\:%8.1lf       ");
+			push(@tmpz, "LINE2:crr" . $n . $LC[$n] . ":$str");
+			$str = sprintf("%-8s", substr(trim($i[$n + 1]), 0, 8));
+			push(@tmp, "LINE1:crr" . ($n + 1) . $LC[$n + 1] . ":$str");
+			push(@tmp, "GPRINT:crr" . ($n + 1) . ":LAST: Cur\\:%8.1lf\\n");
+			push(@tmpz, "LINE2:crr" . ($n + 1) . $LC[$n + 1] . ":$str");
+		}
+		for(; $n < 20; $n += 2) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 4]",
+			"--title=$config->{graphs}->{_bind5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=RRsets",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:crr0=$rrd:bind" . $e . "_crr01:AVERAGE",
+			"DEF:crr1=$rrd:bind" . $e . "_crr02:AVERAGE",
+			"DEF:crr2=$rrd:bind" . $e . "_crr03:AVERAGE",
+			"DEF:crr3=$rrd:bind" . $e . "_crr04:AVERAGE",
+			"DEF:crr4=$rrd:bind" . $e . "_crr05:AVERAGE",
+			"DEF:crr5=$rrd:bind" . $e . "_crr06:AVERAGE",
+			"DEF:crr6=$rrd:bind" . $e . "_crr07:AVERAGE",
+			"DEF:crr7=$rrd:bind" . $e . "_crr08:AVERAGE",
+			"DEF:crr8=$rrd:bind" . $e . "_crr09:AVERAGE",
+			"DEF:crr9=$rrd:bind" . $e . "_crr10:AVERAGE",
+			"DEF:crr10=$rrd:bind" . $e . "_crr11:AVERAGE",
+			"DEF:crr11=$rrd:bind" . $e . "_crr12:AVERAGE",
+			"DEF:crr12=$rrd:bind" . $e . "_crr13:AVERAGE",
+			"DEF:crr13=$rrd:bind" . $e . "_crr14:AVERAGE",
+			"DEF:crr14=$rrd:bind" . $e . "_crr15:AVERAGE",
+			"DEF:crr15=$rrd:bind" . $e . "_crr16:AVERAGE",
+			"DEF:crr16=$rrd:bind" . $e . "_crr17:AVERAGE",
+			"DEF:crr17=$rrd:bind" . $e . "_crr18:AVERAGE",
+			"DEF:crr18=$rrd:bind" . $e . "_crr19:AVERAGE",
+			"DEF:crr19=$rrd:bind" . $e . "_crr20:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 4]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 4]",
+				"--title=$config->{graphs}->{_bind5}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=RRsets",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:crr0=$rrd:bind" . $e . "_crr01:AVERAGE",
+				"DEF:crr1=$rrd:bind" . $e . "_crr02:AVERAGE",
+				"DEF:crr2=$rrd:bind" . $e . "_crr03:AVERAGE",
+				"DEF:crr3=$rrd:bind" . $e . "_crr04:AVERAGE",
+				"DEF:crr4=$rrd:bind" . $e . "_crr05:AVERAGE",
+				"DEF:crr5=$rrd:bind" . $e . "_crr06:AVERAGE",
+				"DEF:crr6=$rrd:bind" . $e . "_crr07:AVERAGE",
+				"DEF:crr7=$rrd:bind" . $e . "_crr08:AVERAGE",
+				"DEF:crr8=$rrd:bind" . $e . "_crr09:AVERAGE",
+				"DEF:crr9=$rrd:bind" . $e . "_crr10:AVERAGE",
+				"DEF:crr10=$rrd:bind" . $e . "_crr11:AVERAGE",
+				"DEF:crr11=$rrd:bind" . $e . "_crr12:AVERAGE",
+				"DEF:crr12=$rrd:bind" . $e . "_crr13:AVERAGE",
+				"DEF:crr13=$rrd:bind" . $e . "_crr14:AVERAGE",
+				"DEF:crr14=$rrd:bind" . $e . "_crr15:AVERAGE",
+				"DEF:crr15=$rrd:bind" . $e . "_crr16:AVERAGE",
+				"DEF:crr16=$rrd:bind" . $e . "_crr17:AVERAGE",
+				"DEF:crr17=$rrd:bind" . $e . "_crr18:AVERAGE",
+				"DEF:crr18=$rrd:bind" . $e . "_crr19:AVERAGE",
+				"DEF:crr19=$rrd:bind" . $e . "_crr20:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 4]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind5/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 4] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 4] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 4] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 4] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 4] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[5]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[5]));
+		} else {
+			if(trim($rigid[5]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[5]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE1:mem_tu#EEEE44:TotalUse");
+		push(@tmp, "GPRINT:mem_tu_mb" . ":LAST: Cur\\:%6.1lf MB    ");
+		push(@tmpz, "LINE2:mem_tu#EEEE44:TotalUse");
+		push(@tmp, "LINE1:mem_iu#4444EE:InUse");
+		push(@tmp, "GPRINT:mem_iu_mb" . ":LAST:      Cur\\:%5.1lf MB\\n");
+		push(@tmpz, "LINE2:mem_iu#4444EE:InUse");
+		push(@tmp, "LINE1:mem_bs#44EEEE:BlockSize");
+		push(@tmp, "GPRINT:mem_bs_mb" . ":LAST:Cur\\:%6.1lf MB    ");
+		push(@tmpz, "LINE2:mem_bs#44EEEE:BlockSize");
+		push(@tmp, "LINE1:mem_cs#EE44EE:ContextSize");
+		push(@tmp, "GPRINT:mem_cs_mb" . ":LAST:Cur\\:%5.1lf MB\\n");
+		push(@tmpz, "LINE2:mem_cs#EE44EE:ContextSize");
+		push(@tmp, "LINE1:mem_l#EE4444:Lost");
+		push(@tmp, "GPRINT:mem_l_mb" . ":LAST:     Cur\\:%6.1lf MB\\n");
+		push(@tmpz, "LINE2:mem_l#EE4444:Lost");
+		if($title) {
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium2});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 5]",
+			"--title=$config->{graphs}->{_bind6}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=bytes",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:mem_tu=$rrd:bind" . $e . "_mem_totaluse:AVERAGE",
+			"DEF:mem_iu=$rrd:bind" . $e . "_mem_inuse:AVERAGE",
+			"DEF:mem_bs=$rrd:bind" . $e . "_mem_blksize:AVERAGE",
+			"DEF:mem_cs=$rrd:bind" . $e . "_mem_ctxtsize:AVERAGE",
+			"DEF:mem_l=$rrd:bind" . $e . "_mem_lost:AVERAGE",
+			"CDEF:mem_tu_mb=mem_tu,1024,/,1024,/",
+			"CDEF:mem_iu_mb=mem_iu,1024,/,1024,/",
+			"CDEF:mem_bs_mb=mem_bs,1024,/,1024,/",
+			"CDEF:mem_cs_mb=mem_cs,1024,/,1024,/",
+			"CDEF:mem_l_mb=mem_l,1024,/,1024,/",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 5]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 5]",
+				"--title=$config->{graphs}->{_bind6}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=bytes",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:mem_tu=$rrd:bind" . $e . "_mem_totaluse:AVERAGE",
+				"DEF:mem_iu=$rrd:bind" . $e . "_mem_inuse:AVERAGE",
+				"DEF:mem_bs=$rrd:bind" . $e . "_mem_blksize:AVERAGE",
+				"DEF:mem_cs=$rrd:bind" . $e . "_mem_ctxtsize:AVERAGE",
+				"DEF:mem_l=$rrd:bind" . $e . "_mem_lost:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 5]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind6/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 5] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 5] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 5] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 5] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 5] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[6]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[6]));
+		} else {
+			if(trim($rigid[6]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[6]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE1:tsk_dq#EEEE44:Default Quantum");
+		push(@tmp, "GPRINT:tsk_dq" . ":LAST:        Current\\:%4.0lf\\n");
+		push(@tmpz, "LINE2:tsk_dq#EEEE44:Default Quantum");
+		push(@tmp, "LINE1:tsk_wt#4444EE:Worker Threads");
+		push(@tmp, "GPRINT:tsk_wt" . ":LAST:         Current\\:%4.0lf\\n");
+		push(@tmpz, "LINE2:tsk_wt#4444EE:Worker Threads");
+		push(@tmp, "LINE1:tsk_tr#44EEEE:Tasks Running");
+		push(@tmp, "GPRINT:tsk_tr" . ":LAST:          Current\\:%4.0lf\\n");
+		push(@tmpz, "LINE2:tsk_tr#44EEEE:Tasks Running");
+		($width, $height) = split('x', $config->{graph_size}->{medium2});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 6]",
+			"--title=$config->{graphs}->{_bind7}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Tasks",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:tsk_wt=$rrd:bind" . $e . "_tsk_workthrds:AVERAGE",
+			"DEF:tsk_dq=$rrd:bind" . $e . "_tsk_defquantm:AVERAGE",
+			"DEF:tsk_tr=$rrd:bind" . $e . "_tsk_tasksrun:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 6]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 6]",
+				"--title=$config->{graphs}->{_bind7}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Tasks",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:tsk_wt=$rrd:bind" . $e . "_tsk_workthrds:AVERAGE",
+				"DEF:tsk_dq=$rrd:bind" . $e . "_tsk_defquantm:AVERAGE",
+				"DEF:tsk_tr=$rrd:bind" . $e . "_tsk_tasksrun:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 6]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /bind7/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 6] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 6] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 7 + 6] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 6] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 7 + 6] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b>&nbsp;&nbsp;<a href='" . $l . "' style='{color: $colors->{title_fg_color}}'>$l</a><b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/disk.pm b/lib/disk.pm
new file mode 100644
index 0000000..dac137f
--- /dev/null
+++ b/lib/disk.pm
@@ -0,0 +1,598 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package disk;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(disk_init disk_update disk_cgi);
+
+sub disk_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $disk = $config->{disk};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 24 != keys(%{$disk->{list}})) {
+			logger("Detected size mismatch between <list>...</list> (" . keys(%{$disk->{list}}) . ") and $rrd (" . scalar(@ds) / 24 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < keys(%{$disk->{list}}); $n++) {
+			push(@tmp, "DS:disk" . $n . "_hd0_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd0_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd0_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd1_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd1_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd1_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd2_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd2_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd2_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd3_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd3_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd3_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd4_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd4_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd4_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd5_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd5_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd5_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd6_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd6_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd6_smart2:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd7_temp:GAUGE:120:0:100");
+			push(@tmp, "DS:disk" . $n . "_hd7_smart1:GAUGE:120:0:U");
+			push(@tmp, "DS:disk" . $n . "_hd7_smart2:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub disk_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $disk = $config->{disk};
+
+	my $temp;
+	my $smart1;
+	my $smart2;
+
+	my $n;
+	my $rrdata = "N";
+
+	foreach my $k (sort keys %{$disk->{list}}) {
+		my @dsk = split(',', $disk->{list}->{$k});
+		for($n = 0; $n < 8; $n++) {
+			$temp = 0;
+			$smart1 = 0;
+			$smart2 = 0;
+			if($dsk[$n]) {
+				my $d = trim($dsk[$n]);
+	  			open(IN, "smartctl -A $d |");
+				while(<IN>) {
+					if(/^  5/ && /Reallocated_Sector_Ct/) {
+						my @tmp = split(' ', $_);
+						$smart1 = $tmp[9];
+						chomp($smart1);
+					}
+					if(/^194/ && /Temperature_Celsius/) {
+						my @tmp = split(' ', $_);
+						$temp = $tmp[9];
+						chomp($temp);
+					}
+					if(/^197/ && /Current_Pending_Sector/) {
+						my @tmp = split(' ', $_);
+						$smart2 = $tmp[9];
+						chomp($smart2);
+					}
+					if(/^Current Drive Temperature: /) {
+						my @tmp = split(' ', $_);
+						$temp = $tmp[3] unless $temp;
+						chomp($temp);
+					}
+				}
+				close(IN);
+				$temp = `hddtemp -wqn $d` unless $temp;
+				chomp($temp);
+			}
+			$rrdata .= ":$temp";
+			$rrdata .= ":$smart1";
+			$rrdata .= ":$smart2";
+		}
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub disk_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $disk = $config->{disk};
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $n2;
+	my $e;
+	my $e2;
+	my $str;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		foreach my $k (sort keys %{$disk->{list}}) {
+			my @d = split(',', $disk->{list}->{$k});
+			for($n = 0; $n < scalar(@d); $n++) {
+				$str = sprintf(" DISK %d               ", $n + 1);
+				$line1 .= $str;
+				$str = sprintf(" Temp Realloc Pending ");
+				$line2 .= $str;
+				$line3 .=      "----------------------";
+			}
+		}
+		print("     $line1\n");
+		print("Time $line2\n");
+		print("-----$line3\n");
+		my $line;
+		my @row;
+		my $time;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			$e = 0;
+			foreach my $k (sort keys %{$disk->{list}}) {
+				my @d = split(',', $disk->{list}->{$k});
+				for($n2 = 0; $n2 < scalar(@d); $n2++) {
+					$from = ($e * 8 * 3) + ($n2 * 3);
+					$to = $from + 3;
+					my ($temp, $realloc, $pending) = @$line[$from..$to];
+					@row = ($temp, $realloc, $pending);
+					printf(" %4.0f %7.0f %7.0f ", @row);
+				}
+				$e++;
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < keys(%{$disk->{list}}); $n++) {
+		for($n2 = 1; $n2 <= 8; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach my $k (sort keys %{$disk->{list}}) {
+		my @d = split(',', $disk->{list}->{$k});
+
+		if($e) {
+			print("   <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "COMMENT: \\n");
+		for($n = 0; $n < 8; $n++) {
+			if($d[$n]) {
+				my ($dstr) = (split /\s+/, trim($d[$n]));
+				$str = sprintf("%-20s", $dstr);
+				push(@tmp, "LINE2:hd" . $n . $LC[$n] . ":$str");
+				push(@tmpz, "LINE2:hd" . $n . $LC[$n] . ":$dstr");
+				push(@tmp, "GPRINT:hd" . $n . ":LAST:   Current\\: %2.0lf");
+				push(@tmp, "GPRINT:hd" . $n . ":AVERAGE:   Average\\: %2.0lf");
+				push(@tmp, "GPRINT:hd" . $n . ":MIN:   Min\\: %2.0lf");
+				push(@tmp, "GPRINT:hd" . $n . ":MAX:   Max\\: %2.0lf\\n");
+			}
+		}
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		if(scalar(@d) && (scalar(@d) % 2)) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
+			"--title=$config->{graphs}->{_disk1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:hd0=$rrd:disk" . $e ."_hd0_temp:AVERAGE",
+			"DEF:hd1=$rrd:disk" . $e ."_hd1_temp:AVERAGE",
+			"DEF:hd2=$rrd:disk" . $e ."_hd2_temp:AVERAGE",
+			"DEF:hd3=$rrd:disk" . $e ."_hd3_temp:AVERAGE",
+			"DEF:hd4=$rrd:disk" . $e ."_hd4_temp:AVERAGE",
+			"DEF:hd5=$rrd:disk" . $e ."_hd5_temp:AVERAGE",
+			"DEF:hd6=$rrd:disk" . $e ."_hd6_temp:AVERAGE",
+			"DEF:hd7=$rrd:disk" . $e ."_hd7_temp:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
+				"--title=$config->{graphs}->{_disk1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Celsius",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:hd0=$rrd:disk" . $e ."_hd0_temp:AVERAGE",
+				"DEF:hd1=$rrd:disk" . $e ."_hd1_temp:AVERAGE",
+				"DEF:hd2=$rrd:disk" . $e ."_hd2_temp:AVERAGE",
+				"DEF:hd3=$rrd:disk" . $e ."_hd3_temp:AVERAGE",
+				"DEF:hd4=$rrd:disk" . $e ."_hd4_temp:AVERAGE",
+				"DEF:hd5=$rrd:disk" . $e ."_hd5_temp:AVERAGE",
+				"DEF:hd6=$rrd:disk" . $e ."_hd6_temp:AVERAGE",
+				"DEF:hd7=$rrd:disk" . $e ."_hd7_temp:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 8; $n += 2) {
+			if($d[$n]) {
+				$str = sprintf("%-17s", substr($d[$n], 0, 17));
+				push(@tmp, "LINE2:rsc" . $n . $LC[$n] . ":$str");
+				push(@tmpz, "LINE2:rsc" . $n . $LC[$n] . ":$d[$n]\\g");
+			}
+			if($d[$n + 1]) {
+				$str = sprintf("%-17s", substr($d[$n + 1], 0, 17));
+				push(@tmp, "LINE2:rsc" . ($n + 1) . $LC[$n + 1] . ":$str\\n");
+				push(@tmpz, "LINE2:rsc" . ($n + 1) . $LC[$n + 1] . ":$d[$n + 1]\\g");
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
+			"--title=$config->{graphs}->{_disk2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Sectors",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:rsc0=$rrd:disk" . $e . "_hd0_smart1:AVERAGE",
+			"DEF:rsc1=$rrd:disk" . $e . "_hd1_smart1:AVERAGE",
+			"DEF:rsc2=$rrd:disk" . $e . "_hd2_smart1:AVERAGE",
+			"DEF:rsc3=$rrd:disk" . $e . "_hd3_smart1:AVERAGE",
+			"DEF:rsc4=$rrd:disk" . $e . "_hd4_smart1:AVERAGE",
+			"DEF:rsc5=$rrd:disk" . $e . "_hd5_smart1:AVERAGE",
+			"DEF:rsc6=$rrd:disk" . $e . "_hd6_smart1:AVERAGE",
+			"DEF:rsc7=$rrd:disk" . $e . "_hd7_smart1:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
+				"--title=$config->{graphs}->{_disk2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Sectors",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:rsc0=$rrd:disk" . $e . "_hd0_smart1:AVERAGE",
+				"DEF:rsc1=$rrd:disk" . $e . "_hd1_smart1:AVERAGE",
+				"DEF:rsc2=$rrd:disk" . $e . "_hd2_smart1:AVERAGE",
+				"DEF:rsc3=$rrd:disk" . $e . "_hd3_smart1:AVERAGE",
+				"DEF:rsc4=$rrd:disk" . $e . "_hd4_smart1:AVERAGE",
+				"DEF:rsc5=$rrd:disk" . $e . "_hd5_smart1:AVERAGE",
+				"DEF:rsc6=$rrd:disk" . $e . "_hd6_smart1:AVERAGE",
+				"DEF:rsc7=$rrd:disk" . $e . "_hd7_smart1:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "'>\n");
+			}
+		}
+
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 8; $n += 2) {
+			if($d[$n]) {
+				$str = sprintf("%-17s", substr($d[$n], 0, 17));
+				push(@tmp, "LINE2:cps" . $n . $LC[$n] . ":$str");
+				push(@tmpz, "LINE2:cps" . $n . $LC[$n] . ":$d[$n]\\g");
+			}
+			if($d[$n + 1]) {
+				$str = sprintf("%-17s", substr($d[$n + 1], 0, 17));
+				push(@tmp, "LINE2:cps" . ($n + 1) . $LC[$n + 1] . ":$str\\n");
+				push(@tmpz, "LINE2:cps" . ($n + 1) . $LC[$n + 1] . ":$d[$n + 1]\\g");
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
+			"--title=$config->{graphs}->{_disk3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Sectors",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:cps0=$rrd:disk" . $e . "_hd0_smart2:AVERAGE",
+			"DEF:cps1=$rrd:disk" . $e . "_hd1_smart2:AVERAGE",
+			"DEF:cps2=$rrd:disk" . $e . "_hd2_smart2:AVERAGE",
+			"DEF:cps3=$rrd:disk" . $e . "_hd3_smart2:AVERAGE",
+			"DEF:cps4=$rrd:disk" . $e . "_hd4_smart2:AVERAGE",
+			"DEF:cps5=$rrd:disk" . $e . "_hd5_smart2:AVERAGE",
+			"DEF:cps6=$rrd:disk" . $e . "_hd6_smart2:AVERAGE",
+			"DEF:cps7=$rrd:disk" . $e . "_hd7_smart2:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
+				"--title=$config->{graphs}->{_disk3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Sectors",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:cps0=$rrd:disk" . $e . "_hd0_smart2:AVERAGE",
+				"DEF:cps1=$rrd:disk" . $e . "_hd1_smart2:AVERAGE",
+				"DEF:cps2=$rrd:disk" . $e . "_hd2_smart2:AVERAGE",
+				"DEF:cps3=$rrd:disk" . $e . "_hd3_smart2:AVERAGE",
+				"DEF:cps4=$rrd:disk" . $e . "_hd4_smart2:AVERAGE",
+				"DEF:cps5=$rrd:disk" . $e . "_hd5_smart2:AVERAGE",
+				"DEF:cps6=$rrd:disk" . $e . "_hd6_smart2:AVERAGE",
+				"DEF:cps7=$rrd:disk" . $e . "_hd7_smart2:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/fail2ban.pm b/lib/fail2ban.pm
new file mode 100644
index 0000000..d167647
--- /dev/null
+++ b/lib/fail2ban.pm
@@ -0,0 +1,436 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package fail2ban;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use POSIX qw(strftime);
+use Exporter 'import';
+our @EXPORT = qw(fail2ban_init fail2ban_update fail2ban_cgi);
+
+sub fail2ban_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $fail2ban = $config->{fail2ban};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 9 != scalar(my @fl = split(',', $fail2ban->{list}))) {
+			logger("Detected size mismatch between 'list' (" . scalar(my @fl = split(',', $fail2ban->{list})) . ") and $rrd (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @fl = split(',', $fail2ban->{list})); $n++) {
+			push(@tmp, "DS:fail2ban" . $n . "_j1:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j2:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j3:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j4:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j5:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j6:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j7:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j8:GAUGE:120:0:U");
+			push(@tmp, "DS:fail2ban" . $n . "_j9:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{fail2ban_hist} = 0;
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub fail2ban_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $fail2ban = $config->{fail2ban};
+
+	my $seek_pos;
+	my $logsize;
+	my @jails;
+
+	my $n;
+	my $str;
+	my $rrdata = "N";
+
+	if(! -r $config->{fail2ban_log}) {
+		logger("Couldn't find file '$config->{fail2ban_log}': $!");
+		return;
+	}
+
+	$seek_pos = $config->{fail2ban_hist} || 0;
+	$seek_pos = defined($seek_pos) ? int($seek_pos) : 0;
+	open(IN, $config->{fail2ban_log});
+	if(!seek(IN, 0, 2)) {
+		logger("Couldn't seek to the end of '$config->{fail2ban_log}': $!");
+		return;
+	}
+	$logsize = tell(IN);
+	if($logsize < $seek_pos) {
+		$seek_pos = 0;
+	}
+	if(!seek(IN, $seek_pos, 0)) {
+		logger("Couldn't seek to $seek_pos in '$config->{fail2ban_log}': $!");
+		return;
+	}
+	if($config->{fail2ban_hist} > 0) {	# avoids initial spike
+		my $date = strftime("%Y-%m-%d", localtime);
+		while(<IN>) {
+			if(/^$date/) {
+				my $e = 0;
+				while($e < scalar(my @fl = split(',', $fail2ban->{list}))) {
+					foreach my $i (split(',', $fail2ban->{desc}->{$e})) {
+						my $e2 = 0;
+						($str = trim($i)) =~ s/\[/\\[/;
+						$str =~ s/\]/\\]/;
+						$jails[$e][$e2] = 0 unless defined $jails[$e][$e2];
+						if(/ $str Ban /) {
+							$jails[$e][$e2]++;
+						}
+						$e2++;
+					}
+					$e++;
+				}
+			}
+		}
+	}
+	close(IN);
+
+	my $e = 0;
+	while($e < scalar(my @fl = split(',', $fail2ban->{list}))) {
+		for($n = 0; $n < 9; $n++) {
+			$jails[$e][$n] = 0 unless defined $jails[$e][$n];
+			$rrdata .= ":" . $jails[$e][$n];
+		}
+		$e++;
+	}
+
+	$config->{fail2ban_hist} = $logsize;
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub fail2ban_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $fail2ban = $config->{fail2ban};
+	my @rigid = split(',', $fail2ban->{rigid});
+	my @limit = split(',', $fail2ban->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+	my @LC = (
+		"#4444EE",
+		"#EEEE44",
+		"#44EEEE",
+		"#EE44EE",
+		"#888888",
+		"#E29136",
+		"#44EE44",
+		"#448844",
+		"#EE4444",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @fl = split(',', $fail2ban->{list})); $n++) {
+			$line1 = "";
+			foreach my $i (split(',', $fail2ban->{desc}->{$n})) {
+				$str = sprintf("%20s", substr(trim($i), 0, 20));
+				$line1 .= "                     ";
+				$line2 .= sprintf(" %20s", $str);
+				$line3 .= "---------------------";
+			}
+			if($line1) {
+				my $i = length($line1);
+				printf(sprintf("%${i}s", sprintf("%s", trim($fl[$n]))));
+			}
+		}
+		print("\n");
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $n3;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			for($n2 = 0; $n2 < scalar(my @fl = split(',', $fail2ban->{list})); $n2++) {
+				$n3 = 0;
+				foreach my $i (split(',', $fail2ban->{desc}->{$n2})) {
+					$from = $n2 * 9 + $n3++;
+					$to = $from + 1;
+					my ($j) = @$line[$from..$to];
+					@row = ($j);
+					printf("%20d ", @row);
+				}
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @fl = split(',', $fail2ban->{list})); $n++) {
+		$str = $u . $package . $n . "." . $tf->{when} . ".png";
+		push(@PNG, $str);
+		unlink("$PNG_DIR" . $str);
+		if(lc($config->{enable_zoom}) eq "y") {
+			$str = $u . $package . $n . "z." . $tf->{when} . ".png";
+			push(@PNGz, $str);
+			unlink("$PNG_DIR" . $str);
+		}
+	}
+
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	$n = 0;
+	while($n < scalar(my @fl = split(',', $fail2ban->{list}))) {
+		if($title) {
+			if($n == 0) {
+				main::graph_header($title, $fail2ban->{graphs_per_row});
+			}
+			print("    <tr>\n");
+		}
+		for($n2 = 0; $n2 < $fail2ban->{graphs_per_row}; $n2++) {
+			last unless $n < scalar(my @fl = split(',', $fail2ban->{list}));
+			if($title) {
+				print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+			}
+			undef(@tmp);
+			undef(@tmpz);
+			my $e = 0;
+			foreach my $i (split(',', $fail2ban->{desc}->{$n})) {
+				$str = sprintf("%-25s", substr(trim($i), 0, 25));
+				push(@tmp, "LINE1:j" . ($e + 1) . $LC[$e] . ":$str");
+				push(@tmp, "GPRINT:j" . ($e + 1) . ":LAST: Cur\\:%2.0lf\\g");
+				push(@tmp, "GPRINT:j" . ($e + 1) . ":AVERAGE:   Avg\\:%2.0lf\\g");
+				push(@tmp, "GPRINT:j" . ($e + 1) . ":MIN:   Min\\:%2.0lf\\g");
+				push(@tmp, "GPRINT:j" . ($e + 1) . ":MAX:   Max\\:%2.0lf\\n");
+				push(@tmpz, "LINE2:j" . ($e + 1) . $LC[$e] . ":$str");
+				$e++;
+			}
+			while($e < 9) {
+				push(@tmp, "COMMENT: \\n");
+				$e++;
+			}
+			($width, $height) = split('x', $config->{graph_size}->{medium});
+			$str = substr(trim($fl[$n]), 0, 25);
+			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
+				"--title=$str  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=bans/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:j1=$rrd:fail2ban" . $n . "_j1:AVERAGE",
+				"DEF:j2=$rrd:fail2ban" . $n . "_j2:AVERAGE",
+				"DEF:j3=$rrd:fail2ban" . $n . "_j3:AVERAGE",
+				"DEF:j4=$rrd:fail2ban" . $n . "_j4:AVERAGE",
+				"DEF:j5=$rrd:fail2ban" . $n . "_j5:AVERAGE",
+				"DEF:j6=$rrd:fail2ban" . $n . "_j6:AVERAGE",
+				"DEF:j7=$rrd:fail2ban" . $n . "_j7:AVERAGE",
+				"DEF:j8=$rrd:fail2ban" . $n . "_j8:AVERAGE",
+				"DEF:j9=$rrd:fail2ban" . $n . "_j9:AVERAGE",
+				@tmp);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
+			if(lc($config->{enable_zoom}) eq "y") {
+				($width, $height) = split('x', $config->{graph_size}->{zoom});
+				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
+					"--title=$str  ($tf->{nwhen}$tf->{twhen})",
+					"--start=-$tf->{nwhen}$tf->{twhen}",
+					"--imgformat=PNG",
+					"--vertical-label=bans/s",
+					"--width=$width",
+					"--height=$height",
+					@riglim,
+					"--lower-limit=0",
+					@{$cgi->{version12}},
+					@{$cgi->{version12_small}},
+					@{$colors->{graph_colors}},
+					"DEF:j1=$rrd:fail2ban" . $n . "_j1:AVERAGE",
+					"DEF:j2=$rrd:fail2ban" . $n . "_j2:AVERAGE",
+					"DEF:j3=$rrd:fail2ban" . $n . "_j3:AVERAGE",
+					"DEF:j4=$rrd:fail2ban" . $n . "_j4:AVERAGE",
+					"DEF:j5=$rrd:fail2ban" . $n . "_j5:AVERAGE",
+					"DEF:j6=$rrd:fail2ban" . $n . "_j6:AVERAGE",
+					"DEF:j7=$rrd:fail2ban" . $n . "_j7:AVERAGE",
+					"DEF:j8=$rrd:fail2ban" . $n . "_j8:AVERAGE",
+					"DEF:j9=$rrd:fail2ban" . $n . "_j9:AVERAGE",
+					@tmpz);
+				$err = RRDs::error;
+				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
+			}
+			if($title || ($silent =~ /imagetag/ && $graph =~ /fail2ban$n/)) {
+				if(lc($config->{enable_zoom}) eq "y") {
+					if(lc($config->{disable_javascript_void}) eq "y") {
+						print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+					else {
+						print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+				} else {
+					print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "'>\n");
+				}
+			}
+			if($title) {
+				print("    </td>\n");
+			}
+			$n++;
+		}
+		if($title) {
+			print("    </tr>\n");
+		}
+	}
+	if($title) {
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/fs.pm b/lib/fs.pm
new file mode 100644
index 0000000..d1a2b5a
--- /dev/null
+++ b/lib/fs.pm
@@ -0,0 +1,1012 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package fs;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(fs_init fs_update fs_cgi);
+
+sub fs_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $fs = $config->{fs};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 24 != keys(%{$fs->{list}})) {
+			logger("Detected size mismatch between <list>...</list> (" . keys(%{$fs->{list}}) . ") and $rrd (" . scalar(@ds) / 24 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < keys(%{$fs->{list}}); $n++) {
+			push(@tmp, "DS:fs" . $n . "_use0:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa0:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim0:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use1:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa1:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim1:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use2:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa2:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim2:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use3:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa3:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim3:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use4:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa4:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim4:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use5:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa5:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim5:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use6:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa6:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim6:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_use7:GAUGE:120:0:100");
+			push(@tmp, "DS:fs" . $n . "_ioa7:GAUGE:120:0:U");
+			push(@tmp, "DS:fs" . $n . "_tim7:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	# This tries to find out the physical device name of each fs.
+	foreach my $k (sort keys %{$fs->{list}}) {
+		my @fsl = split(',', $fs->{list}->{$k});
+		my $d;
+		foreach my $f (@fsl) {
+			undef($d);
+			$f = trim($f);
+			$d = $fs->{devmap}->{$f} if $fs->{devmap}->{$f};
+			next unless !$d;
+
+			if($f ne "swap") {
+				eval {
+					alarm $config->{timeout};
+					open(IN, "df -P $f |");
+					while(<IN>) {
+						if(/ $f$/) {
+							($d) = split(' ', $_);
+							last;
+						}
+					}
+					close(IN);
+					alarm 0;
+					chomp($d);
+				};
+			}
+
+			if($config->{os} eq "Linux" && $config->{kernel} > 2.4) {
+				my $lvm;
+				my $lvm_disk;
+				my $is_md;
+				my $found;
+
+				if($f eq "swap") {
+					$d = `cat /proc/swaps | tail -1 | awk -F " " '{ print \$1 }'`;
+					chomp($d);
+				}
+
+				# check for device names using symbolic links
+				# e.g. /dev/disk/by-uuid/db312d12-0da6-44e5-a354-4c82118f4b66
+				if(-l $d) {
+					$d = abs_path(dirname($d) . "/" . readlink($d));
+					chomp($d);
+				}
+
+				# get the major and minor of $d
+				my $rdev = (stat($d))[6];
+				my $minor = $rdev % 256;
+				my $major = int($rdev / 256);
+
+				# do exists in /proc/diskstats?
+				if($found = is_in_diskstats($d, $major, $minor)) {
+					$d = $found;
+					$fs->{devmap}->{$f} = $d;
+					logger("$myself: Detected physical device name for $f in '$d'.") if $debug;
+					next;
+				}
+
+				logger("$myself: Unable to find major/minor in /proc/diskstats.") if $debug;
+
+				# check if device is using EVMS <http://evms.sourceforge.net/>
+				if($d =~ m/\/dev\/evms\//) {
+					$d = `evms_query disks $d`;
+					if($found = is_in_diskstats($d)) {
+						$d = $found;
+						$fs->{devmap}->{$f} = $d;
+						logger("$myself: Detected physical device name for $f in '$d'.") if $debug;
+						next;
+					}
+				}
+
+				$d =~ s/^.*dev\///;	# remove the /dev/ prefix
+				$d =~ s/^.*mapper\///;	# remove the mapper/ prefix
+
+				# check if the device is under a crypt LUKS (encrypted fs)
+				my $dev;
+				if($dev = is_luks($d)) {
+					$d = $dev;
+				}
+
+				# do exists in /proc/diskstats?
+				if($found = is_in_diskstats($d)) {
+					$d = $found;
+					$fs->{devmap}->{$f} = $d;
+					logger("$myself: Detected physical device name for $f in '$d'.") if $debug;
+					next;
+				}
+
+				# check if the device is in a LVM
+				$lvm = $d;
+				$lvm =~ s/-.*//;
+				if($lvm ne $d) {	# probably LVM
+					if(system("pvs >/dev/null 2>&1") == 0 && $lvm) {
+						$lvm_disk = `pvs --noheadings | grep $lvm | tail -1 | awk -F " " '{ print \$1 }'`;
+						chomp($lvm_disk);
+						$lvm_disk =~ s/^.*dev\///;	# remove the /dev/ prefix
+						$lvm_disk =~ s/^.*mapper\///;	# remove the mapper/ prefix
+						if(!($lvm_disk =~ m/md/)) {
+							if($lvm_disk =~ m/cciss/) {
+								# LVM over a CCISS disk (/dev/cciss/c0d0)
+								$d = $lvm_disk;
+								chomp($d);
+							} elsif($dev = is_luks($lvm_disk)) {
+								$d = $dev;
+							} else {
+								# LVM over a direct disk (/dev/sda1)
+								$d = $lvm_disk;
+								chomp($d);
+							}
+						} else {
+							# LVM over Linux RAID combination (/dev/md1)
+							$d = $lvm_disk;
+							chomp($d);
+						}
+					}
+				}
+			} elsif($config->{os} eq "FreeBSD" || $config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+				# remove the /dev/ prefix
+				if ($d =~ s/^.*dev\///) {
+					# not ZFS; get the device name, eg ada0; md0; ad10
+					$d =~ s/^(\D+\d*)\D.*/$1/;
+				} else {
+					# Just take ZFS pool name
+					$d =~ s,^([^/]*)/.*,$1,;
+				}
+			}
+			$fs->{devmap}->{$f} = $d;
+			logger("$myself: Detected physical device name for $f in '$d'.") if $debug;
+		}
+	}
+
+	$config->{fs_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub is_in_diskstats {
+	my ($d, $major, $minor) = @_;
+
+	open(IN, "/proc/diskstats");
+	my @data = <IN>;
+	close(IN);
+	foreach(@data) {
+		my ($maj, $min, $device) = split(' ', $_);
+		return $device unless $d ne $device;
+		if($maj == $major && $min == $minor) {
+			return $device;
+		}
+	}
+}
+
+sub is_luks {
+	my ($d) = @_;
+
+	if($d =~ m/luks/) {
+		$d =~ s/luks-//;
+		$d = `blkid -t UUID=$d | awk -F ":" '{ print \$1 }'`;
+		chomp($d);
+		$d =~ s/^.*dev\///;	# remove the /dev/ prefix
+		$d =~ s/^.*mapper\///;	# remove the mapper/ prefix
+		return $d;
+	}
+}
+
+sub fs_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $fs = $config->{fs};
+
+	my @tmp;
+	my $val;
+	my $str;
+
+	my $n;
+	my $rrdata = "N";
+
+	my $e = 0;
+	foreach my $k (sort keys %{$fs->{list}}) {
+		my @fsl = split(',', $fs->{list}->{$k});
+		for($n = 0; $n < 8; $n++) {
+			my $use = 0;
+			my $ioa = 0;
+			my $tim = 0;
+
+			my $used = 0;
+			my $free = 0;
+
+			my $f = trim($fsl[$n]) || "";
+			if($f && $f eq "swap") {
+				if($config->{os} eq "Linux") {
+					open(IN, "free |");
+					while(<IN>) {
+						if(/^Swap:\s+\d+\s+(\d+)\s+(\d+)$/) {
+							$used = $1;
+							$free = $2;
+						}
+					}
+					close(IN);
+				} elsif($config->{os} eq "FreeBSD") {
+					open(IN, "swapinfo -k |");
+					while(<IN>) {
+						if(/^.*?\s+\d+\s+(\d+)\s+(\d+)\s+\d+\%$/) {
+							$used = $1;
+							$free = $2;
+						}
+					}
+					close(IN);
+				} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+					open(IN, "pstat -sk |");
+					while(<IN>) {
+						if(/^swap_device\s+\d+\s+(\d+)\s+(\d+) /) {
+							$used = $1;
+							$free = $2;
+						}
+					}
+					close(IN);
+				}
+
+				chomp($used, $free);
+				# prevents a division by 0 if swap device is not used
+				$use = ($used * 100) / ($used + $free) unless $used + $free == 0;
+			} elsif($f) {
+				eval {
+					alarm $config->{timeout};
+					open(IN, "df -P $f |");
+					while(<IN>) {
+						if(/ $f$/) {
+							@tmp = split(' ', $_);
+							last;
+						}
+					}
+					close(IN);
+					alarm 0;
+				};
+				(undef, undef, $used, $free) = @tmp;
+				chomp($used, $free);
+				$use = ($used * 100) / ($used + $free);
+
+				# FS alert
+				if($f eq "/" && lc($config->{enable_alerts}) eq "y") {
+					if(!$config->{alert_rootfs_threshold} || $use < $config->{alert_rootfs_threshold}) {
+						$config->{fs_hist}->{rootalert} = 0;
+					} else {
+						if(!$config->{fs_hist}->{rootalert}) {
+							$config->{fs_hist}->{rootalert} = time;
+						}
+						if($config->{fs_hist}->{rootalert} > 0 && (time - $config->{fs_hist}->{rootalert}) > $config->{alert_rootfs_timeintvl}) {
+							if(-x $config->{alert_rootfs_script}) {
+								system($config->{alert_rootfs_script} . " " . $config->{alert_rootfs_timeintvl} . " " . $config->{alert_rootfs_threshold} . " " . $use);
+							}
+							$config->{fs_hist}->{rootalert} = time;
+						}
+					}
+				}
+			}
+
+			my $read_cnt = 0;
+			my $read_sec = 0;
+			my $write_cnt = 0;
+			my $write_sec = 0;
+			my $d = $fs->{devmap}->{$f};
+			if($d) {
+				if($config->{os} eq "Linux") {
+					if($config->{kernel} > 2.4) {
+						open(IN, "/proc/diskstats");
+						while(<IN>) {
+							if(/ $d /) {
+								@tmp = split(' ', $_);
+								last;
+							}
+						}
+						close(IN);
+						(undef, undef, undef, $read_cnt, undef, undef, $read_sec, $write_cnt, undef, undef, $write_sec) = @tmp;
+					} else {
+						my $io;
+						open(IN, "/proc/stat");
+						while(<IN>) {
+							if(/^disk_io/) {
+								(undef, undef, $io) = split(':', $_);
+								last;
+							}
+						}
+						close(IN);
+						(undef, $read_cnt, $read_sec, $write_cnt, $write_sec) = split(',', $io);
+						$write_sec =~ s/\).*$//;
+					}
+				} elsif($config->{os} eq "FreeBSD") {
+					@tmp = split(' ', `iostat -xI $d | grep -w $d`);
+					if(@tmp) {
+						(undef, $read_cnt, $write_cnt, $read_sec, $write_sec) = @tmp;
+						$read_cnt = int($read_cnt);
+						$write_cnt = int($write_cnt);
+						$read_sec = int($read_sec);
+						$write_sec = int($write_sec);
+					} else {
+						@tmp = split(' ', `iostat -dI | tail -1`);
+						(undef, $read_cnt, $read_sec) = @tmp;
+						$write_cnt = "";
+						$write_sec = "";
+						chomp($read_sec);
+						$read_sec = int($read_sec);
+					}
+				} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+					@tmp = split(' ', `iostat -DI | tail -1`);
+					($read_cnt, $read_sec) = @tmp;
+					$write_cnt = "";
+					$write_sec = "";
+					chomp($read_sec);
+					$read_sec = int($read_sec);
+				}
+			}
+
+			$ioa = $read_cnt + $write_cnt;
+			$tim = $read_sec + $write_sec;
+
+			$str = $e . "_ioa" . $n;
+			$val = $ioa;
+			$ioa = $val - ($config->{fs_hist}->{$str} || 0);
+			$ioa = 0 unless $val != $ioa;
+			$ioa /= 60;
+			$config->{fs_hist}->{$str} = $val;
+
+			$str = $e . "_tim" . $n;
+			$val = $tim;
+			$tim = $val - ($config->{fs_hist}->{$str} || 0);
+			$tim = 0 unless $val != $tim;
+			$tim /= 60;
+			$config->{fs_hist}->{$str} = $val;
+
+			$rrdata .= ":$use:$ioa:$tim";
+		}
+		$e++;
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub fs_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $fs = $config->{fs};
+	my @rigid = split(',', $fs->{rigid});
+	my @limit = split(',', $fs->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my $graph_title;
+	my $vlabel;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my @riglim;
+	my $n;
+	my $n2;
+	my $e;
+	my $e2;
+	my $str;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#5F04B4",
+		"#EE44EE",
+		"#EEEE44",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		foreach my $k (sort keys %{$fs->{list}}) {
+			my @f = split(',', $fs->{list}->{$k});
+			for($n = 0; $n < scalar(@f); $n++) {
+				$str = sprintf("%23s", $fs->{desc}->{$f[$n]} || trim($f[$n]));
+				$line1 .= $str;
+				$str = sprintf("   Use     I/O    Time ");
+				$line2 .= $str;
+				$line3 .=      "-----------------------";
+			}
+		}
+		print("    $line1\n");
+		print("Time $line2\n");
+		print("-----$line3\n");
+		my $line;
+		my @row;
+		my $time;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			my ($root, $swap) = @$line;
+			printf(" %2d$tf->{tc} ", $time);
+			$e = 0;
+			foreach my $k (sort keys %{$fs->{list}}) {
+				my @f = split(',', $fs->{list}->{$k});
+				for($n2 = 0; $n2 < scalar(@f); $n2++) {
+					$from = ($e * 8 * 3) + ($n2 * 3);
+					$to = $from + 3;
+					my ($use, $ioa, $tim) = @$line[$from..$to];
+					@row = ($use, $ioa, $tim);
+					printf(" %4.1f%% %7.1f %7.1f ", @row);
+				}
+				$e++;
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < keys(%{$fs->{list}}); $n++) {
+		for($n2 = 1; $n2 <= 8; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach my $k (sort keys %{$fs->{list}}) {
+		my @f = split(',', $fs->{list}->{$k});
+
+		if($e) {
+			print("   <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "COMMENT: \\n");
+		for($n = 0; $n < 8; $n++) {
+			if($f[$n]) {
+				my $color;
+
+				$str = $fs->{desc}->{$f[$n]} || trim($f[$n]);
+				if(trim($f[$n]) eq "/") {
+					$color = "#EE4444";
+				} elsif($str eq "swap") {
+					$color = "#CCCCCC";
+				} elsif($str eq "/boot") {
+					$color = "#666666";
+				} else {
+					$color = $LC[$n];
+				}
+				push(@tmpz, "LINE2:fs" . $n . $color . ":$str");
+				$str = sprintf("%-23s", $str);
+				push(@tmp, "LINE2:fs" . $n . $color . ":$str");
+				push(@tmp, "GPRINT:fs" . $n . ":LAST:Cur\\: %4.1lf%%");
+				push(@tmp, "GPRINT:fs" . $n . ":AVERAGE:   Avg\\: %4.1lf%%");
+				push(@tmp, "GPRINT:fs" . $n . ":MIN:   Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:fs" . $n . ":MAX:   Max\\: %4.1lf%%\\n");
+			}
+		}
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		if(scalar(@f) && (scalar(@f) % 2)) {
+			push(@tmp, "COMMENT: \\n");
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
+			"--title=$config->{graphs}->{_fs1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent (%)",
+			"--width=$width",
+			"--height=$height",
+			"--upper-limit=100",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:fs0=$rrd:fs" . $e . "_use0:AVERAGE",
+			"DEF:fs1=$rrd:fs" . $e . "_use1:AVERAGE",
+			"DEF:fs2=$rrd:fs" . $e . "_use2:AVERAGE",
+			"DEF:fs3=$rrd:fs" . $e . "_use3:AVERAGE",
+			"DEF:fs4=$rrd:fs" . $e . "_use4:AVERAGE",
+			"DEF:fs5=$rrd:fs" . $e . "_use5:AVERAGE",
+			"DEF:fs6=$rrd:fs" . $e . "_use6:AVERAGE",
+			"DEF:fs7=$rrd:fs" . $e . "_use7:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
+				"--title=$config->{graphs}->{_fs1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Percent (%)",
+				"--width=$width",
+				"--height=$height",
+				"--upper-limit=100",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:fs0=$rrd:fs" . $e . "_use0:AVERAGE",
+				"DEF:fs1=$rrd:fs" . $e . "_use1:AVERAGE",
+				"DEF:fs2=$rrd:fs" . $e . "_use2:AVERAGE",
+				"DEF:fs3=$rrd:fs" . $e . "_use3:AVERAGE",
+				"DEF:fs4=$rrd:fs" . $e . "_use4:AVERAGE",
+				"DEF:fs5=$rrd:fs" . $e . "_use5:AVERAGE",
+				"DEF:fs6=$rrd:fs" . $e . "_use6:AVERAGE",
+				"DEF:fs7=$rrd:fs" . $e . "_use7:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 8; $n += 2) {
+			my $color;
+			if($f[$n]) {
+				$str = $fs->{desc}->{$f[$n]} || trim($f[$n]);
+				if(trim($f[$n]) eq "/") {
+					$color = "#EE4444";
+				} elsif($str eq "swap") {
+					$color = "#CCCCCC";
+				} elsif($str eq "/boot") {
+					$color = "#666666";
+				} else {
+					$color = $LC[$n];
+				}
+				push(@tmpz, "LINE2:ioa" . $n . $color . ":$str\\g");
+				$str = sprintf("%-17s", substr($str, 0, 17));
+				push(@tmp, "LINE2:ioa" . $n . $color . ":$str");
+			}
+			if($f[$n + 1]) {
+				$str = $fs->{desc}->{$f[$n + 1]} || trim($f[$n + 1]);
+				if(trim($f[$n + 1]) eq "/") {
+					$color = "#EE4444";
+				} elsif($str eq "swap") {
+					$color = "#CCCCCC";
+				} elsif($str eq "/boot") {
+					$color = "#666666";
+				} else {
+					$color = $LC[$n + 1];
+				}
+				push(@tmpz, "LINE2:ioa" . ($n + 1) . $color . ":$str\\g");
+				$str = sprintf("%-17s", substr($str, 0, 17));
+				push(@tmp, "LINE2:ioa" . ($n + 1) . $color . ":$str\\n");
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
+			"--title=$config->{graphs}->{_fs2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Reads+Writes/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ioa0=$rrd:fs" . $e . "_ioa0:AVERAGE",
+			"DEF:ioa1=$rrd:fs" . $e . "_ioa1:AVERAGE",
+			"DEF:ioa2=$rrd:fs" . $e . "_ioa2:AVERAGE",
+			"DEF:ioa3=$rrd:fs" . $e . "_ioa3:AVERAGE",
+			"DEF:ioa4=$rrd:fs" . $e . "_ioa4:AVERAGE",
+			"DEF:ioa5=$rrd:fs" . $e . "_ioa5:AVERAGE",
+			"DEF:ioa6=$rrd:fs" . $e . "_ioa6:AVERAGE",
+			"DEF:ioa7=$rrd:fs" . $e . "_ioa7:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
+				"--title=$config->{graphs}->{_fs2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Reads+Writes/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:ioa0=$rrd:fs" . $e . "_ioa0:AVERAGE",
+				"DEF:ioa1=$rrd:fs" . $e . "_ioa1:AVERAGE",
+				"DEF:ioa2=$rrd:fs" . $e . "_ioa2:AVERAGE",
+				"DEF:ioa3=$rrd:fs" . $e . "_ioa3:AVERAGE",
+				"DEF:ioa4=$rrd:fs" . $e . "_ioa4:AVERAGE",
+				"DEF:ioa5=$rrd:fs" . $e . "_ioa5:AVERAGE",
+				"DEF:ioa6=$rrd:fs" . $e . "_ioa6:AVERAGE",
+				"DEF:ioa7=$rrd:fs" . $e . "_ioa7:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		if($config->{os} eq "Linux") {
+			if($config->{kernel} > 2.4) {
+	   			$graph_title = "$config->{graphs}->{_fs3}  ($tf->{nwhen}$tf->{twhen})";
+				$vlabel = "Milliseconds";
+			} else {
+	   			$graph_title = "Disk sectors activity  ($tf->{nwhen}$tf->{twhen})";
+				$vlabel = "Sectors/s";
+			}
+			for($n = 0; $n < 8; $n += 2) {
+				my $color;
+				if($f[$n]) {
+					$str = $fs->{desc}->{$f[$n]} || trim($f[$n]);
+					if(trim($f[$n]) eq "/") {
+						$color = "#EE4444";
+					} elsif($str eq "swap") {
+						$color = "#CCCCCC";
+					} elsif($str eq "/boot") {
+						$color = "#666666";
+					} else {
+						$color = $LC[$n];
+					}
+					push(@tmpz, "LINE2:tim" . $n . $color . ":$str\\g");
+					$str = sprintf("%-17s", substr($str, 0, 17));
+					push(@tmp, "LINE2:tim" . $n . $color . ":$str");
+				}
+				if($f[$n + 1]) {
+					$str = $fs->{desc}->{$f[$n + 1]} || trim($f[$n + 1]);
+					if(trim($f[$n + 1]) eq "/") {
+						$color = "#EE4444";
+					} elsif($str eq "swap") {
+						$color = "#CCCCCC";
+					} elsif($str eq "/boot") {
+						$color = "#666666";
+					} else {
+						$color = $LC[$n + 1];
+					}
+					push(@tmpz, "LINE2:tim" . ($n + 1) . $color . ":$str\\g");
+					$str = sprintf("%-17s", substr($str, 0, 17));
+					push(@tmp, "LINE2:tim" . ($n + 1) . $color . ":$str\\n");
+				}
+			}
+		} elsif(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+	   		$graph_title = "Disk data activity  ($tf->{nwhen}$tf->{twhen})";
+			$vlabel = "KB/s";
+			for($n = 0; $n < 8; $n += 2) {
+				my $color;
+				my $str2;
+
+				$str2 = $fs->{desc}->{$f[$n]} || trim($f[$n]);
+				if($f[$n]) {
+					$str = sprintf("%-17s", $str2, 0, 17);
+					if(trim($f[$n]) eq "/") {
+						$color = "#EE4444";
+					} elsif($str eq "swap") {
+						$color = "#CCCCCC";
+					} elsif($str eq "/boot") {
+						$color = "#666666";
+					} else {
+						$color = $LC[$n];
+					}
+					push(@tmp, "LINE2:tim" . $n . $color . ":$str");
+					push(@tmpz, "LINE2:tim" . $n . $color . ":$f[$n]\\g");
+				}
+				$str2 = $fs->{desc}->{$f[$n + 1]} || trim($f[$n + 1]);
+				if($f[$n + 1]) {
+					$str = sprintf("%-17s", $str2, 0, 17);
+					if(trim($f[$n + 1]) eq "/") {
+						$color = "#EE4444";
+					} elsif($str eq "swap") {
+						$color = "#CCCCCC";
+					} elsif($str eq "/boot") {
+						$color = "#666666";
+					} else {
+						$color = $LC[$n + 1];
+					}
+					push(@tmp, "LINE2:tim" . ($n + 1) . $color . ":$str\\n");
+					push(@tmpz, "LINE2:tim" . ($n + 1) . $color . ":$f[$n + 1]\\g");
+				}
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
+			"--title=$graph_title",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:tim0=$rrd:fs" . $e . "_tim0:AVERAGE",
+			"DEF:tim1=$rrd:fs" . $e . "_tim1:AVERAGE",
+			"DEF:tim2=$rrd:fs" . $e . "_tim2:AVERAGE",
+			"DEF:tim3=$rrd:fs" . $e . "_tim3:AVERAGE",
+			"DEF:tim4=$rrd:fs" . $e . "_tim4:AVERAGE",
+			"DEF:tim5=$rrd:fs" . $e . "_tim5:AVERAGE",
+			"DEF:tim6=$rrd:fs" . $e . "_tim6:AVERAGE",
+			"DEF:tim7=$rrd:fs" . $e . "_tim7:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
+				"--title=$graph_title",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:tim0=$rrd:fs" . $e . "_tim0:AVERAGE",
+				"DEF:tim1=$rrd:fs" . $e . "_tim1:AVERAGE",
+				"DEF:tim2=$rrd:fs" . $e . "_tim2:AVERAGE",
+				"DEF:tim3=$rrd:fs" . $e . "_tim3:AVERAGE",
+				"DEF:tim4=$rrd:fs" . $e . "_tim4:AVERAGE",
+				"DEF:tim5=$rrd:fs" . $e . "_tim5:AVERAGE",
+				"DEF:tim6=$rrd:fs" . $e . "_tim6:AVERAGE",
+				"DEF:tim7=$rrd:fs" . $e . "_tim7:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/hptemp.pm b/lib/hptemp.pm
new file mode 100644
index 0000000..b5114d0
--- /dev/null
+++ b/lib/hptemp.pm
@@ -0,0 +1,604 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package hptemp;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(hptemp_init hptemp_update hptemp_cgi);
+
+sub hptemp_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	# checks if 'hplog' does exists.
+	if(!open(IN, "hplog -t |")) {
+		logger("$myself: unable to execute 'hplog'. $!");
+		return;
+	}
+
+	# save the output of 'hplog -t' since only 'root' is able to run it
+	my @data = <IN>;
+	close(IN);
+	open(OUT, "> $config->{base_dir}/cgi-bin/monitorix.hplog");
+	print(OUT @data);
+	close(OUT);
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:hptemp1_1:GAUGE:120:0:100",
+				"DS:hptemp1_2:GAUGE:120:0:100",
+				"DS:hptemp1_3:GAUGE:120:0:100",
+				"DS:hptemp1_4:GAUGE:120:0:100",
+				"DS:hptemp1_5:GAUGE:120:0:100",
+				"DS:hptemp1_6:GAUGE:120:0:100",
+				"DS:hptemp1_7:GAUGE:120:0:100",
+				"DS:hptemp1_8:GAUGE:120:0:100",
+				"DS:hptemp2_1:GAUGE:120:0:100",
+				"DS:hptemp2_2:GAUGE:120:0:100",
+				"DS:hptemp2_3:GAUGE:120:0:100",
+				"DS:hptemp2_4:GAUGE:120:0:100",
+				"DS:hptemp2_5:GAUGE:120:0:100",
+				"DS:hptemp2_6:GAUGE:120:0:100",
+				"DS:hptemp3_1:GAUGE:120:0:100",
+				"DS:hptemp3_2:GAUGE:120:0:100",
+				"DS:hptemp3_3:GAUGE:120:0:100",
+				"DS:hptemp3_4:GAUGE:120:0:100",
+				"DS:hptemp3_5:GAUGE:120:0:100",
+				"DS:hptemp3_6:GAUGE:120:0:100",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub hptemp_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $hptemp = $config->{hptemp};
+
+	my @hptemp1;
+	my @hptemp2;
+	my @hptemp3;
+
+	my $l;
+	my $n;
+	my $rrdata = "N";
+
+	if(!open(IN, "hplog -t |")) {
+		logger("$myself: unable to execute 'hplog'. $!");
+		return;
+	}
+	my @data = <IN>;
+	close(IN);
+	my $str;
+	for($l = 0; $l < scalar(@data); $l++) {
+		foreach my $t (split(',', $hptemp->{list}->{0})) {
+			$str = sprintf("%2d", trim($t));
+			if($data[$l] =~ m/^$str  /) {
+				my $temp = trim(substr($data[$l], 47, 3));
+				chomp($temp);
+				push(@hptemp1, map {$_ eq "---" ? 0 : $_} ($temp));
+			}
+		}
+		foreach my $t (split(',', $hptemp->{list}->{1})) {
+			$str = sprintf("%2d", trim($t));
+			if($data[$l] =~ m/^$str  /) {
+				my $temp = trim(substr($data[$l], 47, 3));
+				chomp($temp);
+				push(@hptemp2, map {$_ eq "---" ? 0 : $_} ($temp));
+			}
+		}
+		foreach my $t (split(',', $hptemp->{list}->{2})) {
+			$str = sprintf("%2d", trim($t));
+			if($data[$l] =~ m/^$str  /) {
+				my $temp = trim(substr($data[$l], 47, 3));
+				chomp($temp);
+				push(@hptemp3, map {$_ eq "---" ? 0 : $_} ($temp));
+			}
+		}
+	}
+	for($n = 0; $n < 8; $n++) {
+		$hptemp1[$n] = 0 unless $hptemp1[$n];
+		$rrdata .= ":$hptemp1[$n]";
+	}
+	for($n = 0; $n < 6; $n++) {
+		$hptemp2[$n] = 0 unless $hptemp2[$n];
+		$rrdata .= ":$hptemp2[$n]";
+	}
+	for($n = 0; $n < 6; $n++) {
+		$hptemp3[$n] = 0 unless $hptemp3[$n];
+		$rrdata .= ":$hptemp3[$n]";
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub hptemp_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $hptemp = $config->{hptemp};
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $id;
+	my $str;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	open(IN, "monitorix.hplog");
+	my @hplog = <IN>;
+	close(IN);
+
+	if(!scalar(@hplog)) {
+		print("WARNING: 'hplog' command output is empty.");
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $str;
+		my $line1;
+		my $line2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		foreach my $t (split(',', $hptemp->{list}->{0}), split(',', $hptemp->{list}->{1}), split(',', $hptemp->{list}->{2})) {
+			$id = sprintf("%2d", trim($t));
+			for($n = 0; $n < scalar(@hplog); $n++) {
+				$_ = $hplog[$n];
+				if(/^$id  /) {
+					$str = substr($_, 17, 8);
+					$str = sprintf("%8s", $str);
+					$line1 .= "  ";
+					$line1 .= $str;
+					$line2 .= "----------";
+				}
+			}
+		}
+		print("Time $line1 \n");
+		print("-----$line2\n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			undef($line1);
+			undef(@row);
+			for($n2 = 0; $n2 < scalar(my @hp = split(',', $hptemp->{list}->{0})); $n2++) {
+				my $temp = @$line[$n2];
+				push(@row, $temp);
+				$line1 .= " %8.0f ";
+			}
+			for($n2 = 0; $n2 < scalar(my @hp = split(',', $hptemp->{list}->{1})); $n2++) {
+				my $temp = @$line[8 + $n2];
+				push(@row, $temp);
+				$line1 .= " %8.0f ";
+			}
+			for($n2 = 0; $n2 < scalar(my @hp = split(',', $hptemp->{list}->{2})); $n2++) {
+				my $temp = @$line[8 + 3 + $n2];
+				push(@row, $temp);
+				$line1 .= " %8.0f ";
+			}
+			print(sprintf($line1, @row));
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+
+	if(scalar(my @hptemp0 = split(',', $hptemp->{list}->{0}))) {
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 8; $n++) {
+			if($hptemp0[$n]) {
+				foreach(@hplog) {
+					$id = sprintf("%2d", trim($hptemp0[$n]));
+					if(/^$id  /) {
+						$str = substr($_, 17, 8);
+						$str = sprintf("%-20s", $str);
+						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						push(@tmp, "GPRINT:temp" . $n . ":LAST:Current\\: %2.0lf");
+						push(@tmp, "GPRINT:temp" . $n . ":AVERAGE:   Average\\: %2.0lf");
+						push(@tmp, "GPRINT:temp" . $n . ":MIN:   Min\\: %2.0lf");
+						push(@tmp, "GPRINT:temp" . $n . ":MAX:   Max\\: %2.0lf\\n");
+						$str =~ s/\s+$//;
+						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						last;
+					}
+				}
+			} else {
+				push(@tmp, "COMMENT: \\n");
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG1",
+			"--title=$config->{graphs}->{_hptemp1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:temp0=$rrd:hptemp1_1:AVERAGE",
+			"DEF:temp1=$rrd:hptemp1_2:AVERAGE",
+			"DEF:temp2=$rrd:hptemp1_3:AVERAGE",
+			"DEF:temp3=$rrd:hptemp1_4:AVERAGE",
+			"DEF:temp4=$rrd:hptemp1_5:AVERAGE",
+			"DEF:temp5=$rrd:hptemp1_6:AVERAGE",
+			"DEF:temp6=$rrd:hptemp1_7:AVERAGE",
+			"DEF:temp7=$rrd:hptemp1_8:AVERAGE",
+			@tmp,
+			"COMMENT: \\n");
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG1z",
+				"--title=$config->{graphs}->{_hptemp1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Celsius",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:temp0=$rrd:hptemp1_1:AVERAGE",
+				"DEF:temp1=$rrd:hptemp1_2:AVERAGE",
+				"DEF:temp2=$rrd:hptemp1_3:AVERAGE",
+				"DEF:temp3=$rrd:hptemp1_4:AVERAGE",
+				"DEF:temp4=$rrd:hptemp1_5:AVERAGE",
+				"DEF:temp5=$rrd:hptemp1_6:AVERAGE",
+				"DEF:temp6=$rrd:hptemp1_7:AVERAGE",
+				"DEF:temp7=$rrd:hptemp1_8:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp1/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+			}
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	if(scalar(my @hptemp1 = split(',', $hptemp->{list}->{1}))) {
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 6; $n++) {
+			if($hptemp1[$n]) {
+				foreach(@hplog) {
+					$id = sprintf("%2d", trim($hptemp1[$n]));
+					if(/^$id  /) {
+						$str = substr($_, 17, 8);
+						$str = sprintf("%-8s", $str);
+						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						push(@tmp, "GPRINT:temp" . $n . ":LAST:\\: %2.0lf");
+						if(!(($n + 1) % 2)) {
+							push(@tmp, "COMMENT: \\n");
+						} else {
+							push(@tmp, "COMMENT:    ");
+						}
+						$str =~ s/\s+$//;
+						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						last;
+					}
+				}
+			} else {
+				push(@tmp, "COMMENT: \\n") unless ($n + 1) % 2;
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG2",
+			"--title=$config->{graphs}->{_hptemp2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:temp0=$rrd:hptemp2_1:AVERAGE",
+			"DEF:temp1=$rrd:hptemp2_2:AVERAGE",
+			"DEF:temp2=$rrd:hptemp2_3:AVERAGE",
+			"DEF:temp3=$rrd:hptemp2_4:AVERAGE",
+			"DEF:temp4=$rrd:hptemp2_5:AVERAGE",
+			"DEF:temp5=$rrd:hptemp2_6:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG2z",
+				"--title=$config->{graphs}->{_hptemp2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Celsius",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:temp0=$rrd:hptemp2_1:AVERAGE",
+				"DEF:temp1=$rrd:hptemp2_2:AVERAGE",
+				"DEF:temp2=$rrd:hptemp2_3:AVERAGE",
+				"DEF:temp3=$rrd:hptemp2_4:AVERAGE",
+				"DEF:temp4=$rrd:hptemp2_5:AVERAGE",
+				"DEF:temp5=$rrd:hptemp2_6:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+			}
+		}
+	}
+
+	if(scalar(my @hptemp2 = split(',', $hptemp->{list}->{2}))) {
+		undef(@tmp);
+		undef(@tmpz);
+		for($n = 0; $n < 6; $n++) {
+			if($hptemp2[$n]) {
+				foreach(@hplog) {
+					$id = sprintf("%2d", trim($hptemp2[$n]));
+					if(/^$id  /) {
+						$str = substr($_, 17, 8);
+						$str = sprintf("%-8s", $str);
+						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						push(@tmp, "GPRINT:temp" . $n . ":LAST:\\: %2.0lf");
+						if(!(($n + 1) % 2)) {
+							push(@tmp, "COMMENT: \\n");
+						} else {
+							push(@tmp, "COMMENT:    ");
+						}
+						$str =~ s/\s+$//;
+						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
+						last;
+					}
+				}
+			} else {
+				push(@tmp, "COMMENT: \\n") unless ($n + 1) % 2;
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG3",
+			"--title=$config->{graphs}->{_hptemp3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:temp0=$rrd:hptemp3_1:AVERAGE",
+			"DEF:temp1=$rrd:hptemp3_2:AVERAGE",
+			"DEF:temp2=$rrd:hptemp3_3:AVERAGE",
+			"DEF:temp3=$rrd:hptemp3_4:AVERAGE",
+			"DEF:temp4=$rrd:hptemp3_5:AVERAGE",
+			"DEF:temp5=$rrd:hptemp3_6:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG3z",
+				"--title=$config->{graphs}->{_hptemp3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Celsius",
+				"--width=$width",
+				"--height=$height",
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:temp0=$rrd:hptemp3_1:AVERAGE",
+				"DEF:temp1=$rrd:hptemp3_2:AVERAGE",
+				"DEF:temp2=$rrd:hptemp3_3:AVERAGE",
+				"DEF:temp3=$rrd:hptemp3_4:AVERAGE",
+				"DEF:temp4=$rrd:hptemp3_5:AVERAGE",
+				"DEF:temp5=$rrd:hptemp3_6:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp3/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+			}
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/icecast.pm b/lib/icecast.pm
new file mode 100644
index 0000000..81e7f0e
--- /dev/null
+++ b/lib/icecast.pm
@@ -0,0 +1,566 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package icecast;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use LWP::UserAgent;
+use Exporter 'import';
+our @EXPORT = qw(icecast_init icecast_update icecast_cgi);
+
+sub icecast_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $icecast = $config->{icecast};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 36 != scalar(my @il = split(',', $icecast->{list}))) {
+			logger("Detected size mismatch between 'list' (" . scalar(my @il = split(',', $icecast->{list})) . ") and $rrd (" . scalar(@ds) / 36 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @il = split(',', $icecast->{list})); $n++) {
+			push(@tmp, "DS:icecast" . $n . "_mp0_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp0_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp0_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp0_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp1_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp1_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp1_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp1_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp2_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp2_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp2_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp2_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp3_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp3_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp3_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp3_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp4_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp4_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp4_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp4_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp5_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp5_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp5_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp5_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp6_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp6_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp6_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp6_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp7_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp7_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp7_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp7_v1:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp8_ls:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp8_br:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp8_v0:GAUGE:120:0:U");
+			push(@tmp, "DS:icecast" . $n . "_mp8_v1:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub icecast_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $icecast = $config->{icecast};
+
+	my @ls;
+	my @br;
+
+	my $n;
+	my $rrdata = "N";
+
+	my $e = 0;
+	foreach(my @il = split(',', $icecast->{list})) {
+		my $ils = trim($il[$e]);
+		my $ua = LWP::UserAgent->new(timeout => 30);
+		my $response = $ua->request(HTTP::Request->new('GET', trim($_)));
+		my $data = $response->content;
+
+		$data =~ s/\n//g;
+		undef(@ls);
+		undef(@br);
+		foreach my $i (split(',', $icecast->{desc}->{$ils})) {
+			my $m = "Mount Point " . trim($i);
+			my ($l) = ($data =~ m/$m.*?<tr><td>Current Listeners:<\/td><td class=\"streamdata\">(\d*?)<\/td>/g);
+			my ($b) = ($data =~ m/$m.*?<tr><td>Bitrate:<\/td><td class=\"streamdata\">(\d*?)<\/td><\/tr>/g);
+			$l = 0 unless defined($l);
+			$b = 0 unless defined($b);
+			push(@ls, $l);
+			push(@br, $b);
+		}
+		for($n = 0; $n < 9; $n++) {
+			$ls[$n] = 0 unless defined($ls[$n]);
+			$br[$n] = 0 unless defined($br[$n]);
+			$rrdata .= ":" . $ls[$n];
+			$rrdata .= ":" . $br[$n];
+			$rrdata .= ":" . "0";
+			$rrdata .= ":" . "0";
+		}
+		$e++;
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub icecast_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $icecast = $config->{icecast};
+	my @rigid = split(',', $icecast->{rigid});
+	my @limit = split(',', $icecast->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $e;
+	my $n;
+	my $str;
+	my $stack;
+	my $err;
+	my @AC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#444444",
+	);
+	my @LC = (
+		"#FFA500",
+		"#00EEEE",
+		"#00EE00",
+		"#0000EE",
+		"#448844",
+		"#EE0000",
+		"#EE00EE",
+		"#EEEE00",
+		"#444444",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		my $line4;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @il = split(',', $icecast->{list})); $n++) {
+			my $l = trim($il[$n]);
+			$line1 = "  ";
+			$line2 .= "  ";
+			$line3 .= "  ";
+			$line4 .= "--";
+			foreach my $i (split(',', $icecast->{desc}->{$l})) {
+				$line1 .= "           ";
+				$line2 .= sprintf(" %10s", trim($i));
+				$line3 .= "  List BitR";
+				$line4 .= "-----------";
+			}
+			if($line1) {
+				my $i = length($line1);
+				printf(sprintf("%${i}s", sprintf("Icecast Server %2d", $n)));
+			}
+		}
+		print("\n");
+		print("    $line2");
+		print("\n");
+		print("Time$line3\n");
+		print("----$line4 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $n3;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @il = split(',', $icecast->{list})); $n2++) {
+				my $ls = trim($il[$n2]);
+				print("  ");
+				$n3 = 0;
+				foreach my $i (split(',', $icecast->{desc}->{$ls})) {
+					$from = $n2 * 36 + ($n3++ * 4);
+					$to = $from + 4;
+					my ($l, $b, undef, undef) = @$line[$from..$to];
+					@row = ($l, $b);
+					printf("  %4d %4d", @row);
+				}
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @il = split(',', $icecast->{list})); $n++) {
+		$str = $u . $package . $n . "1." . $tf->{when} . ".png";
+		push(@PNG, $str);
+		unlink("$PNG_DIR" . $str);
+		$str = $u . $package . $n . "2." . $tf->{when} . ".png";
+		push(@PNG, $str);
+		unlink("$PNG_DIR" . $str);
+		if(lc($config->{enable_zoom}) eq "y") {
+			$str = $u . $package . $n . "1z." . $tf->{when} . ".png";
+			push(@PNGz, $str);
+			unlink("$PNG_DIR" . $str);
+			$str = $u . $package . $n . "2z." . $tf->{when} . ".png";
+			push(@PNGz, $str);
+			unlink("$PNG_DIR" . $str);
+		}
+	}
+
+	$e = 0;
+	foreach my $url (my @il = split(',', $icecast->{list})) {
+		$url = trim($url);
+		if($e) {
+			print("   <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		$n = 0;
+		foreach my $i (split(',', $icecast->{desc}->{$url})) {
+			$i = trim($i);
+			$str = sprintf("%-15s", substr($i, 0, 15));
+			$stack = "";
+			if(lc($icecast->{graph_mode}) eq "s") {
+				$stack = ":STACK";
+			}
+			push(@tmp, "AREA:ice" . $e . "_mp$n" . $AC[$n] . ":$str" . $stack);
+			push(@tmpz, "AREA:ice" . $e . "_mp$n" . $AC[$n] . ":$i" . $stack);
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":LAST: Cur\\:%4.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":AVERAGE: Avg\\:%4.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MIN: Min\\:%4.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MAX: Max\\:%4.0lf\\n");
+			$n++;
+		}
+		if(lc($icecast->{graph_mode}) ne "s") {
+			foreach my $i (split(',', $icecast->{desc}->{$url})) {
+				push(@tmp, "LINE1:ice" . $e . "_mp$n" . $LC[$n]);
+				push(@tmpz, "LINE2:ice" . $e . "_mp$n" . $LC[$n]);
+			}
+		}
+
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 2]",
+			"--title=$config->{graphs}->{_icecast1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Listeners",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:ice" . $e . "_mp0=$rrd:icecast" . $e . "_mp0_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp1=$rrd:icecast" . $e . "_mp1_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp2=$rrd:icecast" . $e . "_mp2_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp3=$rrd:icecast" . $e . "_mp3_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp4=$rrd:icecast" . $e . "_mp4_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp5=$rrd:icecast" . $e . "_mp5_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp6=$rrd:icecast" . $e . "_mp6_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp7=$rrd:icecast" . $e . "_mp7_ls:AVERAGE",
+			"DEF:ice" . $e . "_mp8=$rrd:icecast" . $e . "_mp8_ls:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 2]",
+				"--title=$config->{graphs}->{_icecast1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Listeners",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:ice" . $e . "_mp0=$rrd:icecast" . $e . "_mp0_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp1=$rrd:icecast" . $e . "_mp1_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp2=$rrd:icecast" . $e . "_mp2_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp3=$rrd:icecast" . $e . "_mp3_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp4=$rrd:icecast" . $e . "_mp4_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp5=$rrd:icecast" . $e . "_mp5_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp6=$rrd:icecast" . $e . "_mp6_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp7=$rrd:icecast" . $e . "_mp7_ls:AVERAGE",
+				"DEF:ice" . $e . "_mp8=$rrd:icecast" . $e . "_mp8_ls:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 2]: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /icecast$e/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		$n = 0;
+		foreach my $i (split(',', $icecast->{desc}->{$url})) {
+			$i = trim($i);
+			$str = sprintf("%-15s", $i);
+			push(@tmp, "LINE1:ice" . $e . "_mp$n" . $LC[$n] . ":$str");
+			push(@tmpz, "LINE2:ice" . $e . "_mp$n" . $LC[$n] . ":$i");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":LAST: Cur\\:%3.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":AVERAGE:  Avg\\:%3.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MIN:  Min\\:%3.0lf");
+			push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MAX:  Max\\:%3.0lf\\n");
+			$n++;
+		}
+
+		if($title) {
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{medium});
+		RRDs::graph("$PNG_DIR" . $PNG[$e * 2 + 1],
+			"--title=$config->{graphs}->{_icecast2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Bitrate",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:ice" . $e . "_mp0=$rrd:icecast" . $e . "_mp0_br:AVERAGE",
+			"DEF:ice" . $e . "_mp1=$rrd:icecast" . $e . "_mp1_br:AVERAGE",
+			"DEF:ice" . $e . "_mp2=$rrd:icecast" . $e . "_mp2_br:AVERAGE",
+			"DEF:ice" . $e . "_mp3=$rrd:icecast" . $e . "_mp3_br:AVERAGE",
+			"DEF:ice" . $e . "_mp4=$rrd:icecast" . $e . "_mp4_br:AVERAGE",
+			"DEF:ice" . $e . "_mp5=$rrd:icecast" . $e . "_mp5_br:AVERAGE",
+			"DEF:ice" . $e . "_mp6=$rrd:icecast" . $e . "_mp6_br:AVERAGE",
+			"DEF:ice" . $e . "_mp7=$rrd:icecast" . $e . "_mp7_br:AVERAGE",
+			"DEF:ice" . $e . "_mp8=$rrd:icecast" . $e . "_mp8_br:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 2 + 1] . ": $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . $PNGz[$e * 2 + 1],
+				"--title=$config->{graphs}->{_icecast2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Bitrate",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:ice" . $e . "_mp0=$rrd:icecast" . $e . "_mp0_br:AVERAGE",
+				"DEF:ice" . $e . "_mp1=$rrd:icecast" . $e . "_mp1_br:AVERAGE",
+				"DEF:ice" . $e . "_mp2=$rrd:icecast" . $e . "_mp2_br:AVERAGE",
+				"DEF:ice" . $e . "_mp3=$rrd:icecast" . $e . "_mp3_br:AVERAGE",
+				"DEF:ice" . $e . "_mp4=$rrd:icecast" . $e . "_mp4_br:AVERAGE",
+				"DEF:ice" . $e . "_mp5=$rrd:icecast" . $e . "_mp5_br:AVERAGE",
+				"DEF:ice" . $e . "_mp6=$rrd:icecast" . $e . "_mp6_br:AVERAGE",
+				"DEF:ice" . $e . "_mp7=$rrd:icecast" . $e . "_mp7_br:AVERAGE",
+				"DEF:ice" . $e . "_mp8=$rrd:icecast" . $e . "_mp8_br:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 2 + 1] . ": $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /icecast$e/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 2 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 2 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 2 + 1] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+	
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b>&nbsp;&nbsp;<a href='" . $url . "' style='{color: " . $colors->{title_fg_color} . "}'>$url</a><b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/int.pm b/lib/int.pm
new file mode 100644
index 0000000..03c278e
--- /dev/null
+++ b/lib/int.pm
@@ -0,0 +1,1165 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package int;
+
+#use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(int_init int_update int_cgi);
+
+sub int_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:int_0:COUNTER:120:0:U",
+				"DS:int_1:COUNTER:120:0:U",
+				"DS:int_2:COUNTER:120:0:U",
+				"DS:int_3:COUNTER:120:0:U",
+				"DS:int_4:COUNTER:120:0:U",
+				"DS:int_5:COUNTER:120:0:U",
+				"DS:int_6:COUNTER:120:0:U",
+				"DS:int_7:COUNTER:120:0:U",
+				"DS:int_8:COUNTER:120:0:U",
+				"DS:int_9:COUNTER:120:0:U",
+				"DS:int_10:COUNTER:120:0:U",
+				"DS:int_11:COUNTER:120:0:U",
+				"DS:int_12:COUNTER:120:0:U",
+				"DS:int_13:COUNTER:120:0:U",
+				"DS:int_14:COUNTER:120:0:U",
+				"DS:int_15:COUNTER:120:0:U",
+				"DS:int_16:COUNTER:120:0:U",
+				"DS:int_17:COUNTER:120:0:U",
+				"DS:int_18:COUNTER:120:0:U",
+				"DS:int_19:COUNTER:120:0:U",
+				"DS:int_20:COUNTER:120:0:U",
+				"DS:int_21:COUNTER:120:0:U",
+				"DS:int_22:COUNTER:120:0:U",
+				"DS:int_23:COUNTER:120:0:U",
+				"DS:int_24:COUNTER:120:0:U",
+				"DS:int_25:COUNTER:120:0:U",
+				"DS:int_26:COUNTER:120:0:U",
+				"DS:int_27:COUNTER:120:0:U",
+				"DS:int_28:COUNTER:120:0:U",
+				"DS:int_29:COUNTER:120:0:U",
+				"DS:int_30:COUNTER:120:0:U",
+				"DS:int_31:COUNTER:120:0:U",
+				"DS:int_32:COUNTER:120:0:U",
+				"DS:int_33:COUNTER:120:0:U",
+				"DS:int_34:COUNTER:120:0:U",
+				"DS:int_35:COUNTER:120:0:U",
+				"DS:int_36:COUNTER:120:0:U",
+				"DS:int_37:COUNTER:120:0:U",
+				"DS:int_38:COUNTER:120:0:U",
+				"DS:int_39:COUNTER:120:0:U",
+				"DS:int_40:COUNTER:120:0:U",
+				"DS:int_41:COUNTER:120:0:U",
+				"DS:int_42:COUNTER:120:0:U",
+				"DS:int_43:COUNTER:120:0:U",
+				"DS:int_44:COUNTER:120:0:U",
+				"DS:int_45:COUNTER:120:0:U",
+				"DS:int_46:COUNTER:120:0:U",
+				"DS:int_47:COUNTER:120:0:U",
+				"DS:int_48:COUNTER:120:0:U",
+				"DS:int_49:COUNTER:120:0:U",
+				"DS:int_50:COUNTER:120:0:U",
+				"DS:int_51:COUNTER:120:0:U",
+				"DS:int_52:COUNTER:120:0:U",
+				"DS:int_53:COUNTER:120:0:U",
+				"DS:int_54:COUNTER:120:0:U",
+				"DS:int_55:COUNTER:120:0:U",
+				"DS:int_56:COUNTER:120:0:U",
+				"DS:int_57:COUNTER:120:0:U",
+				"DS:int_58:COUNTER:120:0:U",
+				"DS:int_59:COUNTER:120:0:U",
+				"DS:int_60:COUNTER:120:0:U",
+				"DS:int_61:COUNTER:120:0:U",
+				"DS:int_62:COUNTER:120:0:U",
+				"DS:int_63:COUNTER:120:0:U",
+				"DS:int_64:COUNTER:120:0:U",
+				"DS:int_65:COUNTER:120:0:U",
+				"DS:int_66:COUNTER:120:0:U",
+				"DS:int_67:COUNTER:120:0:U",
+				"DS:int_68:COUNTER:120:0:U",
+				"DS:int_69:COUNTER:120:0:U",
+				"DS:int_70:COUNTER:120:0:U",
+				"DS:int_71:COUNTER:120:0:U",
+				"DS:int_72:COUNTER:120:0:U",
+				"DS:int_73:COUNTER:120:0:U",
+				"DS:int_74:COUNTER:120:0:U",
+				"DS:int_75:COUNTER:120:0:U",
+				"DS:int_76:COUNTER:120:0:U",
+				"DS:int_77:COUNTER:120:0:U",
+				"DS:int_78:COUNTER:120:0:U",
+				"DS:int_79:COUNTER:120:0:U",
+				"DS:int_80:COUNTER:120:0:U",
+				"DS:int_81:COUNTER:120:0:U",
+				"DS:int_82:COUNTER:120:0:U",
+				"DS:int_83:COUNTER:120:0:U",
+				"DS:int_84:COUNTER:120:0:U",
+				"DS:int_85:COUNTER:120:0:U",
+				"DS:int_86:COUNTER:120:0:U",
+				"DS:int_87:COUNTER:120:0:U",
+				"DS:int_88:COUNTER:120:0:U",
+				"DS:int_89:COUNTER:120:0:U",
+				"DS:int_90:COUNTER:120:0:U",
+				"DS:int_91:COUNTER:120:0:U",
+				"DS:int_92:COUNTER:120:0:U",
+				"DS:int_93:COUNTER:120:0:U",
+				"DS:int_94:COUNTER:120:0:U",
+				"DS:int_95:COUNTER:120:0:U",
+				"DS:int_96:COUNTER:120:0:U",
+				"DS:int_97:COUNTER:120:0:U",
+				"DS:int_98:COUNTER:120:0:U",
+				"DS:int_99:COUNTER:120:0:U",
+				"DS:int_100:COUNTER:120:0:U",
+				"DS:int_101:COUNTER:120:0:U",
+				"DS:int_102:COUNTER:120:0:U",
+				"DS:int_103:COUNTER:120:0:U",
+				"DS:int_104:COUNTER:120:0:U",
+				"DS:int_105:COUNTER:120:0:U",
+				"DS:int_106:COUNTER:120:0:U",
+				"DS:int_107:COUNTER:120:0:U",
+				"DS:int_108:COUNTER:120:0:U",
+				"DS:int_109:COUNTER:120:0:U",
+				"DS:int_110:COUNTER:120:0:U",
+				"DS:int_111:COUNTER:120:0:U",
+				"DS:int_112:COUNTER:120:0:U",
+				"DS:int_113:COUNTER:120:0:U",
+				"DS:int_114:COUNTER:120:0:U",
+				"DS:int_115:COUNTER:120:0:U",
+				"DS:int_116:COUNTER:120:0:U",
+				"DS:int_117:COUNTER:120:0:U",
+				"DS:int_118:COUNTER:120:0:U",
+				"DS:int_119:COUNTER:120:0:U",
+				"DS:int_120:COUNTER:120:0:U",
+				"DS:int_121:COUNTER:120:0:U",
+				"DS:int_122:COUNTER:120:0:U",
+				"DS:int_123:COUNTER:120:0:U",
+				"DS:int_124:COUNTER:120:0:U",
+				"DS:int_125:COUNTER:120:0:U",
+				"DS:int_126:COUNTER:120:0:U",
+				"DS:int_127:COUNTER:120:0:U",
+				"DS:int_128:COUNTER:120:0:U",
+				"DS:int_129:COUNTER:120:0:U",
+				"DS:int_130:COUNTER:120:0:U",
+				"DS:int_131:COUNTER:120:0:U",
+				"DS:int_132:COUNTER:120:0:U",
+				"DS:int_133:COUNTER:120:0:U",
+				"DS:int_134:COUNTER:120:0:U",
+				"DS:int_135:COUNTER:120:0:U",
+				"DS:int_136:COUNTER:120:0:U",
+				"DS:int_137:COUNTER:120:0:U",
+				"DS:int_138:COUNTER:120:0:U",
+				"DS:int_139:COUNTER:120:0:U",
+				"DS:int_140:COUNTER:120:0:U",
+				"DS:int_141:COUNTER:120:0:U",
+				"DS:int_142:COUNTER:120:0:U",
+				"DS:int_143:COUNTER:120:0:U",
+				"DS:int_144:COUNTER:120:0:U",
+				"DS:int_145:COUNTER:120:0:U",
+				"DS:int_146:COUNTER:120:0:U",
+				"DS:int_147:COUNTER:120:0:U",
+				"DS:int_148:COUNTER:120:0:U",
+				"DS:int_149:COUNTER:120:0:U",
+				"DS:int_150:COUNTER:120:0:U",
+				"DS:int_151:COUNTER:120:0:U",
+				"DS:int_152:COUNTER:120:0:U",
+				"DS:int_153:COUNTER:120:0:U",
+				"DS:int_154:COUNTER:120:0:U",
+				"DS:int_155:COUNTER:120:0:U",
+				"DS:int_156:COUNTER:120:0:U",
+				"DS:int_157:COUNTER:120:0:U",
+				"DS:int_158:COUNTER:120:0:U",
+				"DS:int_159:COUNTER:120:0:U",
+				"DS:int_160:COUNTER:120:0:U",
+				"DS:int_161:COUNTER:120:0:U",
+				"DS:int_162:COUNTER:120:0:U",
+				"DS:int_163:COUNTER:120:0:U",
+				"DS:int_164:COUNTER:120:0:U",
+				"DS:int_165:COUNTER:120:0:U",
+				"DS:int_166:COUNTER:120:0:U",
+				"DS:int_167:COUNTER:120:0:U",
+				"DS:int_168:COUNTER:120:0:U",
+				"DS:int_169:COUNTER:120:0:U",
+				"DS:int_170:COUNTER:120:0:U",
+				"DS:int_171:COUNTER:120:0:U",
+				"DS:int_172:COUNTER:120:0:U",
+				"DS:int_173:COUNTER:120:0:U",
+				"DS:int_174:COUNTER:120:0:U",
+				"DS:int_175:COUNTER:120:0:U",
+				"DS:int_176:COUNTER:120:0:U",
+				"DS:int_177:COUNTER:120:0:U",
+				"DS:int_178:COUNTER:120:0:U",
+				"DS:int_179:COUNTER:120:0:U",
+				"DS:int_180:COUNTER:120:0:U",
+				"DS:int_181:COUNTER:120:0:U",
+				"DS:int_182:COUNTER:120:0:U",
+				"DS:int_183:COUNTER:120:0:U",
+				"DS:int_184:COUNTER:120:0:U",
+				"DS:int_185:COUNTER:120:0:U",
+				"DS:int_186:COUNTER:120:0:U",
+				"DS:int_187:COUNTER:120:0:U",
+				"DS:int_188:COUNTER:120:0:U",
+				"DS:int_189:COUNTER:120:0:U",
+				"DS:int_190:COUNTER:120:0:U",
+				"DS:int_191:COUNTER:120:0:U",
+				"DS:int_192:COUNTER:120:0:U",
+				"DS:int_193:COUNTER:120:0:U",
+				"DS:int_194:COUNTER:120:0:U",
+				"DS:int_195:COUNTER:120:0:U",
+				"DS:int_196:COUNTER:120:0:U",
+				"DS:int_197:COUNTER:120:0:U",
+				"DS:int_198:COUNTER:120:0:U",
+				"DS:int_199:COUNTER:120:0:U",
+				"DS:int_200:COUNTER:120:0:U",
+				"DS:int_201:COUNTER:120:0:U",
+				"DS:int_202:COUNTER:120:0:U",
+				"DS:int_203:COUNTER:120:0:U",
+				"DS:int_204:COUNTER:120:0:U",
+				"DS:int_205:COUNTER:120:0:U",
+				"DS:int_206:COUNTER:120:0:U",
+				"DS:int_207:COUNTER:120:0:U",
+				"DS:int_208:COUNTER:120:0:U",
+				"DS:int_209:COUNTER:120:0:U",
+				"DS:int_210:COUNTER:120:0:U",
+				"DS:int_211:COUNTER:120:0:U",
+				"DS:int_212:COUNTER:120:0:U",
+				"DS:int_213:COUNTER:120:0:U",
+				"DS:int_214:COUNTER:120:0:U",
+				"DS:int_215:COUNTER:120:0:U",
+				"DS:int_216:COUNTER:120:0:U",
+				"DS:int_217:COUNTER:120:0:U",
+				"DS:int_218:COUNTER:120:0:U",
+				"DS:int_219:COUNTER:120:0:U",
+				"DS:int_220:COUNTER:120:0:U",
+				"DS:int_221:COUNTER:120:0:U",
+				"DS:int_222:COUNTER:120:0:U",
+				"DS:int_223:COUNTER:120:0:U",
+				"DS:int_224:COUNTER:120:0:U",
+				"DS:int_225:COUNTER:120:0:U",
+				"DS:int_226:COUNTER:120:0:U",
+				"DS:int_227:COUNTER:120:0:U",
+				"DS:int_228:COUNTER:120:0:U",
+				"DS:int_229:COUNTER:120:0:U",
+				"DS:int_230:COUNTER:120:0:U",
+				"DS:int_231:COUNTER:120:0:U",
+				"DS:int_232:COUNTER:120:0:U",
+				"DS:int_233:COUNTER:120:0:U",
+				"DS:int_234:COUNTER:120:0:U",
+				"DS:int_235:COUNTER:120:0:U",
+				"DS:int_236:COUNTER:120:0:U",
+				"DS:int_237:COUNTER:120:0:U",
+				"DS:int_238:COUNTER:120:0:U",
+				"DS:int_239:COUNTER:120:0:U",
+				"DS:int_240:COUNTER:120:0:U",
+				"DS:int_241:COUNTER:120:0:U",
+				"DS:int_242:COUNTER:120:0:U",
+				"DS:int_243:COUNTER:120:0:U",
+				"DS:int_244:COUNTER:120:0:U",
+				"DS:int_245:COUNTER:120:0:U",
+				"DS:int_246:COUNTER:120:0:U",
+				"DS:int_247:COUNTER:120:0:U",
+				"DS:int_248:COUNTER:120:0:U",
+				"DS:int_249:COUNTER:120:0:U",
+				"DS:int_250:COUNTER:120:0:U",
+				"DS:int_251:COUNTER:120:0:U",
+				"DS:int_252:COUNTER:120:0:U",
+				"DS:int_253:COUNTER:120:0:U",
+				"DS:int_254:COUNTER:120:0:U",
+				"DS:int_255:COUNTER:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub int_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	my @int;
+
+	my $n;
+	my $maxints;
+	my $rrdata = "N";
+
+	if($config->{os} eq "Linux") {
+		open(IN, "/proc/stat");
+		while(<IN>) {
+			if(/^intr/) {
+				my @tmp = split(' ', $_);
+				(undef, undef, @int) = @tmp;
+				last;
+			}
+		}
+		close(IN);
+	} elsif(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD")) {
+		open(IN, "vmstat -i |");
+		my @allfields;
+		my $num;
+		my $name;
+		my $ticks;
+		$maxints = 0;
+		while(<IN>) {
+			if(/^\D{3}\d+/) {
+				@allfields = split(' ', $_);
+				$num = $allfields[0];
+				$name = $allfields[1];
+				$ticks = $allfields[$#allfields - 1];
+				chomp($ticks);
+				if($name eq "timer") {
+					$num = 0;
+				} else {
+					$num =~ s/^\D{3}//;
+					$num =~ s/://;
+				}
+				$int[$num] += $ticks;
+				$maxints = $maxints < $num ? $num : $maxints;
+			}
+		}
+		close(IN);
+		for($n = 0; $n < $maxints; $n++) {
+			$int[$n] = !$int[$n] ? 0 : $int[$n];
+		}
+	}
+
+	for($n = 0; $n < scalar(@int); $n++) {
+		if(($n % 256) != $n) {
+			$int[$n % 256] += $int[$n];
+		}
+	}
+
+	for($n = 0; $n < 256; $n++) {
+		if(!defined($int[$n])) {
+			$int[$n] = 0;
+		}
+		$rrdata .= ":" . $int[$n];
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub int_cgi {
+	my ($myself, $title) = @_;
+
+	my $width;
+	my $height;
+	my @riglim;
+	my $n;
+	my $err;
+
+	my @INT;
+	my @NAME;
+	my @DEF1;
+	my @AREA1;
+	my @LINE1;
+	my @DEF2;
+	my @AREA2;
+	my @LINE2;
+	my @DEF3;
+	my @AREA3;
+	my @LINE3;
+	my $n1;
+	my $n2;
+	my $n3;
+	my @ACOLOR1 =  ("#FFA500",
+			"#44EEEE",
+			"#CCCCCC",
+			"#B4B444",
+			"#4444EE",
+			"#44EE44",
+			"#EEEE44",
+			"#444444",
+			"#EE44EE",
+			"#EE4444",
+			"#448844",
+			"#BB44EE",
+			"#D3D701",
+			"#E29136",
+			"#DDAE8C",
+			"#F29967",
+			"#996952",
+			"#EB6C75",
+			"#B84F6B",
+			"#963C74",
+			"#A68BBC",
+			"#597AB7",
+			"#8CB4CE",
+			"#63BEE0",
+			"#3CB5B0",
+			"#7EB97C",
+			"#94C36B",
+			"#884632",
+
+			"#CD5C5C",
+			"#F08080",
+			"#FA8072",
+			"#E9967A",
+			"#FFA07A",
+			"#DC143C",
+			"#B22222",
+			"#8B0000",
+			"#FFC0CB",
+			"#FF69B4",
+			"#FF1493",
+			"#C71585",
+			"#DB7093",
+			"#FFA07A",
+			"#FF7F50",
+			"#FF6347",
+			"#FF4500",
+			"#FF8C00",
+			"#FFD700",
+			"#FFFFE0",
+			"#FFFACD",
+			"#FFEFD5",
+			"#FFE4B5",
+			"#FFDAB9",
+			"#EEE8AA",
+			"#F0E68C",
+			"#BDB76B",
+			"#E6E6FA",
+			"#D8BFD8",
+			"#DDA0DD",
+			"#EE82EE",
+			"#DA70D6",
+			"#BA55D3",
+			"#9370DB",
+			"#9966CC",
+			"#8A2BE2",
+			"#9400D3",
+			"#9932CC",
+			"#8B008B",
+			"#4B0082",
+			"#6A5ACD",
+			"#483D8B",
+			"#7B68EE",
+			"#ADFF2F",
+			"#7FFF00",
+			"#32CD32",
+			"#98FB98",
+			"#90EE90",
+			"#00FA9A",
+			"#00FF7F",
+			"#3CB371",
+			"#2E8B57",
+			"#228B22",
+			"#9ACD32",
+			"#6B8E23",
+			"#808000",
+			"#556B2F",
+			"#66CDAA",
+			"#8FBC8F",
+			"#20B2AA",
+			"#008B8B",
+			"#007070",
+			"#E0FFFF",
+			"#AFEEEE",
+			"#7FFFD4",
+			"#40E0D0",
+			"#48D1CC",
+			"#00CED1",
+			"#5F9EA0",
+			"#4682B4",
+			"#B0C4DE",
+			"#B0E0E6",
+			"#ADD8E6",
+			"#87CEEB",
+			"#00BFFF",
+			"#1E90FF",
+			"#6495ED",
+			"#7B68EE",
+			"#4169E1",
+			"#191970",
+			"#FFF8DC",
+			"#FFEBCD",
+			"#FFDEAD",
+			"#F5DEB3",
+			"#DEB887",
+			"#D2B48C",
+			"#BC8F8F",
+			"#F4A460",
+			"#DAA520",
+			"#B8860B",
+			"#CD853F",
+			"#D2691E",
+			"#8B4513",
+			"#A0522D",
+			"#A52A2A",
+			"#800000",
+			"#FFFAFA",
+			"#F0FFF0",
+			"#F0F8FF",
+			"#F5F5F5",
+			"#FDF5E6",
+			"#F5F5DC",
+			"#FAEBD7",
+			"#FFE4E1",
+			"#DCDCDC",
+			"#696969",
+			"#A9A9A9",
+			"#708090",
+			"#2F4F4F",
+			"#000066",
+			"#006633",
+			"#660033",
+			"#66FFCC",
+			"#990066",
+			"#996633",
+			"#99CCCC",
+			"#CC3366",
+			"#CC6633",
+			"#CC6699",
+			"#CC9933",
+			"#CC9999",
+			"#CCCC33",
+			"#CCCC99",
+			"#CCFF99",
+			"#FF0099",
+			"#FF6666",
+			"#FF9999",
+			"#FFCC99",
+			"#FFFF99");
+
+	my @LCOLOR1 =  ("#DDA500",
+			"#00EEEE",
+			"#888888",
+			"#B4B400",
+			"#0000EE",
+			"#00EE00",
+			"#EEEE00",
+			"#444444",
+			"#EE00EE",
+			"#EE0000",
+			"#008800",
+			"#BB00EE",
+			"#C8D200",
+			"#DB6612",
+			"#CE8248",
+			"#EB6A39",
+			"#8F4C30",
+			"#E20045",
+			"#B50C51",
+			"#7B0059",
+			"#684894",
+			"#125AA3",
+			"#518FBA",
+			"#00AADA",
+			"#009790",
+			"#359B52",
+			"#56AB27",
+			"#782F1E",
+
+			"#CD5C5C",
+			"#F08080",
+			"#FA8072",
+			"#E9967A",
+			"#FFA07A",
+			"#DC143C",
+			"#B22222",
+			"#8B0000",
+			"#FFC0CB",
+			"#FF69B4",
+			"#FF1493",
+			"#C71585",
+			"#DB7093",
+			"#FFA07A",
+			"#FF7F50",
+			"#FF6347",
+			"#FF4500",
+			"#FF8C00",
+			"#FFD700",
+			"#FFFFE0",
+			"#FFFACD",
+			"#FFEFD5",
+			"#FFE4B5",
+			"#FFDAB9",
+			"#EEE8AA",
+			"#F0E68C",
+			"#BDB76B",
+			"#E6E6FA",
+			"#D8BFD8",
+			"#DDA0DD",
+			"#EE82EE",
+			"#DA70D6",
+			"#BA55D3",
+			"#9370DB",
+			"#9966CC",
+			"#8A2BE2",
+			"#9400D3",
+			"#9932CC",
+			"#8B008B",
+			"#4B0082",
+			"#6A5ACD",
+			"#483D8B",
+			"#7B68EE",
+			"#ADFF2F",
+			"#7FFF00",
+			"#32CD32",
+			"#98FB98",
+			"#90EE90",
+			"#00FA9A",
+			"#00FF7F",
+			"#3CB371",
+			"#2E8B57",
+			"#228B22",
+			"#9ACD32",
+			"#6B8E23",
+			"#808000",
+			"#556B2F",
+			"#66CDAA",
+			"#8FBC8F",
+			"#20B2AA",
+			"#008B8B",
+			"#007070",
+			"#E0FFFF",
+			"#AFEEEE",
+			"#7FFFD4",
+			"#40E0D0",
+			"#48D1CC",
+			"#00CED1",
+			"#5F9EA0",
+			"#4682B4",
+			"#B0C4DE",
+			"#B0E0E6",
+			"#ADD8E6",
+			"#87CEEB",
+			"#00BFFF",
+			"#1E90FF",
+			"#6495ED",
+			"#7B68EE",
+			"#4169E1",
+			"#191970",
+			"#FFF8DC",
+			"#FFEBCD",
+			"#FFDEAD",
+			"#F5DEB3",
+			"#DEB887",
+			"#D2B48C",
+			"#BC8F8F",
+			"#F4A460",
+			"#DAA520",
+			"#B8860B",
+			"#CD853F",
+			"#D2691E",
+			"#8B4513",
+			"#A0522D",
+			"#A52A2A",
+			"#800000",
+			"#FFFAFA",
+			"#F0FFF0",
+			"#F0F8FF",
+			"#F5F5F5",
+			"#FDF5E6",
+			"#F5F5DC",
+			"#FAEBD7",
+			"#FFE4E1",
+			"#DCDCDC",
+			"#696969",
+			"#A9A9A9",
+			"#708090",
+			"#2F4F4F",
+			"#000066",
+			"#006633",
+			"#660033",
+			"#66FFCC",
+			"#990066",
+			"#996633",
+			"#99CCCC",
+			"#CC3366",
+			"#CC6633",
+			"#CC6699",
+			"#CC9933",
+			"#CC9999",
+			"#CCCC33",
+			"#CCCC99",
+			"#CCFF99",
+			"#FF0099",
+			"#FF6666",
+			"#FF9999",
+			"#FFCC99",
+			"#FFFF99");
+
+	my @ACOLOR2 =  ("#44EEEE",
+			"#4444EE",
+			"#44EE44",
+			"#EE44EE",
+			"#EE4444",
+			"#EEEE44");
+	my @LCOLOR2 =  ("#00EEEE",
+			"#0000EE",
+			"#00EE00",
+			"#EE00EE",
+			"#EE0000",
+			"#EEEE00");
+
+	my @ACOLOR3 =  ("#44EE44",
+			"#4444EE",
+			"#44EEEE",
+			"#EE4444",
+			"#EE44EE",
+			"#EEEE44");
+	my @LCOLOR3 =  ("#00EE00",
+			"#0000EE",
+			"#00EEEE",
+			"#EE0000",
+			"#EE00EE",
+			"#EEEE00");
+
+	my $PNG1 = $u . $myself . "1." . $when . ".png";
+	my $PNG2 = $u . $myself . "2." . $when . ".png";
+	my $PNG3 = $u . $myself . "3." . $when . ".png";
+	my $PNG1z = $u . $myself . "1z." . $when . ".png";
+	my $PNG2z = $u . $myself . "2z." . $when . ".png";
+	my $PNG3z = $u . $myself . "3z." . $when . ".png";
+
+	$title = !$silent ? $title : "";
+
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if($ENABLE_ZOOM eq "Y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($os eq "Linux") {
+		open(IN, "/proc/interrupts");
+		my $timer_pos = 0;
+		my $i8042_pos = 0;
+		my $good_pos = 0;
+		my $num;
+		my $name;
+		while(<IN>) {
+			if(/Dynamic-irq/) {
+				next;
+			}
+			if(/[0-9]:/) {
+				# Assuming int 0 will be only for timer
+				if(/\s+0:/ || /^256:/) {
+					$timer_pos = index($_, "timer", 0);
+				}
+				# Assuming int 1 will be only for i8042
+				if(/\s+1:/) {
+					$i8042_pos = index($_, "i8042", 0);
+				}
+				$timer_pos = $timer_pos == 0 ? 999 : $timer_pos;
+				$i8042_pos = $i8042_pos == -1 ? 0 : $i8042_pos;
+				$good_pos = $timer_pos > $i8042_pos ? $i8042_pos : $timer_pos;
+				$good_pos = $good_pos ? $good_pos : $timer_pos;
+				$num = unpack("A4", $_);
+				undef($name);
+				if(length($_) >= $good_pos) {
+					$name = substr($_, $good_pos);
+					$name = defined($name) ? $name : "";
+				}
+				chomp($num, $name);
+				$name =~ s/^\s+//;
+				$num =~ s/^\s+//;
+				$num =~ s/:.*//;
+				$n = $num;
+				$num = $num > 255 ? $num % 256 : $num;
+				$INT[$num] = defined($INT[$num]) ? $INT[$num] . "," : "";
+				$NAME[$num] = defined($NAME[$num]) ? $NAME[$num] . ", " : "";
+				$INT[$num] .= $n;
+				$NAME[$num] .= $name;
+			}
+		}
+		close(IN);
+	} elsif ($os eq "FreeBSD" || $os eq "OpenBSD") {
+		open(IN, "vmstat -i | sort |");
+		my @allfields;
+		my $num;
+		my $name;
+		while(<IN>) {
+			if(/^\D{3}\d+/) {
+				@allfields = split(' ', $_);
+				$num = $allfields[0];
+				$name = "";
+				for($n = 1; $n <= $#allfields - 2; $n++) {
+					$name .= $allfields[$n] . " ";
+				}
+				$num =~ s/^\D{3}//;
+				$num =~ s/://;
+				$name =~ s/\s+$//;
+
+				# only the first timer (cpu0) is covered
+				if($name eq "timer") {
+					if($num != 0) {
+						next;
+					}
+				}
+
+				$n = $num;
+				$num = $num > 255 ? $num % 256 : $num;
+				$INT[$num] = defined($INT[$num]) ? $INT[$num] . "," : "";
+				$NAME[$num] = defined($NAME[$num]) ? $NAME[$num] . ", " : "";
+				$INT[$num] .= $n;
+				$NAME[$num] .= $name;
+			}
+		}
+		close(IN);
+
+		chomp(@NAME);
+		# strip all blank spaces at the end of the strings
+		for($n = 0; $n < 256; $n++) {
+			if(defined($NAME[$n])) {
+				$NAME[$n] =~ s/\s+$//;
+			}
+		}
+	}
+
+	if($IFACE_MODE eq "text") {
+		if($title) {
+			graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$title_bg_color'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$INT_RRD",
+			"--start=-$nwhen$twhen",
+			"AVERAGE",
+			"-r $res");
+		$err = RRDs::error;
+		print("ERROR: while fetching $INT_RRD: $err\n") if $err;
+		my $line1;
+		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
+		print("Time   ");
+		for($n = 0; $n < 256; $n++) {
+			if(defined($INT[$n])) {
+				printf(" %8s", $INT[$n]);
+				$line1 .= "---------";
+			}
+		}
+		print(" \n");
+		print("-------$line1\n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
+			$line = @$data[$n];
+			@row = @$line;
+			$time = $time - (1 / $ts);
+			printf(" %2d$tc   ", $time);
+			for($n2 = 0; $n2 < 256; $n2++) {
+				if(defined($INT[$n2])) {
+					printf(" %8d", $row[$n2]);
+				}
+			}
+			print(" \n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			graph_footer();
+		}
+		return 1;
+	}
+
+	if($title) {
+		graph_header($title, 2);
+	}
+
+	my $i;
+	for($n = 0, $n1 = 0, $n2 = 0, $n3 = 0; $n < 256; $n++) {
+		if(defined($NAME[$n])) {
+			# We need to escape colons to support RRDtool v1.2+
+			if($RRDs::VERSION > 1.2) {
+				$NAME[$n] =~ s/:/\\:/g;
+			}
+		}
+		if(defined($INT[$n])) {
+			if(index($INT[$n], ",", 0) < 0) {
+				$i = $INT[$n];
+			} else {
+				($i) = split(',', $INT[$n]);
+			}
+			if($i < 3 || $NAME[$n] =~ /timer/) {
+				push(@DEF2, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
+				push(@AREA2, ("AREA:int" . $n . $ACOLOR2[$n2] . ":(" . $INT[$n] . ")" . $NAME[$n]));
+				push(@LINE2, ("LINE1:int" . $n . $LCOLOR2[$n2]));
+				$n2++;
+			} elsif($i < 6 || $NAME[$n] =~ /^xen/) {
+				push(@DEF3, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
+				push(@AREA3, ("AREA:int" . $n . $ACOLOR3[$n3] . ":(" . $INT[$n] . ")" . $NAME[$n]));
+				push(@LINE3, ("LINE1:int" . $n . $LCOLOR3[$n3]));
+				$n3++;
+			} else {
+				push(@DEF1, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
+				push(@AREA1, ("AREA:int" . $n . $ACOLOR1[$n1] . ":(" . $INT[$n] . ")" . $NAME[$n]));
+				push(@LINE1, ("LINE1:int" . $n . $LCOLOR1[$n1]));
+				$n1++;
+				if(!($n1 % 3)) {
+					push(@AREA1, ("COMMENT: \\n"));
+				}
+			}
+		}
+	}
+	push(@AREA1, ("COMMENT: \\n"));
+	if($INT1_RIGID eq 1) {
+		push(@riglim, "--upper-limit=$INT1_LIMIT");
+	} else {
+		if($INT1_RIGID eq 2) {
+			push(@riglim, "--upper-limit=$INT1_LIMIT");
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$title_bg_color'>\n");
+	}
+	($width, $height) = split('x', $GRAPH_SIZE{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$rgraphs{_int1}  ($nwhen$twhen)",
+		"--start=-$nwhen$twhen",
+		"--imgformat=PNG",
+		"--vertical-label=Ticks/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@VERSION12,
+		@graph_colors,
+		@DEF1,
+		@AREA1,
+		@LINE1);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if($ENABLE_ZOOM eq "Y") {
+		($width, $height) = split('x', $GRAPH_SIZE{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$rgraphs{_int1}  ($nwhen$twhen)",
+			"--start=-$nwhen$twhen",
+			"--imgformat=PNG",
+			"--vertical-label=Ticks/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@VERSION12,
+			@graph_colors,
+			@DEF1,
+			@AREA1,
+			@LINE1);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /int1/)) {
+		if($ENABLE_ZOOM eq "Y") {
+			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
+				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
+	}
+
+	undef(@riglim);
+	if($INT2_RIGID eq 1) {
+		push(@riglim, "--upper-limit=$INT2_LIMIT");
+	} else {
+		if($INT2_RIGID eq 2) {
+			push(@riglim, "--upper-limit=$INT2_LIMIT");
+			push(@riglim, "--rigid");
+		}
+	}
+	($width, $height) = split('x', $GRAPH_SIZE{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$rgraphs{_int2}  ($nwhen$twhen)",
+		"--start=-$nwhen$twhen",
+		"--imgformat=PNG",
+		"--vertical-label=Ticks/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@VERSION12,
+		@VERSION12_small,
+		@graph_colors,
+		@DEF2,
+		@AREA2,
+		@LINE2);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if($ENABLE_ZOOM eq "Y") {
+		($width, $height) = split('x', $GRAPH_SIZE{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$rgraphs{_int2}  ($nwhen$twhen)",
+			"--start=-$nwhen$twhen",
+			"--imgformat=PNG",
+			"--vertical-label=Ticks/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@VERSION12,
+			@VERSION12_small,
+			@graph_colors,
+			@DEF2,
+			@AREA2,
+			@LINE2);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /int2/)) {
+		if($ENABLE_ZOOM eq "Y") {
+			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
+				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if($INT3_RIGID eq 1) {
+		push(@riglim, "--upper-limit=$INT3_LIMIT");
+	} else {
+		if($INT3_RIGID eq 2) {
+			push(@riglim, "--upper-limit=$INT3_LIMIT");
+			push(@riglim, "--rigid");
+		}
+	}
+	($width, $height) = split('x', $GRAPH_SIZE{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
+	}
+	if(@DEF3 && @AREA3 && @LINE3) {
+		RRDs::graph("$PNG_DIR" . "$PNG3",
+			"--title=$rgraphs{_int3}  ($nwhen$twhen)",
+			"--start=-$nwhen$twhen",
+			"--imgformat=PNG",
+			"--vertical-label=Ticks/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@VERSION12,
+			@VERSION12_small,
+			@graph_colors,
+			@DEF3,
+			@AREA3,
+			@LINE3);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+		if($ENABLE_ZOOM eq "Y") {
+			($width, $height) = split('x', $GRAPH_SIZE{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG3z",
+				"--title=$rgraphs{_int3}  ($nwhen$twhen)",
+				"--start=-$nwhen$twhen",
+				"--imgformat=PNG",
+				"--vertical-label=Ticks/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@VERSION12,
+				@VERSION12_small,
+				@graph_colors,
+				@DEF3,
+				@AREA3,
+				@LINE3);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+		}
+		if($title || ($silent =~ /imagetag/ && $graph =~ /int3/)) {
+			if($ENABLE_ZOOM eq "Y") {
+				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
+					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
+			}
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		graph_footer();
+	}
+	return 1;
+}
+
+1;
diff --git a/lib/kern.pm b/lib/kern.pm
new file mode 100644
index 0000000..7b0bdb8
--- /dev/null
+++ b/lib/kern.pm
@@ -0,0 +1,892 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package kern;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(kern_init kern_update kern_cgi);
+
+sub kern_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:kern_user:GAUGE:120:0:100",
+				"DS:kern_nice:GAUGE:120:0:100",
+				"DS:kern_sys:GAUGE:120:0:100",
+				"DS:kern_idle:GAUGE:120:0:100",
+				"DS:kern_iow:GAUGE:120:0:100",
+				"DS:kern_irq:GAUGE:120:0:100",
+				"DS:kern_sirq:GAUGE:120:0:100",
+				"DS:kern_steal:GAUGE:120:0:100",
+				"DS:kern_guest:GAUGE:120:0:100",
+				"DS:kern_cs:COUNTER:120:0:U",
+				"DS:kern_dentry:GAUGE:120:0:100",
+				"DS:kern_file:GAUGE:120:0:100",
+				"DS:kern_inode:GAUGE:120:0:100",
+				"DS:kern_forks:COUNTER:120:0:U",
+				"DS:kern_vforks:COUNTER:120:0:U",
+				"DS:kern_val03:GAUGE:120:0:100",
+				"DS:kern_val04:GAUGE:120:0:100",
+				"DS:kern_val05:GAUGE:120:0:100",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{kern_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub kern_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	my $user;
+	my $nice;
+	my $sys;
+	my $idle;
+	my $iow;
+	my $irq;
+	my $sirq;
+	my $steal;
+	my $guest;
+	my $cs = "U";
+	my $dentry;
+	my $file;
+	my $inode;
+	my $forks = "U";
+	my $vforks = "U";
+	my $val03 = 0;
+	my $val04 = 0;
+	my $val05 = 0;
+	
+	my $lastuser = 0;
+	my $lastnice = 0;
+	my $lastsys = 0;
+	my $lastidle = 0;
+	my $lastiow = 0;
+	my $lastirq = 0;
+	my $lastsirq = 0;
+	my $laststeal = 0;
+	my $lastguest = 0;
+
+	my $rrdata = "N";
+
+	if($config->{kern_hist}->{kernel}) {
+		(undef, $lastuser, $lastnice, $lastsys, $lastidle, $lastiow, $lastirq, $lastsirq, $laststeal, $lastguest) = split(' ', $config->{kern_hist}->{kernel});
+	}
+
+	if($config->{os} eq "Linux") {
+		open(IN, "/proc/stat");
+		while(<IN>) {
+			if(/^cpu /) {
+				(undef, $user, $nice, $sys, $idle, $iow, $irq, $sirq, $steal, $guest) = split(' ', $_);
+				$config->{kern_hist}->{kernel} = $_;
+				next;
+			}
+			if(/^ctxt (\d+)$/) {
+				# avoid initial spike
+				$cs = int($1) unless !$config->{kern_hist}->{cs};
+				$config->{kern_hist}->{cs} = int($1) unless $config->{kern_hist}->{cs};
+				next;
+			}
+			if(/^processes (\d+)$/) {
+				# avoid initial spike
+				$forks = int($1) unless !$config->{kern_hist}->{forks};
+				$config->{kern_hist}->{forks} = int($1) unless $config->{kern_hist}->{forks};
+				$vforks = 0;
+				last;
+			}
+		}
+		close(IN);
+		open(IN, "/proc/sys/fs/dentry-state");
+			while(<IN>) {
+				if(/^(\d+)\s+(\d+)\s+/) {
+					$dentry = ($1 * 100) / ($1 + $2);
+				}
+			}
+		close(IN);
+		open(IN, "/proc/sys/fs/file-nr");
+			while(<IN>) {
+				if(/^(\d+)\s+\d+\s+(\d+)$/) {
+					$file = ($1 * 100) / $2;
+				}
+			}
+		close(IN);
+		open(IN, "/proc/sys/fs/inode-nr");
+			while(<IN>) {
+				if(/^(\d+)\s+(\d+)$/) {
+					$inode = ($1 * 100) / ($1 + $2);
+				}
+			}
+		close(IN);
+	} elsif($config->{os} eq "FreeBSD") {
+		my $max;
+		my $num;
+		my $data;
+
+		my $cptime = `sysctl -n kern.cp_time`;
+		chomp($cptime);
+		my @tmp = split(' ', $cptime);
+		($user, $nice, $sys, $iow, $idle) = @tmp;
+
+		$config->{kern_hist}->{kernel} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
+		$data = `sysctl -n vm.stats.sys.v_swtch`;
+		chomp($data);
+		$cs = int($data) unless !$config->{kern_hist}->{cs};
+		$config->{kern_hist}->{cs} = int($data) unless $config->{kern_hist}->{cs};
+
+		$data = `sysctl -n vm.stats.vm.v_forks`;
+		chomp($data);
+		$forks = int($data) unless !$config->{kern_hist}->{forks};
+		$config->{kern_hist}->{forks} = int($data) unless $config->{kern_hist}->{forks};
+
+		$data = `sysctl -n vm.stats.vm.v_vforks`;
+		chomp($data);
+		$vforks = int($data) unless !$config->{kern_hist}->{vforks};
+		$config->{kern_hist}->{vforks} = int($data) unless $config->{kern_hist}->{vforks};
+
+		$max = `sysctl -n kern.maxfiles`;
+		chomp($max);
+		$num = `sysctl -n kern.openfiles`;
+		chomp($num);
+		$file = ($num * 100) / $max;
+
+		$max = `sysctl -n kern.maxvnodes`;
+		chomp($max);
+		$num = `sysctl -n vfs.numvnodes`;
+		chomp($num);
+		$inode = ($num * 100) / $max;
+	} elsif($config->{os} eq "OpenBSD") {
+		my $max;
+		my $num;
+		my $data;
+
+		my $cptime = `sysctl -n kern.cp_time`;
+		chomp($cptime);
+		my @tmp = split(',', $cptime);
+		($user, $nice, $sys, $iow, $idle) = @tmp;
+		$config->{kern_hist}->{kernel} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
+		open(IN, "vmstat -s |");
+		while(<IN>) {
+			if(/^\s*(\d+) cpu context switches$/) {
+				$cs = int($1) unless !$config->{kern_hist}->{cs};
+				$config->{kern_hist}->{cs} = int($1) unless $config->{kern_hist}->{cs};
+				last;
+			}
+		}
+		close(IN);
+
+		$data = `sysctl -n kern.forkstat.forks`;
+		chomp($data);
+		$forks = int($data) unless !$config->{kern_hist}->{forks};
+		$config->{kern_hist}->{forks} = int($data) unless $config->{kern_hist}->{forks};
+
+		$data = `sysctl -n kern.forkstat.vforks`;
+		chomp($data);
+		$vforks = int($data) unless !$config->{kern_hist}->{vforks};
+		$config->{kern_hist}->{vforks} = int($data) unless $config->{kern_hist}->{vforks};
+
+		$max = `sysctl -n kern.maxfiles`;
+		chomp($max);
+		$num = `sysctl -n kern.nfiles`;
+		chomp($num);
+		$file = ($num * 100) / $max;
+
+		$max = `sysctl -n kern.maxvnodes`;
+		chomp($max);
+		$data = `sysctl -n kern.malloc.kmemstat.vnodes`;
+		($num) = ($data =~ m/^\(inuse = (\d+), /);
+		$inode = ($num * 100) / $max;
+	} elsif($config->{os} eq "NetBSD") {
+		my $max;
+		my $num;
+		my $data;
+
+		my $cptime = `sysctl -n kern.cp_time`;
+		chomp($cptime);
+		my @tmp = ($cptime =~ m/user = (\d+), nice = (\d+), sys = (\d+), intr = (\d+), idle = (\d+)/);
+		($user, $nice, $sys, $iow, $idle) = @tmp;
+		$config->{kern_hist}->{kernel} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
+		open(IN, "vmstat -s |");
+		while(<IN>) {
+			if(/^\s*(\d+) CPU context switches$/) {
+				$cs = int($1) unless !$config->{kern_hist}->{cs};
+				$config->{kern_hist}->{cs} = int($1) unless $config->{kern_hist}->{cs};
+				next;
+			}
+			if(/^\s*(\d+) forks total$/) {
+				$forks = int($1) unless !$config->{kern_hist}->{forks};
+				$config->{kern_hist}->{forks} = int($1) unless $config->{kern_hist}->{forks};
+				next;
+			}
+		}
+		close(IN);
+
+		$vforks = 0;
+
+		open(IN, "pstat -T |");
+		while(<IN>) {
+			if(/^(\d+)\/(\d+) files$/) {
+				$file = ($1 * 100) / $2;
+			}
+		}
+		close(IN);
+
+		$inode = 0;
+	}
+
+	# Linux 2.4, early Linux 2.6 versions and other systems don't have
+	# these values.
+	$iow = 0 unless $iow;
+	$irq = 0 unless $irq;
+	$sirq = 0 unless $sirq;
+	$steal = 0 unless $sirq;
+	$guest = 0 unless $guest;
+	$lastiow = 0 unless $lastiow;
+	$lastirq = 0 unless $lastirq;
+	$lastsirq = 0 unless $lastsirq;
+	$laststeal = 0 unless $lastsirq;
+	$lastguest = 0 unless $lastguest;
+
+	if($user >= $lastuser && $nice >= $lastnice && $sys >= $lastsys && $idle >= $lastidle && $iow >= $lastiow && $irq >= $lastirq && $sirq >= $lastsirq && $steal >= $laststeal && $guest >= $lastguest) {
+		my $user_ = $user - $lastuser;
+		my $nice_ = $nice - $lastnice;
+		my $sys_ = $sys - $lastsys;
+		my $idle_ = $idle - $lastidle;
+		my $iow_ = $iow - $lastiow;
+		my $irq_ = $irq - $lastirq;
+		my $sirq_ = $sirq - $lastsirq;
+		my $steal_ = $steal - $laststeal;
+		my $guest_ = $guest - $lastguest;
+		my $total = $user_ + $nice_ + $sys_ + $idle_ + $iow_ + $irq_ + $sirq_ + $steal_ + $guest_;
+		$user = ($user_ * 100) / $total;
+		$nice = ($nice_ * 100) / $total;
+		$sys = ($sys_ * 100) / $total;
+		$idle = ($idle_ * 100) / $total;
+		$iow = ($iow_ * 100) / $total;
+		$irq = ($irq_ * 100) / $total;
+		$sirq = ($sirq_ * 100) / $total;
+		$steal = ($steal_ * 100) / $total;
+		$guest = ($guest_ * 100) / $total;
+	} else {
+		$user = "nan";
+		$nice = "nan";
+		$sys = "nan";
+		$idle = "nan";
+		$iow = "nan";
+		$irq = "nan";
+		$sirq = "nan";
+		$steal = "nan";
+		$guest = "nan";
+	}
+
+	$rrdata .= ":$user:$nice:$sys:$idle:$iow:$irq:$sirq:$steal:$guest:$cs:$dentry:$file:$inode:$forks:$vforks:$val03:$val04:$val05";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub kern_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $kern = $config->{kern};
+	my @rigid = split(',', $kern->{rigid});
+	my @limit = split(',', $kern->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my $vlabel;
+	my $n;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("       Kernel usage                                                                           VFS usage\n");
+		print("Time   User   Nice    Sys   Idle   I/Ow    IRQ   sIRQ  Steal  Guest   Ctxt.Sw  Forks  VForks  dentry   file  inode\n");
+		print("------------------------------------------------------------------------------------------------------------------\n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			my ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest, $cs, $dentry, $file, $inode, $forks, $vforks) = @$line;
+			@row = ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest, $cs, $forks, $vforks, $dentry, $file, $inode);
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%   %7d %6d  %6d   %4.1f%%  %4.1f%%  %4.1f%% \n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if(lc($kern->{graph_mode}) eq "r") {
+		$vlabel = "Percent (%)";
+		if(lc($kern->{list}->{user}) eq "y") {
+			push(@tmp, "AREA:user#4444EE:user");
+			push(@tmpz, "AREA:user#4444EE:user");
+			push(@tmp, "GPRINT:user:LAST:      Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{nice}) eq "y") {
+			push(@tmp, "AREA:nice#EEEE44:nice");
+			push(@tmpz, "AREA:nice#EEEE44:nice");
+			push(@tmp, "GPRINT:nice:LAST:      Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{sys}) eq "y") {
+			push(@tmp, "AREA:sys#44EEEE:system");
+			push(@tmpz, "AREA:sys#44EEEE:system");
+			push(@tmp, "GPRINT:sys:LAST:    Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{iow}) eq "y") {
+			push(@tmp, "AREA:iow#EE44EE:I/O wait");
+			push(@tmpz, "AREA:iow#EE44EE:I/O wait");
+			push(@tmp, "GPRINT:iow:LAST:  Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if($config->{os} eq "Linux") {
+			if(lc($kern->{list}->{irq}) eq "y") {
+				push(@tmp, "AREA:irq#888888:IRQ");
+				push(@tmpz, "AREA:irq#888888:IRQ");
+				push(@tmp, "GPRINT:irq:LAST:       Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{sirq}) eq "y") {
+				push(@tmp, "AREA:sirq#E29136:softIRQ");
+				push(@tmpz, "AREA:sirq#E29136:softIRQ");
+				push(@tmp, "GPRINT:sirq:LAST:   Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{steal}) eq "y") {
+				push(@tmp, "AREA:steal#44EE44:steal");
+				push(@tmpz, "AREA:steal#44EE44:steal");
+				push(@tmp, "GPRINT:steal:LAST:     Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{guest}) eq "y") {
+				push(@tmp, "AREA:guest#448844:guest");
+				push(@tmpz, "AREA:guest#448844:guest");
+				push(@tmp, "GPRINT:guest:LAST:     Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			push(@tmp, "LINE1:guest#1F881F") unless lc($kern->{list}->{guest} ne "y");
+			push(@tmpz, "LINE1:guest#1F881F") unless lc($kern->{list}->{guest} ne "y");
+			push(@tmp, "LINE1:steal#00EE00") unless lc($kern->{list}->{steal} ne "y");
+			push(@tmpz, "LINE1:steal#00EE00") unless lc($kern->{list}->{steal} ne "y");
+			push(@tmp, "LINE1:sirq#D86612") unless lc($kern->{list}->{sirq} ne "y");
+			push(@tmpz, "LINE1:sirq#D86612") unless lc($kern->{list}->{sirq} ne "y");
+			push(@tmp, "LINE1:irq#CCCCCC") unless lc($kern->{list}->{irq} ne "y");
+			push(@tmpz, "LINE1:irq#CCCCCC") unless lc($kern->{list}->{irq} ne "y");
+		}
+		push(@tmp, "LINE1:iow#EE00EE") unless lc($kern->{list}->{iow} ne "y");
+		push(@tmpz, "LINE1:iow#EE00EE") unless lc($kern->{list}->{iow} ne "y");
+		push(@tmp, "LINE1:sys#00EEEE") unless lc($kern->{list}->{sys} ne "y");
+		push(@tmpz, "LINE1:sys#00EEEE") unless lc($kern->{list}->{sys} ne "y");
+		push(@tmp, "LINE1:nice#EEEE00") unless lc($kern->{list}->{nice} ne "y");
+		push(@tmpz, "LINE1:nice#EEEE00") unless lc($kern->{list}->{nice} ne "y");
+		push(@tmp, "LINE1:user#0000EE") unless lc($kern->{list}->{user} ne "y");
+		push(@tmpz, "LINE1:user#0000EE") unless lc($kern->{list}->{user} ne "y");
+	} else {
+		$vlabel = "Stacked Percent (%)";
+		push(@tmp, "CDEF:s_nice=user,nice,+");
+		push(@tmpz, "CDEF:s_nice=user,nice,+");
+		push(@tmp, "CDEF:s_sys=s_nice,sys,+");
+		push(@tmpz, "CDEF:s_sys=s_nice,sys,+");
+		push(@tmp, "CDEF:s_iow=s_sys,iow,+");
+		push(@tmpz, "CDEF:s_iow=s_sys,iow,+");
+		if($config->{os} eq "Linux") {
+			push(@tmp, "CDEF:s_irq=s_iow,irq,+");
+			push(@tmpz, "CDEF:s_irq=s_iow,irq,+");
+			push(@tmp, "CDEF:s_sirq=s_irq,sirq,+");
+			push(@tmpz, "CDEF:s_sirq=s_irq,sirq,+");
+			push(@tmp, "CDEF:s_steal=s_sirq,steal,+");
+			push(@tmpz, "CDEF:s_steal=s_sirq,steal,+");
+			push(@tmp, "CDEF:s_guest=s_steal,guest,+");
+			push(@tmpz, "CDEF:s_guest=s_steal,guest,+");
+			if(lc($kern->{list}->{guest}) eq "y") {
+				push(@tmp, "AREA:s_guest#448844:guest");
+				push(@tmpz, "AREA:s_guest#448844:guest");
+				push(@tmp, "GPRINT:guest:LAST:     Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:guest:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{steal}) eq "y") {
+				push(@tmp, "AREA:s_steal#44EE44:steal");
+				push(@tmpz, "AREA:s_steal#44EE44:steal");
+				push(@tmp, "GPRINT:steal:LAST:     Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:steal:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{sirq}) eq "y") {
+				push(@tmp, "AREA:s_sirq#E29136:softIRQ");
+				push(@tmpz, "AREA:s_sirq#E29136:softIRQ");
+				push(@tmp, "GPRINT:sirq:LAST:   Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:sirq:MAX:    Max\\: %4.1lf%%\\n");
+			}
+			if(lc($kern->{list}->{irq}) eq "y") {
+				push(@tmp, "AREA:s_irq#888888:IRQ");
+				push(@tmpz, "AREA:s_irq#888888:IRQ");
+				push(@tmp, "GPRINT:irq:LAST:       Current\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:AVERAGE:    Average\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:MIN:    Min\\: %4.1lf%%");
+				push(@tmp, "GPRINT:irq:MAX:    Max\\: %4.1lf%%\\n");
+			}
+		}	
+		if(lc($kern->{list}->{iow}) eq "y") {
+			push(@tmp, "AREA:s_iow#EE44EE:I/O wait");
+			push(@tmpz, "AREA:s_iow#EE44EE:I/O wait");
+			push(@tmp, "GPRINT:iow:LAST:  Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:iow:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{sys}) eq "y") {
+			push(@tmp, "AREA:s_sys#44EEEE:system");
+			push(@tmpz, "AREA:s_sys#44EEEE:system");
+			push(@tmp, "GPRINT:sys:LAST:    Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:sys:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{nice}) eq "y") {
+			push(@tmp, "AREA:s_nice#EEEE44:nice");
+			push(@tmpz, "AREA:s_nice#EEEE44:nice");
+			push(@tmp, "GPRINT:nice:LAST:      Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:nice:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if(lc($kern->{list}->{user}) eq "y") {
+			push(@tmp, "AREA:user#4444EE:user");
+			push(@tmpz, "AREA:user#4444EE:user");
+			push(@tmp, "GPRINT:user:LAST:      Current\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:AVERAGE:    Average\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:MIN:    Min\\: %4.1lf%%");
+			push(@tmp, "GPRINT:user:MAX:    Max\\: %4.1lf%%\\n");
+		}
+		if($config->{os} eq "Linux") {
+			push(@tmp, "LINE1:s_guest#1F881F");
+			push(@tmpz, "LINE1:s_guest#1F881F");
+			push(@tmp, "LINE1:s_steal#00EE00");
+			push(@tmpz, "LINE1:s_steal#00EE00");
+			push(@tmp, "LINE1:s_sirq#D86612");
+			push(@tmpz, "LINE1:s_sirq#D86612");
+			push(@tmp, "LINE1:s_irq#CCCCCC");
+			push(@tmpz, "LINE1:s_irq#CCCCCC");
+		}	
+		push(@tmp, "LINE1:s_iow#EE00EE");
+		push(@tmpz, "LINE1:s_iow#EE00EE");
+		push(@tmp, "LINE1:s_sys#00EEEE");
+		push(@tmpz, "LINE1:s_sys#00EEEE");
+		push(@tmp, "LINE1:s_nice#EEEE00");
+		push(@tmpz, "LINE1:s_nice#EEEE00");
+		push(@tmp, "LINE1:user#0000EE");
+		push(@tmpz, "LINE1:user#0000EE");
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_kern1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:user=$rrd:kern_user:AVERAGE",
+		"DEF:nice=$rrd:kern_nice:AVERAGE",
+		"DEF:sys=$rrd:kern_sys:AVERAGE",
+		"DEF:iow=$rrd:kern_iow:AVERAGE",
+		"DEF:irq=$rrd:kern_irq:AVERAGE",
+		"DEF:sirq=$rrd:kern_sirq:AVERAGE",
+		"DEF:steal=$rrd:kern_steal:AVERAGE",
+		"DEF:guest=$rrd:kern_guest:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_kern1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:user=$rrd:kern_user:AVERAGE",
+			"DEF:nice=$rrd:kern_nice:AVERAGE",
+			"DEF:sys=$rrd:kern_sys:AVERAGE",
+			"DEF:iow=$rrd:kern_iow:AVERAGE",
+			"DEF:irq=$rrd:kern_irq:AVERAGE",
+			"DEF:sirq=$rrd:kern_sirq:AVERAGE",
+			"DEF:steal=$rrd:kern_steal:AVERAGE",
+			"DEF:guest=$rrd:kern_guest:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /kern1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:cs#44AAEE:Context switches");
+	push(@tmpz, "AREA:cs#44AAEE:Context switches");
+	push(@tmp, "GPRINT:cs:LAST:     Current\\: %6.0lf\\n");
+	push(@tmp, "AREA:forks#4444EE:Forks");
+	push(@tmpz, "AREA:forks#4444EE:Forks");
+	push(@tmp, "GPRINT:forks:LAST:                Current\\: %6.0lf\\n");
+	push(@tmp, "LINE1:cs#00EEEE");
+	push(@tmp, "LINE1:forks#0000EE");
+	push(@tmpz, "LINE1:cs#00EEEE");
+	push(@tmpz, "LINE1:forks#0000EE");
+	if($config->{os} eq "FreeBSD" || $config->{os} eq "OpenBSD") {
+		push(@tmp, "AREA:vforks#EE4444:VForks");
+		push(@tmpz, "AREA:vforks#EE4444:VForks");
+		push(@tmp, "GPRINT:vforks:LAST:               Current\\: %6.0lf\\n");
+		push(@tmp, "LINE1:vforks#EE0000");
+		push(@tmpz, "LINE1:vforks#EE0000");
+	}
+
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_kern2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=CS & forks/s",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:cs=$rrd:kern_cs:AVERAGE",
+		"DEF:forks=$rrd:kern_forks:AVERAGE",
+		"DEF:vforks=$rrd:kern_vforks:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_kern2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=CS & forks/s",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:cs=$rrd:kern_cs:AVERAGE",
+			"DEF:forks=$rrd:kern_forks:AVERAGE",
+			"DEF:vforks=$rrd:kern_vforks:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /kern2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:inode#4444EE:inode");
+	push(@tmpz, "AREA:inode#4444EE:inode");
+	push(@tmp, "GPRINT:inode:LAST:                Current\\:  %4.1lf%%\\n");
+	if($config->{os} eq "Linux") {
+		push(@tmp, "AREA:dentry#EEEE44:dentry");
+		push(@tmpz, "AREA:dentry#EEEE44:dentry");
+		push(@tmp, "GPRINT:dentry:LAST:               Current\\:  %4.1lf%%\\n");
+	}
+	push(@tmp, "AREA:file#EE44EE:file");
+	push(@tmpz, "AREA:file#EE44EE:file");
+	push(@tmp, "GPRINT:file:LAST:                 Current\\:  %4.1lf%%\\n");
+	push(@tmp, "LINE2:inode#0000EE");
+	push(@tmpz, "LINE2:inode#0000EE");
+	if($config->{os} eq "Linux") {
+		push(@tmp, "LINE2:dentry#EEEE00");
+		push(@tmpz, "LINE2:dentry#EEEE00");
+	}	
+	push(@tmp, "LINE2:file#EE00EE");
+	push(@tmpz, "LINE2:file#EE00EE");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_kern3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Percent (%)",
+		"--width=$width",
+		"--height=$height",
+		"--upper-limit=100",
+		"--lower-limit=0",
+		"--rigid",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:dentry=$rrd:kern_dentry:AVERAGE",
+		"DEF:file=$rrd:kern_file:AVERAGE",
+		"DEF:inode=$rrd:kern_inode:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_kern3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent (%)",
+			"--width=$width",
+			"--height=$height",
+			"--upper-limit=100",
+			"--lower-limit=0",
+			"--rigid",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:dentry=$rrd:kern_dentry:AVERAGE",
+			"DEF:file=$rrd:kern_file:AVERAGE",
+			"DEF:inode=$rrd:kern_inode:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /kern3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/lighttpd.pm b/lib/lighttpd.pm
new file mode 100644
index 0000000..4986712
--- /dev/null
+++ b/lib/lighttpd.pm
@@ -0,0 +1,575 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package lighttpd;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use LWP::UserAgent;
+use Exporter 'import';
+our @EXPORT = qw(lighttpd_init lighttpd_update lighttpd_cgi);
+
+sub lighttpd_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $lighttpd = $config->{lighttpd};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(!scalar(my @ll = split(',', $lighttpd->{list}))) {
+		logger("$myself: ERROR: missing or not defined 'list' option.");
+		return 0;
+	}
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 9 != scalar(my @ll = split(',', $lighttpd->{list}))) {
+			logger("Detected size mismatch between 'list' option (" . scalar(my @ll = split(',', $lighttpd->{list})) . ") and $rrd (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @ll = split(',', $lighttpd->{list})); $n++) {
+			push(@tmp, "DS:lighttpd" . $n . "_acc:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_kb:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_busy:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_idle:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_val01:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_val02:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_val03:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_val04:GAUGE:120:0:U");
+			push(@tmp, "DS:lighttpd" . $n . "_val05:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{lighttpd_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub lighttpd_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $lighttpd = $config->{lighttpd};
+
+	my $str;
+	my $rrdata = "N";
+
+	my $n = 0;
+	foreach(my @ll = split(',', $lighttpd->{list})) {
+		my $url = trim($_) . "/server-status?auto";
+		my $ua = LWP::UserAgent->new(timeout => 30);
+		my $response = $ua->request(HTTP::Request->new('GET', $url));
+
+		my $acc = 0;
+		my $kb = 0;
+		my $busy = 0;
+		my $idle = 0;
+
+		foreach(split('\n', $response->content)) {
+			if(/^Total Accesses:\s+(\d+)$/) {
+				$str = $n . "acc";
+				$acc = $1 - ($config->{lighttpd_hist}->{$str} || 0);
+				$acc = 0 unless $acc != $1;
+				$acc /= 60;
+				$config->{lighttpd_hist}->{$str} = $1;
+				next;
+			}
+			if(/^Total kBytes:\s+(\d+)$/) {
+				$str = $n . "kb";
+				$kb = $1 - ($config->{lighttpd_hist}->{$str} || 0);
+				$kb = 0 unless $kb != $1;
+				$config->{lighttpd_hist}->{$str} = $1;
+				next;
+			}
+			if(/^BusyServers:\s+(\d+)/) {
+				$busy = int($1);
+				next;
+			}
+			if(/^IdleServers:\s+(\d+)/) {
+				$idle = int($1);
+				last;
+			}
+		}
+		$rrdata .= ":$acc:$kb:$busy:$idle:0:0:0:0:0";
+		$n++;
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub lighttpd_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $lighttpd = $config->{lighttpd};
+	my @rigid = split(',', $lighttpd->{rigid});
+	my @limit = split(',', $lighttpd->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $vlabel = "bytes/s";
+	my $e;
+	my $e2;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$vlabel = "bits/s";
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @ll = split(',', $lighttpd->{list})); $n++) {
+			$line1 = "                                    ";
+			$line2 .= "   Acceses    k$vlabel    Busy  Idle";
+			$line3 .= "------------------------------------";
+			if($line1) {
+				my $i = length($line1);
+				printf(sprintf("%${i}s", sprintf("%s", trim($ll[$n]))));
+			}
+		}
+		print("\n");
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @ll = split(',', $lighttpd->{list})); $n2++) {
+				undef(@row);
+				$from = $n2 * 9;
+				$to = $from + 9;
+				push(@row, @$line[$from..$to]);
+				printf("   %7d  %9d      %3d   %3d", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @ll = split(',', $lighttpd->{list})); $n++) {
+		for($n2 = 1; $n2 <= 3; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach my $url (my @ll = split(',', $lighttpd->{list})) {
+		if($e) {
+			print("  <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:lighttpd" . $e . "_idle#4444EE:Idle");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:LAST:            Current\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:AVERAGE:   Average\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:MIN:   Min\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:MAX:   Max\\: %3.0lf\\n");
+		push(@tmp, "AREA:lighttpd" . $e . "_busy#44EEEE:Busy");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:LAST:            Current\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:AVERAGE:   Average\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:MIN:   Min\\: %3.0lf");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:MAX:   Max\\: %3.0lf\\n");
+		push(@tmp, "LINE1:lighttpd" . $e . "_idle#0000EE");
+		push(@tmp, "LINE1:lighttpd" . $e . "_busy#00EEEE");
+		push(@tmp, "LINE1:lighttpd" . $e . "_tot#EE0000");
+		push(@tmpz, "AREA:lighttpd" . $e . "_idle#4444EE:Idle");
+		push(@tmpz, "AREA:lighttpd" . $e . "_busy#44EEEE:Busy");
+		push(@tmpz, "LINE2:lighttpd" . $e . "_idle#0000EE");
+		push(@tmpz, "LINE2:lighttpd" . $e . "_busy#00EEEE");
+		push(@tmpz, "LINE2:lighttpd" . $e . "_tot#EE0000");
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
+			"--title=$config->{graphs}->{_lighttpd1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Workers",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:lighttpd" . $e . "_busy=$rrd:lighttpd" . $e . "_busy:AVERAGE",
+			"DEF:lighttpd" . $e . "_idle=$rrd:lighttpd" . $e . "_idle:AVERAGE",
+			"CDEF:lighttpd" . $e . "_tot=lighttpd" . $e . "_busy,lighttpd" . $e . "_idle,+",
+			"COMMENT: \\n",
+			@tmp,
+			"COMMENT: \\n",
+			"COMMENT: \\n");
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
+				"--title=$config->{graphs}->{_lighttpd1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Workers",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:lighttpd" . $e . "_busy=$rrd:lighttpd" . $e . "_busy:AVERAGE",
+				"DEF:lighttpd" . $e . "_idle=$rrd:lighttpd" . $e . "_idle:AVERAGE",
+				"CDEF:lighttpd" . $e . "_tot=lighttpd" . $e . "_busy,lighttpd" . $e . "_idle,+",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		undef(@CDEF);
+		push(@tmp, "AREA:Bytes#44AAEE:KBytes");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_kb:LAST:               Current\\: %6.1lf\\n");
+		push(@tmp, "LINE1:lighttpd" . $e . "_kb#00EEEE");
+		push(@tmpz, "AREA:Bytes#44AAEE:Bytes");
+		push(@tmpz, "LINE1:lighttpd" . $e . "_kb#00EEEE");
+		if(lc($config->{netstats_in_bps}) eq "y") {
+			push(@CDEF, "CDEF:Bytes=lighttpd" . $e . "_kb,8,*,1024,*");
+		} else {
+			push(@CDEF, "CDEF:Bytes=lighttpd" . $e . "_kb,1024,*");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
+			"--title=$config->{graphs}->{_lighttpd2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:lighttpd" . $e . "_kb=$rrd:lighttpd" . $e . "_kb:AVERAGE",
+			@CDEF,
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
+				"--title=$config->{graphs}->{_lighttpd2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:lighttpd" . $e . "_kb=$rrd:lighttpd" . $e . "_kb:AVERAGE",
+				@CDEF,
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:lighttpd" . $e . "_acc#44EE44:Accesses");
+		push(@tmp, "GPRINT:lighttpd" . $e . "_acc:LAST:             Current\\: %5.2lf\\n");
+		push(@tmp, "LINE1:lighttpd" . $e . "_acc#00EE00");
+		push(@tmpz, "AREA:lighttpd" . $e . "_acc#44EE44:Accesses");
+		push(@tmpz, "LINE1:lighttpd" . $e . "_acc#00EE00");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
+			"--title=$config->{graphs}->{_lighttpd3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Accesses/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:lighttpd" . $e . "_acc=$rrd:lighttpd" . $e . "_acc:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
+				"--title=$config->{graphs}->{_lighttpd3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Accesses/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:lighttpd" . $e . "_acc=$rrd:lighttpd" . $e . "_acc:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b style='{color: " . $colors->{title_fg_color} . "}'>&nbsp;&nbsp;" . trim($url) . "<b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/lmsens.pm b/lib/lmsens.pm
new file mode 100644
index 0000000..fbc797e
--- /dev/null
+++ b/lib/lmsens.pm
@@ -0,0 +1,1040 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package lmsens;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(lmsens_init lmsens_update lmsens_cgi);
+
+sub lmsens_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:lmsens_mb0:GAUGE:120:0:100",
+				"DS:lmsens_mb1:GAUGE:120:0:100",
+				"DS:lmsens_cpu0:GAUGE:120:0:100",
+				"DS:lmsens_cpu1:GAUGE:120:0:100",
+				"DS:lmsens_cpu2:GAUGE:120:0:100",
+				"DS:lmsens_cpu3:GAUGE:120:0:100",
+				"DS:lmsens_fan0:GAUGE:120:0:U",
+				"DS:lmsens_fan1:GAUGE:120:0:U",
+				"DS:lmsens_fan2:GAUGE:120:0:U",
+				"DS:lmsens_fan3:GAUGE:120:0:U",
+				"DS:lmsens_fan4:GAUGE:120:0:U",
+				"DS:lmsens_fan5:GAUGE:120:0:U",
+				"DS:lmsens_fan6:GAUGE:120:0:U",
+				"DS:lmsens_fan7:GAUGE:120:0:U",
+				"DS:lmsens_fan8:GAUGE:120:0:U",
+				"DS:lmsens_core0:GAUGE:120:0:100",
+				"DS:lmsens_core1:GAUGE:120:0:100",
+				"DS:lmsens_core2:GAUGE:120:0:100",
+				"DS:lmsens_core3:GAUGE:120:0:100",
+				"DS:lmsens_core4:GAUGE:120:0:100",
+				"DS:lmsens_core5:GAUGE:120:0:100",
+				"DS:lmsens_core6:GAUGE:120:0:100",
+				"DS:lmsens_core7:GAUGE:120:0:100",
+				"DS:lmsens_core8:GAUGE:120:0:100",
+				"DS:lmsens_core9:GAUGE:120:0:100",
+				"DS:lmsens_core10:GAUGE:120:0:100",
+				"DS:lmsens_core11:GAUGE:120:0:100",
+				"DS:lmsens_core12:GAUGE:120:0:100",
+				"DS:lmsens_core13:GAUGE:120:0:100",
+				"DS:lmsens_core14:GAUGE:120:0:100",
+				"DS:lmsens_core15:GAUGE:120:0:100",
+				"DS:lmsens_volt0:GAUGE:120:U:U",
+				"DS:lmsens_volt1:GAUGE:120:U:U",
+				"DS:lmsens_volt2:GAUGE:120:U:U",
+				"DS:lmsens_volt3:GAUGE:120:U:U",
+				"DS:lmsens_volt4:GAUGE:120:U:U",
+				"DS:lmsens_volt5:GAUGE:120:U:U",
+				"DS:lmsens_volt6:GAUGE:120:U:U",
+				"DS:lmsens_volt7:GAUGE:120:U:U",
+				"DS:lmsens_volt8:GAUGE:120:U:U",
+				"DS:lmsens_volt9:GAUGE:120:U:U",
+				"DS:lmsens_volt10:GAUGE:120:U:U",
+				"DS:lmsens_volt11:GAUGE:120:U:U",
+				"DS:lmsens_gpu0:GAUGE:120:0:100",
+				"DS:lmsens_gpu1:GAUGE:120:0:100",
+				"DS:lmsens_gpu2:GAUGE:120:0:100",
+				"DS:lmsens_gpu3:GAUGE:120:0:100",
+				"DS:lmsens_gpu4:GAUGE:120:0:100",
+				"DS:lmsens_gpu5:GAUGE:120:0:100",
+				"DS:lmsens_gpu6:GAUGE:120:0:100",
+				"DS:lmsens_gpu7:GAUGE:120:0:100",
+				"DS:lmsens_gpu8:GAUGE:120:0:100",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub lmsens_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $lmsens = $config->{lmsens};
+
+	my @mb;
+	my @cpu;
+	my @fan;
+	my @core;
+	my @volt;
+	my @gpu;
+
+	my $l;
+	my $n;
+	my $rrdata = "N";
+
+	if($config->{os} eq "Linux") {
+		if($lmsens->{list}) {
+	  		open(IN, "sensors |");
+			my @data = <IN>;
+			close(IN);
+			my $str;
+			for($l = 0; $l < scalar(@data); $l++) {
+				for($n = 0; $n < 2; $n++) {
+					$str = "mb" . $n;
+					$mb[$n] = 0 unless $mb[$n];
+					next if !$lmsens->{list}->{$str};
+					if($data[$l] =~ /^$lmsens->{list}->{$str}:/ && $data[$l] !~ /RPM/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$mb[$n] = int($value);
+					}
+				}
+				for($n = 0; $n < 4; $n++) {
+					$str = "cpu" . $n;
+					$cpu[$n] = 0 unless $cpu[$n];
+					next if !$lmsens->{list}->{$str};
+					if($data[$l] =~ /^$lmsens->{list}->{$str}:/ && $data[$l] !~ /RPM/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$cpu[$n] = int($value);
+					}
+				}
+				for($n = 0; $n < 9; $n++) {
+					$str = "fan" . $n;
+					$fan[$n] = 0 unless $fan[$n];
+					next if !$lmsens->{list}->{$str};
+					if($data[$l] =~ /^$lmsens->{list}->{$str}:/ && $data[$l] =~ /RPM/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$fan[$n] = int($value);
+					}
+				}
+				for($n = 0; $n < 16; $n++) {
+					$str = "core" . $n;
+					$core[$n] = 0 unless $core[$n];
+					next if !$lmsens->{list}->{$str};
+					if($data[$l] =~ /^$lmsens->{list}->{$str}:/ && $data[$l] !~ /RPM/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$core[$n] = int($value);
+					}
+				}
+				for($n = 0; $n < 12; $n++) {
+					$str = "volt" . $n;
+					$volt[$n] = 0 unless $volt[$n];
+					next if !$lmsens->{list}->{$str};
+					if($data[$l] =~ /^$lmsens->{list}->{$str}:/ && $data[$l] !~ /RPM/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$volt[$n] = $value;
+					}
+				}
+			}
+			for($n = 0; $n < 9; $n++) {
+				$str = "gpu" . $n;
+				$gpu[$n] = 0 unless $gpu[$n];
+				next if !$lmsens->{list}->{$str};
+				if($lmsens->{list}->{$str} eq "nvidia") {
+					(undef, undef, $gpu[$n]) = split(' ', get_nvidia_data($n));
+					if(!$gpu[$n]) {
+						# attempt to get data using the old driver version
+	  					open(IN, "nvidia-smi -g $n |");
+						my @data = <IN>;
+						close(IN);
+						for($l = 0; $l < scalar(@data); $l++) {
+							if($data[$l] =~ /Temperature/) {
+								my (undef, $tmp) = split(':', $data[$l]);
+								if($tmp eq "\n") {
+									$l++;
+									$tmp = $data[$l];
+								}
+								my ($value, undef) = split(' ', $tmp);
+								$value =~ s/[-]/./;
+								$value =~ s/[^0-9.]//g;
+								if(int($value) > 0) {
+									$gpu[$n] = int($value);
+								}
+							}
+						}
+					}
+				}
+			}
+		}
+		for($n = 0; $n < scalar(@mb); $n++) {
+			$rrdata .= ":$mb[$n]";
+		}
+		for($n = 0; $n < scalar(@cpu); $n++) {
+			$rrdata .= ":$cpu[$n]";
+		}
+		for($n = 0; $n < scalar(@fan); $n++) {
+			$rrdata .= ":$fan[$n]";
+		}
+		for($n = 0; $n < scalar(@core); $n++) {
+			$rrdata .= ":$core[$n]";
+		}
+		for($n = 0; $n < scalar(@volt); $n++) {
+			$rrdata .= ":$volt[$n]";
+		}
+		for($n = 0; $n < scalar(@gpu); $n++) {
+			$rrdata .= ":$gpu[$n]";
+		}
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub lmsens_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $lmsens = $config->{lmsens};
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @tmp;
+	my @tmpz;
+	my $vlabel;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#444444",
+		"#BB44EE",
+		"#CCCCCC",
+		"#B4B444",
+		"#D3D701",
+		"#E29136",
+		"#DDAE8C",
+		"#F29967",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		for($n = 0; $n < 2; $n++) {
+			$str = "mb" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		for($n = 0; $n < 4; $n++) {
+			$str = "cpu" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		for($n = 0; $n < 9; $n++) {
+			$str = "fan" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		for($n = 0; $n < 16; $n++) {
+			$str = "core" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		for($n = 0; $n < 12; $n++) {
+			$str = "volt" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		for($n = 0; $n < 9; $n++) {
+			$str = "gpu" . $n;
+			if($lmsens->{list}->{$str}) {
+				$line1 .= "  ";
+				$line1 .= sprintf("%15s", substr($lmsens->{list}->{$str}, 0, 15));
+				$line2 .= "-----------------";
+			}
+		}
+		print("Time $line1\n");
+		print("-----$line2\n");
+		my $l;
+		my $line;
+		my @row;
+		my $time;
+		my @mb;
+		my @cpu;
+		my @fan;
+		my @core;
+		my @volt;
+		my @gpu;
+		for($l = 0, $time = $tf->{tb}; $l < ($tf->{tb} * $tf->{ts}); $l++) {
+			$line1 = " %2d$tf->{tc} ";
+			undef(@row);
+			$line = @$data[$l];
+			(@mb[0..2-1], @cpu[0..4-1], @fan[0..10-1], @core[0..16-1], @volt[0..10-1], @gpu[0..8-1]) = @$line;
+			for($n = 0; $n < 2; $n++) {
+				$str = "mb" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $mb[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			for($n = 0; $n < 4; $n++) {
+				$str = "cpu" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $cpu[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			for($n = 0; $n < 9; $n++) {
+				$str = "fan" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $fan[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			for($n = 0; $n < 16; $n++) {
+				$str = "core" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $core[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			for($n = 0; $n < 12; $n++) {
+				$str = "volt" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $volt[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			for($n = 0; $n < 9; $n++) {
+				$str = "gpu" . $n;
+				if($lmsens->{list}->{$str}) {
+					push(@row, $gpu[$n]);
+					$line1 .= "  ";
+					$line1 .= "%15.1f";
+				}
+			}
+			$time = $time - (1 / $tf->{ts});
+			printf("$line1 \n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG4 = $u . $package . "4." . $tf->{when} . ".png";
+	my $PNG5 = $u . $package . "5." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	my $PNG4z = $u . $package . "4z." . $tf->{when} . ".png";
+	my $PNG5z = $u . $package . "5z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3",
+		"$PNG_DIR" . "$PNG4",
+		"$PNG_DIR" . "$PNG5");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z",
+			"$PNG_DIR" . "$PNG4z",
+			"$PNG_DIR" . "$PNG5z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	for($n = 0; $n < 4; $n++) {
+		for($n2 = $n; $n2 < 16; $n2 += 4) {
+			$str = "core" . $n2;
+			if($lmsens->{list}->{$str}) {
+				$str = sprintf("Core %2d", $n2);
+				push(@tmp, "LINE2:core$n2" . $LC[$n2] . ":$str\\g");
+				push(@tmp, "GPRINT:core$n2:LAST:\\:%3.0lf      ");
+			}
+		}
+		push(@tmp, "COMMENT: \\n") unless !@tmp;
+	}
+	for($n = 0; $n < 16; $n++) {
+		$str = "core" . $n;
+		if($lmsens->{list}->{$str}) {
+			$str = sprintf("Core %d", $n);
+			push(@tmpz, "LINE2:core$n" . $LC[$n] . ":$str");
+		}
+	}
+	# if no COREs are defined then create a blank graph
+	if(!@tmp) {
+		push(@tmp, "GPRINT:core0:LAST:%0.0lf");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmpz, "GPRINT:core0:LAST:%0.0lf");
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td valign='bottom' bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_lmsens1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Celsius",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:core0=$rrd:lmsens_core0:AVERAGE",
+		"DEF:core1=$rrd:lmsens_core1:AVERAGE",
+		"DEF:core2=$rrd:lmsens_core2:AVERAGE",
+		"DEF:core3=$rrd:lmsens_core3:AVERAGE",
+		"DEF:core4=$rrd:lmsens_core4:AVERAGE",
+		"DEF:core5=$rrd:lmsens_core5:AVERAGE",
+		"DEF:core6=$rrd:lmsens_core6:AVERAGE",
+		"DEF:core7=$rrd:lmsens_core7:AVERAGE",
+		"DEF:core8=$rrd:lmsens_core8:AVERAGE",
+		"DEF:core9=$rrd:lmsens_core9:AVERAGE",
+		"DEF:core10=$rrd:lmsens_core10:AVERAGE",
+		"DEF:core11=$rrd:lmsens_core11:AVERAGE",
+		"DEF:core12=$rrd:lmsens_core12:AVERAGE",
+		"DEF:core13=$rrd:lmsens_core13:AVERAGE",
+		"DEF:core14=$rrd:lmsens_core14:AVERAGE",
+		"DEF:core15=$rrd:lmsens_core15:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_lmsens1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:core0=$rrd:lmsens_core0:AVERAGE",
+			"DEF:core1=$rrd:lmsens_core1:AVERAGE",
+			"DEF:core2=$rrd:lmsens_core2:AVERAGE",
+			"DEF:core3=$rrd:lmsens_core3:AVERAGE",
+			"DEF:core4=$rrd:lmsens_core4:AVERAGE",
+			"DEF:core5=$rrd:lmsens_core5:AVERAGE",
+			"DEF:core6=$rrd:lmsens_core6:AVERAGE",
+			"DEF:core7=$rrd:lmsens_core7:AVERAGE",
+			"DEF:core8=$rrd:lmsens_core8:AVERAGE",
+			"DEF:core9=$rrd:lmsens_core9:AVERAGE",
+			"DEF:core10=$rrd:lmsens_core10:AVERAGE",
+			"DEF:core11=$rrd:lmsens_core11:AVERAGE",
+			"DEF:core12=$rrd:lmsens_core12:AVERAGE",
+			"DEF:core13=$rrd:lmsens_core13:AVERAGE",
+			"DEF:core14=$rrd:lmsens_core14:AVERAGE",
+			"DEF:core15=$rrd:lmsens_core15:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	$lmsens->{list}->{'volt0'} =~ s/\\// if $lmsens->{list}->{'volt0'};
+	$str = $lmsens->{list}->{'volt0'} ? sprintf("%8s", substr($lmsens->{list}->{'volt0'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt0#FFA500:$str\\g", "GPRINT:volt0:LAST:\\:%6.2lf   "));
+	$lmsens->{list}->{'volt3'} =~ s/\\// if $lmsens->{list}->{'volt3'};
+	$str = $lmsens->{list}->{'volt3'} ? sprintf("%8s", substr($lmsens->{list}->{'volt3'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt3#4444EE:$str\\g", "GPRINT:volt3:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt6'} =~ s/\\// if $lmsens->{list}->{'volt6'};;
+	$str = $lmsens->{list}->{'volt6'} ? sprintf("%8s", substr($lmsens->{list}->{'volt6'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt6#EE44EE:$str\\g", "GPRINT:volt6:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt9'} =~ s/\\// if $lmsens->{list}->{'volt9'};;
+	$str = $lmsens->{list}->{'volt9'} ? sprintf("%8s", substr($lmsens->{list}->{'volt9'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt9#94C36B:$str\\g", "GPRINT:volt9:LAST:\\:%6.2lf\\g")) unless !$str;
+	push(@tmp, "COMMENT: \\n");
+	$lmsens->{list}->{'volt1'} =~ s/\\// if $lmsens->{list}->{'volt1'};;
+	$str = $lmsens->{list}->{'volt1'} ? sprintf("%8s", substr($lmsens->{list}->{'volt1'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt1#44EEEE:$str\\g", "GPRINT:volt1:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt4'} =~ s/\\// if $lmsens->{list}->{'volt4'};;
+	$str = $lmsens->{list}->{'volt4'} ? sprintf("%8s", substr($lmsens->{list}->{'volt4'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt4#448844:$str\\g", "GPRINT:volt4:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt7'} =~ s/\\// if $lmsens->{list}->{'volt7'};;
+	$str = $lmsens->{list}->{'volt7'} ? sprintf("%8s", substr($lmsens->{list}->{'volt7'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt7#EEEE44:$str\\g", "GPRINT:volt7:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt10'} =~ s/\\// if $lmsens->{list}->{'volt10'};;
+	$str = $lmsens->{list}->{'volt10'} ? sprintf("%8s", substr($lmsens->{list}->{'volt10'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt10#3CB5B0:$str\\g", "GPRINT:volt10:LAST:\\:%6.2lf\\g")) unless !$str;
+	push(@tmp, "COMMENT: \\n");
+	$lmsens->{list}->{'volt2'} =~ s/\\// if $lmsens->{list}->{'volt2'};;
+	$str = $lmsens->{list}->{'volt2'} ? sprintf("%8s", substr($lmsens->{list}->{'volt2'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt2#44EE44:$str\\g", "GPRINT:volt2:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt5'} =~ s/\\// if $lmsens->{list}->{'volt5'};;
+	$str = $lmsens->{list}->{'volt5'} ? sprintf("%8s", substr($lmsens->{list}->{'volt5'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt5#EE4444:$str\\g", "GPRINT:volt5:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt8'} =~ s/\\// if $lmsens->{list}->{'volt8'};;
+	$str = $lmsens->{list}->{'volt8'} ? sprintf("%8s", substr($lmsens->{list}->{'volt8'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt8#963C74:$str\\g", "GPRINT:volt8:LAST:\\:%6.2lf   ")) unless !$str;
+	$lmsens->{list}->{'volt11'} =~ s/\\// if $lmsens->{list}->{'volt11'};;
+	$str = $lmsens->{list}->{'volt11'} ? sprintf("%8s", substr($lmsens->{list}->{'volt11'}, 0, 8)) : "";
+	push(@tmp, ("LINE2:volt11#597AB7:$str\\g", "GPRINT:volt11:LAST:\\:%6.2lf\\g")) unless !$str;
+	push(@tmp, "COMMENT: \\n");
+	$str = $lmsens->{list}->{'volt0'} ? substr($lmsens->{list}->{'volt0'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt0#FFA500:$str");
+	$str = $lmsens->{list}->{'volt1'} ? substr($lmsens->{list}->{'volt1'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt1#44EEEE:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt2'} ? substr($lmsens->{list}->{'volt2'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt2#44EE44:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt3'} ? substr($lmsens->{list}->{'volt3'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt3#4444EE:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt4'} ? substr($lmsens->{list}->{'volt4'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt4#448844:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt5'} ? substr($lmsens->{list}->{'volt5'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt5#EE4444:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt6'} ? substr($lmsens->{list}->{'volt6'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt6#EE44EE:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt7'} ? substr($lmsens->{list}->{'volt7'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt7#EEEE44:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt8'} ? substr($lmsens->{list}->{'volt8'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt8#963C74:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt9'} ? substr($lmsens->{list}->{'volt9'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt9#94C36B:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt10'} ? substr($lmsens->{list}->{'volt10'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt10#3CB5B0:$str")unless !$str;
+	$str = $lmsens->{list}->{'volt11'} ? substr($lmsens->{list}->{'volt11'}, 0, 8) : "";
+	push(@tmpz, "LINE2:volt11#597AB7:$str") unless !$str;
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) 
+		if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if
+		 $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_lmsens2}  ($tf->{nwhen}$tf->{twhen})
+		",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Volts",
+		"--width=$width",
+		"--height=$height",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:volt0=$rrd:lmsens_volt0:AVERAGE",
+		"DEF:volt1=$rrd:lmsens_volt1:AVERAGE",
+		"DEF:volt2=$rrd:lmsens_volt2:AVERAGE",
+		"DEF:volt3=$rrd:lmsens_volt3:AVERAGE",
+		"DEF:volt4=$rrd:lmsens_volt4:AVERAGE",
+		"DEF:volt5=$rrd:lmsens_volt5:AVERAGE",
+		"DEF:volt6=$rrd:lmsens_volt6:AVERAGE",
+		"DEF:volt7=$rrd:lmsens_volt7:AVERAGE",
+		"DEF:volt8=$rrd:lmsens_volt8:AVERAGE",
+		"DEF:volt9=$rrd:lmsens_volt9:AVERAGE",
+		"DEF:volt10=$rrd:lmsens_volt10:AVERAGE",
+		"DEF:volt11=$rrd:lmsens_volt11:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_lmsens2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Volts",
+			"--width=$width",
+			"--height=$height",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:volt0=$rrd:lmsens_volt0:AVERAGE",
+			"DEF:volt1=$rrd:lmsens_volt1:AVERAGE",
+			"DEF:volt2=$rrd:lmsens_volt2:AVERAGE",
+			"DEF:volt3=$rrd:lmsens_volt3:AVERAGE",
+			"DEF:volt4=$rrd:lmsens_volt4:AVERAGE",
+			"DEF:volt5=$rrd:lmsens_volt5:AVERAGE",
+			"DEF:volt6=$rrd:lmsens_volt6:AVERAGE",
+			"DEF:volt7=$rrd:lmsens_volt7:AVERAGE",
+			"DEF:volt8=$rrd:lmsens_volt8:AVERAGE",
+			"DEF:volt9=$rrd:lmsens_volt9:AVERAGE",
+			"DEF:volt10=$rrd:lmsens_volt10:AVERAGE",
+			"DEF:volt11=$rrd:lmsens_volt11:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, ("LINE2:mb0#FFA500:MB 0\\g", "GPRINT:mb0:LAST:\\:%3.0lf   "));
+	push(@tmp, ("LINE2:cpu0#4444EE:CPU 0\\g", "GPRINT:cpu0:LAST:\\:%3.0lf   ")) unless !$lmsens->{list}->{'cpu0'};
+	push(@tmp, ("LINE2:cpu2#EE44EE:CPU 2\\g", "GPRINT:cpu2:LAST:\\:%3.0lf\\g")) unless !$lmsens->{list}->{'cpu2'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmp, ("LINE2:mb1#44EEEE:MB 1\\g", "GPRINT:mb1:LAST:\\:%3.0lf   ")) unless !$lmsens->{list}->{'mb1'};
+	push(@tmp, ("LINE2:cpu1#EEEE44:CPU 1\\g", "GPRINT:cpu1:LAST:\\:%3.0lf   ")) unless !$lmsens->{list}->{'cpu1'};
+	push(@tmp, ("LINE2:cpu3#44EE44:CPU 3\\g", "GPRINT:cpu3:LAST:\\:%3.0lf\\g")) unless !$lmsens->{list}->{'cpu3'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmpz, "LINE2:mb0#FFA500:MB 0");
+	push(@tmpz, "LINE2:mb1#44EEEE:MB 1") unless !$lmsens->{list}->{'mb1'};
+	push(@tmpz, "LINE2:cpu0#4444EE:CPU 0") unless !$lmsens->{list}->{'cpu0'};
+	push(@tmpz, "LINE2:cpu1#EEEE44:CPU 1") unless !$lmsens->{list}->{'cpu1'};
+	push(@tmpz, "LINE2:cpu2#EE44EE:CPU 2") unless !$lmsens->{list}->{'cpu2'};
+	push(@tmpz, "LINE2:cpu3#44EE44:CPU 3") unless !$lmsens->{list}->{'cpu3'};
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_lmsens3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Celsius",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:mb0=$rrd:lmsens_mb0:AVERAGE",
+		"DEF:mb1=$rrd:lmsens_mb1:AVERAGE",
+		"DEF:cpu0=$rrd:lmsens_cpu0:AVERAGE",
+		"DEF:cpu1=$rrd:lmsens_cpu1:AVERAGE",
+		"DEF:cpu2=$rrd:lmsens_cpu2:AVERAGE",
+		"DEF:cpu3=$rrd:lmsens_cpu3:AVERAGE",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_lmsens3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:mb0=$rrd:lmsens_mb0:AVERAGE",
+			"DEF:mb1=$rrd:lmsens_mb1:AVERAGE",
+			"DEF:cpu0=$rrd:lmsens_cpu0:AVERAGE",
+			"DEF:cpu1=$rrd:lmsens_cpu1:AVERAGE",
+			"DEF:cpu2=$rrd:lmsens_cpu2:AVERAGE",
+			"DEF:cpu3=$rrd:lmsens_cpu3:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, ("LINE2:fan0#FFA500:Fan 0\\g", "GPRINT:fan0:LAST:\\:%5.0lf"));
+	push(@tmp, ("LINE2:fan3#4444EE:Fan 3\\g", "GPRINT:fan3:LAST:\\:%5.0lf")) unless !$lmsens->{list}->{'fan3'};
+	push(@tmp, ("LINE2:fan6#EE44EE:Fan 6\\g", "GPRINT:fan6:LAST:\\:%5.0lf\\g")) unless !$lmsens->{list}->{'fan6'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmp, ("LINE2:fan1#44EEEE:Fan 1\\g", "GPRINT:fan1:LAST:\\:%5.0lf")) unless !$lmsens->{list}->{'fan1'};
+	push(@tmp, ("LINE2:fan4#448844:Fan 4\\g", "GPRINT:fan4:LAST:\\:%5.0lf")) unless !$lmsens->{list}->{'fan4'};
+	push(@tmp, ("LINE2:fan7#EEEE44:Fan 7\\g", "GPRINT:fan7:LAST:\\:%5.0lf\\g")) unless !$lmsens->{list}->{'fan7'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmp, ("LINE2:fan2#44EE44:Fan 2\\g", "GPRINT:fan2:LAST:\\:%5.0lf")) unless !$lmsens->{list}->{'fan2'};
+	push(@tmp, ("LINE2:fan5#EE4444:Fan 5\\g", "GPRINT:fan5:LAST:\\:%5.0lf")) unless !$lmsens->{list}->{'fan5'};
+	push(@tmp, ("LINE2:fan8#963C74:Fan 8\\g", "GPRINT:fan8:LAST:\\:%5.0lf\\g")) unless !$lmsens->{list}->{'fan8'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmpz, "LINE2:fan0#FFA500:Fan 0");
+	push(@tmpz, "LINE2:fan1#44EEEE:Fan 1") unless !$lmsens->{list}->{'fan1'};
+	push(@tmpz, "LINE2:fan2#44EE44:Fan 2") unless !$lmsens->{list}->{'fan2'};
+	push(@tmpz, "LINE2:fan3#4444EE:Fan 3") unless !$lmsens->{list}->{'fan3'};
+	push(@tmpz, "LINE2:fan4#448844:Fan 4") unless !$lmsens->{list}->{'fan4'};
+	push(@tmpz, "LINE2:fan5#EE4444:Fan 5") unless !$lmsens->{list}->{'fan5'};
+	push(@tmpz, "LINE2:fan6#EE44EE:Fan 6") unless !$lmsens->{list}->{'fan6'};
+	push(@tmpz, "LINE2:fan7#EEEE44:Fan 7") unless !$lmsens->{list}->{'fan7'};
+	push(@tmpz, "LINE2:fan8#963C74:Fan 8") unless !$lmsens->{list}->{'fan8'};
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG4",
+		"--title=$config->{graphs}->{_lmsens4}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=RPM",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:fan0=$rrd:lmsens_fan0:AVERAGE",
+		"DEF:fan1=$rrd:lmsens_fan1:AVERAGE",
+		"DEF:fan2=$rrd:lmsens_fan2:AVERAGE",
+		"DEF:fan3=$rrd:lmsens_fan3:AVERAGE",
+		"DEF:fan4=$rrd:lmsens_fan4:AVERAGE",
+		"DEF:fan5=$rrd:lmsens_fan5:AVERAGE",
+		"DEF:fan6=$rrd:lmsens_fan6:AVERAGE",
+		"DEF:fan7=$rrd:lmsens_fan7:AVERAGE",
+		"DEF:fan8=$rrd:lmsens_fan8:AVERAGE",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG4z",
+			"--title=$config->{graphs}->{_lmsens4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=RPM",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:fan0=$rrd:lmsens_fan0:AVERAGE",
+			"DEF:fan1=$rrd:lmsens_fan1:AVERAGE",
+			"DEF:fan2=$rrd:lmsens_fan2:AVERAGE",
+			"DEF:fan3=$rrd:lmsens_fan3:AVERAGE",
+			"DEF:fan4=$rrd:lmsens_fan4:AVERAGE",
+			"DEF:fan5=$rrd:lmsens_fan5:AVERAGE",
+			"DEF:fan6=$rrd:lmsens_fan6:AVERAGE",
+			"DEF:fan7=$rrd:lmsens_fan7:AVERAGE",
+			"DEF:fan8=$rrd:lmsens_fan8:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens4/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG4z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE2:gpu0#FFA500:GPU 0\\g");
+	push(@tmp, "GPRINT:gpu0:LAST:\\:%3.0lf  ");
+	push(@tmp, ("LINE2:gpu3#4444EE:GPU 3\\g", "GPRINT:gpu3:LAST:\\:%3.0lf  ")) unless !$lmsens->{list}->{'gpu3'};
+	push(@tmp, ("LINE2:gpu6#EE44EE:GPU 6\\g", "GPRINT:gpu6:LAST:\\:%3.0lf\\g")) unless !$lmsens->{list}->{'gpu6'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmp, ("LINE2:gpu1#44EEEE:GPU 1\\g", "GPRINT:gpu1:LAST:\\:%3.0lf  ")) unless !$lmsens->{list}->{'gpu1'};
+	push(@tmp, ("LINE2:gpu4#448844:GPU 4\\g", "GPRINT:gpu4:LAST:\\:%3.0lf  ")) unless !$lmsens->{list}->{'gpu4'};
+	push(@tmp, ("LINE2:gpu7#EEEE44:GPU 7\\g", "GPRINT:gpu7:LAST:\\:%3.0lf\\g")) unless !$lmsens->{list}->{'gpu7'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmp, ("LINE2:gpu2#44EE44:GPU 2\\g", "GPRINT:gpu2:LAST:\\:%3.0lf  ")) unless !$lmsens->{list}->{'gpu2'};
+	push(@tmp, ("LINE2:gpu5#EE4444:GPU 5\\g", "GPRINT:gpu5:LAST:\\:%3.0lf  ")) unless !$lmsens->{list}->{'gpu5'};
+	push(@tmp, ("LINE2:gpu8#963C74:GPU 8\\g", "GPRINT:gpu8:LAST:\\:%3.0lf\\g")) unless !$lmsens->{list}->{'gpu8'};
+	push(@tmp, "COMMENT: \\n");
+	push(@tmpz, "LINE2:gpu0#FFA500:GPU 0\\g");
+	push(@tmpz, "LINE2:gpu1#44EEEE:GPU 1\\g") unless !$lmsens->{list}->{'gpu1'};
+	push(@tmpz, "LINE2:gpu2#44EE44:GPU 2\\g") unless !$lmsens->{list}->{'gpu2'};
+	push(@tmpz, "LINE2:gpu3#4444EE:GPU 3\\g") unless !$lmsens->{list}->{'gpu3'};
+	push(@tmpz, "LINE2:gpu4#448844:GPU 4\\g") unless !$lmsens->{list}->{'gpu4'};
+	push(@tmpz, "LINE2:gpu5#EE4444:GPU 5\\g") unless !$lmsens->{list}->{'gpu5'};
+	push(@tmpz, "LINE2:gpu6#EE44EE:GPU 6\\g") unless !$lmsens->{list}->{'gpu6'};
+	push(@tmpz, "LINE2:gpu7#EEEE44:GPU 7\\g") unless !$lmsens->{list}->{'gpu7'};
+	push(@tmpz, "LINE2:gpu8#963C74:GPU 8\\g") unless !$lmsens->{list}->{'gpu8'};
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG5",
+		"--title=$config->{graphs}->{_lmsens5}  ($tf->{nwhen}$tf->{twhen})
+		",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Celsius",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:gpu0=$rrd:lmsens_gpu0:AVERAGE",
+		"DEF:gpu1=$rrd:lmsens_gpu1:AVERAGE",
+		"DEF:gpu2=$rrd:lmsens_gpu2:AVERAGE",
+		"DEF:gpu3=$rrd:lmsens_gpu3:AVERAGE",
+		"DEF:gpu4=$rrd:lmsens_gpu4:AVERAGE",
+		"DEF:gpu5=$rrd:lmsens_gpu5:AVERAGE",
+		"DEF:gpu6=$rrd:lmsens_gpu6:AVERAGE",
+		"DEF:gpu7=$rrd:lmsens_gpu7:AVERAGE",
+		"DEF:gpu8=$rrd:lmsens_gpu8:AVERAGE",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG5z",
+			"--title=$config->{graphs}->{_lmsens5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:gpu0=$rrd:lmsens_gpu0:AVERAGE",
+			"DEF:gpu1=$rrd:lmsens_gpu1:AVERAGE",
+			"DEF:gpu2=$rrd:lmsens_gpu2:AVERAGE",
+			"DEF:gpu3=$rrd:lmsens_gpu3:AVERAGE",
+			"DEF:gpu4=$rrd:lmsens_gpu4:AVERAGE",
+			"DEF:gpu5=$rrd:lmsens_gpu5:AVERAGE",
+			"DEF:gpu6=$rrd:lmsens_gpu6:AVERAGE",
+			"DEF:gpu7=$rrd:lmsens_gpu7:AVERAGE",
+			"DEF:gpu8=$rrd:lmsens_gpu8:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens5/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG5z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "'>\n");
+		}
+	}
+
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/mail.pm b/lib/mail.pm
new file mode 100644
index 0000000..cf2c1a3
--- /dev/null
+++ b/lib/mail.pm
@@ -0,0 +1,1139 @@
+#!/usr/bin/env perl
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package mail;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use POSIX qw(strftime);
+use Exporter 'import';
+our @EXPORT = qw(mail_init mail_update mail_cgi);
+
+
+sub mail_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:mail_in:GAUGE:120:0:U",
+				"DS:mail_out:GAUGE:120:0:U",
+				"DS:mail_recvd:GAUGE:120:0:U",
+				"DS:mail_delvd:GAUGE:120:0:U",
+				"DS:mail_bytes_recvd:GAUGE:120:0:U",
+				"DS:mail_bytes_delvd:GAUGE:120:0:U",
+				"DS:mail_rejtd:GAUGE:120:0:U",
+				"DS:mail_spam:GAUGE:120:0:U",
+				"DS:mail_virus:GAUGE:120:0:U",
+				"DS:mail_bouncd:GAUGE:120:0:U",
+				"DS:mail_queued:GAUGE:120:0:U",
+				"DS:mail_discrd:GAUGE:120:0:U",
+				"DS:mail_held:GAUGE:120:0:U",
+				"DS:mail_forwrd:GAUGE:120:0:U",
+				"DS:mail_queues:GAUGE:120:0:U",
+				"DS:mail_val01:COUNTER:120:0:U",
+				"DS:mail_val02:COUNTER:120:0:U",
+				"DS:mail_val03:COUNTER:120:0:U",
+				"DS:mail_val04:COUNTER:120:0:U",
+				"DS:mail_val05:COUNTER:120:0:U",
+				"DS:mail_val06:GAUGE:120:0:U",
+				"DS:mail_val07:GAUGE:120:0:U",
+				"DS:mail_val08:GAUGE:120:0:U",
+				"DS:mail_val09:GAUGE:120:0:U",
+				"DS:mail_val10:GAUGE:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{mail_hist} = 0;
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub mail_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $mail = $config->{mail};
+
+	my $in_conn;
+	my $out_conn;
+	my $recvd;
+	my $delvd;
+	my $bytes_recvd;
+	my $bytes_delvd;
+	my $rejtd;
+	my $spam;
+	my $virus;
+	my $bouncd;
+	my $queued;
+	my $discrd;
+	my $held;
+	my $forwrd;
+	my $queues;
+	my $gl_records;
+	my $gl_greylisted;
+	my $gl_whitelisted;
+	my @mta_h = (0) x 15;
+	my @mta = (0) x 15;
+	my @gen = (0) x 10;
+
+	my $n;
+	my $mail_log_seekpos;
+	my $mail_log_size;
+	my $sa_log_seekpos;
+	my $sa_log_size;
+	my $clamav_log_seekpos;
+	my $clamav_log_size = 0;
+	my $rrdata = "N";
+
+	# Read last MAIL data from historic
+	($mail_log_seekpos, $sa_log_seekpos, $clamav_log_seekpos, @mta_h[0..15-1], @gen[0..10-1]) = split(';', $config->{mail_hist});
+	$mail_log_seekpos = defined($mail_log_seekpos) ? int($mail_log_seekpos) : 0;
+	$sa_log_seekpos = defined($sa_log_seekpos) ? int($sa_log_seekpos) : 0;
+	$clamav_log_seekpos = defined($clamav_log_seekpos) ? int($clamav_log_seekpos) : 0;
+
+	$recvd = $delvd = $bytes_recvd = $bytes_delvd = 0;
+	$in_conn = $out_conn = $rejtd = 0;
+	$bouncd = $discrd = $held = $forwrd = 0;
+	$queued = $queues = 0;
+	if(lc($mail->{mta}) eq "sendmail") {
+		if(open(IN, "mailstats -P |")) {
+			while(<IN>) {
+				if(/^ T\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
+					$recvd = $1;
+					$bytes_recvd = $2;
+					$delvd = $3;
+					$bytes_delvd = $4;
+				}
+				if(/^ C\s+(\d+)\s+(\d+)\s+(\d+)/) {
+					$in_conn = $1;
+					$out_conn = $2;
+					$rejtd = $3;
+				}
+			}
+			close(IN);
+			$bytes_recvd *= 1024;
+			$bytes_delvd *= 1024;
+		}
+		if(open(IN, "mailq |")) {
+			while(<IN>) {
+				my ($tmp) = ($_ =~ m/^\w{14}[ *X-]\s*(\d{1,8}) /);
+				$queues += $tmp if $tmp;
+				if(/^\s+Total requests: (\d+)$/) {
+					$queued = $1;
+				}
+			}
+			close(IN);
+		}
+	} elsif(lc($mail->{mta}) eq "postfix") {
+		my @data;
+
+		for my $path (split /:/, $ENV{PATH}) {
+			if(-f "$path/pflogsumm" && -x _) {
+				open(IN, "pflogsumm -d today -h 0 -u 0 --smtpd_stats --no_bounce_detail --no_deferral_detail --no_reject_detail --no_no_msg_size --no_smtpd_warnings $config->{mail_log} 2>/dev/null |");
+			}
+			if(-f "$path/pflogsumm.pl" && -x _) {
+				open(IN, "pflogsumm.pl -d today -h 0 -u 0 --smtpd_stats --no_bounce_detail --no_deferral_detail --no_reject_detail --no_no_msg_size --no_smtpd_warnings $config->{mail_log} 2>/dev/null |");
+			}
+		}
+		@data = <IN>;
+		close(IN);
+		foreach(@data) {
+			if(/^\s*(\d{1,7})([ km])\s*received$/) {
+				$recvd = $1;
+				$recvd = $1 * 1024 if $2 eq "k";
+				$recvd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*delivered$/) {
+				$delvd = $1;
+				$delvd = $1 * 1024 if $2 eq "k";
+				$delvd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*forwarded$/) {
+				$forwrd = $1;
+				$forwrd = $1 * 1024 if $2 eq "k";
+				$forwrd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*bounced$/) {
+				$bouncd = $1;
+				$bouncd = $1 * 1024 if $2 eq "k";
+				$bouncd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*rejected \(/) {
+				$rejtd = $1;
+				$rejtd = $1 * 1024 if $2 eq "k";
+				$rejtd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*held/) {
+				$held = $1;
+				$held = $1 * 1024 if $2 eq "k";
+				$held = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*discarded \(/) {
+				$discrd = $1;
+				$discrd = $1 * 1024 if $2 eq "k";
+				$discrd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*bytes received$/) {
+				$bytes_recvd = $1;
+				$bytes_recvd = $1 * 1024 if $2 eq "k";
+				$bytes_recvd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+			if(/^\s*(\d{1,7})([ km])\s*bytes delivered$/) {
+				$bytes_delvd = $1;
+				$bytes_delvd = $1 * 1024 if $2 eq "k";
+				$bytes_delvd = $1 * 1024 * 1024 if $2 eq "m";
+			}
+		}
+		if(open(IN, "mailq |")) {
+			while(<IN>) {
+				if(/^-- (\d+) Kbytes in (\d+) Request/) {
+					$queues = $1;
+					$queued = $2;
+				}  
+			}
+			close(IN);
+		}
+	}
+
+	$gl_records = $gl_greylisted = $gl_whitelisted = 0;
+	if(lc($mail->{greylist}) eq "milter-greylist") {
+		if(-r $config->{milter_gl}) {
+			open(IN, $config->{milter_gl});
+			if(!seek(IN, -80, 2)) {
+				logger("Couldn't seek to the end ($config->{milter_gl}): $!");
+				return;
+			}
+			while(<IN>) {
+				if(/^# Summary:\s+(\d+) records,\s+(\d+) greylisted,\s+(\d+) whitelisted$/) {
+					$gl_records = $1;
+					$gl_greylisted = $2;
+					$gl_whitelisted = $3;
+				}
+			}
+			close(IN);
+		}
+	}
+
+	$spam = $virus = 0;
+	if(-r $config->{mail_log}) {
+		open(IN, $config->{mail_log});
+		if(!seek(IN, 0, 2)) {
+			logger("Couldn't seek to the end ($config->{mail_log}): $!");
+			return;
+		}
+		$mail_log_size = tell(IN);
+		if($mail_log_size < $mail_log_seekpos) {
+			$mail_log_seekpos = 0;
+		}
+		if(!seek(IN, $mail_log_seekpos, 0)) {
+			logger("Couldn't seek to $mail_log_seekpos ($config->{mail_log}): $!");
+			return;
+		}
+		while(<IN>) {
+			my @line;
+			if(/MailScanner/ && /Spam Checks:/ && /Found/ && /spam messages/) {
+				@line = split(' ', $_);
+				$spam += int($line[8]);
+			}
+			if(/MailScanner/ && /Virus Scanning:/ && /Found/ && /viruses/) {
+				@line = split(' ', $_);
+				$virus += int($line[8]);
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{spamassassin_log}) {
+		my $date = strftime("%b %e", localtime);
+		open(IN, $config->{spamassassin_log});
+		if(!seek(IN, 0, 2)) {
+			logger("Couldn't seek to the end ($config->{spamassassin_log}): $!");
+			return;
+		}
+		$sa_log_size = tell(IN);
+		if($sa_log_size < $sa_log_seekpos) {
+			$sa_log_seekpos = 0;
+		}
+		if(!seek(IN, $sa_log_seekpos, 0)) {
+			logger("Couldn't seek to $sa_log_seekpos ($config->{spamassassin_log}): $!");
+			return;
+		}
+		while(<IN>) {
+			if(/^$date/ && /spamd: identified spam/) {
+				$spam++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{clamav_log}) {
+		my $date = strftime("%a %b %e", localtime);
+		open(IN, $config->{clamav_log});
+		if(!seek(IN, 0, 2)) {
+			logger("Couldn't seek to the end ($config->{clamav_log}): $!");
+			return;
+		}
+		$clamav_log_size = tell(IN);
+		if($clamav_log_size < $clamav_log_seekpos) {
+			$clamav_log_seekpos = 0;
+		}
+		if(!seek(IN, $clamav_log_seekpos, 0)) {
+			logger("Couldn't seek to $clamav_log_seekpos ($config->{clamav_log}): $!");
+			return;
+		}
+		while(<IN>) {
+			if(/^$date/ && / FOUND/) {
+				$virus++;
+			}
+		}
+		close(IN);
+	}
+
+	$mta[0] = int($in_conn) - ($mta_h[0] || 0);
+	$mta[0] = 0 unless $mta[0] != int($in_conn);
+	$mta[0] /= 60;
+	$mta_h[0] = int($in_conn);
+
+	$mta[1] = int($out_conn) - ($mta_h[1] || 0);
+	$mta[1] = 0 unless $mta[1] != int($out_conn);
+	$mta[1] /= 60;
+	$mta_h[1] = int($out_conn);
+
+	$mta[2] = int($recvd) - ($mta_h[2] || 0);
+	$mta[2] = 0 unless $mta[2] != int($recvd);
+	$mta[2] /= 60;
+	$mta_h[2] = int($recvd);
+
+	$mta[3] = int($delvd) - ($mta_h[3] || 0);
+	$mta[3] = 0 unless $mta[3] != int($delvd);
+	$mta[3] /= 60;
+	$mta_h[3] = int($delvd);
+
+	$mta[4] = int($bytes_recvd) - ($mta_h[4] || 0);
+	$mta[4] = 0 unless $mta[4] != int($bytes_recvd);
+	$mta[4] /= 60;
+	$mta_h[4] = int($bytes_recvd);
+
+	$mta[5] = int($bytes_delvd) - ($mta_h[5] || 0);
+	$mta[5] = 0 unless $mta[5] != int($bytes_delvd);
+	$mta[5] /= 60;
+	$mta_h[5] = int($bytes_delvd);
+
+	$mta[6] = int($rejtd) - ($mta_h[6] || 0);
+	$mta[6] = 0 unless $mta[6] != int($rejtd);
+	$mta[6] /= 60;
+	$mta_h[6] = int($rejtd);
+
+	# avoid initial spike
+	$mta[7] = int($spam) unless !$mta_h[7];
+	$mta_h[7] = int($spam) unless $mta_h[7];
+	$mta[7] /= 60;
+
+	# avoid initial spike
+	$mta[8] = int($virus) unless !$mta_h[8];
+	$mta_h[8] = int($virus) unless $mta_h[8];
+	$mta[8] /= 60;
+
+	$mta[9] = int($bouncd) - ($mta_h[9] || 0);
+	$mta[9] = 0 unless $mta[9] != int($bouncd);
+	$mta[9] /= 60;
+	$mta_h[9] = int($bouncd);
+
+	$mta[10] = int($queued) || 0;
+	$mta_h[10] = 0;
+
+	$mta[11] = int($discrd) - ($mta_h[11] || 0);
+	$mta[11] = 0 unless $mta[11] != int($discrd);
+	$mta[11] /= 60;
+	$mta_h[11] = int($discrd);
+
+	$mta[12] = int($held) - ($mta_h[12] || 0);
+	$mta[12] = 0 unless $mta[12] != int($held);
+	$mta[12] /= 60;
+	$mta_h[12] = int($held);
+
+	$mta[13] = int($forwrd) - ($mta_h[13] || 0);
+	$mta[13] = 0 unless $mta[13] != int($forwrd);
+	$mta[13] /= 60;
+	$mta_h[13] = int($forwrd);
+
+	$mta[14] = int($queues) || 0;
+	$mta_h[14] = 0;
+
+	$gen[0] = 0;
+	$gen[1] = 0;
+	$gen[2] = 0;
+	$gen[3] = 0;
+	$gen[4] = 0;
+	$gen[5] = int($gl_records) || 0;
+	$gen[6] = 0;
+	$gen[7] = int($gl_greylisted) || 0;
+	$gen[8] = int($gl_whitelisted) || 0;
+	$gen[9] = 0;
+
+	$config->{mail_hist} = join(";", $mail_log_size, $sa_log_size, $clamav_log_size, @mta_h, @gen);
+	for($n = 0; $n < 15; $n++) {
+		$rrdata .= ":" . $mta[$n];
+	}
+	for($n = 0; $n < 10; $n++) {
+		$rrdata .= ":" . $gen[$n];
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub mail_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $mail = $config->{mail};
+	my @rigid = split(',', $mail->{rigid});
+	my @limit = split(',', $mail->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my $T = "B";
+	my $vlabel = "bytes/s";
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $n;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$T = "b";
+		$vlabel = "bits/s";
+	}
+
+
+	# mode text
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("Time  In.Conn Out.Conn  Receivd   Delivd  Bytes.R  Bytes.D  Rejectd  Bounced  Discard     Held  Forward     Spam    Virus   Queued  Queue.S\n");
+		print("------------------------------------------------------------------------------------------------------------------------------------------- \n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			my ($in, $out, $recvd, $delvd, $bytes_recvd, $bytes_delvd, $rejtd, $spam, $virus, $bouncd, $queued, $discrd, $held, $forwrd, $queues) = @$line;
+			@row = ($in, $out, $recvd, $delvd, $bytes_recvd, $bytes_delvd, $rejtd, $bouncd, $discrd, $held, $forwrd, $spam, $virus, $queued, $queues);
+			printf(" %2d$tf->{tc}  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG4 = $u . $package . "4." . $tf->{when} . ".png";
+	my $PNG5 = $u . $package . "5." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	my $PNG4z = $u . $package . "4z." . $tf->{when} . ".png";
+	my $PNG5z = $u . $package . "5z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3",
+		"$PNG_DIR" . "$PNG4",
+		"$PNG_DIR" . "$PNG5");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z",
+			"$PNG_DIR" . "$PNG4z",
+			"$PNG_DIR" . "$PNG5z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if(lc($mail->{mta}) eq "sendmail") {
+		push(@tmp, "AREA:in#44EE44:In Connections");
+		push(@tmp, "GPRINT:in:LAST:    Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:in:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:in:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:in:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:rejtd#EE4444:Rejected");
+		push(@tmp, "GPRINT:rejtd:LAST:          Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:recvd#448844:Received");
+		push(@tmp, "GPRINT:recvd:LAST:          Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:spam#EEEE44:Spam");
+		push(@tmp, "GPRINT:spam:LAST:              Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:virus#EE44EE:Virus");
+		push(@tmp, "GPRINT:virus:LAST:             Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:n_delvd#4444EE:Delivered");
+		push(@tmp, "GPRINT:delvd:LAST:         Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:n_out#44EEEE:Out Connections");
+		push(@tmp, "GPRINT:out:LAST:   Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:out:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:out:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:out:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "LINE1:in#00EE00");
+		push(@tmp, "LINE1:rejtd#EE0000");
+		push(@tmp, "LINE1:recvd#1F881F");
+		push(@tmp, "LINE1:spam#EEEE00");
+		push(@tmp, "LINE1:virus#EE00EE");
+		push(@tmp, "LINE1:n_delvd#0000EE");
+		push(@tmp, "LINE1:n_out#00EEEE");
+
+		push(@tmpz, "AREA:in#44EE44:In Connections");
+		push(@tmpz, "AREA:rejtd#EE4444:Rejected");
+		push(@tmpz, "AREA:recvd#448844:Received");
+		push(@tmpz, "AREA:spam#EEEE44:Spam");
+		push(@tmpz, "AREA:virus#EE44EE:Virus");
+		push(@tmpz, "AREA:n_delvd#4444EE:Delivered");
+		push(@tmpz, "AREA:n_out#44EEEE:Out Connections");
+		push(@tmpz, "LINE1:in#00EE00");
+		push(@tmpz, "LINE1:rejtd#EE0000");
+		push(@tmpz, "LINE1:recvd#1F881F");
+		push(@tmpz, "LINE1:spam#EEEE00");
+		push(@tmpz, "LINE1:virus#EE00EE");
+		push(@tmpz, "LINE1:n_delvd#0000EE");
+		push(@tmpz, "LINE1:n_out#00EEEE");
+	} elsif(lc($mail->{mta}) eq "postfix") {
+		push(@tmp, "AREA:rejtd#EE4444:Rejected");
+		push(@tmp, "GPRINT:rejtd:LAST:          Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:rejtd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:recvd#448844:Received");
+		push(@tmp, "GPRINT:recvd:LAST:          Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:recvd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:spam#EEEE44:Spam");
+		push(@tmp, "GPRINT:spam:LAST:              Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:spam:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:virus#EE44EE:Virus");
+		push(@tmp, "GPRINT:virus:LAST:             Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:virus:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:bouncd#FFA500:Bounced");
+		push(@tmp, "GPRINT:bouncd:LAST:           Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:bouncd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:bouncd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:bouncd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:discrd#CCCCCC:Discarded");
+		push(@tmp, "GPRINT:discrd:LAST:         Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:discrd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:discrd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:discrd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:held#44EE44:Held");
+		push(@tmp, "GPRINT:held:LAST:              Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:held:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:held:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:held:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:n_forwrd#44EEEE:Forwarded");
+		push(@tmp, "GPRINT:forwrd:LAST:         Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:forwrd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:forwrd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:forwrd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "AREA:n_delvd#4444EE:Delivered");
+		push(@tmp, "GPRINT:delvd:LAST:         Cur\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:AVERAGE:    Avg\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:MIN:    Min\\: %5.2lf");
+		push(@tmp, "GPRINT:delvd:MAX:    Max\\: %5.2lf\\n");
+		push(@tmp, "LINE1:rejtd#EE0000");
+		push(@tmp, "LINE1:recvd#1F881F");
+		push(@tmp, "LINE1:spam#EEEE00");
+		push(@tmp, "LINE1:virus#EE00EE");
+		push(@tmp, "LINE1:bouncd#FFA500");
+		push(@tmp, "LINE1:discrd#888888");
+		push(@tmp, "LINE1:held#00EE00");
+		push(@tmp, "LINE1:n_forwrd#00EEEE");
+		push(@tmp, "LINE1:n_delvd#0000EE");
+
+		push(@tmpz, "AREA:rejtd#EE4444:Rejected");
+		push(@tmpz, "AREA:recvd#448844:Received");
+		push(@tmpz, "AREA:spam#EEEE44:Spam");
+		push(@tmpz, "AREA:virus#EE44EE:Virus");
+		push(@tmpz, "AREA:bouncd#FFA500:Bounced");
+		push(@tmpz, "AREA:discrd#888888:Discarded");
+		push(@tmpz, "AREA:held#44EE44:Held");
+		push(@tmpz, "AREA:n_forwrd#44EEEE:Forwarded");
+		push(@tmpz, "AREA:n_delvd#4444EE:Delivered");
+		push(@tmpz, "LINE1:rejtd#EE0000");
+		push(@tmpz, "LINE1:recvd#1F881F");
+		push(@tmpz, "LINE1:spam#EEEE00");
+		push(@tmpz, "LINE1:virus#EE00EE");
+		push(@tmpz, "LINE1:bouncd#FFA500");
+		push(@tmpz, "LINE1:discrd#888888");
+		push(@tmpz, "LINE1:held#00EE00");
+		push(@tmpz, "LINE1:n_forwrd#00EEEE");
+		push(@tmpz, "LINE1:n_delvd#0000EE");
+	}
+
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_mail1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Messages/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:in=$rrd:mail_in:AVERAGE",
+		"DEF:out=$rrd:mail_out:AVERAGE",
+		"DEF:recvd=$rrd:mail_recvd:AVERAGE",
+		"DEF:delvd=$rrd:mail_delvd:AVERAGE",
+		"DEF:bytes_recvd=$rrd:mail_bytes_recvd:AVERAGE",
+		"DEF:bytes_delvd=$rrd:mail_bytes_delvd:AVERAGE",
+		"DEF:rejtd=$rrd:mail_rejtd:AVERAGE",
+		"DEF:spam=$rrd:mail_spam:AVERAGE",
+		"DEF:virus=$rrd:mail_virus:AVERAGE",
+		"DEF:bouncd=$rrd:mail_bouncd:AVERAGE",
+		"DEF:discrd=$rrd:mail_discrd:AVERAGE",
+		"DEF:held=$rrd:mail_held:AVERAGE",
+		"DEF:forwrd=$rrd:mail_forwrd:AVERAGE",
+		"CDEF:n_forwrd=forwrd,-1,*",
+		"CDEF:n_delvd=delvd,-1,*",
+		"CDEF:n_out=out,-1,*",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_mail1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Messages/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:mail_in:AVERAGE",
+			"DEF:out=$rrd:mail_out:AVERAGE",
+			"DEF:recvd=$rrd:mail_recvd:AVERAGE",
+			"DEF:delvd=$rrd:mail_delvd:AVERAGE",
+			"DEF:bytes_recvd=$rrd:mail_bytes_recvd:AVERAGE",
+			"DEF:bytes_delvd=$rrd:mail_bytes_delvd:AVERAGE",
+			"DEF:rejtd=$rrd:mail_rejtd:AVERAGE",
+			"DEF:spam=$rrd:mail_spam:AVERAGE",
+			"DEF:virus=$rrd:mail_virus:AVERAGE",
+			"DEF:bouncd=$rrd:mail_bouncd:AVERAGE",
+			"DEF:discrd=$rrd:mail_discrd:AVERAGE",
+			"DEF:held=$rrd:mail_held:AVERAGE",
+			"DEF:forwrd=$rrd:mail_forwrd:AVERAGE",
+			"CDEF:n_forwrd=forwrd,-1,*",
+			"CDEF:n_delvd=delvd,-1,*",
+			"CDEF:n_out=out,-1,*",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /mail1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:B_in#44EE44:K$T/s Received");
+	push(@tmp, "GPRINT:K_in:LAST:      Cur\\: %5.0lf");
+	push(@tmp, "GPRINT:K_in:AVERAGE:    Avg\\: %5.0lf");
+	push(@tmp, "GPRINT:K_in:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:K_in:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "AREA:B_out#4444EE:K$T/s Delivered");
+	push(@tmp, "GPRINT:K_out:LAST:     Cur\\: %5.0lf");
+	push(@tmp, "GPRINT:K_out:AVERAGE:    Avg\\: %5.0lf");
+	push(@tmp, "GPRINT:K_out:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:K_out:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "AREA:B_out#4444EE:");
+	push(@tmp, "AREA:B_in#44EE44:");
+	push(@tmp, "LINE1:B_out#0000EE");
+	push(@tmp, "LINE1:B_in#00EE00");
+	push(@tmpz, "AREA:B_in#44EE44:Received");
+	push(@tmpz, "AREA:B_out#4444EE:Delivered");
+	push(@tmpz, "AREA:B_out#4444EE:");
+	push(@tmpz, "AREA:B_in#44EE44:");
+	push(@tmpz, "LINE1:B_out#0000EE");
+	push(@tmpz, "LINE1:B_in#00EE00");
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		push(@CDEF, "CDEF:B_in=in,8,*");
+		push(@CDEF, "CDEF:B_out=out,8,*");
+	} else {
+		push(@CDEF, "CDEF:B_in=in");
+		push(@CDEF, "CDEF:B_out=out");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_mail2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:in=$rrd:mail_bytes_recvd:AVERAGE",
+		"DEF:out=$rrd:mail_bytes_delvd:AVERAGE",
+		@CDEF,
+		"CDEF:K_in=B_in,1024,/",
+		"CDEF:K_out=B_out,1024,/",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_mail2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:mail_bytes_recvd:AVERAGE",
+			"DEF:out=$rrd:mail_bytes_delvd:AVERAGE",
+			@CDEF,
+			"CDEF:K_in=B_in,1024,/",
+			"CDEF:K_out=B_out,1024,/",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /mail2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:queued#EEEE44:Queued");
+	push(@tmp, "LINE1:queued#EEEE00");
+	push(@tmp, "GPRINT:queued:LAST:               Current\\: %5.0lf\\n");
+	push(@tmpz, "AREA:queued#EEEE44:Queued");
+	push(@tmpz, "LINE1:queued#EEEE00");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_mail3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Messages",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:queued=$rrd:mail_queued:AVERAGE",
+		"COMMENT: \\n",
+		@tmp,
+		"COMMENT: \\n",
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_mail3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Messages",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:queued=$rrd:mail_queued:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /mail3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[3]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[3]));
+	} else {
+		if(trim($rigid[3]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:queues#44AAEE:Size in KB");
+	push(@tmp, "LINE1:queues#00AAEE");
+	push(@tmp, "GPRINT:K_queues:LAST:           Current\\: %5.1lf\\n");
+	push(@tmpz, "AREA:queues#44AAEE:Size");
+	push(@tmpz, "LINE1:queues#00AAEE");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG4",
+		"--title=$config->{graphs}->{_mail4}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Bytes",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:queues=$rrd:mail_queues:AVERAGE",
+		"CDEF:K_queues=queues,1024,/",
+		"COMMENT: \\n",
+		@tmp,
+		"COMMENT: \\n",
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG4z",
+			"--title=$config->{graphs}->{_mail4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Bytes",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:queues=$rrd:mail_queues:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /mail4/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG4z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[4]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[4]));
+	} else {
+		if(trim($rigid[4]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:greylisted#4444EE:Greylisted");
+	push(@tmp, "GPRINT:greylisted:LAST:           Current\\: %5.0lf\\n");
+	push(@tmp, "AREA:whitelisted#44EEEE:Whitelisted");
+	push(@tmp, "GPRINT:whitelisted:LAST:          Current\\: %5.0lf\\n");
+	push(@tmp, "LINE1:greylisted#0000EE");
+	push(@tmp, "LINE1:whitelisted#00EEEE");
+	push(@tmp, "LINE1:records#EE0000:Records");
+	push(@tmp, "GPRINT:records:LAST:              Current\\: %5.0lf\\n");
+	push(@tmpz, "AREA:greylisted#4444EE:Greylisted");
+	push(@tmpz, "AREA:whitelisted#44EEEE:Whitelisted");
+	push(@tmpz, "LINE2:greylisted#0000EE");
+	push(@tmpz, "LINE2:whitelisted#00EEEE");
+	push(@tmpz, "LINE2:records#EE0000:Records");
+	if(lc($mail->{mta}) eq "postfix") {
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG5",
+		"--title=$config->{graphs}->{_mail5}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Messages",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:records=$rrd:mail_val07:AVERAGE",
+		"DEF:greylisted=$rrd:mail_val08:AVERAGE",
+		"DEF:whitelisted=$rrd:mail_val09:AVERAGE",
+		"COMMENT: \\n",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG5z",
+			"--title=$config->{graphs}->{_mail5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Messages",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:records=$rrd:mail_val07:AVERAGE",
+			"DEF:greylisted=$rrd:mail_val08:AVERAGE",
+			"DEF:whitelisted=$rrd:mail_val09:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /mail5/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG5z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/mysql.pm b/lib/mysql.pm
new file mode 100644
index 0000000..1d60d8d
--- /dev/null
+++ b/lib/mysql.pm
@@ -0,0 +1,1187 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package mysql;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use DBI;
+use Exporter 'import';
+our @EXPORT = qw(mysql_init mysql_update mysql_cgi);
+
+sub mysql_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $mysql = $config->{mysql};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(!grep {$_ eq lc($mysql->{conn_type})} ("host", "socket")) {
+		logger("$myself: ERROR: invalid value in 'conn_type' option.");
+		return;
+	}
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 38 != scalar(my @ml = split(',', $mysql->{list}))) {
+			logger("Detected size mismatch between 'list' (" . scalar(my @ml = split(',', $mysql->{list})) . ") and $rrd (" . scalar(@ds) / 38 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @ml = split(',', $mysql->{list})); $n++) {
+			push(@tmp, "DS:mysql" . $n . "_queries:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_sq:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_tchr:GAUGE:120:0:100");
+			push(@tmp, "DS:mysql" . $n . "_qcu:GAUGE:120:0:100");
+			push(@tmp, "DS:mysql" . $n . "_ot:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_conns_u:GAUGE:120:0:100");
+			push(@tmp, "DS:mysql" . $n . "_conns:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_tlw:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_kbu:GAUGE:120:0:100");
+			push(@tmp, "DS:mysql" . $n . "_innbu:GAUGE:120:0:100");
+			push(@tmp, "DS:mysql" . $n . "_csel:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_ccom:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_cdel:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_cins:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_cinss:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_cupd:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_crep:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_creps:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_crol:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_acli:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_acon:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_brecv:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_bsent:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val01:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val02:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val03:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val04:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val05:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val06:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val07:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val08:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val09:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val10:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val11:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val12:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val13:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val14:GAUGE:120:0:U");
+			push(@tmp, "DS:mysql" . $n . "_val15:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{mysql_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub mysql_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $mysql = $config->{mysql};
+
+	my $str;
+	my $n = 0;
+	my $rrdata = "N";
+
+	my $print_error = 0;
+	$print_error = 1 if $debug;
+
+	for($n = 0; $n < scalar(my @ml = split(',', $mysql->{list})); $n++) {
+		my $host = $ml[$n];
+		my $sock = $ml[$n];
+		my $port = trim((split(',', $mysql->{desc}->{$ml[$n]}))[0]);
+		my $user = trim((split(',', $mysql->{desc}->{$ml[$n]}))[1]);
+		my $pass = trim((split(',', $mysql->{desc}->{$ml[$n]}))[2]);
+		my $dbh;
+		if(lc($mysql->{conn_type}) eq "host") {
+			unless ($host && $port && $user && $pass) {
+				logger("$myself: ERROR: undefined configuration.");
+				next;
+			}
+			$dbh = DBI->connect(
+				"DBI:mysql:host=$host;port=$port",
+				$user,
+				$pass,
+				{ PrintError => $print_error, }
+			) or logger("$myself: Cannot connect to MySQL '$host:$port'.") and next;
+		}
+		if(lc($mysql->{conn_type}) eq "socket") {
+			unless ($sock) {
+				logger("$myself: ERROR: undefined configuration.");
+				next;
+			}
+			$dbh = DBI->connect(
+				"DBI:mysql:mysql_socket=$sock",
+				{ PrintError => $print_error, }
+			) or logger("$myself: Cannot connect to MySQL '$sock'.") and next;
+		}
+
+		# SHOW STATUS
+		my $aborted_clients = 0;
+		my $aborted_connects = 0;
+		my $connections = 0;
+		my $connections_real = 0;
+		my $innodb_buffer_pool_pages_free = 0;
+		my $innodb_buffer_pool_pages_total = 0;
+		my $key_blocks_used = 0;
+		my $key_blocks_unused = 0;
+		my $max_used_connections = 0;
+		my $qcache_free_memory = 0;
+		my $qcache_hits = 0;
+		my $qcache_inserts = 0;
+		my $queries = 0;
+		my $opened_tables = 0;
+		my $slow_queries = 0;
+		my $table_locks_waited = 0;
+		my $threads_created = 0;
+		my $sql = "show status";
+		my $sth = $dbh->prepare($sql);
+		$sth->execute;
+		while(my ($name, $value) = $sth->fetchrow_array) {
+			if($name eq "Aborted_clients") {
+				$str = $n . "aborted_clients";
+				$aborted_clients = $value - ($config->{mysql_hist}->{$str} || 0);
+				$aborted_clients = 0 unless $aborted_clients != $value;
+				$aborted_clients /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Aborted_connects") {
+				$str = $n . "aborted_connects";
+				$aborted_connects = $value - ($config->{mysql_hist}->{$str} || 0);
+				$aborted_connects = 0 unless $aborted_connects != $value;
+				$aborted_connects /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Connections") {
+				$str = $n . "connections";
+				$connections_real = int($value);
+				$connections = $value - ($config->{mysql_hist}->{$str} || 0);
+				$connections = 0 unless $connections != $value;
+				$connections /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Innodb_buffer_pool_pages_free") {
+				$innodb_buffer_pool_pages_free = int($value);
+			}
+			if($name eq "Innodb_buffer_pool_pages_total") {
+				$innodb_buffer_pool_pages_total = int($value);
+			}
+			if($name eq "Key_blocks_unused") {
+				$key_blocks_unused = int($value);
+			}
+			if($name eq "Key_blocks_used") {
+				$key_blocks_used = int($value);
+			}
+			if($name eq "Max_used_connections") {
+				$max_used_connections = int($value);
+			}
+			if($name eq "Opened_tables") {
+				$str = $n . "opened_tables";
+				$opened_tables = $value - ($config->{mysql_hist}->{$str} || 0);
+				$opened_tables = 0 unless $opened_tables != $value;
+				$opened_tables /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Qcache_free_memory") {
+				$qcache_free_memory = int($value);
+			}
+			if($name eq "Qcache_hits") {
+				$qcache_hits = int($value);
+			}
+			if($name eq "Qcache_inserts") {
+				$qcache_inserts = int($value);
+			}
+			if($name eq "Queries") {
+				$str = $n . "queries";
+				$queries = $value - ($config->{mysql_hist}->{$str} || 0);
+				$queries = 0 unless $queries != $value;
+				$queries /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Slow_queries") {
+				$str = $n . "slow_queries";
+				$slow_queries = $value - ($config->{mysql_hist}->{$str} || 0);
+				$slow_queries = 0 unless $slow_queries != $value;
+				$slow_queries /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Table_locks_waited") {
+				$str = $n . "table_locks_waited";
+				$table_locks_waited = $value - ($config->{mysql_hist}->{$str} || 0);
+				$table_locks_waited = 0 unless $table_locks_waited != $value;
+				$table_locks_waited /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Threads_created") {
+				$threads_created = int($value);
+			}
+		}
+		$sth->finish;
+
+		# SHOW GLOBAL STATUS
+		my $bytes_received = 0;
+		my $bytes_sent = 0;
+		my $com_commit = 0;
+		my $com_delete = 0;
+		my $com_insert = 0;
+		my $com_insert_s = 0;
+		my $com_replace = 0;
+		my $com_replace_s = 0;
+		my $com_rollback = 0;
+		my $com_select = 0;
+		my $com_update = 0;
+		$sql = "show global status";
+		$sth = $dbh->prepare($sql);
+		$sth->execute;
+		while(my ($name, $value) = $sth->fetchrow_array) {
+			if($name eq "Bytes_received") {
+				$str = $n . "bytes_received";
+				$bytes_received = $value - ($config->{mysql_hist}->{$str} || 0);
+				$bytes_received = 0 unless $bytes_received != $value;
+				$bytes_received /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Bytes_sent") {
+				$str = $n . "bytes_sent";
+				$bytes_sent = $value - ($config->{mysql_hist}->{$str} || 0);
+				$bytes_sent = 0 unless $bytes_sent != $value;
+				$bytes_sent /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_commit") {
+				$str = $n . "com_commit";
+				$com_commit = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_commit = 0 unless $com_commit != $value;
+				$com_commit /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_delete") {
+				$str = $n . "com_delete";
+				$com_delete = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_delete = 0 unless $com_delete != $value;
+				$com_delete /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_insert") {
+				$str = $n . "com_insert";
+				$com_insert = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_insert = 0 unless $com_insert != $value;
+				$com_insert /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_insert_select") {
+				$str = $n . "com_insert_s";
+				$com_insert_s = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_insert_s = 0 unless $com_insert_s != $value;
+				$com_insert_s /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_replace") {
+				$str = $n . "com_replace";
+				$com_replace = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_replace = 0 unless $com_replace != $value;
+				$com_replace /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_replace_select") {
+				$str = $n . "com_replace_s";
+				$com_replace_s = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_replace_s = 0 unless $com_replace_s != $value;
+				$com_replace_s /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_rollback") {
+				$str = $n . "com_rollback";
+				$com_rollback = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_rollback = 0 unless $com_rollback != $value;
+				$com_rollback /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_select") {
+				$str = $n . "com_select";
+				$com_select = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_select = 0 unless $com_select != $value;
+				$com_select /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+			if($name eq "Com_update") {
+				$str = $n . "com_update";
+				$com_update = $value - ($config->{mysql_hist}->{$str} || 0);
+				$com_update = 0 unless $com_update != $value;
+				$com_update /= 60;
+				$config->{mysql_hist}->{$str} = $value;
+			}
+		}
+		$sth->finish;
+
+		# SHOW VARIABLES
+		my $query_cache_size = 0;
+		my $max_connections = 0;
+		$sql = "show variables";
+		$sth = $dbh->prepare($sql);
+		$sth->execute;
+		while(my ($name, $value) = $sth->fetchrow_array) {
+			if($name eq "max_connections") {
+				$max_connections = int($value);
+			}
+			if($name eq "query_cache_size") {
+				$query_cache_size = int($value);
+			}
+		}
+		$sth->finish;
+		$dbh->disconnect;
+
+		my $tcache_hit_rate = 0;
+		my $qcache_usage = 0;
+		my $connections_usage = 0;
+		my $key_buffer_usage = 0;
+		my $innodb_buffer_pool_usage = 0;
+
+		$tcache_hit_rate = (1 - ($threads_created / $connections_real)) * 100
+			unless !$connections_real;
+		$qcache_usage = (1 - ($qcache_free_memory / $query_cache_size)) * 100
+			unless !$query_cache_size;
+		$connections_usage = ($max_used_connections / $max_connections) * 100
+			unless !$max_connections;
+		$key_buffer_usage = ($key_blocks_used / ($key_blocks_used + $key_blocks_unused)) * 100
+			unless !($key_blocks_used + $key_blocks_unused);
+		$innodb_buffer_pool_usage = (1 - ($innodb_buffer_pool_pages_free / $innodb_buffer_pool_pages_total)) * 100
+			unless !$innodb_buffer_pool_pages_total;
+
+		$connections_usage = $connections_usage > 100 ? 100 : $connections_usage;
+
+		$rrdata .= ":$queries:$slow_queries:$tcache_hit_rate:$qcache_usage:$opened_tables:$connections_usage:$connections:$table_locks_waited:$key_buffer_usage:$innodb_buffer_pool_usage:$com_select:$com_commit:$com_delete:$com_insert:$com_insert_s:$com_update:$com_replace:$com_replace_s:$com_rollback:$aborted_clients:$aborted_connects:$bytes_received:$bytes_sent:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0";
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub mysql_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $mysql = $config->{mysql};
+	my @rigid = split(',', $mysql->{rigid});
+	my @limit = split(',', $mysql->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $T = "B";
+	my $vlabel = "bytes/s";
+	my $e;
+	my $e2;
+	my $n;
+	my $n2;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$T = "b";
+		$vlabel = "bits/s";
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @ml = split(',', $mysql->{list})); $n++) {
+			$line1 = "                                                                                                                                                                                                                          ";
+			$line2 .= "   Select  Commit  Delete  Insert  Insert_S  Update  Replace  Replace_S  Rollback  TCacheHit  QCache_U  Conns_U  KeyBuf_U  InnoDB_U  OpenedTbl  TLocks_W  Queries  SlowQrs  Conns  AbrtCli  AbrtConn  BytesRecv  BytesSent";
+			$line3 .= "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------";
+			if($line1) {
+				my $i = length($line1);
+				if(lc($mysql->{conn_type}) eq "host") {
+					printf(sprintf("%${i}s", sprintf("%s:%s", $ml[$n], trim((split(',', $mysql->{desc}->{$ml[$n]}))[0]))));
+				}
+				if(lc($mysql->{conn_type}) eq "socket") {
+					printf(sprintf("%${i}s", sprintf("socket: %s", $ml[$n])));
+				}
+			}
+		}
+		print("\n");
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @ml = split(',', $mysql->{list})); $n2++) {
+				undef(@row);
+				$from = $n2 * 38;
+				$to = $from + 38;
+				push(@row, @$line[$from..$to]);
+				printf("   %6d  %6d  %6d  %6d  %8d  %6d  %7d   %8d  %8d        %2d%%       %2d%%      %2d%%       %2d%%       %2d%%     %6d    %6d   %6d   %6d %6d   %6d    %6d  %9d  %9d", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @ml = split(',', $mysql->{list})); $n++) {
+		for($n2 = 1; $n2 <= 6; $n2++) {
+			my $str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach (my @ml = split(',', $mysql->{list})) {
+		my $uri;
+		if(lc($mysql->{conn_type}) eq "host") {
+	        	$uri = $_ . ":" . trim((split(',', $mysql->{desc}->{$_}))[0]);
+		}
+		if(lc($mysql->{conn_type}) eq "socket") {
+	        	$uri = "socket: " . $_;
+		}
+
+		if($e) {
+			print("  <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		if($title) {
+			print("    <tr>\n");
+			print("    <td valign='top' bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE1:com_select#FFA500:Select");
+		push(@tmp, "GPRINT:com_select:LAST:         Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_select:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_select:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_select:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_commit#EEEE44:Commit");
+		push(@tmp, "GPRINT:com_commit:LAST:         Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_commit:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_commit:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_commit:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_delete#EE4444:Delete");
+		push(@tmp, "GPRINT:com_delete:LAST:         Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_delete:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_delete:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_delete:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_insert#44EE44:Insert");
+		push(@tmp, "GPRINT:com_insert:LAST:         Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_insert_s#448844:Insert Select");
+		push(@tmp, "GPRINT:com_insert_s:LAST:  Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert_s:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert_s:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_insert_s:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_update#EE44EE:Update");
+		push(@tmp, "GPRINT:com_update:LAST:         Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_update:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_update:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_update:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_replace#44EEEE:Replace");
+		push(@tmp, "GPRINT:com_replace:LAST:        Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_replace_s#4444EE:Replace Select");
+		push(@tmp, "GPRINT:com_replace_s:LAST: Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace_s:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace_s:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_replace_s:MAX:    Max\\: %6.1lf\\n");
+		push(@tmp, "LINE1:com_rollback#444444:Rollback");
+		push(@tmp, "GPRINT:com_rollback:LAST:       Cur\\: %6.1lf");
+		push(@tmp, "GPRINT:com_rollback:AVERAGE:    Avg\\: %6.1lf");
+		push(@tmp, "GPRINT:com_rollback:MIN:    Min\\: %6.1lf");
+		push(@tmp, "GPRINT:com_rollback:MAX:    Max\\: %6.1lf\\n");
+		push(@tmpz, "LINE2:com_select#FFA500:Select");
+		push(@tmpz, "LINE2:com_commit#EEEE44:Commit");
+		push(@tmpz, "LINE2:com_delete#EE4444:Delete");
+		push(@tmpz, "LINE2:com_insert#44EE44:Insert");
+		push(@tmpz, "LINE2:com_insert_s#448844:Insert Sel");
+		push(@tmpz, "LINE2:com_update#EE44EE:Update");
+		push(@tmpz, "LINE2:com_replace#44EEEE:Replace");
+		push(@tmpz, "LINE2:com_replace_s#4444EE:Replace Sel");
+		push(@tmpz, "LINE2:com_rollback#444444:Rollback");
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6]",
+			"--title=$config->{graphs}->{_mysql1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Queries/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:com_select=$rrd:mysql" . $e . "_csel:AVERAGE",
+			"DEF:com_commit=$rrd:mysql" . $e . "_ccom:AVERAGE",
+			"DEF:com_delete=$rrd:mysql" . $e . "_cdel:AVERAGE",
+			"DEF:com_insert=$rrd:mysql" . $e . "_cins:AVERAGE",
+			"DEF:com_insert_s=$rrd:mysql" . $e . "_cinss:AVERAGE",
+			"DEF:com_update=$rrd:mysql" . $e . "_cupd:AVERAGE",
+			"DEF:com_replace=$rrd:mysql" . $e . "_crep:AVERAGE",
+			"DEF:com_replace_s=$rrd:mysql" . $e . "_creps:AVERAGE",
+			"DEF:com_rollback=$rrd:mysql" . $e . "_crol:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6]",
+				"--title=$config->{graphs}->{_mysql1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Queries/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:com_select=$rrd:mysql" . $e . "_csel:AVERAGE",
+				"DEF:com_commit=$rrd:mysql" . $e . "_ccom:AVERAGE",
+				"DEF:com_delete=$rrd:mysql" . $e . "_cdel:AVERAGE",
+				"DEF:com_insert=$rrd:mysql" . $e . "_cins:AVERAGE",
+				"DEF:com_insert_s=$rrd:mysql" . $e . "_cinss:AVERAGE",
+				"DEF:com_update=$rrd:mysql" . $e . "_cupd:AVERAGE",
+				"DEF:com_replace=$rrd:mysql" . $e . "_crep:AVERAGE",
+				"DEF:com_replace_s=$rrd:mysql" . $e . "_creps:AVERAGE",
+				"DEF:com_rollback=$rrd:mysql" . $e . "_crol:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE1:tcache_hit_r#FFA500:Thread Cache Hit Rate");
+		push(@tmp, "GPRINT:tcache_hit_r:LAST:  Cur\\: %4.1lf%%");
+		push(@tmp, "GPRINT:tcache_hit_r:AVERAGE:  Avg\\: %4.1lf%%");
+		push(@tmp, "GPRINT:tcache_hit_r:MIN:  Min\\: %4.1lf%%");
+		push(@tmp, "GPRINT:tcache_hit_r:MAX:  Max\\: %4.1lf%%\\n");
+		push(@tmp, "LINE1:qcache_usage#44EEEE:Query Cache Usage");
+		push(@tmp, "GPRINT:qcache_usage:LAST:      Cur\\: %4.1lf%%");
+		push(@tmp, "GPRINT:qcache_usage:AVERAGE:  Avg\\: %4.1lf%%");
+		push(@tmp, "GPRINT:qcache_usage:MIN:  Min\\: %4.1lf%%");
+		push(@tmp, "GPRINT:qcache_usage:MAX:  Max\\: %4.1lf%%\\n");
+		push(@tmp, "LINE1:conns_u#44EE44:Connections Usage");
+		push(@tmp, "GPRINT:conns_u:LAST:      Cur\\: %4.1lf%%");
+		push(@tmp, "GPRINT:conns_u:AVERAGE:  Avg\\: %4.1lf%%");
+		push(@tmp, "GPRINT:conns_u:MIN:  Min\\: %4.1lf%%");
+		push(@tmp, "GPRINT:conns_u:MAX:  Max\\: %4.1lf%%\\n");
+		push(@tmp, "LINE1:key_buf_u#EE4444:Key Buffer Usage");
+		push(@tmp, "GPRINT:key_buf_u:LAST:       Cur\\: %4.1lf%%");
+		push(@tmp, "GPRINT:key_buf_u:AVERAGE:  Avg\\: %4.1lf%%");
+		push(@tmp, "GPRINT:key_buf_u:MIN:  Min\\: %4.1lf%%");
+		push(@tmp, "GPRINT:key_buf_u:MAX:  Max\\: %4.1lf%%\\n");
+		push(@tmp, "LINE1:innodb_buf_u#EE44EE:InnoDB Buffer P. Usage");
+		push(@tmp, "GPRINT:innodb_buf_u:LAST: Cur\\: %4.1lf%%");
+		push(@tmp, "GPRINT:innodb_buf_u:AVERAGE:  Avg\\: %4.1lf%%");
+		push(@tmp, "GPRINT:innodb_buf_u:MIN:  Min\\: %4.1lf%%");
+		push(@tmp, "GPRINT:innodb_buf_u:MAX:  Max\\: %4.1lf%%\\n");
+		push(@tmpz, "LINE2:tcache_hit_r#FFA500:Thread Cache Hit Rate");
+		push(@tmpz, "LINE2:qcache_usage#44EEEE:Query Cache Usage");
+		push(@tmpz, "LINE2:conns_u#44EE44:Connections Usage");
+		push(@tmpz, "LINE2:key_buf_u#EE4444:Key Buffer Usage");
+		push(@tmpz, "LINE2:innodb_buf_u#EE44EE:Innodb Buffer P. Usage");
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 1]",
+			"--title=$config->{graphs}->{_mysql2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent (%)",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:tcache_hit_r=$rrd:mysql" . $e . "_tchr:AVERAGE",
+			"DEF:qcache_usage=$rrd:mysql" . $e . "_qcu:AVERAGE",
+			"DEF:conns_u=$rrd:mysql" . $e . "_conns_u:AVERAGE",
+			"DEF:key_buf_u=$rrd:mysql" . $e . "_kbu:AVERAGE",
+			"DEF:innodb_buf_u=$rrd:mysql" . $e . "_innbu:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 1]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 1]",
+				"--title=$config->{graphs}->{_mysql2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Percent (%)",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:tcache_hit_r=$rrd:mysql" . $e . "_tchr:AVERAGE",
+				"DEF:qcache_usage=$rrd:mysql" . $e . "_qcu:AVERAGE",
+				"DEF:conns_u=$rrd:mysql" . $e . "_conns_u:AVERAGE",
+				"DEF:key_buf_u=$rrd:mysql" . $e . "_kbu:AVERAGE",
+				"DEF:innodb_buf_u=$rrd:mysql" . $e . "_innbu:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 1]: $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 1] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:opened_tbl#44EEEE:Opened Tables");
+		push(@tmp, "GPRINT:opened_tbl:LAST:        Current\\: %7.1lf\\n");
+		push(@tmp, "AREA:tlocks_w#4444EE:Table Locks Waited");
+		push(@tmp, "GPRINT:tlocks_w:LAST:   Current\\: %7.1lf\\n");
+		push(@tmp, "LINE1:opened_tbl#00EEEE");
+		push(@tmp, "LINE1:tlocks_w#0000EE");
+		push(@tmpz, "AREA:opened_tbl#44EEEE:Opened Tables");
+		push(@tmpz, "AREA:tlocks_w#4444EE:Table Locks Waited");
+		push(@tmpz, "LINE1:opened_tbl#00EEEE");
+		push(@tmpz, "LINE1:tlocks_w#0000EE");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 2]",
+			"--title=$config->{graphs}->{_mysql3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Open & Locks/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:opened_tbl=$rrd:mysql" . $e . "_ot:AVERAGE",
+			"DEF:tlocks_w=$rrd:mysql" . $e . "_tlw:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 2]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 2]",
+				"--title=$config->{graphs}->{_mysql3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Open & Locks/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:opened_tbl=$rrd:mysql" . $e . "_ot:AVERAGE",
+				"DEF:tlocks_w=$rrd:mysql" . $e . "_tlw:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 2]: $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 2] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[3]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+		} else {
+			if(trim($rigid[3]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[3]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:qrs#44EEEE:Queries");
+		push(@tmp, "GPRINT:qrs:LAST:              Current\\: %7.1lf\\n");
+		push(@tmp, "AREA:sqrs#4444EE:Slow Queries");
+		push(@tmp, "GPRINT:sqrs:LAST:         Current\\: %7.1lf\\n");
+		push(@tmp, "LINE1:qrs#00EEEE");
+		push(@tmp, "LINE1:sqrs#0000EE");
+		push(@tmpz, "AREA:qrs#44EEEE:Queries");
+		push(@tmpz, "AREA:sqrs#4444EE:Slow Queries");
+		push(@tmpz, "LINE1:qrs#00EEEE");
+		push(@tmpz, "LINE1:sqrs#0000EE");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 3]",
+			"--title=$config->{graphs}->{_mysql4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Queries/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:qrs=$rrd:mysql" . $e . "_queries:AVERAGE",
+			"DEF:sqrs=$rrd:mysql" . $e . "_sq:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 3]",
+				"--title=$config->{graphs}->{_mysql4}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Queries/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:qrs=$rrd:mysql" . $e . "_queries:AVERAGE",
+				"DEF:sqrs=$rrd:mysql" . $e . "_sq:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 3]: $err\n") if $err;
+		}
+		$e2 = $e + 4;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 3] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[4]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+		} else {
+			if(trim($rigid[4]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[4]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:conns#44EEEE:Connections");
+		push(@tmp, "GPRINT:conns:LAST:          Current\\: %7.1lf\\n");
+		push(@tmp, "AREA:acli#EEEE44:Aborted Clients");
+		push(@tmp, "GPRINT:acli:LAST:      Current\\: %7.1lf\\n");
+		push(@tmp, "AREA:acon#EE4444:Aborted Connects");
+		push(@tmp, "GPRINT:acon:LAST:     Current\\: %7.1lf\\n");
+		push(@tmp, "LINE1:conns#00EEEE");
+		push(@tmp, "LINE1:acli#EEEE00");
+		push(@tmp, "LINE1:acon#EE0000");
+		push(@tmpz, "AREA:conns#44EEEE:Connections");
+		push(@tmpz, "AREA:acli#EEEE44:Aborted Clients");
+		push(@tmpz, "AREA:acon#EE4444:Aborted Connects");
+		push(@tmpz, "LINE1:conns#00EEEE");
+		push(@tmpz, "LINE1:acli#EEEE00");
+		push(@tmpz, "LINE1:acon#EE0000");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 4]",
+			"--title=$config->{graphs}->{_mysql5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Connectionss/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:conns=$rrd:mysql" . $e . "_conns:AVERAGE",
+			"DEF:acli=$rrd:mysql" . $e . "_acli:AVERAGE",
+			"DEF:acon=$rrd:mysql" . $e . "_acon:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 4]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 4]",
+				"--title=$config->{graphs}->{_mysql5}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Connectionss/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:conns=$rrd:mysql" . $e . "_conns:AVERAGE",
+				"DEF:acli=$rrd:mysql" . $e . "_acli:AVERAGE",
+				"DEF:acon=$rrd:mysql" . $e . "_acon:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 4]: $err\n") if $err;
+		}
+		$e2 = $e + 5;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 4] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 4] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 4] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 4] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 4] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[5]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[5]));
+		} else {
+			if(trim($rigid[5]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[5]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		undef(@CDEF);
+		push(@tmp, "AREA:B_in#44EE44:Input");
+		push(@tmp, "AREA:B_out#4444EE:Output");
+		push(@tmp, "AREA:B_out#4444EE:");
+		push(@tmp, "AREA:B_in#44EE44:");
+		push(@tmp, "LINE1:B_out#0000EE");
+		push(@tmp, "LINE1:B_in#00EE00");
+		push(@tmpz, "AREA:B_in#44EE44:Input");
+		push(@tmpz, "AREA:B_out#4444EE:Output");
+		push(@tmpz, "AREA:B_out#4444EE:");
+		push(@tmpz, "AREA:B_in#44EE44:");
+		push(@tmpz, "LINE1:B_out#0000EE");
+		push(@tmpz, "LINE1:B_in#00EE00");
+		if(lc($config->{netstats_in_bps}) eq "y") {
+			push(@CDEF, "CDEF:B_in=in,8,*");
+			push(@CDEF, "CDEF:B_out=out,8,*");
+		} else {
+			push(@CDEF, "CDEF:B_in=in");
+			push(@CDEF, "CDEF:B_out=out");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 5]",
+			"--title=$config->{graphs}->{_mysql6}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:mysql" . $e . "_brecv:AVERAGE",
+			"DEF:out=$rrd:mysql" . $e . "_bsent:AVERAGE",
+			@CDEF,
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 5]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 5]",
+				"--title=$config->{graphs}->{_mysql6}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:in=$rrd:mysql" . $e . "_brecv:AVERAGE",
+				"DEF:out=$rrd:mysql" . $e . "_bsent:AVERAGE",
+				@CDEF,
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 5]: $err\n") if $err;
+		}
+		$e2 = $e + 6;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 5] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 5] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 6 + 5] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 5] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 6 + 5] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b style='{color: " . $colors->{title_fg_color} . "}'>&nbsp;&nbsp;$uri<b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/net.pm b/lib/net.pm
new file mode 100644
index 0000000..4491b51
--- /dev/null
+++ b/lib/net.pm
@@ -0,0 +1,648 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package net;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(net_init net_update net_cgi);
+
+sub net_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:net0_bytes_in:COUNTER:120:0:U",
+				"DS:net0_bytes_out:COUNTER:120:0:U",
+				"DS:net0_packs_in:COUNTER:120:0:U",
+				"DS:net0_packs_out:COUNTER:120:0:U",
+				"DS:net0_error_in:COUNTER:120:0:U",
+				"DS:net0_error_out:COUNTER:120:0:U",
+				"DS:net1_bytes_in:COUNTER:120:0:U",
+				"DS:net1_bytes_out:COUNTER:120:0:U",
+				"DS:net1_packs_in:COUNTER:120:0:U",
+				"DS:net1_packs_out:COUNTER:120:0:U",
+				"DS:net1_error_in:COUNTER:120:0:U",
+				"DS:net1_error_out:COUNTER:120:0:U",
+				"DS:net2_bytes_in:COUNTER:120:0:U",
+				"DS:net2_bytes_out:COUNTER:120:0:U",
+				"DS:net2_packs_in:COUNTER:120:0:U",
+				"DS:net2_packs_out:COUNTER:120:0:U",
+				"DS:net2_error_in:COUNTER:120:0:U",
+				"DS:net2_error_out:COUNTER:120:0:U",
+				"DS:net3_bytes_in:COUNTER:120:0:U",
+				"DS:net3_bytes_out:COUNTER:120:0:U",
+				"DS:net3_packs_in:COUNTER:120:0:U",
+				"DS:net3_packs_out:COUNTER:120:0:U",
+				"DS:net3_error_in:COUNTER:120:0:U",
+				"DS:net3_error_out:COUNTER:120:0:U",
+				"DS:net4_bytes_in:COUNTER:120:0:U",
+				"DS:net4_bytes_out:COUNTER:120:0:U",
+				"DS:net4_packs_in:COUNTER:120:0:U",
+				"DS:net4_packs_out:COUNTER:120:0:U",
+				"DS:net4_error_in:COUNTER:120:0:U",
+				"DS:net4_error_out:COUNTER:120:0:U",
+				"DS:net5_bytes_in:COUNTER:120:0:U",
+				"DS:net5_bytes_out:COUNTER:120:0:U",
+				"DS:net5_packs_in:COUNTER:120:0:U",
+				"DS:net5_packs_out:COUNTER:120:0:U",
+				"DS:net5_error_in:COUNTER:120:0:U",
+				"DS:net5_error_out:COUNTER:120:0:U",
+				"DS:net6_bytes_in:COUNTER:120:0:U",
+				"DS:net6_bytes_out:COUNTER:120:0:U",
+				"DS:net6_packs_in:COUNTER:120:0:U",
+				"DS:net6_packs_out:COUNTER:120:0:U",
+				"DS:net6_error_in:COUNTER:120:0:U",
+				"DS:net6_error_out:COUNTER:120:0:U",
+				"DS:net7_bytes_in:COUNTER:120:0:U",
+				"DS:net7_bytes_out:COUNTER:120:0:U",
+				"DS:net7_packs_in:COUNTER:120:0:U",
+				"DS:net7_packs_out:COUNTER:120:0:U",
+				"DS:net7_error_in:COUNTER:120:0:U",
+				"DS:net7_error_out:COUNTER:120:0:U",
+				"DS:net8_bytes_in:COUNTER:120:0:U",
+				"DS:net8_bytes_out:COUNTER:120:0:U",
+				"DS:net8_packs_in:COUNTER:120:0:U",
+				"DS:net8_packs_out:COUNTER:120:0:U",
+				"DS:net8_error_in:COUNTER:120:0:U",
+				"DS:net8_error_out:COUNTER:120:0:U",
+				"DS:net9_bytes_in:COUNTER:120:0:U",
+				"DS:net9_bytes_out:COUNTER:120:0:U",
+				"DS:net9_packs_in:COUNTER:120:0:U",
+				"DS:net9_packs_out:COUNTER:120:0:U",
+				"DS:net9_error_in:COUNTER:120:0:U",
+				"DS:net9_error_out:COUNTER:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub net_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $net = $config->{net};
+
+	my @net_bytes_in;
+	my @net_bytes_out;
+	my @net_packs_in;
+	my @net_packs_out;
+	my @net_error_in;
+	my @net_error_out;
+
+	my $n;
+	my $rrdata = "N";
+
+	for($n = 0; $n < 10 ; $n++) {
+		$net_bytes_in[$n] = 0;
+		$net_bytes_out[$n] = 0;
+		$net_packs_in[$n] = 0;
+		$net_packs_out[$n] = 0;
+		$net_error_in[$n] = 0;
+		$net_error_out[$n] = 0;
+		if($n < scalar(my @nl = split(',', $net->{list}))) {
+			$nl[$n] = trim($nl[$n]);
+			if($config->{os} eq "Linux") {
+				open(IN, "/proc/net/dev");
+				while(<IN>) {
+					my ($dev, $data) = split(':', $_);
+					if($dev =~ /$nl[$n]/) {
+						($net_bytes_in[$n], $net_packs_in[$n], $net_error_in[$n], undef, undef, undef, undef, undef, $net_bytes_out[$n], $net_packs_out[$n], $net_error_out[$n]) = split(' ', $data);
+						last;
+					}
+				}
+				close(IN);
+			} elsif($config->{os} eq "FreeBSD") {
+				open(IN, "netstat -nibd |");
+				while(<IN>) {
+					if(/Link/ && /$nl[$n]/) {
+						# Idrop column added in 8.0
+						if($config->{kernel} > 7.2) {
+							(undef, undef, undef, undef, $net_packs_in[$n], $net_error_in[$n], undef, $net_bytes_in[$n], $net_packs_out[$n], $net_error_out[$n], $net_bytes_out[$n]) = split(' ', $_);
+						} else {
+							(undef, undef, undef, undef, $net_packs_in[$n], $net_error_in[$n], $net_bytes_in[$n], $net_packs_out[$n], $net_error_out[$n], $net_bytes_out[$n]) = split(' ', $_);
+						}
+						last;
+					}
+				}
+				close(IN);
+			} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+				open(IN, "netstat -nibd |");
+				while(<IN>) {
+					if(/Link/ && /^$nl[$n]/) {
+						(undef, undef, undef, undef, $net_bytes_in[$n], $net_bytes_out[$n]) = split(' ', $_);
+						$net_packs_in[$n] = 0;
+						$net_error_in[$n] = 0;
+						$net_packs_out[$n] = 0;
+						$net_error_out[$n] = 0;
+						last;
+					}
+				}
+				close(IN);
+			}
+		}
+		chomp($net_bytes_in[$n],
+			$net_bytes_out[$n],
+			$net_packs_in[$n],
+			$net_packs_out[$n],
+			$net_error_in[$n],
+			$net_error_out[$n]);
+		$rrdata .= ":$net_bytes_in[$n]:$net_bytes_out[$n]:$net_packs_in[$n]:$net_packs_out[$n]:$net_error_in[$n]:$net_error_out[$n]";
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub net_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $net = $config->{net};
+	my @rigid = split(',', $net->{rigid});
+	my @limit = split(',', $net->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my $netname;
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $T = "B";
+	my $vlabel = "bytes/s";
+	my $n;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$T = "b";
+		$vlabel = "bits/s";
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("       ");
+		for($n = 0; $n < scalar(my @nl = split(',', $net->{list})); $n++) {
+			$nl[$n] = trim($nl[$n]);
+			my $nd = trim((split(',', $net->{desc}->{$nl[$n]}))[0]);
+			print(trim($nl[$n]) . " ($nd)                          ");
+		}
+		print("\nTime");
+		for($n = 0; $n < scalar(my @nl = split(',', $net->{list})); $n++) {
+			print("   K$T/s_I  K$T/s_O  Pk/s_I  Pk/s_O  Er/s_I  Er/s_O");
+		}
+		print(" \n----");
+		for($n = 0; $n < scalar(my @nl = split(',', $net->{list})); $n++) {
+			print("-------------------------------------------------");
+		}
+		print " \n";
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @nl = split(',', $net->{list})); $n2++) {
+				$from = $n2 * 6;
+				$to = $from + 6;
+				my ($ki, $ko, $pi, $po, $ei, $eo) = @$line[$from..$to];
+				$ki /= 1024;
+				$ko /= 1024;
+				$pi /= 1024;
+				$po /= 1024;
+				$ei /= 1024;
+				$eo /= 1024;
+				if(lc($config->{netstats_in_bps}) eq "y") {
+					$ki *= 8;
+					$ko *= 8;
+				}
+				@row = ($ki, $ko, $pi, $po, $ei, $eo);
+				printf("   %6d  %6d  %6d  %6d  %6d  %6d", @row);
+			}
+			print(" \n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1;
+	my $PNG2;
+	my $PNG3;
+	my $PNG1z;
+	my $PNG2z;
+	my $PNG3z;
+	for($n = 0; $n < scalar(my @nl = split(',', $net->{list})); $n++) {
+		$PNG1 = $u . $package . $n . "1." . $tf->{when} . ".png";
+		$PNG2 = $u . $package . $n . "2." . $tf->{when} . ".png";
+		$PNG3 = $u . $package . $n . "3." . $tf->{when} . ".png";
+		unlink("$PNG_DIR" . $PNG1);
+		unlink("$PNG_DIR" . $PNG2);
+		unlink("$PNG_DIR" . $PNG3);
+		if(lc($config->{enable_zoom}) eq "y") {
+			$PNG1z = $u . $package . $n . "1z." . $tf->{when} . ".png";
+			$PNG2z = $u . $package . $n . "2z." . $tf->{when} . ".png";
+			$PNG3z = $u . $package . $n . "3z." . $tf->{when} . ".png";
+			unlink("$PNG_DIR" . $PNG1z);
+			unlink("$PNG_DIR" . $PNG2z);
+			unlink("$PNG_DIR" . $PNG3z);
+		}
+
+		$nl[$n] = trim($nl[$n]);
+		my $nd = trim((split(',', $net->{desc}->{$nl[$n]}))[0]);
+
+		if($title) {
+			if($n) {
+				print("    <br>\n");
+			}
+			main::graph_header($nl[$n] . " " . $title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		undef(@CDEF);
+		push(@tmp, "AREA:B_in#44EE44:K$T/s Input");
+		push(@tmp, "GPRINT:K_in:LAST:     Current\\: %5.0lf");
+		push(@tmp, "GPRINT:K_in:AVERAGE: Average\\: %5.0lf");
+		push(@tmp, "GPRINT:K_in:MIN:    Min\\: %5.0lf");
+		push(@tmp, "GPRINT:K_in:MAX:    Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:B_out#4444EE:K$T/s Output");
+		push(@tmp, "GPRINT:K_out:LAST:    Current\\: %5.0lf");
+		push(@tmp, "GPRINT:K_out:AVERAGE: Average\\: %5.0lf");
+		push(@tmp, "GPRINT:K_out:MIN:    Min\\: %5.0lf");
+		push(@tmp, "GPRINT:K_out:MAX:    Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:B_out#4444EE:");
+		push(@tmp, "AREA:B_in#44EE44:");
+		push(@tmp, "LINE1:B_out#0000EE");
+		push(@tmp, "LINE1:B_in#00EE00");
+		push(@tmpz, "AREA:B_in#44EE44:Input");
+		push(@tmpz, "AREA:B_out#4444EE:Output");
+		push(@tmpz, "AREA:B_out#4444EE:");
+		push(@tmpz, "AREA:B_in#44EE44:");
+		push(@tmpz, "LINE1:B_out#0000EE");
+		push(@tmpz, "LINE1:B_in#00EE00");
+		if(lc($config->{netstats_in_bps}) eq "y") {
+			push(@CDEF, "CDEF:B_in=in,8,*");
+			push(@CDEF, "CDEF:B_out=out,8,*");
+		} else {
+			push(@CDEF, "CDEF:B_in=in");
+			push(@CDEF, "CDEF:B_out=out");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG1",
+			"--title=$nl[$n] $nd  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:net" . $n . "_bytes_in:AVERAGE",
+			"DEF:out=$rrd:net" . $n . "_bytes_out:AVERAGE",
+			@CDEF,
+			"CDEF:K_in=B_in,1024,/",
+			"CDEF:K_out=B_out,1024,/",
+			"COMMENT: \\n",
+			@tmp,
+			"COMMENT: \\n",
+			"COMMENT: \\n",
+			);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG1z",
+				"--title=$nl[$n] $nd  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:in=$rrd:net" . $n . "_bytes_in:AVERAGE",
+				"DEF:out=$rrd:net" . $n . "_bytes_out:AVERAGE",
+				@CDEF,
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+		}
+		$netname="net" . $n . "1";
+		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:p_in#44EE44:Input");
+		push(@tmp, "AREA:p_out#4444EE:Output");
+		push(@tmp, "AREA:p_out#4444EE:");
+		push(@tmp, "AREA:p_in#44EE44:");
+		push(@tmp, "LINE1:p_out#0000EE");
+		push(@tmp, "LINE1:p_in#00EE00");
+		push(@tmpz, "AREA:p_in#44EE44:Input");
+		push(@tmpz, "AREA:p_out#4444EE:Output");
+		push(@tmpz, "AREA:p_out#4444EE:");
+		push(@tmpz, "AREA:p_in#44EE44:");
+		push(@tmpz, "LINE1:p_out#0000EE");
+		push(@tmpz, "LINE1:p_in#00EE00");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG2",
+			"--title=$nl[$n] $config->{graphs}->{_net2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Packets/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:p_in=$rrd:net" . $n . "_packs_in:AVERAGE",
+			"DEF:p_out=$rrd:net" . $n . "_packs_out:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG2z",
+				"--title=$nl[$n] $config->{graphs}->{_net2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Packets/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:p_in=$rrd:net" . $n . "_packs_in:AVERAGE",
+				"DEF:p_out=$rrd:net" . $n . "_packs_out:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+		}
+		$netname="net" . $n . "2";
+		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "AREA:e_in#44EE44:Input");
+		push(@tmp, "AREA:e_out#4444EE:Output");
+		push(@tmp, "AREA:e_out#4444EE:");
+		push(@tmp, "AREA:e_in#44EE44:");
+		push(@tmp, "LINE1:e_out#0000EE");
+		push(@tmp, "LINE1:e_in#00EE00");
+		push(@tmpz, "AREA:e_in#44EE44:Input");
+		push(@tmpz, "AREA:e_out#4444EE:Output");
+		push(@tmpz, "AREA:e_out#4444EE:");
+		push(@tmpz, "AREA:e_in#44EE44:");
+		push(@tmpz, "LINE1:e_out#0000EE");
+		push(@tmpz, "LINE1:e_in#00EE00");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+			push(@tmp, "COMMENT: \\n");
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG3",
+			"--title=$nl[$n] $config->{graphs}->{_net3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Errors/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:e_in=$rrd:net" . $n . "_error_in:AVERAGE",
+			"DEF:e_out=$rrd:net" . $n . "_error_out:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNG3z",
+				"--title=$nl[$n] $config->{graphs}->{_net3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Errors/s",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:e_in=$rrd:net" . $n . "_error_in:AVERAGE",
+				"DEF:e_out=$rrd:net" . $n . "_error_out:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+		}
+		$netname="net" . $n . "3";
+		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+	}
+	print("  <br>\n");
+	return;
+}
+1;
diff --git a/lib/nfsc.pm b/lib/nfsc.pm
new file mode 100644
index 0000000..0d2f4be
--- /dev/null
+++ b/lib/nfsc.pm
@@ -0,0 +1,879 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package nfsc;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(nfsc_init nfsc_update nfsc_cgi);
+
+
+sub nfsc_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		logger("$myself is not supported yet by your operating system ($config->{os}).");
+		return;
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:nfsc_0:COUNTER:120:0:U",
+				"DS:nfsc_1:COUNTER:120:0:U",
+				"DS:nfsc_2:COUNTER:120:0:U",
+				"DS:nfsc_3:COUNTER:120:0:U",
+				"DS:nfsc_4:COUNTER:120:0:U",
+				"DS:nfsc_5:COUNTER:120:0:U",
+				"DS:nfsc_6:COUNTER:120:0:U",
+				"DS:nfsc_7:COUNTER:120:0:U",
+				"DS:nfsc_8:COUNTER:120:0:U",
+				"DS:nfsc_9:COUNTER:120:0:U",
+				"DS:nfsc_10:COUNTER:120:0:U",
+				"DS:nfsc_11:COUNTER:120:0:U",
+				"DS:nfsc_12:COUNTER:120:0:U",
+				"DS:nfsc_13:COUNTER:120:0:U",
+				"DS:nfsc_14:COUNTER:120:0:U",
+				"DS:nfsc_15:COUNTER:120:0:U",
+				"DS:nfsc_16:COUNTER:120:0:U",
+				"DS:nfsc_17:COUNTER:120:0:U",
+				"DS:nfsc_18:COUNTER:120:0:U",
+				"DS:nfsc_19:COUNTER:120:0:U",
+				"DS:nfsc_20:COUNTER:120:0:U",
+				"DS:nfsc_21:COUNTER:120:0:U",
+				"DS:nfsc_22:COUNTER:120:0:U",
+				"DS:nfsc_23:COUNTER:120:0:U",
+				"DS:nfsc_24:COUNTER:120:0:U",
+				"DS:nfsc_25:COUNTER:120:0:U",
+				"DS:nfsc_26:COUNTER:120:0:U",
+				"DS:nfsc_27:COUNTER:120:0:U",
+				"DS:nfsc_28:COUNTER:120:0:U",
+				"DS:nfsc_29:COUNTER:120:0:U",
+				"DS:nfsc_30:COUNTER:120:0:U",
+				"DS:nfsc_31:COUNTER:120:0:U",
+				"DS:nfsc_32:COUNTER:120:0:U",
+				"DS:nfsc_33:COUNTER:120:0:U",
+				"DS:nfsc_34:COUNTER:120:0:U",
+				"DS:nfsc_35:COUNTER:120:0:U",
+				"DS:nfsc_36:COUNTER:120:0:U",
+				"DS:nfsc_37:COUNTER:120:0:U",
+				"DS:nfsc_38:COUNTER:120:0:U",
+				"DS:nfsc_39:COUNTER:120:0:U",
+				"DS:nfsc_40:COUNTER:120:0:U",
+				"DS:nfsc_41:COUNTER:120:0:U",
+				"DS:nfsc_42:COUNTER:120:0:U",
+				"DS:nfsc_43:COUNTER:120:0:U",
+				"DS:nfsc_44:COUNTER:120:0:U",
+				"DS:nfsc_45:COUNTER:120:0:U",
+				"DS:nfsc_46:COUNTER:120:0:U",
+				"DS:nfsc_47:COUNTER:120:0:U",
+				"DS:nfsc_48:COUNTER:120:0:U",
+				"DS:nfsc_49:COUNTER:120:0:U",
+				"DS:nfsc_rpc_1:COUNTER:120:0:U",
+				"DS:nfsc_rpc_2:COUNTER:120:0:U",
+				"DS:nfsc_rpc_3:COUNTER:120:0:U",
+				"DS:nfsc_rpc_4:COUNTER:120:0:U",
+				"DS:nfsc_rpc_5:COUNTER:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub nfsc_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $nfsc = $config->{nfsc};
+
+	my @rpc;
+	my @nfsc;
+
+	my $n;
+	my $rrdata = "N";
+
+	if($config->{os} eq "Linux") {
+		if(open(IN, "/proc/net/rpc/nfs")) {
+			while(<IN>) {
+				if(/^rpc\s+(\d+)\s+(\d+)\s+(\d+)$/) {
+					@rpc = ($1, $2, $3);
+				}
+				if(/^proc$nfsc->{version} /) {
+					my @tmp = split(' ', $_);
+					(undef, undef, @nfsc) = @tmp;
+				}
+			}
+			close(IN);
+		} else {
+			logger("$myself: it doesn't seems you have a NFS client running in this machine.");
+			return;
+		}
+	}
+
+	for($n = 0; $n < 50; $n++) {
+		if(!defined($nfsc[$n])) {
+			$nfsc[$n] = 0;
+		}
+		$rrdata .= ":" . $nfsc[$n];
+	}
+
+	$rrdata .= ":$rpc[0]:$rpc[1]:$rpc[2]:0:0";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub nfsc_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $nfsc = $config->{nfsc};
+	my @rigid = split(',', $nfsc->{rigid});
+	my @limit = split(',', $nfsc->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my @tmp1;
+	my @tmp2;
+	my @tmp1z;
+	my @tmp2z;
+	my @DEF;
+	my $n;
+	my $err;
+	my @AC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#963C74",
+		"#CCCCCC",
+	);
+	my @LC = (
+		"#FFA500",
+		"#00EEEE",
+		"#00EE00",
+		"#0000EE",
+		"#448844",
+		"#EE0000",
+		"#EE00EE",
+		"#EEEE00",
+		"#B4B444",
+		"#888888",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	my @nfsv2 = ("null", "getattr", "setattr", "root", "lookup", "readlink", "read", "wrcache", "write", "create", "remove", "rename", "link", "symlink", "mkdir", "rmdir", "readdir", "fsstat");
+	my @nfsv3 = ("null", "getattr", "setattr", "lookup", "access", "readlink", "read", "write", "create", "mkdir", "symlink", "mknod", "remove", "rmdir", "rename", "link", "readdir", "readdirplus", "fsstat", "fsinfo", "pathconf", "commit");
+	my @nfscv4 = ("null", "read", "write", "commit", "open", "open_conf", "open_noat", "open_dgrd", "close", "setattr", "fsinfo", "renew", "setclntid", "confirm", "lock", "lockt", "locku", "access", "getattr", "lookup", "lookup_root", "remove", "rename", "link", "symlink", "create", "pathconf", "statfs", "readlink", "readdir", "server_caps", "delegreturn", "getacl", "setacl", "fs_locations", "exchange_id", "create_ses", "destroy_ses", "sequence", "get_lease_t", "reclaim_comp", "layoutget", "layoutcommit", "layoutreturn", "getdevlist", "getdevinfo", "ds_write", "ds_commit");
+
+	my @nfsv;
+
+	# default version is NFS v3
+	if($nfsc->{version} eq "2") {
+		@nfsv = @nfsv2;
+	} elsif($nfsc->{version} eq "4") {
+		@nfsv = @nfscv4;
+	} else {
+		@nfsv = @nfsv3;
+	}
+
+	$title = !$silent ? $title : "";
+	$title =~ s/NFS/NFS v$nfsc->{version}/;
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $str;
+		my $line1;
+		my $line2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		foreach my $t (@nfsv) {
+			$str = sprintf("%12s ", $t);
+			$line1 .= $str;
+			$line2 .= "-------------";
+		}
+		$line1 .= sprintf("%12s %12s %12s", "calls", "retrans", "authrefrsh");
+		$line2 .= "-------------" . "-------------" . "-------------";
+		print("Time $line1\n");
+		print("-----$line2\n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my @nfs;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			undef($line1);
+			undef(@row);
+			(@nfs) = @$line[0..scalar(@nfsv) - 1];
+			for($n2 = 0; $n2 < scalar(@nfs);$n2++) {
+				push(@row, $nfs[$n2]);
+				$line1 .= "%12d ";
+			}
+			push(@row, @$line[50..52]);
+			$line1 .= "%12d %12d %12d ";
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} $line1\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG4 = $u . $package . "4." . $tf->{when} . ".png";
+	my $PNG5 = $u . $package . "5." . $tf->{when} . ".png";
+	my $PNG6 = $u . $package . "6." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	my $PNG4z = $u . $package . "4z." . $tf->{when} . ".png";
+	my $PNG5z = $u . $package . "5z." . $tf->{when} . ".png";
+	my $PNG6z = $u . $package . "6z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3",
+		"$PNG_DIR" . "$PNG4",
+		"$PNG_DIR" . "$PNG5",
+		"$PNG_DIR" . "$PNG6");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z",
+			"$PNG_DIR" . "$PNG4z",
+			"$PNG_DIR" . "$PNG5z",
+			"$PNG_DIR" . "$PNG6z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td valign='top' bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	for($n = 0; $n < 10; $n++) {
+		my $str = trim((split(',', $nfsc->{graph_0}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfsc_$i:AVERAGE");
+			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_nfsc1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp,
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_nfsc1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@DEF);
+	for($n = 0; $n < 10; $n++) {
+		my $str = trim((split(',', $nfsc->{graph_1}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfsc_$i:AVERAGE");
+			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_nfsc2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_nfsc2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@tmp1);
+	undef(@tmp2);
+	undef(@tmp1z);
+	undef(@tmp2z);
+	undef(@DEF);
+	for($n = 0; $n < 4; $n++) {
+		my $str = trim((split(',', $nfsc->{graph_2}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfsc_$i:AVERAGE");
+			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
+			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
+			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
+		} else {
+			push(@tmp1, "COMMENT: \\n");
+		}
+	}
+	@tmp = (@tmp1, @tmp2);
+	@tmpz = (@tmp1z, @tmp2z);
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_nfsc3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_nfsc3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[3]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[3]));
+	} else {
+		if(trim($rigid[3]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@tmp1);
+	undef(@tmp2);
+	undef(@tmp1z);
+	undef(@tmp2z);
+	undef(@DEF);
+	for($n = 0; $n < 4; $n++) {
+		my $str = trim((split(',', $nfsc->{graph_3}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfsc_$i:AVERAGE");
+			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
+			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
+			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
+		} else {
+			push(@tmp1, "COMMENT: \\n");
+		}
+	}
+	@tmp = (@tmp1, @tmp2);
+	@tmpz = (@tmp1z, @tmp2z);
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG4",
+		"--title=$config->{graphs}->{_nfsc4}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG4z",
+			"--title=$config->{graphs}->{_nfsc4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc4/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG4z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[4]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[4]));
+	} else {
+		if(trim($rigid[4]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@tmp1);
+	undef(@tmp2);
+	undef(@tmp1z);
+	undef(@tmp2z);
+	undef(@DEF);
+	for($n = 0; $n < 4; $n++) {
+		my $str = trim((split(',', $nfsc->{graph_4}))[$n]);
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfsc_$i:AVERAGE");
+			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
+			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
+			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
+		} else {
+			push(@tmp1, "COMMENT: \\n");
+		}
+	}
+	@tmp = (@tmp1, @tmp2);
+	@tmpz = (@tmp1z, @tmp2z);
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG5",
+		"--title=$config->{graphs}->{_nfsc5}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG5z",
+			"--title=$config->{graphs}->{_nfsc5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc5/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG5z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[5]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[5]));
+	} else {
+		if(trim($rigid[5]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[5]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:calls#44EEEE:Calls");
+	push(@tmp, "GPRINT:calls:LAST:                Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:retrans#EEEE44:Retransmissions");
+	push(@tmp, "GPRINT:retrans:LAST:      Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:authref#EE4444:Auth Refresh");
+	push(@tmp, "GPRINT:authref:LAST:         Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:calls#00EEEE");
+	push(@tmp, "LINE1:retrans#EEEE00");
+	push(@tmp, "LINE1:authref#EE0000");
+	push(@tmpz, "AREA:calls#44EEEE:Calls");
+	push(@tmpz, "AREA:retrans#EEEE44:Retransmissions");
+	push(@tmpz, "AREA:authref#EE4444:Auth Refresh");
+	push(@tmpz, "LINE1:calls#00EEEE");
+	push(@tmpz, "LINE1:retrans#EEEE00");
+	push(@tmpz, "LINE1:authref#EE0000");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG6",
+		"--title=$config->{graphs}->{_nfsc6}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:calls=$rrd:nfsc_rpc_1:AVERAGE",
+		"DEF:retrans=$rrd:nfsc_rpc_2:AVERAGE",
+		"DEF:authref=$rrd:nfsc_rpc_3:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG6z",
+			"--title=$config->{graphs}->{_nfsc6}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:calls=$rrd:nfsc_rpc_1:AVERAGE",
+			"DEF:retrans=$rrd:nfsc_rpc_2:AVERAGE",
+			"DEF:authref=$rrd:nfsc_rpc_3:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc6/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG6z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/nfss.pm b/lib/nfss.pm
new file mode 100644
index 0000000..f2dc893
--- /dev/null
+++ b/lib/nfss.pm
@@ -0,0 +1,1251 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package nfss;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(nfss_init nfss_update nfss_cgi);
+
+sub nfss_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		logger("$myself is not supported yet by your operating system ($config->{os}).");
+		return;
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:nfss_0:COUNTER:120:0:U",
+				"DS:nfss_1:COUNTER:120:0:U",
+				"DS:nfss_2:COUNTER:120:0:U",
+				"DS:nfss_3:COUNTER:120:0:U",
+				"DS:nfss_4:COUNTER:120:0:U",
+				"DS:nfss_5:COUNTER:120:0:U",
+				"DS:nfss_6:COUNTER:120:0:U",
+				"DS:nfss_7:COUNTER:120:0:U",
+				"DS:nfss_8:COUNTER:120:0:U",
+				"DS:nfss_9:COUNTER:120:0:U",
+				"DS:nfss_10:COUNTER:120:0:U",
+				"DS:nfss_11:COUNTER:120:0:U",
+				"DS:nfss_12:COUNTER:120:0:U",
+				"DS:nfss_13:COUNTER:120:0:U",
+				"DS:nfss_14:COUNTER:120:0:U",
+				"DS:nfss_15:COUNTER:120:0:U",
+				"DS:nfss_16:COUNTER:120:0:U",
+				"DS:nfss_17:COUNTER:120:0:U",
+				"DS:nfss_18:COUNTER:120:0:U",
+				"DS:nfss_19:COUNTER:120:0:U",
+				"DS:nfss_20:COUNTER:120:0:U",
+				"DS:nfss_21:COUNTER:120:0:U",
+				"DS:nfss_22:COUNTER:120:0:U",
+				"DS:nfss_23:COUNTER:120:0:U",
+				"DS:nfss_24:COUNTER:120:0:U",
+				"DS:nfss_25:COUNTER:120:0:U",
+				"DS:nfss_26:COUNTER:120:0:U",
+				"DS:nfss_27:COUNTER:120:0:U",
+				"DS:nfss_28:COUNTER:120:0:U",
+				"DS:nfss_29:COUNTER:120:0:U",
+				"DS:nfss_30:COUNTER:120:0:U",
+				"DS:nfss_31:COUNTER:120:0:U",
+				"DS:nfss_32:COUNTER:120:0:U",
+				"DS:nfss_33:COUNTER:120:0:U",
+				"DS:nfss_34:COUNTER:120:0:U",
+				"DS:nfss_35:COUNTER:120:0:U",
+				"DS:nfss_36:COUNTER:120:0:U",
+				"DS:nfss_37:COUNTER:120:0:U",
+				"DS:nfss_38:COUNTER:120:0:U",
+				"DS:nfss_39:COUNTER:120:0:U",
+				"DS:nfss_40:COUNTER:120:0:U",
+				"DS:nfss_41:COUNTER:120:0:U",
+				"DS:nfss_42:COUNTER:120:0:U",
+				"DS:nfss_43:COUNTER:120:0:U",
+				"DS:nfss_44:COUNTER:120:0:U",
+				"DS:nfss_45:COUNTER:120:0:U",
+				"DS:nfss_46:COUNTER:120:0:U",
+				"DS:nfss_47:COUNTER:120:0:U",
+				"DS:nfss_48:COUNTER:120:0:U",
+				"DS:nfss_49:COUNTER:120:0:U",
+				"DS:nfss_rc_1:COUNTER:120:0:U",
+				"DS:nfss_rc_2:COUNTER:120:0:U",
+				"DS:nfss_rc_3:COUNTER:120:0:U",
+				"DS:nfss_rc_4:COUNTER:120:0:U",
+				"DS:nfss_rc_5:COUNTER:120:0:U",
+				"DS:nfss_fh_1:COUNTER:120:0:U",
+				"DS:nfss_fh_2:COUNTER:120:0:U",
+				"DS:nfss_fh_3:COUNTER:120:0:U",
+				"DS:nfss_fh_4:COUNTER:120:0:U",
+				"DS:nfss_fh_5:COUNTER:120:0:U",
+				"DS:nfss_io_1:COUNTER:120:0:U",
+				"DS:nfss_io_2:COUNTER:120:0:U",
+				"DS:nfss_io_3:COUNTER:120:0:U",
+				"DS:nfss_th_0:COUNTER:120:0:U",
+				"DS:nfss_th_1:COUNTER:120:0:U",
+				"DS:nfss_th_2:COUNTER:120:0:U",
+				"DS:nfss_th_3:COUNTER:120:0:U",
+				"DS:nfss_th_4:COUNTER:120:0:U",
+				"DS:nfss_th_5:COUNTER:120:0:U",
+				"DS:nfss_th_6:COUNTER:120:0:U",
+				"DS:nfss_th_7:COUNTER:120:0:U",
+				"DS:nfss_th_8:COUNTER:120:0:U",
+				"DS:nfss_th_9:COUNTER:120:0:U",
+				"DS:nfss_th_10:COUNTER:120:0:U",
+				"DS:nfss_net_1:COUNTER:120:0:U",
+				"DS:nfss_net_2:COUNTER:120:0:U",
+				"DS:nfss_net_3:COUNTER:120:0:U",
+				"DS:nfss_net_4:COUNTER:120:0:U",
+				"DS:nfss_net_5:COUNTER:120:0:U",
+				"DS:nfss_rpc_1:COUNTER:120:0:U",
+				"DS:nfss_rpc_2:COUNTER:120:0:U",
+				"DS:nfss_rpc_3:COUNTER:120:0:U",
+				"DS:nfss_rpc_4:COUNTER:120:0:U",
+				"DS:nfss_rpc_5:COUNTER:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub nfss_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $nfss = $config->{nfss};
+
+	my @rc;
+	my @fh;
+	my @io;
+	my @th;
+	my @net;
+	my @rpc;
+	my @nfss;
+
+	my $n;
+	my $rrdata = "N";
+
+	if($config->{os} eq "Linux") {
+		if(open(IN, "/proc/net/rpc/nfsd")) {
+			while(<IN>) {
+				if(/^rc\s+(\d+)\s+(\d+)\s+(\d+)$/) {
+					@rc = ($1, $2, $3);
+				}
+				if(/^fh\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
+					@fh = ($1, $2, $3, $4, $5);
+				}
+				if(/^io\s+(\d+)\s+(\d+)$/) {
+					@io = ($1, $2);
+				}
+				if(/^th /) {
+					my @tmp = split(' ', $_);
+					(undef, undef, @th) = @tmp;
+				}
+				if(/^net\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
+					@net = ($1, $2, $3, $4);
+				}
+				if(/^rpc\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
+					@rpc = ($1, $2, $3, $4, $5);
+				}
+				my $version = "";
+				$version = "4ops" if $nfss->{version} eq "4";
+				if(/^proc$version /) {
+					my @tmp = split(' ', $_);
+					(undef, undef, @nfss) = @tmp;
+				}
+			}
+			close(IN);
+		} else {
+			logger("$myself: it doesn't seems you have a NFS server running in this machine.");
+			return;
+		}
+	}
+
+	for($n = 0; $n < 50; $n++) {
+		if(!defined($nfss[$n])) {
+			$nfss[$n] = 0;
+		}
+		$rrdata .= ":" . $nfss[$n];
+	}
+	$rrdata .= ":$rc[0]:$rc[1]:$rc[2]:0:0";
+	$rrdata .= ":$fh[0]:$fh[1]:$fh[2]:$fh[3]:$fh[4]";
+	$rrdata .= ":$io[0]:$io[1]:0";
+	for($n = 0; $n < 11; $n++) {
+		$rrdata .= ":" . int($th[$n]);
+	}
+	$rrdata .= ":$net[0]:$net[1]:$net[2]:$net[3]:0";
+	$rrdata .= ":$rpc[0]:$rpc[1]:$rpc[2]:$rpc[3]:$rpc[4]";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub nfss_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $nfss = $config->{nfss};
+	my @rigid = split(',', $nfss->{rigid});
+	my @limit = split(',', $nfss->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my @DEF;
+	my $n;
+	my $err;
+	my @AC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#963C74",
+		"#CCCCCC",
+	);
+	my @LC = (
+		"#FFA500",
+		"#00EEEE",
+		"#00EE00",
+		"#0000EE",
+		"#448844",
+		"#EE0000",
+		"#EE00EE",
+		"#EEEE00",
+		"#B4B444",
+		"#888888",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	my @nfsv2 = ("null", "getattr", "setattr", "root", "lookup", "readlink", "read", "wrcache", "write", "create", "remove", "rename", "link", "symlink", "mkdir", "rmdir", "readdir", "fsstat");
+	my @nfsv3 = ("null", "getattr", "setattr", "lookup", "access", "readlink", "read", "write", "create", "mkdir", "symlink", "mknod", "remove", "rmdir", "rename", "link", "readdir", "readdirplus", "fsstat", "fsinfo", "pathconf", "commit");
+	my @nfssv4 = ("op0-unused", "op1-unused", "op2-future", "access", "close", "commit", "create", "delegpurge", "delegreturn", "getattr", "getfh", "link", "lock", "lockt", "locku", "lookup", "lookup_root", "nverify", "open", "openattr", "open_conf", "open_dgrd", "putfh", "putpubfh", "putrootfh", "read", "readdir", "readlink", "remove", "rename", "renew", "restorefh", "savefh", "secinfo", "setattr", "setcltid", "setcltidconf", "verify", "write", "rellockowner", "bc_ctl", "bind_conn", "exchange_id", "create_ses", "destroy_ses", "free_stateid", "getdirdeleg", "getdevinfo", "getdevlist", "layoutcommit", "layoutget", "layoutreturn", "secinfononam", "sequence", "set_ssv", "test_stateid", "want_deleg", "destroy_clid", "reclaim_comp");
+
+	my @nfsv;
+
+	# default version is NFS v3
+	if($nfss->{version} eq "2") {
+		@nfsv = @nfsv2;
+	} elsif($nfss->{version} eq "4") {
+		@nfsv = @nfssv4;
+	} else {
+		@nfsv = @nfsv3;
+	}
+
+	$title = !$silent ? $title : "";
+	$title =~ s/NFS/NFS v$nfss->{version}/;
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $str;
+		my $line1;
+		my $line2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		foreach my $t (@nfsv) {
+			$str = sprintf("%12s ", $t);
+			$line1 .= $str;
+			$line2 .= "-------------";
+		}
+		$line1 .= sprintf("%12s %12s %12s ", "hits", "misses", "nocache");
+		$line2 .= "-------------" . "-------------" . "-------------";
+		$line1 .= sprintf("%12s %12s %12s %12s %12s ", "lookup", "anon", "ncachedir", "ncachedir", "stale");
+		$line2 .= "-------------" . "-------------" . "-------------" . "-------------" . "-------------";
+		$line1 .= sprintf("%12s %12s ", "read", "written");
+		$line2 .= "-------------" . "-------------";
+		$line1 .= sprintf("%12s %6s %6s %6s %6s %6s %6s %6s %6s %6s %6s ", "threads", "<10%", "<20%", "<30%", "<40%", "<50%", "<60%", "<70%", "<80%", "<90%", "<100%");
+		$line2 .= "-------------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------";
+		$line1 .= sprintf("%12s %12s %12s %12s ", "packets", "udp", "tcp", "tcpconn");
+		$line2 .= "-------------" . "-------------" . "-------------" . "-------------";
+		$line1 .= sprintf("%12s %12s %12s %12s %12s ", "calls", "badcalls", "badauth", "badclnt", "xdrcall");
+		$line2 .= "-------------" . "-------------" . "-------------" . "-------------" . "-------------";
+		print("Time $line1\n");
+		print("-----$line2\n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my @nfs;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			undef($line1);
+			undef(@row);
+			(@nfs) = @$line[0..scalar(@nfsv) - 1];
+			for($n2 = 0; $n2 < scalar(@nfs);$n2++) {
+				push(@row, $nfs[$n2]);
+				$line1 .= "%12d ";
+			}
+			push(@row, @$line[50..52]);
+			$line1 .= "%12d %12d %12d ";
+			push(@row, @$line[55..59]);
+			$line1 .= "%12d %12d %12d %12d %12d ";
+			push(@row, @$line[60..61]);
+			$line1 .= "%12d %12d ";
+			push(@row, @$line[63..73]);
+			$line1 .= "%12d %6d %6d %6d %6d %6d %6d %6d %6d %6d %6d ";
+			push(@row, @$line[74..77]);
+			$line1 .= "%12d %12d %12d %12d ";
+			push(@row, @$line[79..83]);
+			$line1 .= "%12d %12d %12d %12d %12d ";
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} $line1\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG4 = $u . $package . "4." . $tf->{when} . ".png";
+	my $PNG5 = $u . $package . "5." . $tf->{when} . ".png";
+	my $PNG6 = $u . $package . "6." . $tf->{when} . ".png";
+	my $PNG7 = $u . $package . "7." . $tf->{when} . ".png";
+	my $PNG8 = $u . $package . "8." . $tf->{when} . ".png";
+	my $PNG9 = $u . $package . "9." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	my $PNG4z = $u . $package . "4z." . $tf->{when} . ".png";
+	my $PNG5z = $u . $package . "5z." . $tf->{when} . ".png";
+	my $PNG6z = $u . $package . "6z." . $tf->{when} . ".png";
+	my $PNG7z = $u . $package . "7z." . $tf->{when} . ".png";
+	my $PNG8z = $u . $package . "8z." . $tf->{when} . ".png";
+	my $PNG9z = $u . $package . "9z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3",
+		"$PNG_DIR" . "$PNG4",
+		"$PNG_DIR" . "$PNG5",
+		"$PNG_DIR" . "$PNG6",
+		"$PNG_DIR" . "$PNG7",
+		"$PNG_DIR" . "$PNG8",
+		"$PNG_DIR" . "$PNG9");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z",
+			"$PNG_DIR" . "$PNG4z",
+			"$PNG_DIR" . "$PNG5z",
+			"$PNG_DIR" . "$PNG6z",
+			"$PNG_DIR" . "$PNG7z",
+			"$PNG_DIR" . "$PNG8z",
+			"$PNG_DIR" . "$PNG9z");
+	}
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td valign='top' bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	for($n = 0; $n < 10; $n++) {
+		my $str = trim((split(',', $nfss->{graph_0}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfss_$i:AVERAGE");
+			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_nfss1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp,
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_nfss1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@DEF);
+	for($n = 0; $n < 10; $n++) {
+		my $str = trim((split(',', $nfss->{graph_1}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfss_$i:AVERAGE");
+			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_nfss2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_nfss2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@DEF);
+	for($n = 0; $n < 10; $n++) {
+		my $str = trim((split(',', $nfss->{graph_2}))[$n]) || "";
+		if(grep { $_ eq $str } @nfsv) {
+			my ($i) = grep { $nfsv[$_] eq $str } 0..$#nfsv;
+			push(@DEF, "DEF:nfs_$i=$rrd:nfss_$i:AVERAGE");
+			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
+			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $str));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_nfss3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_nfss3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[3]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[3]));
+	} else {
+		if(trim($rigid[3]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:in#44EE44:Read");
+	push(@tmp, "AREA:out#4444EE:Written");
+	push(@tmp, "AREA:out#4444EE:");
+	push(@tmp, "AREA:in#44EE44:");
+	push(@tmp, "LINE1:out#0000EE");
+	push(@tmp, "LINE1:in#00EE00");
+	push(@tmpz, "AREA:in#44EE44:Read");
+	push(@tmpz, "AREA:out#4444EE:Written");
+	push(@tmpz, "AREA:out#4444EE:");
+	push(@tmpz, "AREA:in#44EE44:");
+	push(@tmpz, "LINE1:out#0000EE");
+	push(@tmpz, "LINE1:in#00EE00");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG4",
+		"--title=$config->{graphs}->{_nfss4}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=bytes/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:in=$rrd:nfss_io_1:AVERAGE",
+		"DEF:out=$rrd:nfss_io_2:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG4z",
+			"--title=$config->{graphs}->{_nfss4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=bytes/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:nfss_io_1:AVERAGE",
+			"DEF:out=$rrd:nfss_io_2:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss4/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG4z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[4]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[4]));
+	} else {
+		if(trim($rigid[4]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:udp#44EEEE:UDP");
+	push(@tmp, "GPRINT:udp:LAST:                  Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:tcp#4444EE:TCP");
+	push(@tmp, "GPRINT:tcp:LAST:                  Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:tcpconn#EE44EE:TCP Connections");
+	push(@tmp, "GPRINT:tcpconn:LAST:      Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:udp#00EEEE");
+	push(@tmp, "LINE1:tcp#0000EE");
+	push(@tmp, "LINE1:tcpconn#EE00EE");
+	push(@tmpz, "AREA:udp#44EEEE:UDP");
+	push(@tmpz, "AREA:tcp#4444EE:TCP");
+	push(@tmpz, "AREA:tcpconn#EE44EE:TCP Connections");
+	push(@tmpz, "LINE1:udp#00EEEE");
+	push(@tmpz, "LINE1:tcp#0000EE");
+	push(@tmpz, "LINE1:tcpconn#EE00EE");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG5",
+		"--title=$config->{graphs}->{_nfss5}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:packets=$rrd:nfss_net_1:AVERAGE",
+		"DEF:udp=$rrd:nfss_net_2:AVERAGE",
+		"DEF:tcp=$rrd:nfss_net_3:AVERAGE",
+		"DEF:tcpconn=$rrd:nfss_net_4:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG5z",
+			"--title=$config->{graphs}->{_nfss5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:packets=$rrd:nfss_net_1:AVERAGE",
+			"DEF:udp=$rrd:nfss_net_2:AVERAGE",
+			"DEF:tcp=$rrd:nfss_net_3:AVERAGE",
+			"DEF:tcpconn=$rrd:nfss_net_4:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss5/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG5z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[5]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[5]));
+	} else {
+		if(trim($rigid[5]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[5]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE1:calls#FFA500:Calls");
+	push(@tmp, "GPRINT:calls:LAST:                Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:badcalls#44EEEE:Badcalls");
+	push(@tmp, "GPRINT:badcalls:LAST:             Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:badauth#44EE44:Badauth");
+	push(@tmp, "GPRINT:badauth:LAST:              Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:badclnt#EE4444:Badclnt");
+	push(@tmp, "GPRINT:badclnt:LAST:              Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:xdrcall#4444EE:XDRcall");
+	push(@tmp, "GPRINT:xdrcall:LAST:              Current\\: %7.1lf\\n");
+	push(@tmpz, "LINE1:calls#FFA500:Calls");
+	push(@tmpz, "LINE1:badcalls#44EEEE:Badcalls");
+	push(@tmpz, "LINE1:badauth#44EE44:Badauth");
+	push(@tmpz, "LINE1:badclnt#EE4444:Badclnt");
+	push(@tmpz, "LINE1:xdrcall#4444EE:XDRcall");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG6",
+		"--title=$config->{graphs}->{_nfss6}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:calls=$rrd:nfss_rpc_1:AVERAGE",
+		"DEF:badcalls=$rrd:nfss_rpc_2:AVERAGE",
+		"DEF:badauth=$rrd:nfss_rpc_3:AVERAGE",
+		"DEF:badclnt=$rrd:nfss_rpc_4:AVERAGE",
+		"DEF:xdrcall=$rrd:nfss_rpc_4:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG6z",
+			"--title=$config->{graphs}->{_nfss6}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:calls=$rrd:nfss_rpc_1:AVERAGE",
+			"DEF:badcalls=$rrd:nfss_rpc_2:AVERAGE",
+			"DEF:badauth=$rrd:nfss_rpc_3:AVERAGE",
+			"DEF:badclnt=$rrd:nfss_rpc_4:AVERAGE",
+			"DEF:xdrcall=$rrd:nfss_rpc_4:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss6/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG6z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[6]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[6]));
+	} else {
+		if(trim($rigid[6]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[6]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+#	push(@tmp, "LINE1:threads#444444:Threads usage");
+#	push(@tmp, "GPRINT:threads:LAST:        Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:th1#33FF00:<10%\\g");
+	push(@tmp, "GPRINT:th1:LAST:\\: %7.1lf        ");
+	push(@tmp, "LINE1:th2#FFCC00:< 60%\\g");
+	push(@tmp, "GPRINT:th2:LAST:\\: %7.1lf\\n");
+	push(@tmp, "LINE1:th3#66FF00:<20%\\g");
+	push(@tmp, "GPRINT:th3:LAST:\\: %7.1lf        ");
+	push(@tmp, "LINE1:th4#FF9900:< 70%\\g");
+	push(@tmp, "GPRINT:th4:LAST:\\: %7.1lf\\n");
+	push(@tmp, "LINE1:th5#99FF00:<30%\\g");
+	push(@tmp, "GPRINT:th5:LAST:\\: %7.1lf        ");
+	push(@tmp, "LINE1:th6#FF6600:< 80%\\g");
+	push(@tmp, "GPRINT:th6:LAST:\\: %7.1lf\\n");
+	push(@tmp, "LINE1:th7#CCFF00:<40%\\g");
+	push(@tmp, "GPRINT:th7:LAST:\\: %7.1lf        ");
+	push(@tmp, "LINE1:th8#FF3300:< 90%\\g");
+	push(@tmp, "GPRINT:th8:LAST:\\: %7.1lf\\n");
+	push(@tmp, "LINE1:th9#FFFF00:<50%\\g");
+	push(@tmp, "GPRINT:th9:LAST:\\: %7.1lf        ");
+	push(@tmp, "LINE1:th10#FF0000:<100%\\g");
+	push(@tmp, "GPRINT:th10:LAST:\\: %7.1lf\\n");
+#	push(@tmpz, "LINE1:threads#444444:Threads usage");
+	push(@tmpz, "LINE1:th1#33FF00:<10%");
+	push(@tmpz, "LINE1:th3#66FF00:<20%");
+	push(@tmpz, "LINE1:th5#99FF00:<30%");
+	push(@tmpz, "LINE1:th7#CCFF00:<40%");
+	push(@tmpz, "LINE1:th9#FFFF00:<50%");
+	push(@tmpz, "LINE1:th2#FFCC00:<60%");
+	push(@tmpz, "LINE1:th4#FF9900:<70%");
+	push(@tmpz, "LINE1:th6#FF6600:<80%");
+	push(@tmpz, "LINE1:th8#FF3300:<90%");
+	push(@tmpz, "LINE1:th10#FF0000:<100%");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG7",
+		"--title=$config->{graphs}->{_nfss7}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:threads=$rrd:nfss_th_0:AVERAGE",
+		"DEF:th1=$rrd:nfss_th_1:AVERAGE",
+		"DEF:th2=$rrd:nfss_th_2:AVERAGE",
+		"DEF:th3=$rrd:nfss_th_3:AVERAGE",
+		"DEF:th4=$rrd:nfss_th_4:AVERAGE",
+		"DEF:th5=$rrd:nfss_th_5:AVERAGE",
+		"DEF:th6=$rrd:nfss_th_6:AVERAGE",
+		"DEF:th7=$rrd:nfss_th_7:AVERAGE",
+		"DEF:th8=$rrd:nfss_th_8:AVERAGE",
+		"DEF:th9=$rrd:nfss_th_9:AVERAGE",
+		"DEF:th10=$rrd:nfss_th_10:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG7: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG7z",
+			"--title=$config->{graphs}->{_nfss7}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:threads=$rrd:nfss_th_0:AVERAGE",
+			"DEF:th1=$rrd:nfss_th_1:AVERAGE",
+			"DEF:th2=$rrd:nfss_th_2:AVERAGE",
+			"DEF:th3=$rrd:nfss_th_3:AVERAGE",
+			"DEF:th4=$rrd:nfss_th_4:AVERAGE",
+			"DEF:th5=$rrd:nfss_th_5:AVERAGE",
+			"DEF:th6=$rrd:nfss_th_6:AVERAGE",
+			"DEF:th7=$rrd:nfss_th_7:AVERAGE",
+			"DEF:th8=$rrd:nfss_th_8:AVERAGE",
+			"DEF:th9=$rrd:nfss_th_9:AVERAGE",
+			"DEF:th10=$rrd:nfss_th_10:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG7z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss7/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG7z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG7z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[7]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[7]));
+	} else {
+		if(trim($rigid[7]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[7]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:hits#44EEEE:Hits");
+	push(@tmp, "GPRINT:hits:LAST:                 Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:misses#4444EE:Misses");
+	push(@tmp, "GPRINT:misses:LAST:               Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:nocache#EEEE44:Nocache");
+	push(@tmp, "GPRINT:nocache:LAST:              Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:hits#00EEEE");
+	push(@tmp, "LINE1:misses#0000EE");
+	push(@tmp, "LINE1:nocache#EEEE44");
+	push(@tmpz, "AREA:hits#44EEEE:Hits");
+	push(@tmpz, "AREA:misses#4444EE:Misses");
+	push(@tmpz, "AREA:nocache#EEEE44:Nocache");
+	push(@tmpz, "LINE1:hits#00EEEE");
+	push(@tmpz, "LINE1:misses#0000EE");
+	push(@tmpz, "LINE1:nocache#EEEE44");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG8",
+		"--title=$config->{graphs}->{_nfss8}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:hits=$rrd:nfss_rc_1:AVERAGE",
+		"DEF:misses=$rrd:nfss_rc_2:AVERAGE",
+		"DEF:nocache=$rrd:nfss_rc_3:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG8: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG8z",
+			"--title=$config->{graphs}->{_nfss8}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:hits=$rrd:nfss_rc_1:AVERAGE",
+			"DEF:misses=$rrd:nfss_rc_2:AVERAGE",
+			"DEF:nocache=$rrd:nfss_rc_3:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG8z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss8/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG8z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG8z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[8]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[8]));
+	} else {
+		if(trim($rigid[8]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[8]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE1:lookup#FFA500:Lookups");
+	push(@tmp, "GPRINT:lookup:LAST:              Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:anon#44EE44:Anonymous lockups");
+	push(@tmp, "GPRINT:anon:LAST:    Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:ncachedir1#44EEEE:Ncachedir");
+	push(@tmp, "GPRINT:ncachedir1:LAST:            Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:ncachedir2#4444EE:Ncachedir");
+	push(@tmp, "GPRINT:ncachedir2:LAST:            Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:stale#EE4444:Stale");
+	push(@tmp, "GPRINT:stale:LAST:                Current\\: %7.1lf\\n");
+	push(@tmpz, "LINE1:lookup#FFA500:Lookup");
+	push(@tmpz, "LINE1:anon#44EE44:Anonymous");
+	push(@tmpz, "LINE1:ncachedir1#44EEEE:Ncachedir");
+	push(@tmpz, "LINE1:ncachedir2#4444EE:Ncachedir");
+	push(@tmpz, "LINE1:stale#EE4444:Stale");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG9",
+		"--title=$config->{graphs}->{_nfss9}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:lookup=$rrd:nfss_fh_1:AVERAGE",
+		"DEF:anon=$rrd:nfss_fh_2:AVERAGE",
+		"DEF:ncachedir1=$rrd:nfss_fh_3:AVERAGE",
+		"DEF:ncachedir2=$rrd:nfss_fh_4:AVERAGE",
+		"DEF:stale=$rrd:nfss_fh_4:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG9: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG9z",
+			"--title=$config->{graphs}->{_nfss9}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:lookup=$rrd:nfss_fh_1:AVERAGE",
+			"DEF:anon=$rrd:nfss_fh_2:AVERAGE",
+			"DEF:ncachedir1=$rrd:nfss_fh_3:AVERAGE",
+			"DEF:ncachedir2=$rrd:nfss_fh_4:AVERAGE",
+			"DEF:stale=$rrd:nfss_fh_4:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG9z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss9/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG9z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG9z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/nginx.pm b/lib/nginx.pm
new file mode 100644
index 0000000..23ded39
--- /dev/null
+++ b/lib/nginx.pm
@@ -0,0 +1,626 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package nginx;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use LWP::UserAgent;
+use Exporter 'import';
+our @EXPORT = qw(nginx_init nginx_update nginx_cgi);
+
+sub nginx_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $nginx = $config->{nginx};
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:nginx_requests:GAUGE:120:0:U",
+				"DS:nginx_total:GAUGE:120:0:U",
+				"DS:nginx_reading:GAUGE:120:0:U",
+				"DS:nginx_writing:GAUGE:120:0:U",
+				"DS:nginx_waiting:GAUGE:120:0:U",
+				"DS:nginx_bytes_in:GAUGE:120:0:U",
+				"DS:nginx_bytes_out:GAUGE:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	if(!defined($rrd)) {
+		logger("$myself: ERROR: undefined 'port' option.");
+		return 0;
+	}
+
+	if($config->{os} eq "Linux") {
+		system("iptables -N nginx_IN 2>/dev/null");
+		system("iptables -I INPUT -p tcp --dport $nginx->{port} -j nginx_IN -c 0 0");
+		system("iptables -N nginx_OUT 2>/dev/null");
+		system("iptables -I OUTPUT -p tcp --sport $nginx->{port} -j nginx_OUT -c 0 0");
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		system("ipfw delete $nginx->{rule} 2>/dev/null");
+		system("ipfw -q add $nginx->{rule} count tcp from me $nginx->{port} to any");
+		system("ipfw -q add $nginx->{rule} count tcp from any to me $nginx->{port}");
+	}
+
+	$config->{nginx_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub nginx_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $nginx = $config->{nginx};
+
+	my $reqs;
+	my $tot;
+	my $reads;
+	my $writes;
+	my $waits;
+	my $in;
+	my $out;
+	my $val;
+
+	my $url = "http://127.0.0.1:" . $nginx->{port} . "/nginx_status";
+	my $ua = LWP::UserAgent->new(timeout => 30);
+	my $response = $ua->request(HTTP::Request->new('GET', $url));
+	my $rrdata = "N";
+
+	foreach(split('\n', $response->content)) {
+		if(/^Active connections:\s+(\d+)\s*/) {
+			$tot = $1;
+			next;
+		}
+		if(/^\s+(\d+)\s+(\d+)\s+(\d+)\s*/) {
+			$reqs = $3 - ($config->{nginx_hist}->{'requests'} || 0);
+			$reqs = 0 unless $reqs != $3;
+			$config->{nginx_hist}->{'requests'} = $3;
+		}
+		if(/^Reading:\s+(\d+).*Writing:\s+(\d+).*Waiting:\s+(\d+)\s*/) {
+			$reads = $1;
+			$writes = $2;
+			$waits = $3;
+		}
+	}
+
+	if($config->{os} eq "Linux") {
+		open(IN, "iptables -nxvL INPUT |");
+		while(<IN>) {
+			if(/ nginx_IN /) {
+				(undef, $val) = split(' ', $_);
+				chomp($val);
+				$in = $val - ($config->{nginx_hist}->{'in'} || 0);
+				$in = 0 unless $in != $val;
+				$config->{nginx_hist}->{'in'} = $val;
+				$in /= 60;
+				last;
+			}
+		}
+		close(IN);
+		open(IN, "iptables -nxvL OUTPUT |");
+		while(<IN>) {
+			if(/ nginx_OUT /) {
+				(undef, $val) = split(' ', $_);
+				chomp($val);
+				$out = $val - ($config->{nginx_hist}->{'out'} || 0);
+				$out = 0 unless $out != $val;
+				$config->{nginx_hist}->{'out'} = $val;
+				$out /= 60;
+				last;
+			}
+		}
+		close(IN);
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		open(IN, "ipfw show $nginx->{rule} 2>/dev/null |");
+		while(<IN>) {
+			if(/ from any to me dst-port $nginx->{port}$/) {
+				(undef, undef, $val) = split(' ', $_);
+				chomp($val);
+				$in = $val - ($config->{nginx_hist}->{'in'} || 0);
+				$in = 0 unless $in != $val;
+				$config->{nginx_hist}->{'in'} = $val;
+				$in /= 60;
+			}
+			if(/ from me $nginx->{port} to any$/) {
+				(undef, undef, $val) = split(' ', $_);
+				chomp($val);
+				$out = $val - ($config->{nginx_hist}->{'out'} || 0);
+				$out = 0 unless $out != $val;
+				$config->{nginx_hist}->{'out'} = $val;
+				$out /= 60;
+			}
+		}
+		close(IN);
+	}
+
+	$rrdata .= ":$reqs:$tot:$reads:$writes:$waits:$in:$out";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub nginx_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $nginx = $config->{nginx};
+	my @rigid = split(',', $nginx->{rigid});
+	my @limit = split(',', $nginx->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @warning;
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $T = "B";
+	my $vlabel = "bytes/s";
+	my $n;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$T = "b";
+		$vlabel = "bits/s";
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("Time   Total  Reading  Writing  Waiting Requests   K$T/s_I   K$T/s_O\n");
+		print("------------------------------------------------------------------ \n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			my ($req, $tot, $rea, $wri, $wai, $ki, $ko) = @$line;
+			$ki /= 1024;
+			$ko /= 1024;
+			if(lc($config->{netstats_in_bps}) eq "y") {
+				$ki *= 8;
+				$ko *= 8;
+			}
+			@row = ($tot, $rea, $wri, $wai, $req, $ki, $ko);
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}  %6d   %6d   %6d   %6d   %6d   %6d   %6d\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	push(@tmp, "AREA:total#44EEEE:Total");
+	push(@tmp, "GPRINT:total:LAST:       Current\\: %5.0lf");
+	push(@tmp, "GPRINT:total:AVERAGE:    Average\\: %5.0lf");
+	push(@tmp, "GPRINT:total:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:total:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "AREA:reading#44EE44:Reading");
+	push(@tmp, "GPRINT:reading:LAST:     Current\\: %5.0lf");
+	push(@tmp, "GPRINT:reading:AVERAGE:    Average\\: %5.0lf");
+	push(@tmp, "GPRINT:reading:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:reading:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "AREA:writing#4444EE:Writing");
+	push(@tmp, "GPRINT:writing:LAST:     Current\\: %5.0lf");
+	push(@tmp, "GPRINT:writing:AVERAGE:    Average\\: %5.0lf");
+	push(@tmp, "GPRINT:writing:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:writing:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "AREA:waiting#EE44EE:Waiting");
+	push(@tmp, "GPRINT:waiting:LAST:     Current\\: %5.0lf");
+	push(@tmp, "GPRINT:waiting:AVERAGE:    Average\\: %5.0lf");
+	push(@tmp, "GPRINT:waiting:MIN:    Min\\: %5.0lf");
+	push(@tmp, "GPRINT:waiting:MAX:    Max\\: %5.0lf\\n");
+	push(@tmp, "LINE1:total#00EEEE");
+	push(@tmp, "LINE1:reading#00EE00");
+	push(@tmp, "LINE1:writing#0000EE");
+	push(@tmp, "LINE1:waiting#EE00EE");
+	push(@tmpz, "AREA:total#44EEEE:Total");
+	push(@tmpz, "AREA:reading#44EE44:Reading");
+	push(@tmpz, "AREA:writing#4444EE:Writing");
+	push(@tmpz, "AREA:waiting#EE44EE:Waiting");
+	push(@tmpz, "LINE1:total#00EEEE");
+	push(@tmpz, "LINE1:reading#00EE00");
+	push(@tmpz, "LINE1:writing#0000EE");
+	push(@tmpz, "LINE1:waiting#EE00EE");
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_nginx1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Connections/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:total=$rrd:nginx_total:AVERAGE",
+		"DEF:reading=$rrd:nginx_reading:AVERAGE",
+		"DEF:writing=$rrd:nginx_writing:AVERAGE",
+		"DEF:waiting=$rrd:nginx_waiting:AVERAGE",
+		@tmp,
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_nginx1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Connections/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:total=$rrd:nginx_total:AVERAGE",
+			"DEF:reading=$rrd:nginx_reading:AVERAGE",
+			"DEF:writing=$rrd:nginx_writing:AVERAGE",
+			"DEF:waiting=$rrd:nginx_waiting:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:requests#44EEEE:Requests");
+	push(@tmp, "GPRINT:requests:LAST:             Current\\: %5.1lf\\n");
+	push(@tmp, "LINE1:requests#00EEEE");
+	push(@tmpz, "AREA:requests#44EEEE:Requests");
+	push(@tmpz, "LINE1:requests#00EEEE");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_nginx2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Requests/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:requests=$rrd:nginx_requests:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_nginx2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Requests/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:requests=$rrd:nginx_requests:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@warning);
+	my $pnum;
+	if($config->{os} eq "Linux") {
+		open(IN, "netstat -nl --tcp |");
+		while(<IN>) {
+			(undef, undef, undef, $pnum) = split(' ', $_);
+			chomp($pnum);
+			$pnum =~ s/.*://;
+			if($pnum eq $nginx->{port}) {
+				last;
+			}
+		}
+		close(IN);
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		open(IN, "netstat -anl -p tcp |");
+		my $stat;
+		while(<IN>) {
+			(undef, undef, undef, $pnum, undef, $stat) = split(' ', $_);
+			chomp($stat);
+			if($stat eq "LISTEN") {
+				chomp($pnum);
+				($pnum) = ($pnum =~ m/^.*?(\.\d+$)/);
+				$pnum =~ s/\.//;
+				if($pnum eq $nginx->{port}) {
+					last;
+				}
+			}
+		}
+		close(IN);
+	}
+	if($pnum ne $nginx->{port}) {
+		push(@warning, $colors->{warning_color});
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@CDEF);
+	push(@tmp, "AREA:B_in#44EE44:Input");
+	push(@tmp, "AREA:B_out#4444EE:Output");
+	push(@tmp, "AREA:B_out#4444EE:");
+	push(@tmp, "AREA:B_in#44EE44:");
+	push(@tmp, "LINE1:B_out#0000EE");
+	push(@tmp, "LINE1:B_in#00EE00");
+	push(@tmpz, "AREA:B_in#44EE44:Input");
+	push(@tmpz, "AREA:B_out#4444EE:Output");
+	push(@tmpz, "AREA:B_out#4444EE:");
+	push(@tmpz, "AREA:B_in#44EE44:");
+	push(@tmpz, "LINE1:B_out#0000EE");
+	push(@tmpz, "LINE1:B_in#00EE00");
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		push(@CDEF, "CDEF:B_in=in,8,*");
+		push(@CDEF, "CDEF:B_out=out,8,*");
+	} else {
+		push(@CDEF, "CDEF:B_in=in");
+		push(@CDEF, "CDEF:B_out=out");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_nginx3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		@warning,
+		"DEF:in=$rrd:nginx_bytes_in:AVERAGE",
+		"DEF:out=$rrd:nginx_bytes_out:AVERAGE",
+		@CDEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_nginx3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			@warning,
+			"DEF:in=$rrd:nginx_bytes_in:AVERAGE",
+			"DEF:out=$rrd:nginx_bytes_out:AVERAGE",
+			@CDEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/ntp.pm b/lib/ntp.pm
new file mode 100644
index 0000000..8e31356
--- /dev/null
+++ b/lib/ntp.pm
@@ -0,0 +1,601 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package ntp;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(ntp_init ntp_update ntp_cgi);
+
+sub ntp_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $ntp = $config->{ntp};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 14 != scalar(my @nl = split(',', $ntp->{list}))) {
+			logger("Detected size mismatch between 'list' (" . scalar(my @nl = split(',', $ntp->{list})) . ") and $rrd (" . scalar(@ds) / 14 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < scalar(my @nl = split(',', $ntp->{list})); $n++) {
+			push(@tmp, "DS:ntp" . $n . "_del:GAUGE:120:U:U");
+			push(@tmp, "DS:ntp" . $n . "_off:GAUGE:120:U:U");
+			push(@tmp, "DS:ntp" . $n . "_jit:GAUGE:120:U:U");
+			push(@tmp, "DS:ntp" . $n . "_str:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c01:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c02:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c03:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c04:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c05:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c06:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c07:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c08:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c09:GAUGE:120:0:U");
+			push(@tmp, "DS:ntp" . $n . "_c10:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub ntp_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $ntp = $config->{ntp};
+
+	my @data;
+	my $del;
+	my $off;
+	my $jit;
+	my $str;
+	my $cod;
+
+	my $n;
+	my $rrdata = "N";
+
+	my $e = 0;
+	foreach my $h (split(',', $ntp->{list})) {
+		$h = trim($h);
+		open(IN, "ntpq -pn $h |");
+		@data = <IN>;
+		close(IN);
+		$cod = $str = $del = $off = $jit = 0;
+		foreach(@data) {
+			if(/^\*/) {
+				(undef, $cod, $str, undef, undef, undef, undef, $del, $off, $jit) = split(' ', $_);
+				$cod =~ s/\.//g;
+				chomp($jit);
+				last;
+			}
+		}
+		$del = 0 unless defined($del);
+		$off = 0 unless defined($off);
+		$jit = 0 unless defined($jit);
+		$str = 0 unless defined($str);
+		$del /= 1000;
+		$off /= 1000;
+		$jit /= 1000;
+		$rrdata .= ":$del:$off:$jit:$str";
+		my @i = split(',', $ntp->{desc}->{$h});
+		for($n = 0; $n < 10; $n++) {
+			if($cod eq trim($i[$n])) {
+				$rrdata .= ":1";
+			} else {
+				$rrdata .= ":0";
+			}
+		}
+		$e++;
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub ntp_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $ntp = $config->{ntp};
+	my @rigid = split(',', $ntp->{rigid});
+	my @limit = split(',', $ntp->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $e;
+	my $e2;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+	my @AC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#B4B444",
+		"#444444",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < scalar(my @nl = split(',', $ntp->{list})); $n++) {
+			my $l = trim($nl[$n]);
+			$line1 = "                                  ";
+			$line2 .= "     Delay   Offset   Jitter   Str";
+			$line3 .= "----------------------------------";
+			foreach (split(',', $ntp->{desc}->{$l})) {
+				$line1 .= "     ";
+				$line2 .= sprintf(" %4s", trim($_));
+				$line3 .= "-----";
+			}
+			if($line1) {
+				my $i = length($line1);
+				printf(sprintf("%${i}s", sprintf("NTP Server: %s", $l)));
+			}
+		}
+		print("\n");
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $n3;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}", $time);
+			for($n2 = 0; $n2 < scalar(my @nl = split(',', $ntp->{list})); $n2++) {
+				my $l = trim($nl[$n2]);
+				undef(@row);
+				$from = $n2 * 14;
+				$to = $from + 4;
+				push(@row, @$line[$from..$to]);
+				printf("  %8.3f %8.3f %8.3f   %2d ", @row);
+				for($n3 = 0; $n3 < scalar(my @i = (split(',', $ntp->{desc}->{$l}))); $n3++) {
+					$from = $n2 * 14 + 4 + $n3;
+					my ($c) = @$line[$from] || 0;
+					printf(" %4d", $c);
+				}
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < scalar(my @nl = split(',', $ntp->{list})); $n++) {
+		for($n2 = 1; $n2 <= 3; $n2++) {
+			$str = $u . $package . $n . $n2 . "." . $tf->{when} . ".png";
+			push(@PNG, $str);
+			unlink("$PNG_DIR" . $str);
+			if(lc($config->{enable_zoom}) eq "y") {
+				$str = $u . $package . $n . $n2 . "z." . $tf->{when} . ".png";
+				push(@PNGz, $str);
+				unlink("$PNG_DIR" . $str);
+			}
+		}
+	}
+
+	$e = 0;
+	foreach my $host (split(',', $ntp->{list})) {
+		$host = trim($host);
+		if($e) {
+			print("   <br>\n");
+		}
+		if($title) {
+			main::graph_header($title, 2);
+		}
+		undef(@riglim);
+		if(trim($rigid[0]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+		} else {
+			if(trim($rigid[0]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[0]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE2:ntp" . $e . "_del#4444EE:Delay");
+		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":LAST:     Current\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":AVERAGE:    Average\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":MIN:    Min\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":MAX:    Max\\:%6.3lf\\n");
+		push(@tmp, "LINE2:ntp" . $e . "_off#44EEEE:Offset");
+		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":LAST:    Current\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":AVERAGE:    Average\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":MIN:    Min\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":MAX:    Max\\:%6.3lf\\n");
+		push(@tmp, "LINE2:ntp" . $e . "_jit#EE4444:Jitter");
+		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":LAST:    Current\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":AVERAGE:    Average\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":MIN:    Min\\:%6.3lf");
+		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":MAX:    Max\\:%6.3lf\\n");
+		push(@tmpz, "LINE2:ntp" . $e . "_del#4444EE:Delay");
+		push(@tmpz, "LINE2:ntp" . $e . "_off#44EEEE:Offset");
+		push(@tmpz, "LINE2:ntp" . $e . "_jit#EE4444:Jitter");
+		if($title) {
+			print("    <tr>\n");
+			print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+		($width, $height) = split('x', $config->{graph_size}->{main});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
+			"--title=$config->{graphs}->{_ntp1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Seconds",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:ntp" . $e . "_del=$rrd:ntp" . $e . "_del:AVERAGE",
+			"DEF:ntp" . $e . "_off=$rrd:ntp" . $e . "_off:AVERAGE",
+			"DEF:ntp" . $e . "_jit=$rrd:ntp" . $e . "_jit:AVERAGE",
+			"COMMENT: \\n",
+			@tmp,
+			"COMMENT: \\n",
+			"COMMENT: \\n",);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
+				"--title=$config->{graphs}->{_ntp1}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Seconds",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				@{$cgi->{version12}},
+				@{$colors->{graph_colors}},
+				"DEF:ntp" . $e . "_del=$rrd:ntp" . $e . "_del:AVERAGE",
+				"DEF:ntp" . $e . "_off=$rrd:ntp" . $e . "_off:AVERAGE",
+				"DEF:ntp" . $e . "_jit=$rrd:ntp" . $e . "_jit:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
+		}
+		$e2 = $e + 1;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3] . "'>\n");
+			}
+		}
+		if($title) {
+			print("    </td>\n");
+			print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+		}
+
+		undef(@riglim);
+		if(trim($rigid[1]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+		} else {
+			if(trim($rigid[1]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[1]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		push(@tmp, "LINE2:ntp" . $e . "_str#44EEEE:Stratum");
+		push(@tmp, "GPRINT:ntp" . $e . "_str" . ":LAST:              Current\\:%2.0lf\\n");
+		push(@tmpz, "LINE2:ntp" . $e . "_str#44EEEE:Stratum");
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . $PNG[$e * 3 + 1],
+			"--title=$config->{graphs}->{_ntp2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Level",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ntp" . $e . "_str=$rrd:ntp" . $e . "_str:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 3 + 1] . ": $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . $PNGz[$e * 3 + 1],
+				"--title=$config->{graphs}->{_ntp2}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Level",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:ntp" . $e . "_str=$rrd:ntp" . $e . "_str:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 3 + 1] . ": $err\n") if $err;
+		}
+		$e2 = $e + 2;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 1] . "'>\n");
+			}
+		}
+
+		undef(@riglim);
+		if(trim($rigid[2]) eq 1) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+		} else {
+			if(trim($rigid[2]) eq 2) {
+				push(@riglim, "--upper-limit=" . trim($limit[2]));
+				push(@riglim, "--rigid");
+			}
+		}
+		undef(@tmp);
+		undef(@tmpz);
+		my @i = split(',', $ntp->{desc}->{$host});
+		for($n = 0; $n < 10; $n++) {
+			if(trim($i[$n])) {
+				$str = sprintf("%-4s", trim($i[$n]));
+				push(@tmp, "LINE2:ntp" . $e . "_c" . sprintf("%02d", ($n + 1)) . $AC[$n] . ":$str");
+				push(@tmp, "COMMENT:   \\g");
+				push(@tmpz, "LINE2:ntp" . $e . "_c" . sprintf("%02d", ($n + 1)) . $AC[$n] . ":$str");
+				if(!(($n + 1) % 5)) {
+					push(@tmp, ("COMMENT: \\n"));
+				}
+			}
+		}
+		($width, $height) = split('x', $config->{graph_size}->{small});
+		if($silent =~ /imagetag/) {
+			($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+			($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+			@tmp = @tmpz;
+		}
+		RRDs::graph("$PNG_DIR" . $PNG[$e * 3 + 2],
+			"--title=$config->{graphs}->{_ntp3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Hits",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ntp" . $e . "_c01=$rrd:ntp" . $e . "_c01:AVERAGE",
+			"DEF:ntp" . $e . "_c02=$rrd:ntp" . $e . "_c02:AVERAGE",
+			"DEF:ntp" . $e . "_c03=$rrd:ntp" . $e . "_c03:AVERAGE",
+			"DEF:ntp" . $e . "_c04=$rrd:ntp" . $e . "_c04:AVERAGE",
+			"DEF:ntp" . $e . "_c05=$rrd:ntp" . $e . "_c05:AVERAGE",
+			"DEF:ntp" . $e . "_c06=$rrd:ntp" . $e . "_c06:AVERAGE",
+			"DEF:ntp" . $e . "_c07=$rrd:ntp" . $e . "_c07:AVERAGE",
+			"DEF:ntp" . $e . "_c08=$rrd:ntp" . $e . "_c08:AVERAGE",
+			"DEF:ntp" . $e . "_c09=$rrd:ntp" . $e . "_c09:AVERAGE",
+			"DEF:ntp" . $e . "_c10=$rrd:ntp" . $e . "_c10:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 3 + 2] . ": $err\n") if $err;
+		if(lc($config->{enable_zoom}) eq "y") {
+			($width, $height) = split('x', $config->{graph_size}->{zoom});
+			RRDs::graph("$PNG_DIR" . $PNGz[$e * 3 + 2],
+				"--title=$config->{graphs}->{_ntp3}  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=Hits",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:ntp" . $e . "_c01=$rrd:ntp" . $e . "_c01:AVERAGE",
+				"DEF:ntp" . $e . "_c02=$rrd:ntp" . $e . "_c02:AVERAGE",
+				"DEF:ntp" . $e . "_c03=$rrd:ntp" . $e . "_c03:AVERAGE",
+				"DEF:ntp" . $e . "_c04=$rrd:ntp" . $e . "_c04:AVERAGE",
+				"DEF:ntp" . $e . "_c05=$rrd:ntp" . $e . "_c05:AVERAGE",
+				"DEF:ntp" . $e . "_c06=$rrd:ntp" . $e . "_c06:AVERAGE",
+				"DEF:ntp" . $e . "_c07=$rrd:ntp" . $e . "_c07:AVERAGE",
+				"DEF:ntp" . $e . "_c08=$rrd:ntp" . $e . "_c08:AVERAGE",
+				"DEF:ntp" . $e . "_c09=$rrd:ntp" . $e . "_c09:AVERAGE",
+				"DEF:ntp" . $e . "_c10=$rrd:ntp" . $e . "_c10:AVERAGE",
+				@tmpz);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 3 + 2] . ": $err\n") if $err;
+		}
+		$e2 = $e + 3;
+		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
+			if(lc($config->{enable_zoom}) eq "y") {
+				if(lc($config->{disable_javascript_void}) eq "y") {
+					print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+				else {
+					print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
+				}
+			} else {
+				print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$e * 3 + 2] . "'>\n");
+			}
+		}
+
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+	
+			print("    <tr>\n");
+			print "      <td bgcolor='$colors->{title_bg_color}' colspan='2'>\n";
+			print "       <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
+			print "       <font size='-1'>\n";
+			print "        <b style='{color: " . $colors->{title_fg_color} . "}'>&nbsp;&nbsp;$host<b>\n";
+			print "       </font></font>\n";
+			print "      </td>\n";
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		$e++;
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/nvidia.pm b/lib/nvidia.pm
new file mode 100644
index 0000000..887513e
--- /dev/null
+++ b/lib/nvidia.pm
@@ -0,0 +1,626 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package nvidia;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(nvidia_init nvidia_update nvidia_cgi);
+
+sub nvidia_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:nvidia_temp0:GAUGE:120:0:U",
+				"DS:nvidia_temp1:GAUGE:120:0:U",
+				"DS:nvidia_temp2:GAUGE:120:0:U",
+				"DS:nvidia_temp3:GAUGE:120:0:U",
+				"DS:nvidia_temp4:GAUGE:120:0:U",
+				"DS:nvidia_temp5:GAUGE:120:0:U",
+				"DS:nvidia_temp6:GAUGE:120:0:U",
+				"DS:nvidia_temp7:GAUGE:120:0:U",
+				"DS:nvidia_temp8:GAUGE:120:0:U",
+				"DS:nvidia_gpu0:GAUGE:120:0:100",
+				"DS:nvidia_gpu1:GAUGE:120:0:100",
+				"DS:nvidia_gpu2:GAUGE:120:0:100",
+				"DS:nvidia_gpu3:GAUGE:120:0:100",
+				"DS:nvidia_gpu4:GAUGE:120:0:100",
+				"DS:nvidia_gpu5:GAUGE:120:0:100",
+				"DS:nvidia_gpu6:GAUGE:120:0:100",
+				"DS:nvidia_gpu7:GAUGE:120:0:100",
+				"DS:nvidia_gpu8:GAUGE:120:0:100",
+				"DS:nvidia_mem0:GAUGE:120:0:100",
+				"DS:nvidia_mem1:GAUGE:120:0:100",
+				"DS:nvidia_mem2:GAUGE:120:0:100",
+				"DS:nvidia_mem3:GAUGE:120:0:100",
+				"DS:nvidia_mem4:GAUGE:120:0:100",
+				"DS:nvidia_mem5:GAUGE:120:0:100",
+				"DS:nvidia_mem6:GAUGE:120:0:100",
+				"DS:nvidia_mem7:GAUGE:120:0:100",
+				"DS:nvidia_mem8:GAUGE:120:0:100",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub nvidia_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $nvidia = $config->{nvidia};
+
+	my @temp;
+	my @gpu;
+	my @mem;
+	my @data;
+	my $utilization;
+
+	my $l;
+	my $n;
+	my $rrdata = "N";
+
+	for($n = 0; $n < 9; $n++) {
+		$temp[$n] = 0;
+		$gpu[$n] = 0;
+		$mem[$n] = 0;
+		if($n < $nvidia->{max}) {
+			($mem[$n], $gpu[$n], $temp[$n]) = split(' ', get_nvidia_data($n));
+			if(!$temp[$n] && !$gpu[$n] && !$mem[$n]) {
+				# attempt to get data using the old driver version
+				$utilization = 0;
+	  			open(IN, "nvidia-smi -g $n |");
+				@data = <IN>;
+				close(IN);
+				for($l = 0; $l < scalar(@data); $l++) {
+					if($data[$l] =~ /Temperature/) {
+						my (undef, $tmp) = split(':', $data[$l]);
+						if($tmp eq "\n") {
+							$l++;
+							$tmp = $data[$l];
+						}
+						my ($value, undef) = split(' ', $tmp);
+						$value =~ s/[-]/./;
+						$value =~ s/[^0-9.]//g;
+						if(int($value) > 0) {
+							$temp[$n] = int($value);
+						}
+					}
+					if($data[$l] =~ /Utilization/) {
+						$utilization = 1;
+					}
+					if($utilization == 1) {
+						if($data[$l] =~ /GPU/) {
+							my (undef, $tmp) = split(':', $data[$l]);
+							if($tmp eq "\n") {
+								$l++;
+								$tmp = $data[$l];
+							}
+							my ($value, undef) = split(' ', $tmp);
+							$value =~ s/[-]/./;
+							$value =~ s/[^0-9.]//g;
+							if(int($value) > 0) {
+								$gpu[$n] = int($value);
+							}
+						}
+						if($data[$l] =~ /Memory/) {
+							my (undef, $tmp) = split(':', $data[$l]);
+							if($tmp eq "\n") {
+								$l++;
+								$tmp = $data[$l];
+							}
+							my ($value, undef) = split(' ', $tmp);
+							$value =~ s/[-]/./;
+							$value =~ s/[^0-9.]//g;
+							if(int($value) > 0) {
+								$mem[$n] = int($value);
+							}
+						}
+					}
+				}
+			}
+		}
+	}
+
+	for($n = 0; $n < scalar(@temp); $n++) {
+		$rrdata .= ":$temp[$n]";
+	}
+	for($n = 0; $n < scalar(@gpu); $n++) {
+		$rrdata .= ":$gpu[$n]";
+	}
+	for($n = 0; $n < scalar(@mem); $n++) {
+		$rrdata .= ":$mem[$n]";
+	}
+
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub nvidia_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $nvidia = $config->{nvidia};
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $err;
+	my @LC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#963C74",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < $nvidia->{max}; $n++) {
+			print("    NVIDIA card $n");
+		}
+		print("\n");
+		for($n = 0; $n < $nvidia->{max}; $n++) {
+			$line2 .= "   Temp  GPU  Mem";
+			$line3 .= "-----------------";
+		}
+		print("Time$line2\n");
+		print("----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			undef($line1);
+			undef(@row);
+			for($n2 = 0; $n2 < $nvidia->{max}; $n2++) {
+				push(@row, @$line[$n2]);
+				push(@row, @$line[$n2 + 9]);
+				push(@row, @$line[$n2 + 18]);
+				$line1 .= "   %3d %3d%% %3d%%";
+			}
+			print(sprintf($line1, @row));
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+
+	for($n = 0; $n < 9; $n++) {
+		if($n < $nvidia->{max}) {
+			push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":Card $n");
+			push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":Card $n");
+			push(@tmp, "GPRINT:temp" . $n . ":LAST:             Current\\: %2.0lf");
+			push(@tmp, "GPRINT:temp" . $n . ":AVERAGE:   Average\\: %2.0lf");
+			push(@tmp, "GPRINT:temp" . $n . ":MIN:   Min\\: %2.0lf");
+			push(@tmp, "GPRINT:temp" . $n . ":MAX:   Max\\: %2.0lf\\n");
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_nvidia1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Celsius",
+		"--width=$width",
+		"--height=$height",
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:temp0=$rrd:nvidia_temp0:AVERAGE",
+		"DEF:temp1=$rrd:nvidia_temp1:AVERAGE",
+		"DEF:temp2=$rrd:nvidia_temp2:AVERAGE",
+		"DEF:temp3=$rrd:nvidia_temp3:AVERAGE",
+		"DEF:temp4=$rrd:nvidia_temp4:AVERAGE",
+		"DEF:temp5=$rrd:nvidia_temp5:AVERAGE",
+		"DEF:temp6=$rrd:nvidia_temp6:AVERAGE",
+		"DEF:temp7=$rrd:nvidia_temp7:AVERAGE",
+		"DEF:temp8=$rrd:nvidia_temp8:AVERAGE",
+		@tmp,
+		"COMMENT: \\n",
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_nvidia1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Celsius",
+			"--width=$width",
+			"--height=$height",
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:temp0=$rrd:nvidia_temp0:AVERAGE",
+			"DEF:temp1=$rrd:nvidia_temp1:AVERAGE",
+			"DEF:temp2=$rrd:nvidia_temp2:AVERAGE",
+			"DEF:temp3=$rrd:nvidia_temp3:AVERAGE",
+			"DEF:temp4=$rrd:nvidia_temp4:AVERAGE",
+			"DEF:temp5=$rrd:nvidia_temp5:AVERAGE",
+			"DEF:temp6=$rrd:nvidia_temp6:AVERAGE",
+			"DEF:temp7=$rrd:nvidia_temp7:AVERAGE",
+			"DEF:temp8=$rrd:nvidia_temp8:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE2:gpu0#FFA500:Card 0\\g");
+	push(@tmp, "GPRINT:gpu0:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu3#4444EE:Card 3\\g");
+	push(@tmp, "GPRINT:gpu3:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu6#EE44EE:Card 6\\g");
+	push(@tmp, "GPRINT:gpu6:LAST:\\:%3.0lf%%\\n");
+	push(@tmp, "LINE2:gpu1#44EEEE:Card 1\\g");
+	push(@tmp, "GPRINT:gpu1:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu4#448844:Card 4\\g");
+	push(@tmp, "GPRINT:gpu4:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu7#EEEE44:Card 7\\g");
+	push(@tmp, "GPRINT:gpu7:LAST:\\:%3.0lf%%\\n");
+	push(@tmp, "LINE2:gpu2#44EE44:Card 2\\g");
+	push(@tmp, "GPRINT:gpu2:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu5#EE4444:Card 5\\g");
+	push(@tmp, "GPRINT:gpu5:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:gpu8#963C74:Card 8\\g");
+	push(@tmp, "GPRINT:gpu8:LAST:\\:%3.0lf%%\\n");
+	push(@tmpz, "LINE2:gpu0#FFA500:Card 0");
+	push(@tmpz, "LINE2:gpu3#4444EE:Card 3");
+	push(@tmpz, "LINE2:gpu6#EE44EE:Card 6");
+	push(@tmpz, "LINE2:gpu1#44EEEE:Card 1");
+	push(@tmpz, "LINE2:gpu4#448844:Card 4");
+	push(@tmpz, "LINE2:gpu7#EEEE44:Card 7");
+	push(@tmpz, "LINE2:gpu2#44EE44:Card 2");
+	push(@tmpz, "LINE2:gpu5#EE4444:Card 5");
+	push(@tmpz, "LINE2:gpu8#963C74:Card 8");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_nvidia2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Percent",
+		"--width=$width",
+		"--height=$height",
+		"--upper-limit=100",
+		"--lower-limit=0",
+		"--rigid",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:gpu0=$rrd:nvidia_gpu0:AVERAGE",
+		"DEF:gpu1=$rrd:nvidia_gpu1:AVERAGE",
+		"DEF:gpu2=$rrd:nvidia_gpu2:AVERAGE",
+		"DEF:gpu3=$rrd:nvidia_gpu3:AVERAGE",
+		"DEF:gpu4=$rrd:nvidia_gpu4:AVERAGE",
+		"DEF:gpu5=$rrd:nvidia_gpu5:AVERAGE",
+		"DEF:gpu6=$rrd:nvidia_gpu6:AVERAGE",
+		"DEF:gpu7=$rrd:nvidia_gpu7:AVERAGE",
+		"DEF:gpu8=$rrd:nvidia_gpu8:AVERAGE",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_nvidia2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent",
+			"--width=$width",
+			"--height=$height",
+			"--upper-limit=100",
+			"--lower-limit=0",
+			"--rigid",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:gpu0=$rrd:nvidia_gpu0:AVERAGE",
+			"DEF:gpu1=$rrd:nvidia_gpu1:AVERAGE",
+			"DEF:gpu2=$rrd:nvidia_gpu2:AVERAGE",
+			"DEF:gpu3=$rrd:nvidia_gpu3:AVERAGE",
+			"DEF:gpu4=$rrd:nvidia_gpu4:AVERAGE",
+			"DEF:gpu5=$rrd:nvidia_gpu5:AVERAGE",
+			"DEF:gpu6=$rrd:nvidia_gpu6:AVERAGE",
+			"DEF:gpu7=$rrd:nvidia_gpu7:AVERAGE",
+			"DEF:gpu8=$rrd:nvidia_gpu8:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE2:mem0#FFA500:Card 0\\g");
+	push(@tmp, "GPRINT:mem0:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem3#4444EE:Card 3\\g");
+	push(@tmp, "GPRINT:mem3:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem6#EE44EE:Card 6\\g");
+	push(@tmp, "GPRINT:mem6:LAST:\\:%3.0lf%%\\n");
+	push(@tmp, "LINE2:mem1#44EEEE:Card 1\\g");
+	push(@tmp, "GPRINT:mem1:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem4#448844:Card 4\\g");
+	push(@tmp, "GPRINT:mem4:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem7#EEEE44:Card 7\\g");
+	push(@tmp, "GPRINT:mem7:LAST:\\:%3.0lf%%\\n");
+	push(@tmp, "LINE2:mem2#44EE44:Card 2\\g");
+	push(@tmp, "GPRINT:mem2:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem5#EE4444:Card 5\\g");
+	push(@tmp, "GPRINT:mem5:LAST:\\:%3.0lf%%");
+	push(@tmp, "LINE2:mem8#963C74:Card 8\\g");
+	push(@tmp, "GPRINT:mem8:LAST:\\:%3.0lf%%\\n");
+	push(@tmpz, "LINE2:mem0#FFA500:Card 0");
+	push(@tmpz, "LINE2:mem3#4444EE:Card 3");
+	push(@tmpz, "LINE2:mem6#EE44EE:Card 6");
+	push(@tmpz, "LINE2:mem1#44EEEE:Card 1");
+	push(@tmpz, "LINE2:mem4#448844:Card 4");
+	push(@tmpz, "LINE2:mem7#EEEE44:Card 7");
+	push(@tmpz, "LINE2:mem2#44EE44:Card 2");
+	push(@tmpz, "LINE2:mem5#EE4444:Card 5");
+	push(@tmpz, "LINE2:mem8#963C74:Card 8");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_nvidia3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Percent",
+		"--width=$width",
+		"--height=$height",
+		"--upper-limit=100",
+		"--lower-limit=0",
+		"--rigid",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:mem0=$rrd:nvidia_mem0:AVERAGE",
+		"DEF:mem1=$rrd:nvidia_mem1:AVERAGE",
+		"DEF:mem2=$rrd:nvidia_mem2:AVERAGE",
+		"DEF:mem3=$rrd:nvidia_mem3:AVERAGE",
+		"DEF:mem4=$rrd:nvidia_mem4:AVERAGE",
+		"DEF:mem5=$rrd:nvidia_mem5:AVERAGE",
+		"DEF:mem6=$rrd:nvidia_mem6:AVERAGE",
+		"DEF:mem7=$rrd:nvidia_mem7:AVERAGE",
+		"DEF:mem8=$rrd:nvidia_mem8:AVERAGE",
+		"COMMENT: \\n",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_nvidia3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Percent",
+			"--width=$width",
+			"--height=$height",
+			"--upper-limit=100",
+			"--lower-limit=0",
+			"--rigid",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:mem0=$rrd:nvidia_mem0:AVERAGE",
+			"DEF:mem1=$rrd:nvidia_mem1:AVERAGE",
+			"DEF:mem2=$rrd:nvidia_mem2:AVERAGE",
+			"DEF:mem3=$rrd:nvidia_mem3:AVERAGE",
+			"DEF:mem4=$rrd:nvidia_mem4:AVERAGE",
+			"DEF:mem5=$rrd:nvidia_mem5:AVERAGE",
+			"DEF:mem6=$rrd:nvidia_mem6:AVERAGE",
+			"DEF:mem7=$rrd:nvidia_mem7:AVERAGE",
+			"DEF:mem8=$rrd:nvidia_mem8:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/port.pm b/lib/port.pm
new file mode 100644
index 0000000..dd07084
--- /dev/null
+++ b/lib/port.pm
@@ -0,0 +1,497 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package port;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use POSIX qw(strftime);
+use Exporter 'import';
+our @EXPORT = qw(port_init port_update port_cgi);
+
+sub port_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $port = $config->{port};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 2 != $port->{max}) {
+			logger("Detected size mismatch between 'max = $port->{max}' and $rrd (" . scalar(@ds) / 2 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < $port->{max}; $n++) {
+			push(@tmp, "DS:port" . $n . "_in:GAUGE:120:0:U");
+			push(@tmp, "DS:port" . $n . "_out:GAUGE:120:0:U");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	if($config->{os} eq "Linux") {
+		my $num;
+		my @line;
+
+		# set the iptables rules for each defined port
+		my @pl = split(',', $port->{list});
+		for($n = 0; $n < $port->{max}; $n++) {
+			$pl[$n] = trim($pl[$n]);
+			if($pl[$n]) {
+				my $p = lc((split(',', $port->{desc}->{$pl[$n]}))[1]) || "all";
+				system("iptables -N monitorix_IN_$n 2>/dev/null");
+				system("iptables -I INPUT -p $p --dport $pl[$n] -j monitorix_IN_$n -c 0 0");
+				system("iptables -N monitorix_OUT_$n 2>/dev/null");
+				system("iptables -I OUTPUT -p $p --sport $pl[$n] -j monitorix_OUT_$n -c 0 0");
+			}
+		}
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		# set the ipfw rules for each defined port
+		my @pl = split(',', $port->{list});
+		for($n = 0; $n < $port->{max}; $n++) {
+			$pl[$n] = trim($pl[$n]);
+			if($pl[$n]) {
+				my $p = lc((split(',', $port->{desc}->{$pl[$n]}))[1]) || "all";
+				system("ipfw -q add $port->{rule} count $p from me $pl[$n] to any");
+				system("ipfw -q add $port->{rule} count $p from any to me $pl[$n]");
+			}
+		}
+	}
+
+	$config->{port_hist_in} = ();
+	$config->{port_hist_out} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub port_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $port = $config->{port};
+
+	my @in;
+	my @out;
+
+	my $n;
+	my $rrdata = "N";
+
+	if($config->{os} eq "Linux") {
+		open(IN, "iptables -nxvL INPUT |");
+		while(<IN>) {
+			for($n = 0; $n < $port->{max}; $n++) {
+				$in[$n] = 0 unless $in[$n];
+				if(/ monitorix_IN_$n /) {
+					my (undef, $bytes) = split(' ', $_);
+					chomp($bytes);
+					$in[$n] = $bytes - ($config->{port_hist_in}[$n] || 0);
+					$in[$n] = 0 unless $in[$n] != $bytes;
+					$config->{port_hist_in}[$n] = $bytes;
+					$in[$n] /= 60;
+				}
+			}
+		}
+		close(IN);
+		open(IN, "iptables -nxvL OUTPUT |");
+		while(<IN>) {
+			for($n = 0; $n < $port->{max}; $n++) {
+				$out[$n] = 0 unless $out[$n];
+				if(/ monitorix_OUT_$n /) {
+					my (undef, $bytes) = split(' ', $_);
+					chomp($bytes);
+					$out[$n] = $bytes - ($config->{port_hist_out}[$n] || 0);
+					$out[$n] = 0 unless $out[$n] != $bytes;
+					$config->{port_hist_out}[$n] = $bytes;
+					$out[$n] /= 60;
+				}
+			}
+		}
+		close(IN);
+	}
+	if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		my @pl = split(',', $port->{list});
+		open(IN, "ipfw show $port->{rule} 2>/dev/null |");
+		while(<IN>) {
+			for($n = 0; $n < $port->{max}; $n++) {
+				$in[$n] = 0 unless $in[$n];
+				$pl[$n] = trim($pl[$n]);
+				if(/ from any to me dst-port $pl[$n]$/) {
+					my (undef, undef, $bytes) = split(' ', $_);
+					chomp($bytes);
+					$in[$n] = $bytes;
+				}
+				$out[$n] = 0 unless $out[$n];
+				if(/ from me $pl[$n] to any$/) {
+					my (undef, undef, $bytes) = split(' ', $_);
+					chomp($bytes);
+					$out[$n] = $bytes;
+				}
+			}
+		}
+		close(IN);
+	}
+
+	for($n = 0; $n < $port->{max}; $n++) {
+		$rrdata .= ":$in[$n]:$out[$n]";
+	}
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub port_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $port = $config->{port};
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @warning;
+	my @PNG;
+	my @PNGz;
+	my $name;
+	my @tmp;
+	my @tmpz;
+	my @CDEF;
+	my $T = "B";
+	my $vlabel = "bytes/s";
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if(lc($config->{netstats_in_bps}) eq "y") {
+		$T = "b";
+		$vlabel = "bits/s";
+	}
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $line1;
+		my $line2;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("    ");
+		for($n = 0; $n < $port->{max} && $n < scalar(my @pl = split(',', $port->{list})); $n++) {
+			$pl[$n] = trim($pl[$n]);
+			my $pn = trim((split(',', $port->{desc}->{$pl[$n]}))[0]);
+			printf("   %-5s %-8s", $pl[$n], $pn);
+			$line1 .= "   K$T/s_I  K$T/s_O";
+			$line2 .= "-----------------";
+		}
+		print("\n");
+		print("Time$line1\n");
+		print("----$line2 \n");
+		my $line;
+		my @row;
+		my $time;
+		my $n2;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			for($n2 = 0; $n2 < $port->{max} && $n2 < scalar(my @pl = split(',', $port->{list})); $n2++) {
+				$from = $n2 * 2;
+				$to = $from + 1;
+				my ($kin, $kout) = @$line[$from..$to];
+				$kin /= 1024;
+				$kout /= 1024;
+				if(lc($config->{netstats_in_bps}) eq "y") {
+					$kin *= 8;
+					$kout *= 8;
+				}
+				@row = ($kin, $kout);
+				printf("  %6d  %6d ", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < $port->{max}; $n++) {
+		$str = $u . $package . $n . "." . $tf->{when} . ".png";
+		push(@PNG, $str);
+		unlink("$PNG_DIR" . $str);
+		if(lc($config->{enable_zoom}) eq "y") {
+			$str = $u . $package . $n . "z." . $tf->{when} . ".png";
+			push(@PNGz, $str);
+			unlink("$PNG_DIR" . $str);
+		}
+	}
+
+	$n = 0;
+	while($n < $port->{max} && $n < scalar(my @pl = split(',', $port->{list}))) {
+		if($title) {
+			if($n == 0) {
+				main::graph_header($title, $port->{graphs_per_row});
+			}
+			print("    <tr>\n");
+		}
+		for($n2 = 0; $n2 < $port->{graphs_per_row}; $n2++) {
+			last unless ($n < $port->{max} && $n < scalar(@pl));
+			if($title) {
+				print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+			}
+			my $pnum;
+			$pl[$n] = trim($pl[$n]);
+			my $pn = trim((split(',', $port->{desc}->{$pl[$n]}))[0]);
+			my $pp = trim((split(',', $port->{desc}->{$pl[$n]}))[1]);
+			my $prig = trim((split(',', $port->{desc}->{$pl[$n]}))[2]);
+			my $plim = trim((split(',', $port->{desc}->{$pl[$n]}))[3]);
+			undef(@riglim);
+			if(trim($prig) eq 1) {
+				push(@riglim, "--upper-limit=" . trim($plim));
+			} else {
+				if(trim($prig) eq 2) {
+					push(@riglim, "--upper-limit=" . trim($plim));
+					push(@riglim, "--rigid");
+				}
+			}
+			undef(@warning);
+			if($config->{os} eq "Linux") {
+				open(IN, "netstat -nl --$pp |");
+				while(<IN>) {
+					(undef, undef, undef, $pnum) = split(' ', $_);
+					chomp($pnum);
+					$pnum =~ s/.*://;
+					if($pnum eq $pl[$n]) {
+						last;
+					}
+				}
+				close(IN);
+			}
+			if(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD")) {
+				open(IN, "netstat -anl -p $pp |");
+				while(<IN>) {
+					 my $stat;
+					(undef, undef, undef, $pnum, undef, $stat) = split(' ', $_);
+					chomp($stat);
+					if($stat eq "LISTEN") {
+						chomp($pnum);
+						($pnum) = ($pnum =~ m/^.*?(\.\d+$)/);
+						$pnum =~ s/\.//;
+						if($pnum eq $pl[$n]) {
+							last;
+						}
+					}
+				}
+				close(IN);
+			}
+			if($pnum ne $pl[$n]) {
+				push(@warning, $colors->{warning_color});
+			}
+
+			$name = substr($pn, 0, 15);
+			undef(@tmp);
+			undef(@tmpz);
+			undef(@CDEF);
+			push(@tmp, "AREA:B_in#44EE44:Input");
+			push(@tmp, "AREA:B_out#4444EE:Output");
+			push(@tmp, "AREA:B_out#4444EE:");
+			push(@tmp, "AREA:B_in#44EE44:");
+			push(@tmp, "LINE1:B_out#0000EE");
+			push(@tmp, "LINE1:B_in#00EE00");
+			push(@tmpz, "AREA:B_in#44EE44:Input");
+			push(@tmpz, "AREA:B_out#4444EE:Output");
+			push(@tmpz, "AREA:B_out#4444EE:");
+			push(@tmpz, "AREA:B_in#44EE44:");
+			push(@tmpz, "LINE1:B_out#0000EE");
+			push(@tmpz, "LINE1:B_in#00EE00");
+			if(lc($config->{netstats_in_bps}) eq "y") {
+				push(@CDEF, "CDEF:B_in=in,8,*");
+				push(@CDEF, "CDEF:B_out=out,8,*");
+			} else {
+				push(@CDEF, "CDEF:B_in=in");
+				push(@CDEF, "CDEF:B_out=out");
+			}
+			($width, $height) = split('x', $config->{graph_size}->{mini});
+			if($silent =~ /imagetag/) {
+				($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+				($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+				push(@tmp, "COMMENT: \\n");
+				push(@tmp, "COMMENT: \\n");
+				push(@tmp, "COMMENT: \\n");
+			}
+			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
+				"--title=$name traffic  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				@warning,
+				"DEF:in=$rrd:port" . $n . "_in:AVERAGE",
+				"DEF:out=$rrd:port" . $n . "_out:AVERAGE",
+				@CDEF,
+				@tmp);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
+			if(lc($config->{enable_zoom}) eq "y") {
+				($width, $height) = split('x', $config->{graph_size}->{zoom});
+				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
+					"--title=$name traffic  ($tf->{nwhen}$tf->{twhen})",
+					"--start=-$tf->{nwhen}$tf->{twhen}",
+					"--imgformat=PNG",
+					"--vertical-label=$vlabel",
+					"--width=$width",
+					"--height=$height",
+					@riglim,
+					"--lower-limit=0",
+					@{$cgi->{version12}},
+					@{$cgi->{version12_small}},
+					@{$colors->{graph_colors}},
+					@warning,
+					"DEF:in=$rrd:port" . $n . "_in:AVERAGE",
+					"DEF:out=$rrd:port" . $n . "_out:AVERAGE",
+					@CDEF,
+					@tmpz);
+				$err = RRDs::error;
+				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
+			}
+			if($title || ($silent =~ /imagetag/ && $graph =~ /port$n/)) {
+				if(lc($config->{enable_zoom}) eq "y") {
+					if(lc($config->{disable_javascript_void}) eq "y") {
+						print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+					else {
+						print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+				} else {
+					print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "'>\n");
+				}
+			}
+			if($title) {
+				print("    </td>\n");
+			}
+			$n++;
+		}
+		if($title) {
+			print("    </tr>\n");
+		}
+	}
+	if($title) {
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/proc.pm b/lib/proc.pm
new file mode 100644
index 0000000..ae5d8b5
--- /dev/null
+++ b/lib/proc.pm
@@ -0,0 +1,658 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package proc;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(proc_init proc_update proc_cgi);
+
+sub proc_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $proc = $config->{proc};
+
+	my $info;
+	my @ds;
+	my @tmp;
+	my $n;
+
+	if(!grep {$_ eq $config->{os}} ("Linux", "FreeBSD")) {
+		logger("$myself is not supported yet by your operating system ($config->{os}).");
+		return;
+	}
+
+	if(-e $rrd) {
+		$info = RRDs::info($rrd);
+		for my $key (keys %$info) {
+			if(index($key, 'ds[') == 0) {
+				if(index($key, '.type') != -1) {
+					push(@ds, substr($key, 3, index($key, ']') - 3));
+				}
+			}
+		}
+		if(scalar(@ds) / 9 != $proc->{max}) {
+			logger("Detected size mismatch between 'max = $proc->{max}' and $rrd (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
+			rename($rrd, "$rrd.bak");
+		}
+	}
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		for($n = 0; $n < $proc->{max}; $n++) {
+			push(@tmp, "DS:proc" . $n . "_user:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_nice:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_sys:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_idle:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_iow:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_irq:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_sirq:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_steal:GAUGE:120:0:100");
+			push(@tmp, "DS:proc" . $n . "_guest:GAUGE:120:0:100");
+		}
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				@tmp,
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{proc_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub proc_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $proc = $config->{proc};
+
+	my @procs;
+	my $total;
+	
+	my $n;
+	my @lastproc;
+
+	my @p;
+	my @l;
+	my $rrdata = "N";
+
+	# Read last processor usage data
+	my $str;
+	for($n = 0; $n < $proc->{max}; $n++) {
+		$str = "cpu" . $n;
+		if($config->{proc_hist}->{$str}) {
+			push(@lastproc, $config->{proc_hist}->{$str});
+		}
+	}
+
+	if($config->{os} eq "Linux") {
+		open(IN, "/proc/stat");
+		while(<IN>) {
+			for($n = 0; $n < $proc->{max}; $n++) {
+				$str = "cpu" . $n;
+				if(/^cpu$n /) {
+					$config->{proc_hist}->{$str} = $_;
+					chomp($config->{proc_hist}->{$str});
+					push(@procs, $config->{proc_hist}->{$str});
+				}
+			}
+		}
+		close(IN);
+	} elsif($config->{os} eq "FreeBSD") {
+		my $cptimes;
+		my @tmp;
+		my $from;
+		my $to;
+		my $ncpu = `sysctl -n hw.ncpu`;
+		open(IN, "sysctl -n kern.cp_times |");
+		my @data = split(' ', <IN>);
+		close(IN);
+		chomp($ncpu);
+		for($n = 0; $n < $proc->{max}; $n++) {
+			$str = "cpu" . $n;
+			$from = $n * 5;
+			$to = $from + 4;
+			@tmp = @data[$from..$to];
+			@tmp[0, 1, 2, 3, 4] = @tmp[0, 1, 2, 4, 3];
+			$cptimes = join(' ', @tmp);
+			chomp($cptimes);
+			$cptimes = $str . " " . $cptimes;
+			$config->{proc_hist}->{$str} = $cptimes;
+			push(@procs, $cptimes);
+		}
+	}
+
+	my @deltas;
+	for($n = 0; $n < $proc->{max}; $n++) {
+		if($procs[$n]) {
+			@p = split(' ', $procs[$n]);
+			@l = (0) x 10;
+			@l = split(' ', $lastproc[$n]) if $lastproc[$n];
+			@deltas = (
+
+				# $p[0] and $l[0] are the 'cpu' word
+				$p[1] - $l[1],	# user
+				$p[2] - $l[2],	# nice
+				$p[3] - $l[3],	# sys
+				$p[4] - $l[4],	# idle
+				$p[5] - $l[5],	# iow
+				$p[6] - $l[6],	# irq
+				$p[7] - $l[7],	# sirq
+				$p[8] - $l[8],	# steal
+				$p[9] - $l[9],	# guest
+			);
+			$total = $deltas[0] + $deltas[1] + $deltas[2] + $deltas[3] + $deltas[4] + $deltas[5] + $deltas[6] + $deltas[7] + $deltas[8];
+
+			undef(@p);
+			push(@p, $deltas[0] ? ($deltas[0] * 100) / $total : 0);
+			push(@p, $deltas[1] ? ($deltas[1] * 100) / $total : 0);
+			push(@p, $deltas[2] ? ($deltas[2] * 100) / $total : 0);
+			push(@p, $deltas[3] ? ($deltas[3] * 100) / $total : 0);
+			push(@p, $deltas[4] ? ($deltas[4] * 100) / $total : 0);
+			push(@p, $deltas[5] ? ($deltas[5] * 100) / $total : 0);
+			push(@p, $deltas[6] ? ($deltas[6] * 100) / $total : 0);
+			push(@p, $deltas[7] ? ($deltas[7] * 100) / $total : 0);
+			push(@p, $deltas[8] ? ($deltas[8] * 100) / $total : 0);
+			$procs[$n] = join(' ', @p);
+		} else {
+			$procs[$n] = join(' ', (0, 0, 0, 0, 0, 0, 0, 0, 0));
+		}
+	}
+
+	for($n = 0; $n < $proc->{max}; $n++) {
+		@p = split(' ', $procs[$n]);
+		$rrdata .= ":$p[0]:$p[1]:$p[2]:$p[3]:$p[4]:$p[5]:$p[6]:$p[7]:$p[8]";
+	}
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub proc_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $proc = $config->{proc};
+	my $kern = $config->{kern};
+	my @rigid = split(',', $proc->{rigid});
+	my @limit = split(',', $proc->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @PNG;
+	my @PNGz;
+	my @tmp;
+	my @tmpz;
+	my $vlabel;
+	my $ncpu;
+	my $n;
+	my $n2;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	if($config->{os} eq "Linux") {
+		$ncpu = `grep -w processor /proc/cpuinfo | tail -1 | awk '{ print \$3 }'`;
+		chomp($ncpu);
+		$ncpu++;
+	} elsif($config->{os} eq "FreeBSD") {
+		$ncpu = `/sbin/sysctl -n hw.ncpu`;
+		chomp($ncpu);
+	}
+	$ncpu = $ncpu > $proc->{max} ? $proc->{max} : $ncpu;
+	return unless $ncpu > 1;
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		for($n = 0; $n < $ncpu; $n++) {
+			print("       Processor " . sprintf("%3d", $n) . "                                   ");
+		}
+		print("\nTime");
+		for($n = 0; $n < $ncpu; $n++) {
+			print("   User  Nice   Sys  Idle  I/Ow   IRQ  sIRQ Steal Guest");
+		}
+		print(" \n----");
+		for($n = 0; $n < $ncpu; $n++) {
+			print("-------------------------------------------------------");
+		}
+		print(" \n");
+		my $line;
+		my @row;
+		my $time;
+		my $from;
+		my $to;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc} ", $time);
+			for($n2 = 0; $n2 < $ncpu; $n2++) {
+				$from = $n2 * $ncpu;
+				$to = $from + $ncpu;
+				my ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest,) = @$line[$from..$to];
+				@row = ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest);
+				printf(" %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% ", @row);
+			}
+			print("\n");
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	for($n = 0; $n < $ncpu; $n++) {
+		$str = $u . $package . $n . "." . $tf->{when} . ".png";
+		push(@PNG, $str);
+		unlink("$PNG_DIR" . $str);
+		if(lc($config->{enable_zoom}) eq "y") {
+			$str = $u . $package . $n . "z." . $tf->{when} . ".png";
+			push(@PNGz, $str);
+			unlink("$PNG_DIR" . $str);
+		}
+	}
+
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	$n = 0;
+	while($n < $ncpu) {
+		if($title) {
+			if($n == 0) {
+				main::graph_header($title, $proc->{graphs_per_row});
+			}
+			print("    <tr>\n");
+		}
+		for($n2 = 0; $n2 < $proc->{graphs_per_row}; $n2++) {
+			last unless $n < $ncpu;
+			if($title) {
+				print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+			}
+			undef(@tmp);
+			undef(@tmpz);
+			if(lc($kern->{graph_mode}) eq "r") {
+				$vlabel = "Percent (%)";
+				if(lc($kern->{list}->{user}) eq "y") {
+					push(@tmp, "AREA:user#4444EE:user");
+					push(@tmpz, "AREA:user#4444EE:user");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:user:LAST:    Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{nice}) eq "y") {
+					push(@tmp, "AREA:nice#EEEE44:nice");
+					push(@tmpz, "AREA:nice#EEEE44:nice");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:nice:LAST:    Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{sys}) eq "y") {
+					push(@tmp, "AREA:sys#44EEEE:system");
+					push(@tmpz, "AREA:sys#44EEEE:system");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:sys:LAST:  Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{iow}) eq "y") {
+					push(@tmp, "AREA:iow#EE44EE:I/O wait");
+					push(@tmpz, "AREA:iow#EE44EE:I/O wait");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:iow:LAST:Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{irq}) eq "y") {
+					push(@tmp, "AREA:irq#888888:IRQ");
+					push(@tmpz, "AREA:irq#888888:IRQ");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:irq:LAST:     Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{sirq}) eq "y") {
+					push(@tmp, "AREA:sirq#E29136:softIRQ");
+					push(@tmpz, "AREA:sirq#E29136:softIRQ");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:sirq:LAST: Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{steal}) eq "y") {
+					push(@tmp, "AREA:steal#44EE44:steal");
+					push(@tmpz, "AREA:steal#44EE44:steal");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:steal:LAST:   Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{guest}) eq "y") {
+					push(@tmp, "AREA:guest#448844:guest");
+					push(@tmpz, "AREA:guest#448844:guest");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:guest:LAST:   Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				push(@tmp, "LINE1:guest#1F881F") unless lc($kern->{list}->{guest}) ne "y";
+				push(@tmpz, "LINE1:guest#1F881F") unless lc($kern->{list}->{guest}) ne "y";
+				push(@tmp, "LINE1:steal#00EE00") unless lc($kern->{list}->{steal}) ne "y";
+				push(@tmpz, "LINE1:steal#00EE00") unless lc($kern->{list}->{steal}) ne "y";
+				push(@tmp, "LINE1:sirq#D86612") unless lc($kern->{list}->{sirq}) ne "y";
+				push(@tmpz, "LINE1:sirq#D86612") unless lc($kern->{list}->{sirq}) ne "y";
+				push(@tmp, "LINE1:irq#CCCCCC") unless lc($kern->{list}->{irq}) ne "y";
+				push(@tmpz, "LINE1:irq#CCCCCC") unless lc($kern->{list}->{irq}) ne "y";
+				push(@tmp, "LINE1:iow#EE00EE") unless lc($kern->{list}->{iow}) ne "y";
+				push(@tmpz, "LINE1:iow#EE00EE") unless lc($kern->{list}->{iow}) ne "y";
+				push(@tmp, "LINE1:sys#00EEEE") unless lc($kern->{list}->{sys}) ne "y";
+				push(@tmpz, "LINE1:sys#00EEEE") unless lc($kern->{list}->{sys}) ne "y";
+				push(@tmp, "LINE1:nice#EEEE00") unless lc($kern->{list}->{nice}) ne "y";
+				push(@tmpz, "LINE1:nice#EEEE00") unless lc($kern->{list}->{nice}) ne "y";
+				push(@tmp, "LINE1:user#0000EE") unless lc($kern->{list}->{user}) ne "y";
+				push(@tmpz, "LINE1:user#0000EE") unless lc($kern->{list}->{user}) ne "y";
+			} else {
+				$vlabel = "Stacked Percent (%)";
+				push(@tmp, "CDEF:s_nice=user,nice,+");
+				push(@tmpz, "CDEF:s_nice=user,nice,+");
+				push(@tmp, "CDEF:s_sys=s_nice,sys,+");
+				push(@tmpz, "CDEF:s_sys=s_nice,sys,+");
+				push(@tmp, "CDEF:s_iow=s_sys,iow,+");
+				push(@tmpz, "CDEF:s_iow=s_sys,iow,+");
+				push(@tmp, "CDEF:s_irq=s_iow,irq,+");
+				push(@tmpz, "CDEF:s_irq=s_iow,irq,+");
+				push(@tmp, "CDEF:s_sirq=s_irq,sirq,+");
+				push(@tmpz, "CDEF:s_sirq=s_irq,sirq,+");
+				push(@tmp, "CDEF:s_steal=s_sirq,steal,+");
+				push(@tmpz, "CDEF:s_steal=s_sirq,steal,+");
+				push(@tmp, "CDEF:s_guest=s_steal,guest,+");
+				push(@tmpz, "CDEF:s_guest=s_steal,guest,+");
+				if(lc($kern->{list}->{guest}) eq "y") {
+					push(@tmp, "AREA:s_guest#E29136:guest");
+					push(@tmpz, "AREA:s_guest#E29136:guest");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:guest:LAST:   Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:guest:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{steal}) eq "y") {
+					push(@tmp, "AREA:s_steal#888888:steal");
+					push(@tmpz, "AREA:s_steal#888888:steal");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:steal:LAST:   Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:steal:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{sirq}) eq "y") {
+					push(@tmp, "AREA:s_sirq#448844:softIRQ");
+					push(@tmpz, "AREA:s_sirq#448844:softIRQ");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:sirq:LAST: Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sirq:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{irq}) eq "y") {
+					push(@tmp, "AREA:s_irq#44EE44:IRQ");
+					push(@tmpz, "AREA:s_irq#44EE44:IRQ");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:irq:LAST:     Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:irq:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{iow}) eq "y") {
+					push(@tmp, "AREA:s_iow#EE44EE:I/O wait");
+					push(@tmpz, "AREA:s_iow#EE44EE:I/O wait");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:iow:LAST:Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:iow:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{sys}) eq "y") {
+					push(@tmp, "AREA:s_sys#44EEEE:system");
+					push(@tmpz, "AREA:s_sys#44EEEE:system");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:sys:LAST:  Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:sys:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{nice}) eq "y") {
+					push(@tmp, "AREA:s_nice#EEEE44:nice");
+					push(@tmpz, "AREA:s_nice#EEEE44:nice");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:nice:LAST:    Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:nice:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				if(lc($kern->{list}->{user}) eq "y") {
+					push(@tmp, "AREA:user#4444EE:user");
+					push(@tmpz, "AREA:user#4444EE:user");
+					if(lc($proc->{data}) eq "y") {
+						push(@tmp, "GPRINT:user:LAST:    Cur\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:AVERAGE:  Avg\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:MIN:  Min\\: %4.1lf%%");
+						push(@tmp, "GPRINT:user:MAX:  Max\\: %4.1lf%%\\n");
+					}
+				}
+				push(@tmp, "LINE1:s_guest#D86612");
+				push(@tmpz, "LINE1:s_guest#D86612");
+				push(@tmp, "LINE1:s_steal#CCCCCC");
+				push(@tmpz, "LINE1:s_steal#CCCCCC");
+				push(@tmp, "LINE1:s_sirq#1F881F");
+				push(@tmpz, "LINE1:s_sirq#1F881F");
+				push(@tmp, "LINE1:s_irq#00EE00");
+				push(@tmpz, "LINE1:s_irq#00EE00");
+				push(@tmp, "LINE1:s_iow#EE00EE");
+				push(@tmpz, "LINE1:s_iow#EE00EE");
+				push(@tmp, "LINE1:s_sys#00EEEE");
+				push(@tmpz, "LINE1:s_sys#00EEEE");
+				push(@tmp, "LINE1:s_nice#EEEE00");
+				push(@tmpz, "LINE1:s_nice#EEEE00");
+				push(@tmp, "LINE1:user#0000EE");
+				push(@tmpz, "LINE1:user#0000EE");
+			}
+			($width, $height) = split('x', $config->{graph_size}->{$proc->{size}});
+			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
+				"--title=$config->{graphs}->{_proc} $n  ($tf->{nwhen}$tf->{twhen})",
+				"--start=-$tf->{nwhen}$tf->{twhen}",
+				"--imgformat=PNG",
+				"--vertical-label=$vlabel",
+				"--width=$width",
+				"--height=$height",
+				@riglim,
+				"--lower-limit=0",
+				@{$cgi->{version12}},
+				@{$cgi->{version12_small}},
+				@{$colors->{graph_colors}},
+				"DEF:user=$rrd:proc" . $n . "_user:AVERAGE",
+				"DEF:nice=$rrd:proc" . $n . "_nice:AVERAGE",
+				"DEF:sys=$rrd:proc" . $n . "_sys:AVERAGE",
+				"DEF:iow=$rrd:proc" . $n . "_iow:AVERAGE",
+				"DEF:irq=$rrd:proc" . $n . "_irq:AVERAGE",
+				"DEF:sirq=$rrd:proc" . $n . "_sirq:AVERAGE",
+				"DEF:steal=$rrd:proc" . $n . "_steal:AVERAGE",
+				"DEF:guest=$rrd:proc" . $n . "_guest:AVERAGE",
+				@tmp);
+			$err = RRDs::error;
+			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
+			if(lc($config->{enable_zoom}) eq "y") {
+				($width, $height) = split('x', $config->{graph_size}->{zoom});
+				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
+					"--title=$config->{graphs}->{_proc} $n  ($tf->{nwhen}$tf->{twhen})",
+					"--start=-$tf->{nwhen}$tf->{twhen}",
+					"--imgformat=PNG",
+					"--vertical-label=$vlabel",
+					"--width=$width",
+					"--height=$height",
+					@riglim,
+					"--lower-limit=0",
+					@{$cgi->{version12}},
+					@{$cgi->{version12_small}},
+					@{$colors->{graph_colors}},
+					"DEF:user=$rrd:proc" . $n . "_user:AVERAGE",
+					"DEF:nice=$rrd:proc" . $n . "_nice:AVERAGE",
+					"DEF:sys=$rrd:proc" . $n . "_sys:AVERAGE",
+					"DEF:iow=$rrd:proc" . $n . "_iow:AVERAGE",
+					"DEF:irq=$rrd:proc" . $n . "_irq:AVERAGE",
+					"DEF:sirq=$rrd:proc" . $n . "_sirq:AVERAGE",
+					"DEF:steal=$rrd:proc" . $n . "_steal:AVERAGE",
+					"DEF:guest=$rrd:proc" . $n . "_guest:AVERAGE",
+					@tmpz);
+				$err = RRDs::error;
+				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
+			}
+			if($title || ($silent =~ /imagetag/ && $graph =~ /proc$n/)) {
+				if(lc($config->{enable_zoom}) eq "y") {
+					if(lc($config->{disable_javascript_void}) eq "y") {
+						print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+					else {
+						print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "' border='0'></a>\n");
+					}
+				} else {
+					print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG[$n] . "'>\n");
+				}
+			}
+			if($title) {
+				print("    </td>\n");
+			}
+			$n++;
+		}
+		if($title) {
+			print("    </tr>\n");
+		}
+	}
+	if($title) {
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/serv.pm b/lib/serv.pm
new file mode 100644
index 0000000..d80d765
--- /dev/null
+++ b/lib/serv.pm
@@ -0,0 +1,976 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package serv;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use POSIX qw(strftime);
+use Exporter 'import';
+our @EXPORT = qw(serv_init serv_update serv_cgi);
+
+sub serv_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=300",
+				"DS:serv_i_ssh:GAUGE:600:0:U",
+				"DS:serv_i_ftp:GAUGE:600:0:U",
+				"DS:serv_i_telnet:GAUGE:600:0:U",
+				"DS:serv_i_imap:GAUGE:600:0:U",
+				"DS:serv_i_smb:GAUGE:600:0:U",
+				"DS:serv_i_fax:GAUGE:600:0:U",
+				"DS:serv_i_cups:GAUGE:600:0:U",
+				"DS:serv_i_pop3:GAUGE:600:0:U",
+				"DS:serv_i_smtp:GAUGE:600:0:U",
+				"DS:serv_i_spam:GAUGE:600:0:U",
+				"DS:serv_i_virus:GAUGE:600:0:U",
+				"DS:serv_i_f2b:GAUGE:600:0:U",
+				"DS:serv_i_val02:GAUGE:600:0:U",
+				"DS:serv_i_val03:GAUGE:600:0:U",
+				"DS:serv_i_val04:GAUGE:600:0:U",
+				"DS:serv_i_val05:GAUGE:600:0:U",
+				"DS:serv_l_ssh:GAUGE:600:0:U",
+				"DS:serv_l_ftp:GAUGE:600:0:U",
+				"DS:serv_l_telnet:GAUGE:600:0:U",
+				"DS:serv_l_imap:GAUGE:600:0:U",
+				"DS:serv_l_smb:GAUGE:600:0:U",
+				"DS:serv_l_fax:GAUGE:600:0:U",
+				"DS:serv_l_cups:GAUGE:600:0:U",
+				"DS:serv_l_pop3:GAUGE:600:0:U",
+				"DS:serv_l_smtp:GAUGE:600:0:U",
+				"DS:serv_l_spam:GAUGE:600:0:U",
+				"DS:serv_l_virus:GAUGE:600:0:U",
+				"DS:serv_l_f2b:GAUGE:600:0:U",
+				"DS:serv_l_val02:GAUGE:600:0:U",
+				"DS:serv_l_val03:GAUGE:600:0:U",
+				"DS:serv_l_val04:GAUGE:600:0:U",
+				"DS:serv_l_val05:GAUGE:600:0:U",
+				"RRA:AVERAGE:0.5:1:288",
+				"RRA:AVERAGE:0.5:6:336",
+				"RRA:AVERAGE:0.5:12:744",
+				"RRA:AVERAGE:0.5:288:365",
+				"RRA:MIN:0.5:1:288",
+				"RRA:MIN:0.5:6:336",
+				"RRA:MIN:0.5:12:744",
+				"RRA:MIN:0.5:288:365",
+				"RRA:MAX:0.5:1:288",
+				"RRA:MAX:0.5:6:336",
+				"RRA:MAX:0.5:12:744",
+				"RRA:MAX:0.5:288:365",
+				"RRA:LAST:0.5:1:288",
+				"RRA:LAST:0.5:6:336",
+				"RRA:LAST:0.5:12:744",
+				"RRA:LAST:0.5:288:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{serv_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub serv_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	my $ssh = 0;
+	my $ftp = 0;
+	my $telnet = 0;
+	my $imap = 0;
+	my $smb = 0;
+	my $fax = 0;
+	my $cups = 0;
+	my $pop3 = 0;
+	my $smtp = 0;
+	my $spam = 0;
+	my $virus = 0;
+	my $f2b = 0;
+	my $val02 = 0;
+	my $val03 = 0;
+	my $val04 = 0;
+	my $val05 = 0;
+
+	my $date;
+	my $rrdata = "N";
+
+	# This graph is refreshed only every 5 minutes
+	my (undef, $min) = localtime(time);
+	return if($min % 5);
+
+	if(-r $config->{secure_log}) {
+		$date = strftime("%b %e", localtime);
+		open(IN, "$config->{secure_log}");
+		while(<IN>) {
+			if(/^$date/) {
+				if(/ sshd\[/ && /Accepted /) {
+					$ssh++;
+				}
+				if($config->{os} eq "Linux") {
+					if(/START: pop3/) {
+						$pop3++;
+					}
+					if(/START: ftp/ ||
+					  (/ proftpd\[/ && /Login successful./)) {
+						$ftp++;
+					}
+					if(/START: telnet/) {
+						$telnet++;
+					}
+				} elsif($config->{os} eq "FreeBSD") {
+
+					if(/login:/ && /login from /) {
+						$telnet++;
+					}
+				}
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{imap_log}) {
+		$config->{imap_date_log_format} = $config->{imap_date_log_format} || "%b %d";
+		my $date_dovecot = strftime($config->{imap_date_log_format}, localtime);
+		my $date_uw = strftime("%b %e %T", localtime);
+		open(IN, "$config->{imap_log}");
+		while(<IN>) {
+			# UW-IMAP log
+			if(/$date_uw/) {
+				if(/ imapd\[/ && / Login user=/) {
+					$imap++;
+				}
+			}
+			# Dovecot log
+			if(/$date_dovecot /) {
+				if(/ imap-login: / && / Login: /) {
+					$imap++;
+				}
+				if(/ pop3-login: / && / Login: /) {
+					$pop3++;
+				}
+			}
+		}
+		close(IN);
+	}
+
+	my $smb_L = 0;
+	open(IN, "smbstatus -L 2>/dev/null |");
+	while(<IN>) {
+		if(/^----------/) {
+			$smb_L++;
+			next;
+		}
+		if($smb_L) {
+			$smb_L++ unless !$_;
+		}
+	}
+	close(IN);
+	$smb_L--;
+	my $smb_S = 0;
+	open(IN, "smbstatus -S 2>/dev/null |");
+	while(<IN>) {
+		if(/^----------/) {
+			$smb_S++;
+			next;
+		}
+		if($smb_S) {
+			$smb_S++ unless !$_;
+		}
+	}
+	close(IN);
+	$smb_S--;
+	$smb = $smb_L + $smb_S;
+
+	if(-r $config->{hylafax_log}) {
+		$date = strftime("%m/%d/%y", localtime);
+		open(IN, "$config->{hylafax_log}");
+		while(<IN>) {
+			if(/^$date/ && /SEND/) {
+				$fax++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{cups_log}) {
+		$date = strftime("%d/%b/%Y", localtime);
+		open(IN, "$config->{cups_log}");
+		while(<IN>) {
+			if(/\[$date:/) {
+				$cups++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{fail2ban_log}) {
+		$date = strftime("%Y-%m-%d", localtime);
+		open(IN, $config->{fail2ban_log});
+		while(<IN>) {
+			if(/^$date/ && / fail2ban/ && / WARNING / && / Ban /) {
+				$f2b++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{mail_log}) {
+		$date = strftime("%b %e", localtime);
+		open(IN, "$config->{mail_log}");
+		while(<IN>) {
+			if(/^$date/) {
+				if(/to=/ && /stat(us)?=sent/i) {
+					$smtp++;	
+				}
+				if(/MailScanner/ && /Spam Checks:/ && /Found/ && /spam messages/) {
+					$spam++;
+				}
+				if(/MailScanner/ && /Virus Scanning:/ && /Found/ && /viruses/) {
+					$virus++;
+				}
+			}
+		}
+		close(IN);
+	}
+
+	$date = strftime("%Y-%m-%d", localtime);
+	if(-r "$config->{cg_logdir}/$date.log") {
+		open(IN, "$config->{cg_logdir}/$date.log");
+		while(<IN>) {
+			if(/DEQUEUER \[\d+\] (LOCAL\(.+\) delivered|SMTP.+ relayed)\:/) {
+				$smtp++;
+			}
+			if(/IMAP/ && / connected from /) {
+				$imap++;
+			}
+			if(/POP/ && / connected from /) {
+				$pop3++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{spamassassin_log}) {
+		$date = strftime("%b %e", localtime);
+		open(IN, $config->{spamassassin_log});
+		while(<IN>) {
+			if(/^$date/ && /spamd: identified spam/) {
+				$spam++;
+			}
+		}
+		close(IN);
+	}
+
+	if(-r $config->{clamav_log}) {
+		$date = strftime("%a %b %e", localtime);
+		open(IN, $config->{clamav_log});
+		while(<IN>) {
+			if(/^$date/ && / FOUND/) {
+				$virus++;
+			}
+		}
+		close(IN);
+	}
+
+	# I data (incremental)
+	$rrdata .= ":$ssh:$ftp:$telnet:$imap:$smb:$fax:$cups:$pop3:$smtp:$spam:$virus:$f2b:$val02:$val03:$val04:$val05";
+
+	# L data (load)
+	my $l_ssh = 0;
+	my $l_ftp = 0;
+	my $l_telnet = 0;
+	my $l_imap = 0;
+	my $l_smb = 0;
+	my $l_fax = 0;
+	my $l_cups = 0;
+	my $l_pop3 = 0;
+	my $l_smtp = 0;
+	my $l_spam = 0;
+	my $l_virus = 0;
+	my $l_f2b = 0;
+	my $l_val02 = 0;
+	my $l_val03 = 0;
+	my $l_val04 = 0;
+	my $l_val05 = 0;
+
+	$l_ssh = $ssh - ($config->{serv_hist}->{'ssh'} || 0);
+	$l_ssh = 0 unless $l_ssh != $ssh;
+	$l_ssh /= 300;
+	$config->{serv_hist}->{'ssh'} = $ssh;
+
+	$l_ftp = $ftp - ($config->{serv_hist}->{'ftp'} || 0);
+	$l_ftp = 0 unless $l_ftp != $ftp;
+	$l_ftp /= 300;
+	$config->{serv_hist}->{'ftp'} = $ftp;
+
+	$l_telnet = $telnet - ($config->{serv_hist}->{'telnet'} || 0);
+	$l_telnet = 0 unless $l_telnet != $telnet;
+	$l_telnet /= 300;
+	$config->{serv_hist}->{'telnet'} = $telnet;
+
+	$l_imap = $imap - ($config->{serv_hist}->{'imap'} || 0);
+	$l_imap = 0 unless $l_imap != $imap;
+	$l_imap /= 300;
+	$config->{serv_hist}->{'imap'} = $imap;
+
+	$l_smb = $smb - ($config->{serv_hist}->{'smb'} || 0);
+	$l_smb = 0 unless $l_smb != $smb;
+	$l_smb /= 300;
+	$config->{serv_hist}->{'smb'} = $smb;
+
+	$l_fax = $fax - ($config->{serv_hist}->{'fax'} || 0);
+	$l_fax = 0 unless $l_fax != $fax;
+	$l_fax /= 300;
+	$config->{serv_hist}->{'fax'} = $fax;
+
+	$l_cups = $cups - ($config->{serv_hist}->{'cups'} || 0);
+	$l_cups = 0 unless $l_cups != $cups;
+	$l_cups /= 300;
+	$config->{serv_hist}->{'cups'} = $cups;
+
+	$l_pop3 = $pop3 - ($config->{serv_hist}->{'pop3'} || 0);
+	$l_pop3 = 0 unless $l_pop3 != $pop3;
+	$l_pop3 /= 300;
+	$config->{serv_hist}->{'pop3'} = $pop3;
+
+	$l_smtp = $smtp - ($config->{serv_hist}->{'smtp'} || 0);
+	$l_smtp = 0 unless $l_smtp != $smtp;
+	$l_smtp /= 300;
+	$config->{serv_hist}->{'smtp'} = $smtp;
+
+	$l_spam = $spam - ($config->{serv_hist}->{'spam'} || 0);
+	$l_spam = 0 unless $l_spam != $spam;
+	$l_spam /= 300;
+	$config->{serv_hist}->{'spam'} = $spam;
+
+	$l_virus = $virus - ($config->{serv_hist}->{'virus'} || 0);
+	$l_virus = 0 unless $l_virus != $virus;
+	$l_virus /= 300;
+	$config->{serv_hist}->{'virus'} = $virus;
+
+	$l_f2b = $f2b - ($config->{serv_hist}->{'f2b'} || 0);
+	$l_f2b = 0 unless $l_f2b != $f2b;
+	$l_f2b /= 300;
+	$config->{serv_hist}->{'f2b'} = $f2b;
+
+	$l_val02 = $val02 - ($config->{serv_hist}->{'val02'} || 0);
+	$l_val02 = 0 unless $l_val02 != $val02;
+	$l_val02 /= 300;
+	$config->{serv_hist}->{'val02'} = $val02;
+
+	$l_val03 = $val03 - ($config->{serv_hist}->{'val03'} || 0);
+	$l_val03 = 0 unless $l_val03 != $val03;
+	$l_val03 /= 300;
+	$config->{serv_hist}->{'val03'} = $val03;
+
+	$l_val04 = $val04 - ($config->{serv_hist}->{'val04'} || 0);
+	$l_val04 = 0 unless $l_val04 != $val04;
+	$l_val04 /= 300;
+	$config->{serv_hist}->{'val04'} = $val04;
+
+	$l_val05 = $val05 - ($config->{serv_hist}->{'val05'} || 0);
+	$l_val05 = 0 unless $l_val05 != $val05;
+	$l_val05 /= 300;
+	$config->{serv_hist}->{'val05'} = $val05;
+
+	$rrdata .= ":$l_ssh:$l_ftp:$l_telnet:$l_imap:$l_smb:$l_fax:$l_cups:$l_pop3:$l_smtp:$l_spam:$l_virus:$l_f2b:$l_val02:$l_val03:$l_val04:$l_val05";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub serv_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $serv = $config->{serv};
+	my @rigid = split(',', $serv->{rigid});
+	my @limit = split(',', $serv->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my $vlabel;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $str;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		if(lc($serv->{mode}) eq "i") {
+			print "Values expressed as incremental or cumulative hits.\n";
+		}
+		print("Time    SSH     FTP  Telnet   Samba     Fax    CUPS     F2B    IMAP    POP3    SMTP    Spam   Virus\n");
+		print("--------------------------------------------------------------------------------------------------- \n");
+		my $line;
+		my @row;
+		my $time;
+		my $from = 0;
+		my $to;
+		if(lc($serv->{mode}) eq "l") {
+			$from = 15;
+		}
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			$time = $time - (1 / $tf->{ts});
+			$to = $from + 10;
+			my ($ssh, $ftp, $telnet, $imap, $smb, $fax, $cups, $pop3, $smtp, $spam, $virus, $f2b) = @$line[$from..$to];
+			@row = ($ssh, $ftp, $telnet, $imap, $smb, $fax, $cups, $f2b, $pop3, $smtp, $spam, $virus);
+			if(lc($serv->{mode}) eq "i") {
+				printf(" %2d$tf->{tc} %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d\n", $time, @row);
+			} elsif(lc($serv->{mode}) eq "l") {
+				printf(" %2d$tf->{tc} %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f\n", $time, @row);
+			}
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if(lc($serv->{mode}) eq "l") {
+		$vlabel = "Accesses/s";
+		push(@tmp, "AREA:l_ssh#4444EE:SSH");
+		push(@tmp, "GPRINT:l_ssh:LAST:        Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ssh:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ssh:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ssh:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_ftp#44EE44:FTP");
+		push(@tmp, "GPRINT:l_ftp:LAST:        Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ftp:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ftp:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_ftp:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_telnet#EE44EE:Telnet");
+		push(@tmp, "GPRINT:l_telnet:LAST:     Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_telnet:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_telnet:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_telnet:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_smb#EEEE44:Samba");
+		push(@tmp, "GPRINT:l_smb:LAST:      Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_smb:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_smb:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_smb:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_fax#FFA500:Fax");
+		push(@tmp, "GPRINT:l_fax:LAST:        Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_fax:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_fax:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_fax:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_cups#444444:CUPS");
+		push(@tmp, "GPRINT:l_cups:LAST:       Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_cups:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_cups:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_cups:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "AREA:l_f2b#EE4444:Fail2ban");
+		push(@tmp, "GPRINT:l_f2b:LAST:   Current\\: %3.2lf");
+		push(@tmp, "GPRINT:l_f2b:AVERAGE:   Average\\: %3.2lf");
+		push(@tmp, "GPRINT:l_f2b:MIN:   Min\\: %3.2lf");
+		push(@tmp, "GPRINT:l_f2b:MAX:   Max\\: %3.2lf\\n");
+		push(@tmp, "LINE2:l_ssh#4444EE");
+		push(@tmp, "LINE2:l_ftp#44EE44");
+		push(@tmp, "LINE2:l_telnet#EE44EE");
+		push(@tmp, "LINE2:l_smb#EEEE44");
+		push(@tmp, "LINE2:l_fax#FFA500");
+		push(@tmp, "LINE2:l_cups#444444");
+		push(@tmp, "LINE2:l_f2b#EE4444");
+		push(@tmp, "COMMENT: \\n");
+
+		push(@tmpz, "AREA:l_ssh#4444EE:SSH");
+		push(@tmpz, "AREA:l_ftp#44EE44:FTP");
+		push(@tmpz, "AREA:l_telnet#EE44EE:Telnet");
+		push(@tmpz, "AREA:l_smb#EEEE44:Samba");
+		push(@tmpz, "AREA:l_fax#FFA500:Fax");
+		push(@tmpz, "AREA:l_cups#444444:CUPS");
+		push(@tmpz, "AREA:l_f2b#EE4444:Fail2ban");
+		push(@tmpz, "LINE2:l_ssh#4444EE");
+		push(@tmpz, "LINE2:l_ftp#44EE44");
+		push(@tmpz, "LINE2:l_telnet#EE44EE");
+		push(@tmpz, "LINE2:l_smb#EEEE44");
+		push(@tmpz, "LINE2:l_fax#FFA500");
+		push(@tmpz, "LINE2:l_cups#444444");
+		push(@tmpz, "LINE2:l_f2b#EE4444");
+	} else {
+		$vlabel = "Incremental hits";
+		push(@tmp, "AREA:i_ssh#4444EE:SSH");
+		push(@tmp, "GPRINT:i_ssh:LAST:        Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ssh:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ssh:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ssh:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_ftp#44EE44:FTP");
+		push(@tmp, "GPRINT:i_ftp:LAST:        Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ftp:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ftp:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_ftp:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_telnet#EE44EE:Telnet");
+		push(@tmp, "GPRINT:i_telnet:LAST:     Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_telnet:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_telnet:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_telnet:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_smb#EEEE44:Samba");
+		push(@tmp, "GPRINT:i_smb:LAST:      Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_smb:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_smb:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_smb:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_fax#FFA500:Fax");
+		push(@tmp, "GPRINT:i_fax:LAST:        Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_fax:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_fax:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_fax:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_cups#444444:CUPS");
+		push(@tmp, "GPRINT:i_cups:LAST:       Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_cups:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_cups:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_cups:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_f2b#EE4444:Fail2ban");
+		push(@tmp, "GPRINT:i_f2b:LAST:   Current\\: %5.0lf");
+		push(@tmp, "GPRINT:i_f2b:AVERAGE:   Average\\: %5.0lf");
+		push(@tmp, "GPRINT:i_f2b:MIN:   Min\\: %5.0lf");
+		push(@tmp, "GPRINT:i_f2b:MAX:   Max\\: %5.0lf\\n");
+		push(@tmp, "LINE2:i_ssh#4444EE");
+		push(@tmp, "LINE2:i_ftp#44EE44");
+		push(@tmp, "LINE2:i_telnet#EE44EE");
+		push(@tmp, "LINE2:i_smb#EEEE44");
+		push(@tmp, "LINE2:i_fax#FFA500");
+		push(@tmp, "LINE2:i_cups#444444");
+		push(@tmp, "LINE2:i_f2b#EE4444");
+		push(@tmp, "COMMENT: \\n");
+
+		push(@tmpz, "AREA:i_ssh#4444EE:SSH");
+		push(@tmpz, "AREA:i_ftp#44EE44:FTP");
+		push(@tmpz, "AREA:i_telnet#EE44EE:Telnet");
+		push(@tmpz, "AREA:i_smb#EEEE44:Samba");
+		push(@tmpz, "AREA:i_fax#FFA500:Fax");
+		push(@tmpz, "AREA:i_cups#444444:CUPS");
+		push(@tmpz, "AREA:i_f2b#EE4444:Fail2ban");
+		push(@tmpz, "LINE2:i_ssh#4444EE");
+		push(@tmpz, "LINE2:i_ftp#44EE44");
+		push(@tmpz, "LINE2:i_telnet#EE44EE");
+		push(@tmpz, "LINE2:i_smb#EEEE44");
+		push(@tmpz, "LINE2:i_fax#FFA500");
+		push(@tmpz, "LINE2:i_cups#444444");
+		push(@tmpz, "LINE2:i_f2b#EE4444");
+	}
+
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_serv1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:i_ssh=$rrd:serv_i_ssh:AVERAGE",
+		"DEF:i_ftp=$rrd:serv_i_ftp:AVERAGE",
+		"DEF:i_telnet=$rrd:serv_i_telnet:AVERAGE",
+		"DEF:i_imap=$rrd:serv_i_imap:AVERAGE",
+		"DEF:i_smb=$rrd:serv_i_smb:AVERAGE",
+		"DEF:i_fax=$rrd:serv_i_fax:AVERAGE",
+		"DEF:i_cups=$rrd:serv_i_cups:AVERAGE",
+		"DEF:i_f2b=$rrd:serv_i_f2b:AVERAGE",
+		"DEF:l_ssh=$rrd:serv_l_ssh:AVERAGE",
+		"DEF:l_ftp=$rrd:serv_l_ftp:AVERAGE",
+		"DEF:l_telnet=$rrd:serv_l_telnet:AVERAGE",
+		"DEF:l_imap=$rrd:serv_l_imap:AVERAGE",
+		"DEF:l_smb=$rrd:serv_l_smb:AVERAGE",
+		"DEF:l_fax=$rrd:serv_l_fax:AVERAGE",
+		"DEF:l_cups=$rrd:serv_l_cups:AVERAGE",
+		"DEF:l_f2b=$rrd:serv_l_f2b:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_serv1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:i_ssh=$rrd:serv_i_ssh:AVERAGE",
+			"DEF:i_ftp=$rrd:serv_i_ftp:AVERAGE",
+			"DEF:i_telnet=$rrd:serv_i_telnet:AVERAGE",
+			"DEF:i_imap=$rrd:serv_i_imap:AVERAGE",
+			"DEF:i_smb=$rrd:serv_i_smb:AVERAGE",
+			"DEF:i_fax=$rrd:serv_i_fax:AVERAGE",
+			"DEF:i_cups=$rrd:serv_i_cups:AVERAGE",
+			"DEF:i_f2b=$rrd:serv_i_f2b:AVERAGE",
+			"DEF:l_ssh=$rrd:serv_l_ssh:AVERAGE",
+			"DEF:l_ftp=$rrd:serv_l_ftp:AVERAGE",
+			"DEF:l_telnet=$rrd:serv_l_telnet:AVERAGE",
+			"DEF:l_imap=$rrd:serv_l_imap:AVERAGE",
+			"DEF:l_smb=$rrd:serv_l_smb:AVERAGE",
+			"DEF:l_fax=$rrd:serv_l_fax:AVERAGE",
+			"DEF:l_cups=$rrd:serv_l_cups:AVERAGE",
+			"DEF:l_f2b=$rrd:serv_l_f2b:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /serv1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	if(lc($serv->{mode}) eq "l") {
+		$vlabel = "Accesses/s";
+		push(@tmp, "AREA:l_imap#4444EE:IMAP");
+		push(@tmp, "GPRINT:l_imap:LAST:                 Current\\: %4.2lf\\n");
+		push(@tmp, "AREA:l_pop3#44EE44:POP3");
+		push(@tmp, "GPRINT:l_pop3:LAST:                 Current\\: %4.2lf\\n");
+		push(@tmp, "LINE1:l_imap#4444EE:");
+		push(@tmp, "LINE1:l_pop3#44EE44:");
+		push(@tmpz, "AREA:l_imap#4444EE:IMAP");
+		push(@tmpz, "AREA:l_pop3#44EE44:POP3");
+		push(@tmpz, "LINE2:l_imap#4444EE:");
+		push(@tmpz, "LINE2:l_pop3#44EE44:");
+	} else {
+		$vlabel = "Incremental hits";
+		push(@tmp, "AREA:i_imap#4444EE:IMAP");
+		push(@tmp, "GPRINT:i_imap:LAST:                 Current\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_pop3#44EE44:POP3");
+		push(@tmp, "GPRINT:i_pop3:LAST:                 Current\\: %5.0lf\\n");
+		push(@tmp, "LINE1:i_imap#4444EE:");
+		push(@tmp, "LINE1:i_pop3#44EE44:");
+		push(@tmpz, "AREA:i_imap#4444EE:IMAP");
+		push(@tmpz, "AREA:i_pop3#44EE44:POP3");
+		push(@tmpz, "LINE2:i_imap#4444EE:");
+		push(@tmpz, "LINE2:i_pop3#44EE44:");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_serv2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:i_imap=$rrd:serv_i_imap:AVERAGE",
+		"DEF:l_imap=$rrd:serv_l_imap:AVERAGE",
+		"DEF:i_pop3=$rrd:serv_i_pop3:AVERAGE",
+		"DEF:l_pop3=$rrd:serv_l_pop3:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_serv2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:i_imap=$rrd:serv_i_imap:AVERAGE",
+			"DEF:l_imap=$rrd:serv_l_imap:AVERAGE",
+			"DEF:i_pop3=$rrd:serv_i_pop3:AVERAGE",
+			"DEF:l_pop3=$rrd:serv_l_pop3:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /serv2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	if(lc($serv->{mode}) eq "l") {
+		$vlabel = "Accesses/s";
+		push(@tmp, "AREA:l_smtp#44EEEE:SMTP");
+		push(@tmp, "GPRINT:l_smtp:LAST:                 Current\\: %4.2lf\\n");
+		push(@tmp, "AREA:l_spam#EEEE44:Spam");
+		push(@tmp, "GPRINT:l_spam:LAST:                 Current\\: %4.2lf\\n");
+		push(@tmp, "AREA:l_virus#EE4444:Virus");
+		push(@tmp, "GPRINT:l_virus:LAST:                Current\\: %4.2lf\\n");
+		push(@tmp, "LINE2:l_smtp#44EEEE");
+		push(@tmp, "LINE2:l_spam#EEEE44");
+		push(@tmp, "LINE2:l_virus#EE4444");
+
+		push(@tmpz, "AREA:l_smtp#44EEEE:SMTP");
+		push(@tmpz, "AREA:l_spam#EEEE44:Spam");
+		push(@tmpz, "AREA:l_virus#EE4444:Virus");
+		push(@tmpz, "LINE2:l_smtp#44EEEE");
+		push(@tmpz, "LINE2:l_spam#EEEE44");
+		push(@tmpz, "LINE2:l_virus#EE4444");
+	} else {
+		$vlabel = "Incremental hits";
+		push(@tmp, "AREA:i_smtp#44EEEE:SMTP");
+		push(@tmp, "GPRINT:i_smtp:LAST:                 Current\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_spam#EEEE44:Spam");
+		push(@tmp, "GPRINT:i_spam:LAST:                 Current\\: %5.0lf\\n");
+		push(@tmp, "AREA:i_virus#EE4444:Virus");
+		push(@tmp, "GPRINT:i_virus:LAST:                Current\\: %5.0lf\\n");
+		push(@tmp, "LINE2:i_smtp#44EEEE");
+		push(@tmp, "LINE2:i_spam#EEEE44");
+		push(@tmp, "LINE2:i_virus#EE4444");
+
+		push(@tmpz, "AREA:i_smtp#44EEEE:SMTP");
+		push(@tmpz, "AREA:i_spam#EEEE44:Spam");
+		push(@tmpz, "AREA:i_virus#EE4444:Virus");
+		push(@tmpz, "LINE2:i_smtp#44EEEE");
+		push(@tmpz, "LINE2:i_spam#EEEE44");
+		push(@tmpz, "LINE2:i_virus#EE4444");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_serv3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=$vlabel",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:i_smtp=$rrd:serv_i_smtp:AVERAGE",
+		"DEF:i_spam=$rrd:serv_i_spam:AVERAGE",
+		"DEF:i_virus=$rrd:serv_i_virus:AVERAGE",
+		"DEF:l_smtp=$rrd:serv_l_smtp:AVERAGE",
+		"DEF:l_spam=$rrd:serv_l_spam:AVERAGE",
+		"DEF:l_virus=$rrd:serv_l_virus:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		undef(@tmp);
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_serv3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=$vlabel",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:i_smtp=$rrd:serv_i_smtp:AVERAGE",
+			"DEF:i_spam=$rrd:serv_i_spam:AVERAGE",
+			"DEF:i_virus=$rrd:serv_i_virus:AVERAGE",
+			"DEF:l_smtp=$rrd:serv_l_smtp:AVERAGE",
+			"DEF:l_spam=$rrd:serv_l_spam:AVERAGE",
+			"DEF:l_virus=$rrd:serv_l_virus:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /serv3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/squid.pm b/lib/squid.pm
new file mode 100644
index 0000000..2fba393
--- /dev/null
+++ b/lib/squid.pm
@@ -0,0 +1,1463 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package squid;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(squid_init squid_update squid_cgi);
+
+sub squid_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:squid_g1_1:GAUGE:120:0:U",
+				"DS:squid_g1_2:GAUGE:120:0:U",
+				"DS:squid_g1_3:GAUGE:120:0:U",
+				"DS:squid_g1_4:GAUGE:120:0:U",
+				"DS:squid_g1_5:GAUGE:120:0:U",
+				"DS:squid_g1_6:GAUGE:120:0:U",
+				"DS:squid_g1_7:GAUGE:120:0:U",
+				"DS:squid_g1_8:GAUGE:120:0:U",
+				"DS:squid_g1_9:GAUGE:120:0:U",
+				"DS:squid_g2_1:GAUGE:120:0:U",
+				"DS:squid_g2_2:GAUGE:120:0:U",
+				"DS:squid_g2_3:GAUGE:120:0:U",
+				"DS:squid_g2_4:GAUGE:120:0:U",
+				"DS:squid_g2_5:GAUGE:120:0:U",
+				"DS:squid_g2_6:GAUGE:120:0:U",
+				"DS:squid_g2_7:GAUGE:120:0:U",
+				"DS:squid_g2_8:GAUGE:120:0:U",
+				"DS:squid_g2_9:GAUGE:120:0:U",
+				"DS:squid_rq_1:GAUGE:120:0:U",
+				"DS:squid_rq_2:GAUGE:120:0:U",
+				"DS:squid_rq_3:GAUGE:120:0:U",
+				"DS:squid_rq_4:GAUGE:120:0:U",
+				"DS:squid_rq_5:GAUGE:120:0:U",
+				"DS:squid_rq_6:GAUGE:120:0:U",
+				"DS:squid_rq_7:GAUGE:120:0:U",
+				"DS:squid_rq_8:GAUGE:120:0:U",
+				"DS:squid_rq_9:GAUGE:120:0:U",
+				"DS:squid_m_1:GAUGE:120:0:U",
+				"DS:squid_m_2:GAUGE:120:0:U",
+				"DS:squid_m_3:GAUGE:120:0:U",
+				"DS:squid_m_4:GAUGE:120:0:U",
+				"DS:squid_m_5:GAUGE:120:0:U",
+				"DS:squid_ic_1:GAUGE:120:0:U",
+				"DS:squid_ic_2:GAUGE:120:0:U",
+				"DS:squid_ic_3:GAUGE:120:0:U",
+				"DS:squid_ic_4:GAUGE:120:0:U",
+				"DS:squid_ic_5:GAUGE:120:0:U",
+				"DS:squid_io_1:GAUGE:120:0:U",
+				"DS:squid_io_2:GAUGE:120:0:U",
+				"DS:squid_io_3:GAUGE:120:0:U",
+				"DS:squid_io_4:GAUGE:120:0:U",
+				"DS:squid_io_5:GAUGE:120:0:U",
+				"DS:squid_s_1:GAUGE:120:0:U",
+				"DS:squid_s_2:GAUGE:120:0:U",
+				"DS:squid_s_3:GAUGE:120:0:U",
+				"DS:squid_s_4:GAUGE:120:0:U",
+				"DS:squid_s_5:GAUGE:120:0:U",
+				"DS:squid_tc_1:GAUGE:120:0:U",
+				"DS:squid_tc_2:GAUGE:120:0:U",
+				"DS:squid_tc_3:GAUGE:120:0:U",
+				"DS:squid_ts_1:GAUGE:120:0:U",
+				"DS:squid_ts_2:GAUGE:120:0:U",
+				"DS:squid_ts_3:GAUGE:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	$config->{squid_hist} = ();
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub squid_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $squid = $config->{squid};
+
+	my %g12 = ();
+	my $seek_pos;
+	my $logsize;
+	my @data;
+	my $all;
+	my $value;
+	my $g_result;
+	my $g_status;
+
+	my $rq_client_http_req;
+	my $rq_client_http_hit;
+	my $rq_server_http_req;
+	my $rq_server_ftp_req;
+	my $rq_server_other_req;
+	my $rq_aborted_req;
+	my $rq_swap_files_cleaned;
+	my $rq_unlink_requests;
+
+	my $tc_client_http_in;
+	my $tc_client_http_out;
+	my $ts_server_all_in;
+	my $ts_server_all_out;
+
+	my $m_alloc;
+	my $m_inuse;
+
+	my $ic_requests;
+	my $ic_hits;
+	my $ic_misses;
+
+	my $io_http;
+	my $io_ftp;
+	my $io_gopher;
+	my $io_wais;
+
+	my $s_entries;
+	my $s_maximum;
+	my $s_current;
+
+	my $n;
+	my $rrdata = "N";
+
+	$seek_pos = $config->{squid_hist}->{'seek_pos'} || 0;
+	open(IN, $config->{squid_log});
+	if(!seek(IN, 0, 2)) {
+		logger("Couldn't seek to the end ($config->{squid_log}): $!");
+		return;
+	}
+	$logsize = tell(IN);
+	if($logsize < $seek_pos) {
+		$seek_pos = 0;
+	}
+	if(!seek(IN, $seek_pos, 0)) {
+		logger("Couldn't seek to $seek_pos ($config->{squid_log}): $!");
+		return;
+	}
+	if(defined($config->{squid_hist}->{'seek_pos'})) {	# avoid initial spike
+		while(<IN>) {
+			(undef, undef, undef, $value) = split(' ', $_);
+			($g_result, $g_status) = split('/', $value);
+			$g12{$g_result}++;
+			$g12{$g_status}++;
+		}
+	}
+	close(IN);
+	foreach my $code (my @sl = split(',', $squid->{graph_0})) {
+		$code = trim($code);
+		$rrdata .= ":";
+		$rrdata .= defined($g12{$code}) ? int($g12{$code}) : 0;
+	}
+	foreach my $code (my @sl = split(',', $squid->{graph_1})) {
+		$code = trim($code);
+		$rrdata .= ":";
+		$rrdata .= defined($g12{$code}) ? int($g12{$code}) : 0;
+	}
+	$config->{squid_hist}->{'seek_pos'} = $logsize;
+
+	open(IN, "$squid->{cmd} mgr:counters |");
+	while(<IN>) {
+		if(/^client_http\.requests = (\d+)$/) {
+			$rq_client_http_req = $1 - ($config->{squid_hist}->{'rq_client_http_req'} || 0);
+			$rq_client_http_req = 0 unless $rq_client_http_req != $1;
+			$rq_client_http_req /= 60;
+			$config->{squid_hist}->{'rq_client_http_req'} = $1;
+			next;
+		}
+		if(/^client_http\.hits = (\d+)$/) {
+			$rq_client_http_hit = $1 - ($config->{squid_hist}->{'rq_client_http_hit'} || 0);
+			$rq_client_http_hit = 0 unless $rq_client_http_hit != $1;
+			$rq_client_http_hit /= 60;
+			$config->{squid_hist}->{'rq_client_http_hit'} = $1;
+			next;
+		}
+		if(/^client_http\.kbytes_in = (\d+)$/) {
+			$tc_client_http_in = $1 - ($config->{squid_hist}->{'tc_client_http_in'} || 0);
+			$tc_client_http_in = 0 unless $tc_client_http_in != $1;
+			$tc_client_http_in *= 1024;
+			$tc_client_http_in /= 60;
+			$config->{squid_hist}->{'tc_client_http_in'} = $1;
+			next;
+		}
+		if(/^client_http\.kbytes_out = (\d+)$/) {
+			$tc_client_http_out = $1 - ($config->{squid_hist}->{'tc_client_http_out'} || 0);
+			$tc_client_http_out = 0 unless $tc_client_http_out != $1;
+			$tc_client_http_out *= 1024;
+			$tc_client_http_out /= 60;
+			$config->{squid_hist}->{'tc_client_http_out'} = $1;
+			next;
+		}
+		if(/^server\.all\.kbytes_in = (\d+)$/) {
+			$ts_server_all_in = $1 - ($config->{squid_hist}->{'ts_server_all_in'} || 0);
+			$ts_server_all_in = 0 unless $ts_server_all_in != $1;
+			$ts_server_all_in *= 1024;
+			$ts_server_all_in /= 60;
+			$config->{squid_hist}->{'ts_server_all_in'} = $1;
+			next;
+		}
+		if(/^server\.all\.kbytes_out = (\d+)$/) {
+			$ts_server_all_out = $1 - ($config->{squid_hist}->{'ts_server_all_out'} || 0);
+			$ts_server_all_out = 0 unless $ts_server_all_out != $1;
+			$ts_server_all_out *= 1024;
+			$ts_server_all_out /= 60;
+			$config->{squid_hist}->{'ts_server_all_out'} = $1;
+			next;
+		}
+		if(/^server\.http\.requests = (\d+)$/) {
+			$rq_server_http_req = $1 - ($config->{squid_hist}->{'rq_server_http_req'} || 0);
+			$rq_server_http_req = 0 unless $rq_server_http_req != $1;
+			$rq_server_http_req /= 60;
+			$config->{squid_hist}->{'rq_server_http_req'} = $1;
+			next;
+		}
+		if(/^server\.ftp\.requests = (\d+)$/) {
+			$rq_server_ftp_req = $1 - ($config->{squid_hist}->{'rq_server_ftp_req'} || 0);
+			$rq_server_ftp_req = 0 unless $rq_server_ftp_req != $1;
+			$rq_server_ftp_req /= 60;
+			$config->{squid_hist}->{'rq_server_ftp_req'} = $1;
+			next;
+		}
+		if(/^server\.other\.requests = (\d+)$/) {
+			$rq_server_other_req = $1 - ($config->{squid_hist}->{'rq_server_other_req'} || 0);
+			$rq_server_other_req = 0 unless $rq_server_other_req != $1;
+			$rq_server_other_req /= 60;
+			$config->{squid_hist}->{'rq_server_other_req'} = $1;
+			next;
+		}
+		if(/^unlink\.requests = (\d+)$/) {
+			$rq_unlink_requests = $1 - ($config->{squid_hist}->{'rq_unlink_requests'} || 0);
+			$rq_unlink_requests = 0 unless $rq_unlink_requests != $1;
+			$rq_unlink_requests /= 60;
+			$config->{squid_hist}->{'rq_unlink_requests'} = $1;
+			next;
+		}
+		if(/^swap\.files_cleaned = (\d+)$/) {
+			$rq_swap_files_cleaned = $1 - ($config->{squid_hist}->{'rq_swap_files_cleaned'} || 0);
+			$rq_swap_files_cleaned = 0 unless $rq_swap_files_cleaned != $1;
+			$rq_swap_files_cleaned /= 60;
+			$config->{squid_hist}->{'rq_swap_files_cleaned'} = $1;
+			next;
+		}
+		if(/^aborted_requests = (\d+)$/) {
+			$rq_aborted_req = $1 - ($config->{squid_hist}->{'rq_aborted_req'} || 0);
+			$rq_aborted_req = 0 unless $rq_aborted_req != $1;
+			$rq_aborted_req /= 60;
+			$config->{squid_hist}->{'rq_aborted_req'} = $1;
+			last;
+		}
+	}
+	close(IN);
+	$rrdata .= ":$rq_client_http_req:$rq_client_http_hit:$rq_server_http_req:$rq_server_ftp_req:$rq_server_other_req:$rq_aborted_req:$rq_swap_files_cleaned:$rq_unlink_requests:0";
+
+	open(IN, "$squid->{cmd} mgr:mem |");
+	while(<IN>) {
+		if(/^Total      /) {
+			(undef, undef, $m_alloc, undef, undef, undef, undef, $m_inuse) = split(' ', $_);
+			chomp($m_alloc);
+			chomp($m_inuse);
+			last;
+		}
+	}
+	close(IN);
+	$rrdata .= ":$m_alloc:$m_inuse:0:0:0";
+
+	open(IN, "$squid->{cmd} mgr:ipcache |");
+	while(<IN>) {
+		if(/^IPcache Requests:\s+(\d+)$/) {
+			$ic_requests = $1 - ($config->{squid_hist}->{'ic_requests'} || 0);
+			$ic_requests = 0 unless $ic_requests != $1;
+			$ic_requests /= 60;
+			$config->{squid_hist}->{'ic_requests'} = $1;
+			next;
+		}
+		if(/^IPcache Hits:\s+(\d+)$/) {
+			$ic_hits = $1 - ($config->{squid_hist}->{'ic_hits'} || 0);
+			$ic_hits = 0 unless $ic_hits != $1;
+			$ic_hits /= 60;
+			$config->{squid_hist}->{'ic_hits'} = $1;
+			next;
+		}
+		if(/^IPcache Misses:\s+(\d+)$/) {
+			$ic_misses = $1 - ($config->{squid_hist}->{'ic_misses'} || 0);
+			$ic_misses = 0 unless $ic_misses != $1;
+			$ic_misses /= 60;
+			$config->{squid_hist}->{'ic_misses'} = $1;
+			last;
+		}
+	}
+	close(IN);
+	$rrdata .= ":$ic_requests:$ic_hits:$ic_misses:0:0";
+
+	open(IN, "$squid->{cmd} mgr:io |");
+	@data = <IN>;
+	close(IN);
+	$all = join('', @data);
+	$all =~ s/\n/ /g;
+	($value) = ($all =~ m/ HTTP I\/O number of reads.*?(\d+)/g);
+	chomp($value);
+	$io_http = $value - ($config->{squid_hist}->{'io_http'} || 0);
+	$io_http = 0 unless $io_http != $value;
+	$io_http /= 60;
+	$config->{squid_hist}->{'io_http'} = $value;
+	($value) = ($all =~ m/ FTP I\/O number of reads.*?(\d+)/g);
+	chomp($value);
+	$io_ftp = $value - ($config->{squid_hist}->{'io_ftp'} || 0);
+	$io_ftp = 0 unless $io_ftp != $value;
+	$io_ftp /= 60;
+	$config->{squid_hist}->{'io_ftp'} = $value;
+	($value) = ($all =~ m/ Gopher I\/O number of reads.*?(\d+)/g);
+	chomp($value);
+	$io_gopher = $value - ($config->{squid_hist}->{'io_gopher'} || 0);
+	$io_gopher = 0 unless $io_gopher != $value;
+	$io_gopher /= 60;
+	$config->{squid_hist}->{'io_gopher'} = $value;
+	($value) = ($all =~ m/ WAIS I\/O number of reads.*?(\d+)/g);
+	$value = 0 unless defined($value);
+	chomp($value);
+	$io_wais = $value - ($config->{squid_hist}->{'io_wais'} || 0);
+	$io_wais = 0 unless $io_wais != $value;
+	$io_wais /= 60;
+	$config->{squid_hist}->{'io_wais'} = $value;
+	$rrdata .= ":$io_http:$io_ftp:$io_gopher:$io_wais:0";
+
+	open(IN, "$squid->{cmd} mgr:storedir |");
+	while(<IN>) {
+		if(/^Store Entries\s+:\s+(\d+)$/) {
+			$s_entries = $1;
+			next;
+		}
+		if(/^Maximum Swap Size\s+:\s+(\d+)/) {
+			$s_maximum = $1;
+			next;
+		}
+		if(/^Current Store Swap Size\s*:\s+(\d+)/) {
+			$s_current = $1;
+			last;
+		}
+	}
+	close(IN);
+	$rrdata .= ":$s_entries:$s_maximum:$s_current:0:0";
+	$rrdata .= ":$tc_client_http_in:$tc_client_http_out:0";
+	$rrdata .= ":$ts_server_all_in:$ts_server_all_out:0";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub squid_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $squid = $config->{squid};
+	my @rigid = split(',', $squid->{rigid});
+	my @limit = split(',', $squid->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my $i;
+	my @DEF;
+	my $n;
+	my $str;
+	my $err;
+	my @AC = (
+		"#FFA500",
+		"#44EEEE",
+		"#44EE44",
+		"#4444EE",
+		"#448844",
+		"#EE4444",
+		"#EE44EE",
+		"#EEEE44",
+		"#963C74",
+		"#CCCCCC",
+	);
+	my @LC = (
+		"#FFA500",
+		"#00EEEE",
+		"#00EE00",
+		"#0000EE",
+		"#448844",
+		"#EE0000",
+		"#EE00EE",
+		"#EEEE00",
+		"#B4B444",
+		"#888888",
+	);
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		my $str;
+		my $line1;
+		my $line2;
+		my $line3;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		for($n = 0; $n < scalar(my @sl = split(',', $squid->{graph_0})); $n++) {
+			$line2 .= sprintf("%6d", $n + 1);
+			$str .= "------";
+		}
+		$line3 .= $str;
+		$i = length($str);
+		$line1 .= sprintf(" %${i}s", "Statistics graph 1");
+		undef($str);
+		$line2 .= " ";
+		$line3 .= "-";
+		for($n = 0; $n < scalar(my @sl = split(',', $squid->{graph_1})); $n++) {
+			$line2 .= sprintf("%6d", $n + 1);
+			$str .= "------";
+		}
+		$line3 .= $str;
+		$i = length($str);
+		$line1 .= sprintf(" %${i}s", "Statistics graph 2");
+		$line1 .= "                                              Overall I/O";
+		$line2 .= "  cHTTPr cHTTPh sHTTPr  sFTPr sOther Abortr SwpFcl Unlnkr";
+		$line3 .= "---------------------------------------------------------";
+		$line1 .= "     Memory usage (MB)";
+		$line2 .= "   Alloct   InUse  %  ";
+		$line3 .= "----------------------";
+		$line1 .= "      Storage usage (MB)";
+		$line2 .= "    Alloct    InUse  %  ";
+		$line3 .= "------------------------";
+		$line1 .= "        IP Cache";
+		$line2 .= "  Reqs Hits Miss";
+		$line3 .= "----------------";
+		$line1 .= "    Network Protocols";
+		$line2 .= "  HTTP  FTP Goph WAIS";
+		$line3 .= "---------------------";
+		$line1 .= "  Client Traffic";
+		$line2 .= "    Input Output";
+		$line3 .= "----------------";
+		$line1 .= "  Server Traffic";
+		$line2 .= "    Input Output";
+		$line3 .= "----------------";
+		print("    $line1\n");
+		print("Time $line2\n");
+		print("-----$line3 \n");
+		my $line;
+		my @row;
+		my $time;
+		my @g1;
+		my @g2;
+		my $n2;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			undef($line1);
+			undef(@row);
+			(@g1) = @$line[0..scalar(my @sg0 = split(',', $squid->{graph_0})) - 1];
+			for($n2 = 0; $n2 < scalar(@sg0); $n2++) {
+				push(@row, $g1[$n2] || 0);
+				$line1 .= "%5d ";
+			}
+			(@g2) = @$line[9..9 + scalar(my @sg1 = split(',', $squid->{graph_1})) - 1];
+			$line1 .= " ";
+			for($n2 = 0; $n2 < scalar(@sg1); $n2++) {
+				push(@row, $g2[$n2] || 0);
+				$line1 .= "%5d ";
+			}
+			$line1 .= " ";
+			foreach(@$line[18..25]) {
+				push(@row, $_ || 0);
+			}
+			$line1 .= "%6d %6d %6d %6d %6d %6d %6d %6d ";
+			$line1 .= " ";
+			foreach(@$line[27..28]) {
+				push(@row, $_ || 0);
+			}
+			@$line[28] = @$line[28] || 0;
+			push(@row, (@$line[28] * 100) / (@$line[27] || 1));
+			$line1 .= "%7d %7d %3.1f ";
+			$line1 .= " ";
+			foreach(@$line[43..44]) {
+				push(@row, $_ || 0);
+			}
+			@$line[44] = @$line[44] || 0;
+			push(@row, (@$line[44] * 100) / (@$line[43] || 1));
+			$line1 .= "%8d %8d %3.1f ";
+			$line1 .= " ";
+			foreach(@$line[32..34]) {
+				push(@row, $_ || 0);
+			}
+			$line1 .= "%4d %4d %4d ";
+			$line1 .= " ";
+			foreach(@$line[37..40]) {
+				push(@row, $_ || 0);
+			}
+			$line1 .= "%4d %4d %4d %4d ";
+			$line1 .= " ";
+			foreach(@$line[47..48]) {
+				push(@row, $_ || 0);
+			}
+			$line1 .= " %6d %6d ";
+			$line1 .= " ";
+			foreach(@$line[50..51]) {
+				push(@row, $_ || 0);
+			}
+			$line1 .= " %6d %6d ";
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}  $line1\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG4 = $u . $package . "4." . $tf->{when} . ".png";
+	my $PNG5 = $u . $package . "5." . $tf->{when} . ".png";
+	my $PNG6 = $u . $package . "6." . $tf->{when} . ".png";
+	my $PNG7 = $u . $package . "7." . $tf->{when} . ".png";
+	my $PNG8 = $u . $package . "8." . $tf->{when} . ".png";
+	my $PNG9 = $u . $package . "9." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	my $PNG4z = $u . $package . "4z." . $tf->{when} . ".png";
+	my $PNG5z = $u . $package . "5z." . $tf->{when} . ".png";
+	my $PNG6z = $u . $package . "6z." . $tf->{when} . ".png";
+	my $PNG7z = $u . $package . "7z." . $tf->{when} . ".png";
+	my $PNG8z = $u . $package . "8z." . $tf->{when} . ".png";
+	my $PNG9z = $u . $package . "9z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3",
+		"$PNG_DIR" . "$PNG4",
+		"$PNG_DIR" . "$PNG5",
+		"$PNG_DIR" . "$PNG6",
+		"$PNG_DIR" . "$PNG7",
+		"$PNG_DIR" . "$PNG8",
+		"$PNG_DIR" . "$PNG9");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z",
+			"$PNG_DIR" . "$PNG4z",
+			"$PNG_DIR" . "$PNG5z",
+			"$PNG_DIR" . "$PNG6z",
+			"$PNG_DIR" . "$PNG7z",
+			"$PNG_DIR" . "$PNG8z",
+			"$PNG_DIR" . "$PNG9z");
+	}
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td valign='top' bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	my @sg0 = split(',', $squid->{graph_0});
+	for($n = 0, $i = 1; $n < 9; $n++, $i++) {
+		if(trim($sg0[$n])) {
+			$str = sprintf("%-34s", trim($sg0[$n]));
+			$str = substr($str, 0, 23);
+			push(@DEF, "DEF:squid_g1_$i=$rrd:squid_g1_$i:AVERAGE");
+			push(@tmp, "LINE1:squid_g1_$i$AC[$n]:$str");
+			push(@tmp, "GPRINT:squid_g1_$i:LAST:Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g1_$i:AVERAGE:  Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g1_$i:MIN:  Min\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g1_$i:MAX:  Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:squid_g1_$i$AC[$n]:" . trim($sg0[$n]));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_squid1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_squid1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@DEF);
+	my @sg1 = split(',', $squid->{graph_1});
+	for($n = 0, $i = 1; $n < 9; $n++, $i++) {
+		if(trim($sg1[$n])) {
+			$str = sprintf("%-34s", trim($sg1[$n]));
+			$str = substr($str, 0, 23);
+			push(@DEF, "DEF:squid_g2_$i=$rrd:squid_g2_$i:AVERAGE");
+			push(@tmp, "LINE1:squid_g2_$i$AC[$n]:$str");
+			push(@tmp, "GPRINT:squid_g2_$i:LAST:Cur\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g2_$i:AVERAGE:  Avg\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g2_$i:MIN:  Min\\: %6.1lf");
+			push(@tmp, "GPRINT:squid_g2_$i:MAX:  Max\\: %6.1lf\\n");
+			push(@tmpz, "LINE2:squid_g2_$i$AC[$n]:" . trim($sg1[$n]));
+		} else {
+			push(@tmp, "COMMENT: \\n");
+		}
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_squid2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		@DEF,
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_squid2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			@DEF,
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	undef(@DEF);
+	push(@tmp, "LINE1:squid_rq_1$AC[0]:Client HTTP requests");
+	push(@tmp, "GPRINT:squid_rq_1:LAST:  Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_1:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_1:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_1:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_2$AC[1]:Client HTTP hits");
+	push(@tmp, "GPRINT:squid_rq_2:LAST:      Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_2:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_2:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_2:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_3$AC[2]:Server HTTP requests");
+	push(@tmp, "GPRINT:squid_rq_3:LAST:  Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_3:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_3:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_3:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_4$AC[3]:Server FTP requests");
+	push(@tmp, "GPRINT:squid_rq_4:LAST:   Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_4:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_4:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_4:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_5$AC[4]:Server Other requests");
+	push(@tmp, "GPRINT:squid_rq_5:LAST: Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_5:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_5:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_5:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_6$AC[5]:Aborted requests");
+	push(@tmp, "GPRINT:squid_rq_6:LAST:      Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_6:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_6:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_6:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_7$AC[6]:Swap files cleaned");
+	push(@tmp, "GPRINT:squid_rq_7:LAST:    Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_7:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_7:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_7:MAX:  Max\\: %6.1lf\\n");
+	push(@tmp, "LINE1:squid_rq_8$AC[7]:Unlink requests");
+	push(@tmp, "GPRINT:squid_rq_8:LAST:       Cur\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_8:AVERAGE:  Avg\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_8:MIN:  Min\\: %6.1lf");
+	push(@tmp, "GPRINT:squid_rq_8:MAX:  Max\\: %6.1lf\\n");
+	push(@tmpz, "LINE2:squid_rq_1$AC[0]:Client HTTP requests");
+	push(@tmpz, "LINE2:squid_rq_2$AC[1]:Client HTTP hits");
+	push(@tmpz, "LINE2:squid_rq_3$AC[2]:Server HTTP requests");
+	push(@tmpz, "LINE2:squid_rq_4$AC[3]:Server FTP requests");
+	push(@tmpz, "LINE2:squid_rq_5$AC[4]:Server Other requests");
+	push(@tmpz, "LINE2:squid_rq_6$AC[5]:Aborted requests");
+	push(@tmpz, "LINE2:squid_rq_7$AC[6]:Swap files cleaned");
+	push(@tmpz, "LINE2:squid_rq_8$AC[7]:Unlink requests");
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_squid3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:squid_rq_1=$rrd:squid_rq_1:AVERAGE",
+		"DEF:squid_rq_2=$rrd:squid_rq_2:AVERAGE",
+		"DEF:squid_rq_3=$rrd:squid_rq_3:AVERAGE",
+		"DEF:squid_rq_4=$rrd:squid_rq_4:AVERAGE",
+		"DEF:squid_rq_5=$rrd:squid_rq_5:AVERAGE",
+		"DEF:squid_rq_6=$rrd:squid_rq_6:AVERAGE",
+		"DEF:squid_rq_7=$rrd:squid_rq_7:AVERAGE",
+		"DEF:squid_rq_8=$rrd:squid_rq_8:AVERAGE",
+		"DEF:squid_rq_9=$rrd:squid_rq_9:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_squid3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:squid_rq_1=$rrd:squid_rq_1:AVERAGE",
+			"DEF:squid_rq_2=$rrd:squid_rq_2:AVERAGE",
+			"DEF:squid_rq_3=$rrd:squid_rq_3:AVERAGE",
+			"DEF:squid_rq_4=$rrd:squid_rq_4:AVERAGE",
+			"DEF:squid_rq_5=$rrd:squid_rq_5:AVERAGE",
+			"DEF:squid_rq_6=$rrd:squid_rq_6:AVERAGE",
+			"DEF:squid_rq_7=$rrd:squid_rq_7:AVERAGE",
+			"DEF:squid_rq_8=$rrd:squid_rq_8:AVERAGE",
+			"DEF:squid_rq_9=$rrd:squid_rq_9:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[3]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[3]));
+	} else {
+		if(trim($rigid[3]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[3]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE1:m_alloc#EEEE44:Allocated");
+	push(@tmp, "GPRINT:m_alloc:LAST:            Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:m_inuse#44AAEE:In use");
+	push(@tmp, "LINE1:m_inuse#00AAEE:");
+	push(@tmp, "GPRINT:m_inuse:LAST:               Current\\: %7.1lf\\n");
+	push(@tmp, "GPRINT:m_perc:LAST:                          In use\\:   %5.1lf%%\\n");
+	push(@tmpz, "LINE2:m_alloc#EEEE44:Allocated");
+	push(@tmpz, "AREA:m_inuse#44AAEE:In use");
+	push(@tmpz, "LINE2:m_inuse#00AAEE:");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG4",
+		"--title=$config->{graphs}->{_squid4}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Megabytes",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:squid_m_1=$rrd:squid_m_1:AVERAGE",
+		"DEF:squid_m_2=$rrd:squid_m_2:AVERAGE",
+		"CDEF:m_alloc=squid_m_1,1024,/",
+		"CDEF:m_inuse=squid_m_2,1024,/",
+		"CDEF:m_perc=squid_m_2,100,*,squid_m_1,/",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG4z",
+			"--title=$config->{graphs}->{_squid4}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Megabytes",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:squid_m_1=$rrd:squid_m_1:AVERAGE",
+			"DEF:squid_m_2=$rrd:squid_m_2:AVERAGE",
+			"CDEF:m_alloc=squid_m_1,1024,/",
+			"CDEF:m_inuse=squid_m_2,1024,/",
+			"CDEF:m_perc=squid_m_2,100,*,squid_m_1,/",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid4/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG4z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG4 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[4]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[4]));
+	} else {
+		if(trim($rigid[4]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[4]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "LINE1:s_alloc#EEEE44:Allocated");
+	push(@tmp, "GPRINT:s_alloc:LAST:            Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:s_inuse#44AAEE:In use");
+	push(@tmp, "GPRINT:s_inuse:LAST:               Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:s_inuse#00AAEE:");
+	push(@tmp, "GPRINT:s_perc:LAST:                          In use\\:   %5.1lf%%\\n");
+	push(@tmpz, "LINE2:s_alloc#EEEE44:Allocated");
+	push(@tmpz, "AREA:s_inuse#44AAEE:In use");
+	push(@tmpz, "LINE2:s_inuse#00AAEE:");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG5",
+		"--title=$config->{graphs}->{_squid5}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Megabytes",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:squid_s_2=$rrd:squid_s_2:AVERAGE",
+		"DEF:squid_s_3=$rrd:squid_s_3:AVERAGE",
+		"CDEF:s_alloc=squid_s_2,1024,/",
+		"CDEF:s_inuse=squid_s_3,1024,/",
+		"CDEF:s_perc=squid_s_3,100,*,squid_s_2,/",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG5z",
+			"--title=$config->{graphs}->{_squid5}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Megabytes",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:squid_s_2=$rrd:squid_s_2:AVERAGE",
+			"DEF:squid_s_3=$rrd:squid_s_3:AVERAGE",
+			"CDEF:s_alloc=squid_s_2,1024,/",
+			"CDEF:s_inuse=squid_s_3,1024,/",
+			"CDEF:s_perc=squid_s_3,100,*,squid_s_2,/",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid5/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG5z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG5 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[5]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[5]));
+	} else {
+		if(trim($rigid[5]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[5]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:ic_requests#44EEEE:Requests");
+	push(@tmp, "GPRINT:ic_requests:LAST:             Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:ic_hits#4444EE:Hits");
+	push(@tmp, "GPRINT:ic_hits:LAST:                 Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:ic_misses#EE44EE:Misses");
+	push(@tmp, "GPRINT:ic_misses:LAST:               Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:ic_requests#00EEEE");
+	push(@tmp, "LINE1:ic_hits#0000EE");
+	push(@tmp, "LINE1:ic_misses#EE00EE");
+	push(@tmpz, "AREA:ic_requests#44EEEE:Requests");
+	push(@tmpz, "AREA:ic_hits#4444EE:Hits");
+	push(@tmpz, "AREA:ic_misses#EE44EE:Misses");
+	push(@tmpz, "LINE1:ic_requests#00EEEE");
+	push(@tmpz, "LINE1:ic_hits#0000EE");
+	push(@tmpz, "LINE1:ic_misses#EE00EE");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG6",
+		"--title=$config->{graphs}->{_squid6}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Values/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:ic_requests=$rrd:squid_ic_1:AVERAGE",
+		"DEF:ic_hits=$rrd:squid_ic_2:AVERAGE",
+		"DEF:ic_misses=$rrd:squid_ic_3:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG6z",
+			"--title=$config->{graphs}->{_squid6}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Values/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:ic_requests=$rrd:squid_ic_1:AVERAGE",
+			"DEF:ic_hits=$rrd:squid_ic_2:AVERAGE",
+			"DEF:ic_misses=$rrd:squid_ic_3:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid6/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG6z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG6 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[6]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[6]));
+	} else {
+		if(trim($rigid[6]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[6]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:io_http#44EEEE:HTTP");
+	push(@tmp, "GPRINT:io_http:LAST:                 Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:io_ftp#4444EE:FTP");
+	push(@tmp, "GPRINT:io_ftp:LAST:                  Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:io_gopher#EE44EE:Gopher");
+	push(@tmp, "GPRINT:io_gopher:LAST:               Current\\: %7.1lf\\n");
+	push(@tmp, "AREA:io_wais#EEEE44:WAIS");
+	push(@tmp, "GPRINT:io_wais:LAST:                 Current\\: %7.1lf\\n");
+	push(@tmp, "LINE1:io_http#00EEEE");
+	push(@tmp, "LINE1:io_ftp#0000EE");
+	push(@tmp, "LINE1:io_gopher#EE00EE");
+	push(@tmp, "LINE1:io_wais#EEEE00");
+	push(@tmpz, "AREA:io_http#44EEEE:HTTP");
+	push(@tmpz, "AREA:io_ftp#4444EE:FTP");
+	push(@tmpz, "AREA:io_gopher#EE44EE:Gopher");
+	push(@tmpz, "AREA:io_wais#EEEE44:WAIS");
+	push(@tmpz, "LINE1:io_http#44EEEE");
+	push(@tmpz, "LINE1:io_ftp#4444EE");
+	push(@tmpz, "LINE1:io_gopher#EE44EE");
+	push(@tmpz, "LINE1:io_wais#EEEE44");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG7",
+		"--title=$config->{graphs}->{_squid7}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Reads/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:io_http=$rrd:squid_io_1:AVERAGE",
+		"DEF:io_ftp=$rrd:squid_io_2:AVERAGE",
+		"DEF:io_gopher=$rrd:squid_io_3:AVERAGE",
+		"DEF:io_wais=$rrd:squid_io_4:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG7: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG7z",
+			"--title=$config->{graphs}->{_squid7}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Reads/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:io_http=$rrd:squid_io_1:AVERAGE",
+			"DEF:io_ftp=$rrd:squid_io_2:AVERAGE",
+			"DEF:io_gopher=$rrd:squid_io_3:AVERAGE",
+			"DEF:io_wais=$rrd:squid_io_4:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG7z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid7/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG7z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG7z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG7 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[7]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[7]));
+	} else {
+		if(trim($rigid[7]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[7]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:in#44EE44:Input");
+	push(@tmp, "AREA:out#4444EE:Output");
+	push(@tmp, "AREA:out#4444EE:");
+	push(@tmp, "AREA:in#44EE44:");
+	push(@tmp, "LINE1:out#0000EE");
+	push(@tmp, "LINE1:in#00EE00");
+	push(@tmpz, "AREA:in#44EE44:Input");
+	push(@tmpz, "AREA:out#4444EE:Output");
+	push(@tmpz, "AREA:out#4444EE:");
+	push(@tmpz, "AREA:in#44EE44:");
+	push(@tmpz, "LINE1:out#0000EE");
+	push(@tmpz, "LINE1:in#00EE00");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG8",
+		"--title=$config->{graphs}->{_squid8}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=bytes/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:in=$rrd:squid_tc_1:AVERAGE",
+		"DEF:out=$rrd:squid_tc_2:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG8: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG8z",
+			"--title=$config->{graphs}->{_squid8}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=bytes/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:squid_tc_1:AVERAGE",
+			"DEF:out=$rrd:squid_tc_2:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG8z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid8/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG8z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG8z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG8 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[8]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[8]));
+	} else {
+		if(trim($rigid[8]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[8]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:in#44EE44:Input");
+	push(@tmp, "AREA:out#4444EE:Output");
+	push(@tmp, "AREA:out#4444EE:");
+	push(@tmp, "AREA:in#44EE44:");
+	push(@tmp, "LINE1:out#0000EE");
+	push(@tmp, "LINE1:in#00EE00");
+	push(@tmpz, "AREA:in#44EE44:Input");
+	push(@tmpz, "AREA:out#4444EE:Output");
+	push(@tmpz, "AREA:out#4444EE:");
+	push(@tmpz, "AREA:in#44EE44:");
+	push(@tmpz, "LINE1:out#0000EE");
+	push(@tmpz, "LINE1:in#00EE00");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG9",
+		"--title=$config->{graphs}->{_squid9}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=bytes/s",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:in=$rrd:squid_ts_1:AVERAGE",
+		"DEF:out=$rrd:squid_ts_2:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG9: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG9z",
+			"--title=$config->{graphs}->{_squid9}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=bytes/s",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:in=$rrd:squid_ts_1:AVERAGE",
+			"DEF:out=$rrd:squid_ts_2:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG9z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /squid9/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG9z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG9z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG9 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/lib/system.pm b/lib/system.pm
new file mode 100644
index 0000000..8192691
--- /dev/null
+++ b/lib/system.pm
@@ -0,0 +1,744 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package system;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(system_init system_update system_cgi);
+
+sub system_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:system_load1:GAUGE:120:0:U",
+				"DS:system_load5:GAUGE:120:0:U",
+				"DS:system_load15:GAUGE:120:0:U",
+				"DS:system_nproc:GAUGE:120:0:U",
+				"DS:system_npslp:GAUGE:120:0:U",
+				"DS:system_nprun:GAUGE:120:0:U",
+				"DS:system_npwio:GAUGE:120:0:U",
+				"DS:system_npzom:GAUGE:120:0:U",
+				"DS:system_npstp:GAUGE:120:0:U",
+				"DS:system_npswp:GAUGE:120:0:U",
+				"DS:system_mtotl:GAUGE:120:0:U",
+				"DS:system_mbuff:GAUGE:120:0:U",
+				"DS:system_mcach:GAUGE:120:0:U",
+				"DS:system_mfree:GAUGE:120:0:U",
+				"DS:system_macti:GAUGE:120:0:U",
+				"DS:system_minac:GAUGE:120:0:U",
+				"DS:system_val01:GAUGE:120:0:U",
+				"DS:system_val02:GAUGE:120:0:U",
+				"DS:system_val03:GAUGE:120:0:U",
+				"DS:system_val04:GAUGE:120:0:U",
+				"DS:system_val05:GAUGE:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	# check dependencies
+	if(lc($config->{enable_alerts}) eq "y") {
+		if(! -x $config->{alert_loadavg_script}) {
+			logger("$myself: ERROR: script '$config->{alert_loadavg_script}' doesn't exist or don't has execution permissions.");
+		}
+	}
+
+	$config->{system_hist} = 0;
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub system_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	my $load1;
+	my $load5;
+	my $load15;
+	my $nproc;
+	my $npslp;
+	my $nprun;
+	my $npwio;
+	my $npzom;
+	my $npstp;
+	my $npswp;
+	my $mtotl;
+	my $mbuff;
+	my $mcach;
+	my $mfree;
+	my $macti;
+	my $minac;
+	my $val01 = 0;
+	my $val02 = 0;
+	my $val03 = 0;
+	my $val04 = 0;
+	my $val05 = 0;
+
+	my $rrdata = "N";
+
+	$npwio = $npzom = $npstp = $npswp = 0;
+
+	if($config->{os} eq "Linux") {
+		open(IN, "/proc/loadavg");
+		while(<IN>) {
+			if(/^(\d+\.\d+) (\d+\.\d+) (\d+\.\d+) (\d+)\/(\d+)/) {
+				$load1 = $1;
+				$load5 = $2;
+				$load15 = $3;
+				$nprun = $4;
+				$npslp = $5;
+			}
+		}
+		close(IN);
+		$nproc = $npslp + $nprun;
+
+		open(IN, "/proc/meminfo");
+		while(<IN>) {
+			if(/^MemTotal:\s+(\d+) kB$/) {
+				$mtotl = $1;
+				next;
+			}
+			if(/^MemFree:\s+(\d+) kB$/) {
+				$mfree = $1;
+				next;
+			}
+			if(/^Buffers:\s+(\d+) kB$/) {
+				$mbuff = $1;
+				next;
+			}
+			if(/^Cached:\s+(\d+) kB$/) {
+				$mcach = $1;
+				last;
+			}
+		}
+		close(IN);
+		$macti = $minac = "";
+	} elsif($config->{os} eq "FreeBSD") {
+		my $page_size;
+		open(IN, "sysctl -n vm.loadavg |");
+		while(<IN>) {
+			if(/^\{ (\d+\.\d+) (\d+\.\d+) (\d+\.\d+) \}$/) {
+				$load1 = $1;
+				$load5 = $2;
+				$load15 = $3;
+			}
+		}
+		close(IN);
+		open(IN, "sysctl vm.vmtotal |");
+		while(<IN>) {
+			if(/^Processes:\s+\(RUNQ:\s+(\d+) Disk.*? Sleep:\s+(\d+)\)$/) {
+				$nprun = $1;
+				$npslp = $2;
+			}
+			if(/^Free Memory Pages:\s+(\d+)K$/) {
+				$mfree = $1;
+			}
+		}
+		close(IN);
+		$nproc = $npslp + $nprun;
+		$mtotl = `sysctl -n hw.realmem`;
+		$mbuff = `sysctl -n vfs.bufspace`;
+		$mcach = `sysctl -n vm.stats.vm.v_cache_count`;
+
+		chomp($mbuff);
+		$mbuff = $mbuff / 1024;
+		chomp($mtotl);
+		$mtotl = $mtotl / 1024;
+		$page_size = `sysctl -n vm.stats.vm.v_page_size`;
+		$macti = `sysctl -n vm.stats.vm.v_active_count`;
+		$minac = `sysctl -n vm.stats.vm.v_inactive_count`;
+		chomp($page_size, $mcach, $macti, $minac);
+		$mcach = ($page_size * $mcach) / 1024;
+		$macti = ($page_size * $macti) / 1024;
+		$minac = ($page_size * $minac) / 1024;
+	} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+		open(IN, "sysctl -n vm.loadavg |");
+		while(<IN>) {
+			if(/^(\d+\.\d+) (\d+\.\d+) (\d+\.\d+)$/) {
+				$load1 = $1;
+				$load5 = $2;
+				$load15 = $3;
+			}
+		}
+		close(IN);
+		open(IN, "top -b |");
+		while(<IN>) {
+			if(/ processes:/) {
+				$_ =~ s/:/,/;
+				my (@tmp) = split(',', $_);
+				foreach(@tmp) {
+					my ($num, $desc) = split(' ', $_);
+					$nproc = $num unless $desc ne "processes";
+					if(grep {$_ eq $desc} ("idle", "sleeping", "stopped", "zombie")) {
+						$npslp += $num;
+					}
+					if($desc eq "running" || $desc eq "on") {
+						$nprun += $num;
+					}
+				}
+			}
+			if($config->{os} eq "OpenBSD") {
+				if(/^Memory: Real: (\d+)\w\/\d+\w act\/tot  Free: (\d+)\w  /) {
+					$macti = $1;
+					$mfree = $2;
+					$macti = int($macti) * 1024;
+					$mfree = int($mfree) * 1024;
+					last;
+				}
+			}
+			if($config->{os} eq "NetBSD") {
+				if(/^Memory: (\d+)\w Act, .*, (\d+)\w Free/) {
+					$macti = $1;
+					$mfree = $2;
+					$macti = int($macti) * 1024;
+					$mfree = int($mfree) * 1024;
+					last;
+				}
+			}
+		}	
+		close(IN);
+		$mtotl = `sysctl -n hw.physmem`;
+		chomp($mtotl);
+		$mtotl = $mtotl / 1024;
+	}
+
+	chomp(
+		$load1,
+		$load5,
+		$load15,
+		$nproc,
+		$npslp,
+		$nprun,
+		$npwio,
+		$npzom,
+		$npstp,
+		$npswp,
+		$mtotl,
+		$mbuff,
+		$mcach,
+		$mfree,
+		$macti,
+		$minac,
+	);
+
+	# SYSTEM alert
+	if(lc($config->{enable_alerts}) eq "y") {
+		if(!$config->{alert_loadavg_threshold} || $load15 < $config->{alert_loadavg_threshold}) {
+			$config->{system_hist} = 0;
+		} else {
+			if(!$config->{system_hist}) {
+				$config->{system_hist} = time;
+			}
+			if($config->{system_hist} > 0 && (time - $config->{system_hist}) > $config->{alert_loadavg_timeintvl}) {
+				if(-x $config->{alert_loadavg_script}) {
+					system($config->{alert_loadavg_script} . " " .$config->{alert_loadavg_timeintvl} . " " . $config->{alert_loadavg_threshold} . " " . $load15);
+				}
+				$config->{system_hist} = time;
+			}
+		}
+	}
+
+	$rrdata .= ":$load1:$load5:$load15:$nproc:$npslp:$nprun:$npwio:$npzom:$npstp:$npswp:$mtotl:$mbuff:$mcach:$mfree:$macti:$minac:$val01:$val02:$val03:$val04:$val05";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub system_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $system = $config->{system};
+	my @rigid = split(',', $system->{rigid});
+	my @limit = split(',', $system->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+	my $total_mem;
+
+	if($config->{os} eq "Linux") {
+		$total_mem = `grep -w MemTotal: /proc/meminfo | awk '{print \$2}'`;
+		chomp($total_mem);
+	} elsif(grep {$_ eq $config->{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
+		$total_mem = `/sbin/sysctl -n hw.physmem`;	# in bytes
+		chomp($total_mem);
+		$total_mem = int($total_mem / 1024);		# in KB
+	}
+	$total_mem = int($total_mem / 1024);			# in MB
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch($rrd,
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("       CPU load average    Memory usage in MB     Processes\n");
+		print("Time   1min  5min 15min    Used  Cached Buffers   Total   Run\n");
+		print("------------------------------------------------------------- \n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			my ($load1, $load5, $load15, $nproc, $npslp, $nprun, $mtotl, $buff, $cach, $free) = @$line;
+			$buff /= 1024;
+			$cach /= 1024;
+			$free /= 1024;
+			@row = ($load1, $load5, $load15, $total_mem - $free, $cach, $buff, $nproc, $nprun);
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}   %4.1f  %4.1f  %4.1f  %6d  %6d  %6d   %5d %5d \n", $time, @row);
+		}
+		print("\n");
+		print(" system uptime: " . get_uptime($config) . "\n");
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	my $uptimeline;
+	if($RRDs::VERSION > 1.2) {
+		$uptimeline = "COMMENT:system uptime\\: " . get_uptime($config) . "\\c";
+	} else {
+		$uptimeline = "COMMENT:system uptime: " . get_uptime($config) . "\\c";
+	}
+
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	push(@tmp, "AREA:load1#4444EE: 1 min average");
+	push(@tmp, "GPRINT:load1:LAST:  Current\\: %4.2lf");
+	push(@tmp, "GPRINT:load1:AVERAGE:   Average\\: %4.2lf");
+	push(@tmp, "GPRINT:load1:MIN:   Min\\: %4.2lf");
+	push(@tmp, "GPRINT:load1:MAX:   Max\\: %4.2lf\\n");
+	push(@tmp, "LINE1:load1#0000EE");
+	push(@tmp, "LINE1:load5#EEEE00: 5 min average");
+	push(@tmp, "GPRINT:load5:LAST:  Current\\: %4.2lf");
+	push(@tmp, "GPRINT:load5:AVERAGE:   Average\\: %4.2lf");
+	push(@tmp, "GPRINT:load5:MIN:   Min\\: %4.2lf");
+	push(@tmp, "GPRINT:load5:MAX:   Max\\: %4.2lf\\n");
+	push(@tmp, "LINE1:load15#00EEEE:15 min average");
+	push(@tmp, "GPRINT:load15:LAST:  Current\\: %4.2lf");
+	push(@tmp, "GPRINT:load15:AVERAGE:   Average\\: %4.2lf");
+	push(@tmp, "GPRINT:load15:MIN:   Min\\: %4.2lf");
+	push(@tmp, "GPRINT:load15:MAX:   Max\\: %4.2lf\\n");
+	push(@tmpz, "AREA:load1#4444EE: 1 min average");
+	push(@tmpz, "LINE1:load1#0000EE");
+	push(@tmpz, "LINE1:load5#EEEE00: 5 min average");
+	push(@tmpz, "LINE1:load15#00EEEE:15 min average");
+	if($config->{os} eq "FreeBSD") {
+		push(@tmp, "COMMENT: \\n");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_system1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Load average",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:load1=$rrd:system_load1:AVERAGE",
+		"DEF:load5=$rrd:system_load5:AVERAGE",
+		"DEF:load15=$rrd:system_load15:AVERAGE",
+		@tmp,
+		"COMMENT: \\n",
+		$uptimeline);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_system1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Load average",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:load1=$rrd:system_load1:AVERAGE",
+			"DEF:load5=$rrd:system_load5:AVERAGE",
+			"DEF:load15=$rrd:system_load15:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /system1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:npslp#44AAEE:Sleeping");
+	push(@tmp, "AREA:nprun#EE4444:Running");
+	push(@tmp, "LINE1:nprun#EE0000");
+	push(@tmp, "LINE1:npslp#00EEEE");
+	push(@tmp, "LINE1:nproc#EEEE00:Processes");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_system2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Processes",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:nproc=$rrd:system_nproc:AVERAGE",
+		"DEF:npslp=$rrd:system_npslp:AVERAGE",
+		"DEF:nprun=$rrd:system_nprun:AVERAGE",
+		@tmp,
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_system2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Processes",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:nproc=$rrd:system_nproc:AVERAGE",
+			"DEF:npslp=$rrd:system_npslp:AVERAGE",
+			"DEF:nprun=$rrd:system_nprun:AVERAGE",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /system2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@tmp);
+	undef(@tmpz);
+	if($config->{os} eq "Linux") {
+		push(@tmp, "AREA:m_mused#EE4444:Used");
+		push(@tmp, "AREA:m_mcach#44EE44:Cached");
+		push(@tmp, "AREA:m_mbuff#CCCCCC:Buffers");
+		push(@tmp, "LINE1:m_mbuff#888888");
+		push(@tmp, "LINE1:m_mcach#00EE00");
+		push(@tmp, "LINE1:m_mused#EE0000");
+	} elsif($config->{os} eq "FreeBSD") {
+		push(@tmp, "AREA:m_mused#EE4444:Used");
+		push(@tmp, "AREA:m_mcach#44EE44:Cached");
+		push(@tmp, "AREA:m_mbuff#CCCCCC:Buffers");
+		push(@tmp, "AREA:m_macti#EEEE44:Active");
+		push(@tmp, "AREA:m_minac#4444EE:Inactive");
+		push(@tmp, "LINE1:m_minac#0000EE");
+		push(@tmp, "LINE1:m_macti#EEEE00");
+		push(@tmp, "LINE1:m_mbuff#888888");
+		push(@tmp, "LINE1:m_mcach#00EE00");
+		push(@tmp, "LINE1:m_mused#EE0000");
+	} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+		push(@tmp, "AREA:m_mused#EE4444:Used");
+		push(@tmp, "AREA:m_macti#44EE44:Active");
+		push(@tmp, "LINE1:m_macti#00EE00");
+		push(@tmp, "LINE1:m_mused#EE0000");
+	}
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_system3} (${total_mem}MB)  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Megabytes",
+		"--width=$width",
+		"--height=$height",
+		"--upper-limit=$total_mem",
+		"--lower-limit=0",
+		"--base=1024",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:mtotl=$rrd:system_mtotl:AVERAGE",
+		"DEF:mbuff=$rrd:system_mbuff:AVERAGE",
+		"DEF:mcach=$rrd:system_mcach:AVERAGE",
+		"DEF:mfree=$rrd:system_mfree:AVERAGE",
+		"DEF:macti=$rrd:system_macti:AVERAGE",
+		"DEF:minac=$rrd:system_minac:AVERAGE",
+		"CDEF:m_mtotl=mtotl,1024,/",
+		"CDEF:m_mbuff=mbuff,1024,/",
+		"CDEF:m_mcach=mcach,1024,/",
+		"CDEF:m_mused=m_mtotl,mfree,1024,/,-",
+		"CDEF:m_macti=macti,1024,/",
+		"CDEF:m_minac=minac,1024,/",
+		@tmp,
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_system3} (${total_mem}MB)  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Megabytes",
+			"--width=$width",
+			"--height=$height",
+			"--upper-limit=$total_mem",
+			"--lower-limit=0",
+			"--base=1024",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:mtotl=$rrd:system_mtotl:AVERAGE",
+			"DEF:mbuff=$rrd:system_mbuff:AVERAGE",
+			"DEF:mcach=$rrd:system_mcach:AVERAGE",
+			"DEF:mfree=$rrd:system_mfree:AVERAGE",
+			"DEF:macti=$rrd:system_macti:AVERAGE",
+			"DEF:minac=$rrd:system_minac:AVERAGE",
+			"CDEF:m_mtotl=mtotl,1024,/",
+			"CDEF:m_mbuff=mbuff,1024,/",
+			"CDEF:m_mcach=mcach,1024,/",
+			"CDEF:m_mused=m_mtotl,mfree,1024,/,-",
+			"CDEF:m_macti=macti,1024,/",
+			"CDEF:m_minac=minac,1024,/",
+			@tmp);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /system3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+sub get_uptime {
+	my $config = shift;
+	my $str;
+	my $uptime;
+
+	if($config->{os} eq "Linux") {
+		open(IN, "/proc/uptime");
+		($uptime, undef) = split(' ', <IN>);
+		close(IN);
+	} elsif($config->{os} eq "FreeBSD") {
+		open(IN, "/sbin/sysctl -n kern.boottime |");
+		(undef, undef, undef, $uptime) = split(' ', <IN>);
+		close(IN);
+		$uptime =~ s/,//;
+		$uptime = time - int($uptime);
+	} elsif($config->{os} eq "OpenBSD" || $config->{os} eq "NetBSD") {
+		open(IN, "/sbin/sysctl -n kern.boottime |");
+		$uptime = <IN>;
+		close(IN);
+		chomp($uptime);
+		$uptime = time - int($uptime);
+	}
+
+	my $d = int($uptime / (60 * 60 * 24));
+	my $h = int($uptime / (60 * 60)) % 24;
+	my $m = int($uptime / 60) % 60;
+
+	my $d_string = $d ? sprintf("%d days,", $d) : "";
+	my $h_string = $h ? sprintf("%d", $h) : "";
+	my $m_string = $h ? sprintf("%sh %dm", $h, $m) : sprintf("%d min", $m);
+
+	return "$d_string $m_string";
+}
+
+1;
diff --git a/lib/user.pm b/lib/user.pm
new file mode 100644
index 0000000..319ba60
--- /dev/null
+++ b/lib/user.pm
@@ -0,0 +1,460 @@
+#
+# Monitorix - A lightweight system monitoring tool.
+#
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+
+package user;
+
+use strict;
+use warnings;
+use Monitorix;
+use RRDs;
+use Exporter 'import';
+our @EXPORT = qw(user_init user_update user_cgi);
+
+sub user_init {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	if(!(-e $rrd)) {
+		logger("Creating '$rrd' file.");
+		eval {
+			RRDs::create($rrd,
+				"--step=60",
+				"DS:user_sys:GAUGE:120:0:U",
+				"DS:user_smb:GAUGE:120:0:U",
+				"DS:user_mac:GAUGE:120:0:U",
+				"DS:user_val1:GAUGE:120:0:U",
+				"DS:user_val2:GAUGE:120:0:U",
+				"DS:user_val3:GAUGE:120:0:U",
+				"DS:user_val4:GAUGE:120:0:U",
+				"DS:user_val5:GAUGE:120:0:U",
+				"RRA:AVERAGE:0.5:1:1440",
+				"RRA:AVERAGE:0.5:30:336",
+				"RRA:AVERAGE:0.5:60:744",
+				"RRA:AVERAGE:0.5:1440:365",
+				"RRA:MIN:0.5:1:1440",
+				"RRA:MIN:0.5:30:336",
+				"RRA:MIN:0.5:60:744",
+				"RRA:MIN:0.5:1440:365",
+				"RRA:MAX:0.5:1:1440",
+				"RRA:MAX:0.5:30:336",
+				"RRA:MAX:0.5:60:744",
+				"RRA:MAX:0.5:1440:365",
+				"RRA:LAST:0.5:1:1440",
+				"RRA:LAST:0.5:30:336",
+				"RRA:LAST:0.5:60:744",
+				"RRA:LAST:0.5:1440:365",
+			);
+		};
+		my $err = RRDs::error;
+		if($@ || $err) {
+			logger("$@") unless !$@;
+			if($err) {
+				logger("ERROR: while creating $rrd: $err");
+				if($err eq "RRDs::error") {
+					logger("... is the RRDtool Perl package installed?");
+				}
+			}
+			return;
+		}
+	}
+
+	push(@{$config->{func_update}}, $package);
+	logger("$myself: Ok") if $debug;
+}
+
+sub user_update {
+	my $myself = (caller(0))[3];
+	my ($package, $config, $debug) = @_;
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+
+	my $sys;
+	my $smb;
+	my $mac;
+
+	my @data;
+	my $rrdata = "N";
+
+	open(IN, "who -q |");
+	while(<IN>) {
+		if(/^#\s+\S+=(\d+)/) {
+			$sys = $1;
+			last;
+		}
+	}
+	close(IN);
+
+	$smb = 0;
+	open(IN, "smbstatus -b 2>/dev/null |");
+	while(<IN>) {
+		if(/^----------/) {
+			$smb++;
+			next;
+		}
+		if($smb) {
+			$smb++ unless !$_;
+		}
+	}
+	close(IN);
+	$smb--;
+
+	open(IN, "macusers 2>/dev/null |");
+	@data = <IN>;
+	close(IN);
+	$mac = scalar(@data) - 1;
+	$mac = 0 unless @data;
+
+	$rrdata .= ":$sys:$smb:$mac:0:0:0:0:0";
+	RRDs::update($rrd, $rrdata);
+	logger("$myself: $rrdata") if $debug;
+	my $err = RRDs::error;
+	logger("ERROR: while updating $rrd: $err") if $err;
+}
+
+sub user_cgi {
+	my ($package, $config, $cgi) = @_;
+
+	my $user = $config->{user};
+	my @rigid = split(',', $user->{rigid});
+	my @limit = split(',', $user->{limit});
+	my $tf = $cgi->{tf};
+	my $colors = $cgi->{colors};
+	my $graph = $cgi->{graph};
+	my $silent = $cgi->{silent};
+
+	my $u = "";
+	my $width;
+	my $height;
+	my @riglim;
+	my @tmp;
+	my @tmpz;
+	my $n;
+	my $err;
+
+	my $rrd = $config->{base_lib} . $package . ".rrd";
+	my $title = $config->{graph_title}->{$package};
+	my $PNG_DIR = $config->{base_dir} . "/" . $config->{imgs_dir};
+
+	$title = !$silent ? $title : "";
+
+
+	# text mode
+	#
+	if(lc($config->{iface_mode}) eq "text") {
+		if($title) {
+			main::graph_header($title, 2);
+			print("    <tr>\n");
+			print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+		}
+		my (undef, undef, undef, $data) = RRDs::fetch("$rrd",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"AVERAGE",
+			"-r $tf->{res}");
+		$err = RRDs::error;
+		print("ERROR: while fetching $rrd: $err\n") if $err;
+		print("    <pre style='font-size: 12px; color: $colors->{fg_color}';>\n");
+		print("Time    Logged In     Samba  Netatalk\n");
+		print("------------------------------------- \n");
+		my $line;
+		my @row;
+		my $time;
+		for($n = 0, $time = $tf->{tb}; $n < ($tf->{tb} * $tf->{ts}); $n++) {
+			$line = @$data[$n];
+			my ($sys, $smb, $mac) = @$line;
+			@row = ($sys, $smb, $mac);
+			$time = $time - (1 / $tf->{ts});
+			printf(" %2d$tf->{tc}       %6d    %6d    %6d\n", $time, @row);
+		}
+		print("    </pre>\n");
+		if($title) {
+			print("    </td>\n");
+			print("    </tr>\n");
+			main::graph_footer();
+		}
+		print("  <br>\n");
+		return;
+	}
+
+
+	# graph mode
+	#
+	if($silent eq "yes" || $silent eq "imagetag") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "_";
+	}
+	if($silent eq "imagetagbig") {
+		$colors->{fg_color} = "#000000";  # visible color for text mode
+		$u = "";
+	}
+
+	my $PNG1 = $u . $package . "1." . $tf->{when} . ".png";
+	my $PNG2 = $u . $package . "2." . $tf->{when} . ".png";
+	my $PNG3 = $u . $package . "3." . $tf->{when} . ".png";
+	my $PNG1z = $u . $package . "1z." . $tf->{when} . ".png";
+	my $PNG2z = $u . $package . "2z." . $tf->{when} . ".png";
+	my $PNG3z = $u . $package . "3z." . $tf->{when} . ".png";
+	unlink ("$PNG_DIR" . "$PNG1",
+		"$PNG_DIR" . "$PNG2",
+		"$PNG_DIR" . "$PNG3");
+	if(lc($config->{enable_zoom}) eq "y") {
+		unlink ("$PNG_DIR" . "$PNG1z",
+			"$PNG_DIR" . "$PNG2z",
+			"$PNG_DIR" . "$PNG3z");
+	}
+
+	if($title) {
+		main::graph_header($title, 2);
+	}
+	if(trim($rigid[0]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[0]));
+	} else {
+		if(trim($rigid[0]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[0]));
+			push(@riglim, "--rigid");
+		}
+	}
+	if($title) {
+		print("    <tr>\n");
+		print("    <td bgcolor='$colors->{title_bg_color}'>\n");
+	}
+	push(@tmp, "AREA:sys#44EE44:Logged In");
+	push(@tmp, "GPRINT:sys:LAST:        Current\\: %3.0lf");
+	push(@tmp, "GPRINT:sys:AVERAGE:   Average\\: %3.0lf");
+	push(@tmp, "GPRINT:sys:MIN:   Min\\: %3.0lf");
+	push(@tmp, "GPRINT:sys:MAX:   Max\\: %3.0lf\\n");
+	push(@tmp, "LINE1:sys#00EE00");
+	push(@tmpz, "AREA:sys#44EE44:Logged In");
+	push(@tmpz, "LINE1:sys#00EE00");
+	($width, $height) = split('x', $config->{graph_size}->{main});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG1",
+		"--title=$config->{graphs}->{_user1}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Users",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$colors->{graph_colors}},
+		"DEF:sys=$rrd:user_sys:AVERAGE",
+		"COMMENT: \\n",
+		@tmp,
+		"COMMENT: \\n",
+		"COMMENT: \\n",
+		"COMMENT: \\n");
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG1z",
+			"--title=$config->{graphs}->{_user1}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Users",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$colors->{graph_colors}},
+			"DEF:sys=$rrd:user_sys:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /user1/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG1z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG1 . "'>\n");
+		}
+	}
+	if($title) {
+		print("    </td>\n");
+		print("    <td valign='top' bgcolor='" . $colors->{title_bg_color} . "'>\n");
+	}
+
+	undef(@riglim);
+	if(trim($rigid[1]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[1]));
+	} else {
+		if(trim($rigid[1]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[1]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:smb#EEEE44:Samba");
+	push(@tmp, "GPRINT:smb:LAST:                Current\\: %3.0lf\\n");
+	push(@tmp, "LINE1:smb#EEEE00");
+	push(@tmpz, "AREA:smb#EEEE44:Samba");
+	push(@tmpz, "LINE2:smb#EEEE00");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG2",
+		"--title=$config->{graphs}->{_user2}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Users",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:smb=$rrd:user_smb:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG2z",
+			"--title=$config->{graphs}->{_user2}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Users",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:smb=$rrd:user_smb:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /user2/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG2z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG2 . "'>\n");
+		}
+	}
+
+	undef(@riglim);
+	if(trim($rigid[2]) eq 1) {
+		push(@riglim, "--upper-limit=" . trim($limit[2]));
+	} else {
+		if(trim($rigid[2]) eq 2) {
+			push(@riglim, "--upper-limit=" . trim($limit[2]));
+			push(@riglim, "--rigid");
+		}
+	}
+	undef(@tmp);
+	undef(@tmpz);
+	push(@tmp, "AREA:mac#EE4444:Netatalk");
+	push(@tmp, "GPRINT:mac:LAST:             Current\\: %3.0lf\\n");
+	push(@tmp, "LINE1:mac#EE0000");
+	push(@tmpz, "AREA:mac#EE4444:Netatalk");
+	push(@tmpz, "LINE2:mac#EE0000");
+	($width, $height) = split('x', $config->{graph_size}->{small});
+	if($silent =~ /imagetag/) {
+		($width, $height) = split('x', $config->{graph_size}->{remote}) if $silent eq "imagetag";
+		($width, $height) = split('x', $config->{graph_size}->{main}) if $silent eq "imagetagbig";
+		@tmp = @tmpz;
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+		push(@tmp, "COMMENT: \\n");
+	}
+	RRDs::graph("$PNG_DIR" . "$PNG3",
+		"--title=$config->{graphs}->{_user3}  ($tf->{nwhen}$tf->{twhen})",
+		"--start=-$tf->{nwhen}$tf->{twhen}",
+		"--imgformat=PNG",
+		"--vertical-label=Users",
+		"--width=$width",
+		"--height=$height",
+		@riglim,
+		"--lower-limit=0",
+		@{$cgi->{version12}},
+		@{$cgi->{version12_small}},
+		@{$colors->{graph_colors}},
+		"DEF:mac=$rrd:user_mac:AVERAGE",
+		@tmp);
+	$err = RRDs::error;
+	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
+	if(lc($config->{enable_zoom}) eq "y") {
+		($width, $height) = split('x', $config->{graph_size}->{zoom});
+		RRDs::graph("$PNG_DIR" . "$PNG3z",
+			"--title=$config->{graphs}->{_user3}  ($tf->{nwhen}$tf->{twhen})",
+			"--start=-$tf->{nwhen}$tf->{twhen}",
+			"--imgformat=PNG",
+			"--vertical-label=Users",
+			"--width=$width",
+			"--height=$height",
+			@riglim,
+			"--lower-limit=0",
+			@{$cgi->{version12}},
+			@{$cgi->{version12_small}},
+			@{$colors->{graph_colors}},
+			"DEF:mac=$rrd:user_mac:AVERAGE",
+			@tmpz);
+		$err = RRDs::error;
+		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
+	}
+	if($title || ($silent =~ /imagetag/ && $graph =~ /user3/)) {
+		if(lc($config->{enable_zoom}) eq "y") {
+			if(lc($config->{disable_javascript_void}) eq "y") {
+				print("      <a href=\"" . $config->{url} . $config->{imgs_dir} . $PNG3z . "\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+			else {
+				print("      <a href=\"javascript:void(window.open('" . $config->{url} . $config->{imgs_dir} . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "' border='0'></a>\n");
+			}
+		} else {
+			print("      <img src='" . $config->{url} . $config->{imgs_dir} . $PNG3 . "'>\n");
+		}
+	}
+
+	if($title) {
+		print("    </td>\n");
+		print("    </tr>\n");
+		main::graph_footer();
+	}
+	print("  <br>\n");
+	return;
+}
+
+1;
diff --git a/monitorix b/monitorix
index ba8eaac..a22e8cc 100755
--- a/monitorix
+++ b/monitorix
@@ -2,7 +2,7 @@
 #
 # Monitorix - A lightweight system monitoring tool.
 #
-# Copyright (C) 2005-2012 by Jordi Sanfeliu <jordi@fibranet.cat>
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -21,25 +21,23 @@
 
 require 5.006;
 
-no strict "vars";
-no warnings "once";
-#use warnings;
-use RRDs;
-use POSIX;
-use File::Basename;
-use LWP::UserAgent;
-use XML::Simple;
-use Socket;
-use DBI;
+use strict;
+use warnings;
+use FindBin qw($Bin);
+use lib $Bin . '/lib';
+
+use Monitorix;
+use POSIX qw(WNOHANG LC_TIME setlocale uname pause);
+use Config::General;
 use Getopt::Std;
 use Cwd 'abs_path';
-use locale;
+
+use Data::Dumper;
 
 # Force a standard locale
 $ENV{LANG} = "";
 setlocale(LC_TIME, "C");
 
-# Signals to Trap and Handle
 $SIG{'INT' } = 'INT_handler';
 $SIG{'ABRT'} = 'INT_handler';
 $SIG{'QUIT'} = 'INT_handler';
@@ -50,20 +48,18 @@ $SIG{'CHLD'} = 'CHLD_handler';
 $SIG{'HUP' } = 'HUP_handler';
 $SIG{'ALRM'} = 'ALRM_handler';
 
-use constant VERSION	=> "2.6.0";
-use constant RELDATE	=> "19-Sep-2012";
+use constant VERSION	=> "2.9.9";
+use constant RELDATE	=> "31-Dec-2012";
 
 my @suppsys = ("Linux", "FreeBSD", "OpenBSD", "NetBSD");
-my @graphs;
-my @graphs_debug;
-my $os;
-my $kernel_branch;
+my %config;
+our %options;
 
 sub INT_handler {
 	my ($signal) = @_;
 
 	logger("SIG$signal caught.");
-	flush_accounting_rules();
+	flush_accounting_rules(\%config, $options{d});
 	logger("Exiting.");
 	exit(0);
 }
@@ -77,12 +73,14 @@ sub HUP_handler {
 	my $myself = (caller(0))[3];
 
 	logger("SIG$signal caught.");
+
+	# upon receiving a SIGHUP signal the logfile is re-opened
 	close(STDOUT);
 	close(STDERR);
-	unless(open(STDOUT, ">> $LOG_FILE")) {
+	unless(open(STDOUT, ">> $config{log_file}")) {
 		logger("Can't write to LOG: $!");
 	}
-	unless(open(STDERR, ">> $LOG_FILE")) {	# >>&STDOUT XXX
+	unless(open(STDERR, ">> $config{log_file}")) {	# >>&STDOUT XXX
 		logger("Can't write to LOG: $!");
 	}
 	logger("$myself: reopening log file.");
@@ -92,21 +90,32 @@ sub ALRM_handler {
 	my $myself = (caller(0))[3];
 	my ($sec, $min, $hour, $mday) = localtime(time);
 
+	# call all enabled graphs on every minute
 	if($sec == 0) {
-		foreach my $g (@graphs) {
-			my ($t) = split('_', $g);
-			logger("$myself: calling $g()") unless !$opt_d;
-			if(!grep {$_ eq $t} (@graphs_debug)) {
-				undef($t);
+		foreach my $f (@{$config{func_update}}) {
+			my $update = $f . "_update";
+			my $d = $f;
+			logger("$myself: calling $update()") unless !$options{d};
+
+			undef($d) if(!grep {trim($_) eq $d} (@{$config{debug}}));
+			if(defined($options{d}) && $options{d} eq "all") {
+				$d = $f;
 			}
-			eval {&$g($t);};
-			if($@) {
-				logger("$g(): $@");
+
+			{
+				no strict "refs";
+				eval { &$update($f, \%config, $d); };
+				if($@) {
+					logger("$update(): $@");
+				}
 			}
 		}
-		if($PC_LAN eq "Y" && $PC_ENABLE_MONTHLY_REPORTS eq "Y") {
+		if(lc($config{graph_enable}->{pc}) eq "y" && lc($config{pc_enable_monthly_reports}) eq "y") {
+			# collect traffic accounting every day at 00:00h
 			if($min == 0 && $hour == 0) {
 				get_counters();
+
+				# send reports every first day of a month at 00:00h
 				if($mday == 1) {
 					send_reports();
 				}
@@ -116,13 +125,6 @@ sub ALRM_handler {
 	alarm(1);
 }
 
-sub logger {
-	my ($msg) = @_;
-
-	$msg = localtime() . " - " . $msg;
-	print("$msg\n");
-}
-
 sub daemonize {
 	if(fork) {
 		exit(0);	# parent exits
@@ -141,10 +143,10 @@ sub daemonize {
 #	unless(open(STDIN, "< /dev/null")) {
 #		die("Can't read /dev/null: $!");
 #	}
-	unless(open(STDOUT, ">> $LOG_FILE")) {
+	unless(open(STDOUT, ">> $config{log_file}")) {
 		die("Can't write to LOG: $!");
 	}
-	unless(open(STDERR, ">> $LOG_FILE")) {	# >>&STDOUT XXX
+	unless(open(STDERR, ">> $config{log_file}")) {	# >>&STDOUT XXX
 		die("Can't write to LOG: $!");
 	}
 }
@@ -162,31 +164,36 @@ sub create_index {
 
 	my $n;
 	my $gname;
-	my %rgraphs = reverse %GRAPHS;
+	my $theme = $config{theme};
+	my %multihost = %{$config{multihost}};
+	my $bgcolor;
+	my $table_back_color;
+	my $title_back_color;
+	my $title_fore_color;
 
-	if($THEME_COLOR eq "black") {
-		$bgcolor = $BLACK{main_bg};
-		$table_back_color = $BLACK{graph_bg};
-		$title_back_color = $BLACK{title_bg};
-		$title_fore_color = $BLACK{title_fg};
-	} elsif(!$THEME_COLOR || $THEME_COLOR eq "white") {
+	if($theme eq "black") {
+		$bgcolor = $config{$theme}->{main_bg};
+		$table_back_color = $config{$theme}->{graph_bg};
+		$title_back_color = $config{$theme}->{title_bg};
+		$title_fore_color = $config{$theme}->{title_fg};
+	} elsif(!$theme || $theme eq "white") {
 		$bgcolor = "#ffffff";
 		$table_back_color = "#CCCCCC";
 		$title_back_color = "#777777";
 		$title_fore_color = "#CCCC00";
 	} else {
-		logger("$myself: ERROR: invalid value in \$THEME_COLOR") unless !$opt_d;
+		logger("$myself: ERROR: invalid value in 'theme' option") unless !$options{d};
 	}
 
-	if(!open(OUT, "> $BASE_DIR/index.html")) {
-		die "unable to create ${BASE_DIR}index.html. $!";
+	if(!open(OUT, "> $config{base_dir}/index.html")) {
+		die "unable to create '${config{base_dir}}index.html'. $!";
 	}
 	print(OUT <<EOF);
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
 <html>
  <head>
-  <title>$TITLE</title>
-  <link rel="shortcut icon" href="$FAVICON">
+  <title>$config{title}</title>
+  <link rel="shortcut icon" href="$config{base_url}/$config{favicon}">
  </head>
  <body bgcolor="$bgcolor" text="#888888" vlink="#888888" link="#888888">
   <center>
@@ -206,7 +213,7 @@ sub create_index {
     </tr>
   </table>
   <p>
-  <form action="$BASE_CGI/monitorix.cgi" method="get">
+  <form action="$config{base_cgi}/monitorix.cgi" method="get">
     <table cellspacing="5" cellpadding="0" bgcolor="$table_back_color" border="1">
       <tr>
         <td bgcolor="$title_back_color">
@@ -223,36 +230,34 @@ sub create_index {
       <tr>
 EOF
 
-	if(!$FAVICON) {
-		logger("WARNING: the option \$FAVICON is missing in your configuration file. Do you really have the latest version?");
-	}
 	print(OUT "        <td bgcolor='$bgcolor'>\n");
 	print(OUT "          <select name='mode' size='1'>\n");
 	print(OUT "            <option value='localhost'>Local Host</option>\n");
-	if(scalar(@REMOTEHOST_LIST) && $MULTIHOST eq "Y") {
+
+	if(scalar(my @remotehost_list = split(',', $multihost{remotehost_list})) && lc($multihost{enabled}) eq "y") {
 		print(OUT "            <optgroup label='Multihost'>\n");
 		print(OUT "            <option value='multihost.all'>All Hosts</option>\n");
-		for($n = 0; $n < scalar(@REMOTEHOST_LIST); $n += 2) {
-			print(OUT "              <option value='multihost." . ($n / 2). "'>" . $REMOTEHOST_LIST[$n] . "</option>\n");
+		for($n = 0; $n < scalar(@remotehost_list); $n++) {
+			print(OUT "              <option value='multihost.$n'>" . trim($remotehost_list[$n]) . "</option>\n");
                               }
 		print(OUT "            </optgroup>\n");
-	}
 
-
-	if(scalar(@REMOTEGROUP_LIST) && $MULTIHOST eq "Y" && $GROUPS eq "Y" ) {
-		print(OUT "            <optgroup label='Multihost-Groups'>\n");
-		print(OUT "            <option value='multihost.group'>All Groups</option>\n");
-		for($n = 0; $n < scalar(@REMOTEGROUP_LIST); $n += 2) {
-			print(OUT "              <option value='multihost.group" . ($n / 2). "'>" . $REMOTEGROUP_LIST[$n] . "</option>\n");
+		if(lc($multihost{groups}) eq "y" ) {
+			my @remotegroup_list = split(',', $multihost{remotegroup_list});
+			print(OUT "            <optgroup label='Multihost-Groups'>\n");
+			print(OUT "            <option value='multihost.group'>All Groups</option>\n");
+			for($n = 0; $n < scalar(@remotegroup_list); $n++) {
+				print(OUT "              <option value='multihost.group$n'>" . trim($remotegroup_list[$n]) . "</option>\n");
+			}
+			print(OUT "            </optgroup>\n");
 		}
-		print(OUT "            </optgroup>\n");
 	}
 
-	if(scalar(@PC_LIST) && $PC_LAN eq "Y") {
+	if(scalar(my @pc_list = split(',', $config{pc_list})) && lc($config{graph_enable}->{pc}) eq "y") {
 		print(OUT "            <optgroup label='LAN PCs'>\n");
 		print(OUT "              <option value='pc.all'>All LAN PCs</option>\n");
-		for($n = 0; $n < scalar(@PC_LIST); $n++) {
-			print(OUT "              <option value='pc." . $n . "'>" . $PC_LIST[$n] . "</option>\n");
+		for($n = 0; $n < scalar(@pc_list); $n++) {
+			print(OUT "              <option value='pc.$n'>" . trim($pc_list[$n]) . "</option>\n");
                               }
 		print(OUT "            </optgroup>\n");
 	}
@@ -264,48 +269,51 @@ EOF
 	print(OUT "        <td bgcolor='$bgcolor'>\n");
 	print(OUT "          <select name='graph' size='1'>\n");
 	print(OUT "            <option value='all'>All graphs</option>\n");
-	foreach my $g (@GRAPH_NAME) {
-		if($GRAPH_ENABLE{$g} eq "Y") {
-			print(OUT "            <optgroup label='" . $GRAPH_TITLE{$g} . "'>\n");
+	foreach (split(',', $config{graph_name})) {
+		my $g = trim($_);
+		if(lc($config{graph_enable}->{$g}) eq "y") {
+			print(OUT "            <optgroup label='" . $config{graph_title}->{$g} . "'>\n");
 			if($g eq "proc") {
-				for($n = 0; $n < $PROC_MAX; $n++) {
+				for($n = 0; $n < $config{proc}->{max}; $n++) {
 					$gname = "_" . $g;
-					print(OUT "              <option value='" . $gname . $n . "'>" . $rgraphs{$gname} . " " . $n . "</option>\n");
+					print(OUT "              <option value='" . $gname . $n . "'>" . $config{graphs}->{$gname} . " " . $n . "</option>\n");
 				}
 				next;
 			}
 			if($g eq "net") {
 				my $n2;
-				for($n = 0; $n < scalar(@NET_LIST); $n++) {
+				for($n = 0; $n < scalar(my @nl = split(',', $config{net}->{list})); $n++) {
 					$gname = "_" . $g;
 					for($n2 = 1; $n2 <= 3; $n2++) {
-						$str = $rgraphs{$gname . $n2};
-						$str =~ s/^/$NET_LIST[$n] /;
+						my $str = trim($nl[$n]) . " " . $config{graphs}->{$gname . $n2};
 						print(OUT "              <option value='" . $gname . $n . $n2 . "'>" . $str . "</option>\n");
 					}
 				}
 				next;
 			}
 			if($g eq "port") {
-				for($n = 0; $n < $PORT_MAX && $n < scalar(@PORT_LIST); $n++) {
+				for($n = 0; $n < $config{port}->{max} && $n < scalar(my @port_list = split(',', $config{port}->{list})); $n++) {
+					my $num = trim($port_list[$n]);
+					my ($name) = (split(',', $config{port}->{desc}->{$num}))[0];
 					$gname = "_" . $g;
-					print(OUT "              <option value='" . $gname . $n . "'>" . $rgraphs{$gname} . " " . $PORT_LIST[$n] . " (" . $PORT_NAME[$n] . ")" . "</option>\n");
+					print(OUT "              <option value='" . $gname . $n . "'>" . $config{graphs}->{$gname} . " " . $num . " (" . trim($name) . ")" . "</option>\n");
 				}
 				next;
 			}
 			if($g eq "fail2ban") {
-				for($n = 0; $n < scalar(@FAIL2BAN_LIST); $n++) {
+				for($n = 0; $n < scalar(my @fail2ban_list = split(',', $config{fail2ban}->{list})); $n++) {
+					my $name = trim($fail2ban_list[$n]);
 					$gname = "_" . $g;
-					print(OUT "              <option value='" . $gname . $n . "'>" . ($FAIL2BAN_DESC[$n] ? $FAIL2BAN_DESC[$n] : $rgraphs{$gname}) . "</option>\n");
+					print(OUT "              <option value='" . $gname . $n . "'>" . $name . "</option>\n");
 				}
 				next;
 			}
 			$n = 0;
-			foreach my $k (sort keys %rgraphs) {
+			foreach my $k (sort keys %{$config{graphs}}) {
 				if($k =~ m/$g/) {
 					$gname = "_" . $g . ++$n;
-					if($rgraphs{$gname}) {
-						print(OUT "              <option value='" . $gname ."'>" . $rgraphs{$gname} . "</option>\n");
+					if($config{graphs}->{$gname}) {
+						print(OUT "              <option value='" . $gname ."'>" . $config{graphs}->{$gname} . "</option>\n");
 					}
 				}
 			}
@@ -341,7 +349,7 @@ EOF
       </tr>
     </table>
     <p>
-    <input type="hidden" name="color" value="$THEME_COLOR">
+    <input type="hidden" name="color" value="$theme">
     <input type="submit" value="    Ok    ">
   </form>
   </font>
@@ -352,6601 +360,66 @@ EOF
 	close(OUT);
 }
 
-sub flush_accounting_rules {
-	my $num = 0;
-
-	# flushes out any Monitorix iptables/ipfw rules
-	if($os eq "Linux") {
-		logger("Flushing out iptables rules.") unless !$opt_d;
-		if(open(IN, "iptables -nxvL INPUT --line-numbers |")) {
-			my @rules;
-			my @names;
-			while(<IN>) {
-				my ($rule, undef, undef, $name) = split(' ', $_);
-				if($name =~ /MONITORIX_IN/ || /NGINX_IN/) {
-					push(@rules, $rule);
-					push(@names, $name);
-				}
-			}
-			close(IN);
-			@rules = reverse(@rules);
-			foreach(@rules) {
-				system("iptables -D INPUT $_");
-				$num++;
-			}
-			foreach(@names) {
-				system("iptables -X $_");
-			}
-		}
-		if(open(IN, "iptables -nxvL OUTPUT --line-numbers |")) {
-			my @rules;
-			my @names;
-			while(<IN>) {
-				my ($rule, undef, undef, $name) = split(' ', $_);
-				if($name =~ /MONITORIX_OUT/ || /NGINX_OUT/) {
-					push(@rules, $rule);
-					push(@names, $name);
-				}
-			}
-			close(IN);
-			@rules = reverse(@rules);
-			foreach(@rules) {
-				system("iptables -D OUTPUT $_");
-				$num++;
-			}
-			foreach(@names) {
-				system("iptables -X $_");
-			}
-		}
-		logger("$num iptables rules have been flushed.") unless !$opt_d;
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		logger("Flushing out ipfw rules.") unless !$opt_d;
-		system("ipfw delete $PORT_RULE 2>/dev/null");
-		system("ipfw delete $NGINX_RULE 2>/dev/null");
-	}
-}
-
-# SYSTEM graph
-# ----------------------------------------------------------------------------
-sub system_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $SYSTEM_RRD)) {
-		logger("Creating '$SYSTEM_RRD' file.");
-		eval {
-			RRDs::create($SYSTEM_RRD,
-				"--step=60",
-				"DS:system_load1:GAUGE:120:0:U",
-				"DS:system_load5:GAUGE:120:0:U",
-				"DS:system_load15:GAUGE:120:0:U",
-				"DS:system_nproc:GAUGE:120:0:U",
-				"DS:system_npslp:GAUGE:120:0:U",
-				"DS:system_nprun:GAUGE:120:0:U",
-				"DS:system_npwio:GAUGE:120:0:U",
-				"DS:system_npzom:GAUGE:120:0:U",
-				"DS:system_npstp:GAUGE:120:0:U",
-				"DS:system_npswp:GAUGE:120:0:U",
-				"DS:system_mtotl:GAUGE:120:0:U",
-				"DS:system_mbuff:GAUGE:120:0:U",
-				"DS:system_mcach:GAUGE:120:0:U",
-				"DS:system_mfree:GAUGE:120:0:U",
-				"DS:system_macti:GAUGE:120:0:U",
-				"DS:system_minac:GAUGE:120:0:U",
-				"DS:system_val01:GAUGE:120:0:U",
-				"DS:system_val02:GAUGE:120:0:U",
-				"DS:system_val03:GAUGE:120:0:U",
-				"DS:system_val04:GAUGE:120:0:U",
-				"DS:system_val05:GAUGE:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $SYSTEM_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	if($ENABLE_ALERTS eq "Y") {
-		if(! -x $ALERT_LOADAVG_SCRIPT) {
-			logger("$myself: ERROR: script '$ALERT_LOADAVG_SCRIPT' doesn't exist or don't has execute permissions.");
-		}
-	}
-
-	our $system_hist = 0;
-	push(@graphs, "system_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub system_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $load1;
-	my $load5;
-	my $load15;
-	my $nproc;
-	my $npslp;
-	my $nprun;
-	my $npwio;
-	my $npzom;
-	my $npstp;
-	my $npswp;
-	my $mtotl;
-	my $mbuff;
-	my $mcach;
-	my $mfree;
-	my $macti;
-	my $minac;
-	my $val01 = 0;
-	my $val02 = 0;
-	my $val03 = 0;
-	my $val04 = 0;
-	my $val05 = 0;
-
-	my $rrdata = "N";
-
-	$npwio = $npzom = $npstp = $npswp = 0;
-
-	if($os eq "Linux") {
-		open(IN, "/proc/loadavg");
-		while(<IN>) {
-			if(/^(\d+\.\d+) (\d+\.\d+) (\d+\.\d+) (\d+)\/(\d+)/) {
-				$load1 = $1;
-				$load5 = $2;
-				$load15 = $3;
-				$nprun = $4;
-				$npslp = $5;
-			}
-		}
-		close(IN);
-		$nproc = $npslp + $nprun;
-
-		open(IN, "/proc/meminfo");
-		while(<IN>) {
-			if(/^MemTotal:\s+(\d+) kB$/) {
-				$mtotl = $1;
-				next;
-			}
-			if(/^MemFree:\s+(\d+) kB$/) {
-				$mfree = $1;
-				next;
-			}
-			if(/^Buffers:\s+(\d+) kB$/) {
-				$mbuff = $1;
-				next;
-			}
-			if(/^Cached:\s+(\d+) kB$/) {
-				$mcach = $1;
-				last;
-			}
-		}
-		close(IN);
-		$macti = $minac = "";
-	} elsif($os eq "FreeBSD") {
-		my $page_size;
-		open(IN, "sysctl -n vm.loadavg |");
-		while(<IN>) {
-			if(/^\{ (\d+\.\d+) (\d+\.\d+) (\d+\.\d+) \}$/) {
-				$load1 = $1;
-				$load5 = $2;
-				$load15 = $3;
-			}
-		}
-		close(IN);
-		open(IN, "sysctl vm.vmtotal |");
-		while(<IN>) {
-			if(/^Processes:\s+\(RUNQ:\s+(\d+) Disk.*? Sleep:\s+(\d+)\)$/) {
-				$nprun = $1;
-				$npslp = $2;
-			}
-			if(/^Free Memory Pages:\s+(\d+)K$/) {
-				$mfree = $1;
-			}
-		}
-		close(IN);
-		$nproc = $npslp + $nprun;
-		$mtotl = `sysctl -n hw.realmem`;
-		$mbuff = `sysctl -n vfs.bufspace`;
-		$mcach = `sysctl -n vm.stats.vm.v_cache_count`;
-
-		chomp($mbuff);
-		$mbuff = $mbuff / 1024;
-		chomp($mtotl);
-		$mtotl = $mtotl / 1024;
-		$page_size = `sysctl -n vm.stats.vm.v_page_size`;
-		$macti = `sysctl -n vm.stats.vm.v_active_count`;
-		$minac = `sysctl -n vm.stats.vm.v_inactive_count`;
-		chomp($page_size, $mcach, $macti, $minac);
-		$mcach = ($page_size * $mcach) / 1024;
-		$macti = ($page_size * $macti) / 1024;
-		$minac = ($page_size * $minac) / 1024;
-	} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-		open(IN, "sysctl -n vm.loadavg |");
-		while(<IN>) {
-			if(/^(\d+\.\d+) (\d+\.\d+) (\d+\.\d+)$/) {
-				$load1 = $1;
-				$load5 = $2;
-				$load15 = $3;
-			}
-		}
-		close(IN);
-		open(IN, "top -b |");
-		while(<IN>) {
-			if(/ processes:/) {
-				$_ =~ s/:/,/;
-				my (@tmp) = split(',', $_);
-				foreach(@tmp) {
-					my ($num, $desc) = split(' ', $_);
-					$nproc = $num unless $desc ne "processes";
-					if(grep {$_ eq $desc} ("idle", "sleeping", "stopped", "zombie")) {
-						$npslp += $num;
-					}
-					if($desc eq "running" || $desc eq "on") {
-						$nprun += $num;
-					}
-				}
-			}
-			if($os eq "OpenBSD") {
-				if(/^Memory: Real: (\d+)\w\/\d+\w act\/tot  Free: (\d+)\w  /) {
-					$macti = $1;
-					$mfree = $2;
-					$macti = int($macti) * 1024;
-					$mfree = int($mfree) * 1024;
-					last;
-				}
-			}
-			if($os eq "NetBSD") {
-				if(/^Memory: (\d+)\w Act, .*, (\d+)\w Free/) {
-					$macti = $1;
-					$mfree = $2;
-					$macti = int($macti) * 1024;
-					$mfree = int($mfree) * 1024;
-					last;
-				}
-			}
-		}	
-		close(IN);
-		$mtotl = `sysctl -n hw.physmem`;
-		chomp($mtotl);
-		$mtotl = $mtotl / 1024;
-	}
-
-	chomp(
-		$load1,
-		$load5,
-		$load15,
-		$nproc,
-		$npslp,
-		$nprun,
-		$npwio,
-		$npzom,
-		$npstp,
-		$npswp,
-		$mtotl,
-		$mbuff,
-		$mcach,
-		$mfree,
-		$macti,
-		$minac,
-	);
-
-	# SYSTEM alert
-	if($ENABLE_ALERTS eq "Y") {
-		if(!$ALERT_LOADAVG_THRESHOLD || $load15 < $ALERT_LOADAVG_THRESHOLD) {
-			$system_hist = 0;
-		} else {
-			if(!$system_hist) {
-				$system_hist = time;
-			}
-			if($system_hist > 0 && (time - $system_hist) > $ALERT_LOADAVG_TIMEINTVL) {
-				if(-x $ALERT_LOADAVG_SCRIPT) {
-					system($ALERT_LOADAVG_SCRIPT . " " .$ALERT_LOADAVG_TIMEINTVL . " " . $ALERT_LOADAVG_THRESHOLD . " " . $load15);
-				}
-				$system_hist = time;
-			}
-		}
-	}
-
-	$rrdata .= ":$load1:$load5:$load15:$nproc:$npslp:$nprun:$npwio:$npzom:$npstp:$npswp:$mtotl:$mbuff:$mcach:$mfree:$macti:$minac:$val01:$val02:$val03:$val04:$val05";
-	RRDs::update($SYSTEM_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $SYSTEM_RRD: $err") if $err;
-}
-
-# KERN graph
-# ----------------------------------------------------------------------------
-sub kern_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $KERN_RRD)) {
-		logger("Creating '$KERN_RRD' file.");
-		eval {
-			RRDs::create($KERN_RRD,
-				"--step=60",
-				"DS:kern_user:GAUGE:120:0:100",
-				"DS:kern_nice:GAUGE:120:0:100",
-				"DS:kern_sys:GAUGE:120:0:100",
-				"DS:kern_idle:GAUGE:120:0:100",
-				"DS:kern_iow:GAUGE:120:0:100",
-				"DS:kern_irq:GAUGE:120:0:100",
-				"DS:kern_sirq:GAUGE:120:0:100",
-				"DS:kern_steal:GAUGE:120:0:100",
-				"DS:kern_guest:GAUGE:120:0:100",
-				"DS:kern_cs:COUNTER:120:0:U",
-				"DS:kern_dentry:GAUGE:120:0:100",
-				"DS:kern_file:GAUGE:120:0:100",
-				"DS:kern_inode:GAUGE:120:0:100",
-				"DS:kern_forks:COUNTER:120:0:U",
-				"DS:kern_vforks:COUNTER:120:0:U",
-				"DS:kern_val03:GAUGE:120:0:100",
-				"DS:kern_val04:GAUGE:120:0:100",
-				"DS:kern_val05:GAUGE:120:0:100",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $KERN_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.2.0 two new values are used (kern_val01 and kern_val02) to
-	# support 'forks' and 'vforks'. These two values need to be converted
-	# to COUNTER and renamed.
-	RRDs::tune($KERN_RRD,
-		"--data-source-rename=kern_val01:kern_forks",
-		"--data-source-type=kern_forks:COUNTER",
-		"--maximum=kern_forks:U",
-	);
-	RRDs::tune($KERN_RRD,
-		"--data-source-rename=kern_val02:kern_vforks",
-		"--data-source-type=kern_vforks:COUNTER",
-		"--maximum=kern_vforks:U",
-	);
-
-	our %kernel_hist = ();
-	push(@graphs, "kern_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub kern_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $user;
-	my $nice;
-	my $sys;
-	my $idle;
-	my $iow;
-	my $irq;
-	my $sirq;
-	my $steal;
-	my $guest;
-	my $cs;
-	my $dentry;
-	my $file;
-	my $inode;
-	my $forks;
-	my $vforks = 0;
-	my $val03 = 0;
-	my $val04 = 0;
-	my $val05 = 0;
-	
-	my $lastuser = 0;
-	my $lastnice = 0;
-	my $lastsys = 0;
-	my $lastidle = 0;
-	my $lastiow = 0;
-	my $lastirq = 0;
-	my $lastsirq = 0;
-	my $laststeal = 0;
-	my $lastguest = 0;
-
-	my $rrdata = "N";
-
-	if($kernel_hist{'kernel'}) {
-		(undef, $lastuser, $lastnice, $lastsys, $lastidle, $lastiow, $lastirq, $lastsirq, $laststeal, $lastguest) = split(' ', $kernel_hist{'kernel'});
-	}
-
-	if($os eq "Linux") {
-		open(IN, "/proc/stat");
-		while(<IN>) {
-			if(/^cpu /) {
-				(undef, $user, $nice, $sys, $idle, $iow, $irq, $sirq, $steal, $guest) = split(' ', $_);
-				$kernel_hist{'kernel'} = $_;
-				next;
-			}
-			if(/^ctxt (\d+)$/) {
-				# avoid initial spike
-				$cs = int($1) unless !$kernel_hist{'cs'};
-				$kernel_hist{'cs'} = int($1) unless $kernel_hist{'cs'};
-				next;
-			}
-			if(/^processes (\d+)$/) {
-				# avoid initial spike
-				$forks = int($1) unless !$kernel_hist{'forks'};
-				$kernel_hist{'forks'} = int($1) unless $kernel_hist{'forks'};
-				$vforks = 0;
-				last;
-			}
-		}
-		close(IN);
-		open(IN, "/proc/sys/fs/dentry-state");
-			while(<IN>) {
-				if(/^(\d+)\s+(\d+)\s+/) {
-					$dentry = ($1 * 100) / ($1 + $2);
-				}
-			}
-		close(IN);
-		open(IN, "/proc/sys/fs/file-nr");
-			while(<IN>) {
-				if(/^(\d+)\s+\d+\s+(\d+)$/) {
-					$file = ($1 * 100) / $2;
-				}
-			}
-		close(IN);
-		open(IN, "/proc/sys/fs/inode-nr");
-			while(<IN>) {
-				if(/^(\d+)\s+(\d+)$/) {
-					$inode = ($1 * 100) / ($1 + $2);
-				}
-			}
-		close(IN);
-	} elsif($os eq "FreeBSD") {
-		my $max;
-		my $num;
-		my $data;
-
-		my $cptime = `sysctl -n kern.cp_time`;
-		chomp($cptime);
-		my @tmp = split(' ', $cptime);
-		($user, $nice, $sys, $iow, $idle) = @tmp;
-
-		$kernel_hist{'kernel'} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
-		$data = `sysctl -n vm.stats.sys.v_swtch`;
-		chomp($data);
-		$cs = int($data) unless !$kernel_hist{'cs'};
-		$kernel_hist{'cs'} = int($data) unless $kernel_hist{'cs'};
-
-		$data = `sysctl -n vm.stats.vm.v_forks`;
-		chomp($data);
-		$forks = int($data) unless !$kernel_hist{'forks'};
-		$kernel_hist{'forks'} = int($data) unless $kernel_hist{'forks'};
-
-		$data = `sysctl -n vm.stats.vm.v_vforks`;
-		chomp($data);
-		$vforks = int($data) unless !$kernel_hist{'vforks'};
-		$kernel_hist{'vforks'} = int($data) unless $kernel_hist{'vforks'};
-
-		$max = `sysctl -n kern.maxfiles`;
-		chomp($max);
-		$num = `sysctl -n kern.openfiles`;
-		chomp($num);
-		$file = ($num * 100) / $max;
-
-		$max = `sysctl -n kern.maxvnodes`;
-		chomp($max);
-		$num = `sysctl -n vfs.numvnodes`;
-		chomp($num);
-		$inode = ($num * 100) / $max;
-	} elsif($os eq "OpenBSD") {
-		my $max;
-		my $num;
-		my $data;
-
-		my $cptime = `sysctl -n kern.cp_time`;
-		chomp($cptime);
-		my @tmp = split(',', $cptime);
-		($user, $nice, $sys, $iow, $idle) = @tmp;
-		$kernel_hist{'kernel'} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
-		open(IN, "vmstat -s |");
-		while(<IN>) {
-			if(/^\s*(\d+) cpu context switches$/) {
-				$cs = int($1) unless !$kernel_hist{'cs'};
-				$kernel_hist{'cs'} = int($1) unless $kernel_hist{'cs'};
-				last;
-			}
-		}
-		close(IN);
-
-		$data = `sysctl -n kern.forkstat.forks`;
-		chomp($data);
-		$forks = int($data) unless !$kernel_hist{'forks'};
-		$kernel_hist{'forks'} = int($data) unless $kernel_hist{'forks'};
-
-		$data = `sysctl -n kern.forkstat.vforks`;
-		chomp($data);
-		$vforks = int($data) unless !$kernel_hist{'vforks'};
-		$kernel_hist{'vforks'} = int($data) unless $kernel_hist{'vforks'};
-
-		$max = `sysctl -n kern.maxfiles`;
-		chomp($max);
-		$num = `sysctl -n kern.nfiles`;
-		chomp($num);
-		$file = ($num * 100) / $max;
-
-		$max = `sysctl -n kern.maxvnodes`;
-		chomp($max);
-		$data = `sysctl -n kern.malloc.kmemstat.vnodes`;
-		($num) = ($data =~ m/^\(inuse = (\d+), /);
-		$inode = ($num * 100) / $max;
-	} elsif($os eq "NetBSD") {
-		my $max;
-		my $num;
-		my $data;
-
-		my $cptime = `sysctl -n kern.cp_time`;
-		chomp($cptime);
-		my @tmp = ($cptime =~ m/user = (\d+), nice = (\d+), sys = (\d+), intr = (\d+), idle = (\d+)/);
-		($user, $nice, $sys, $iow, $idle) = @tmp;
-		$kernel_hist{'kernel'} = join(' ', "cpu", $user, $nice, $sys, $idle, $iow);
-		open(IN, "vmstat -s |");
-		while(<IN>) {
-			if(/^\s*(\d+) CPU context switches$/) {
-				$cs = int($1) unless !$kernel_hist{'cs'};
-				$kernel_hist{'cs'} = int($1) unless $kernel_hist{'cs'};
-				next;
-			}
-			if(/^\s*(\d+) forks total$/) {
-				$forks = int($1) unless !$kernel_hist{'forks'};
-				$kernel_hist{'forks'} = int($1) unless $kernel_hist{'forks'};
-				next;
-			}
-		}
-		close(IN);
-
-		$vforks = 0;
-
-		open(IN, "pstat -T |");
-		while(<IN>) {
-			if(/^(\d+)\/(\d+) files$/) {
-				$file = ($1 * 100) / $2;
-			}
-		}
-		close(IN);
-
-		$inode = 0;
-	}
-
-	# Linux 2.4, early Linux 2.6 versions and other systems don't have
-	# these values.
-	$iow = 0 unless $iow;
-	$irq = 0 unless $irq;
-	$sirq = 0 unless $sirq;
-	$steal = 0 unless $sirq;
-	$guest = 0 unless $guest;
-	$lastiow = 0 unless $lastiow;
-	$lastirq = 0 unless $lastirq;
-	$lastsirq = 0 unless $lastsirq;
-	$laststeal = 0 unless $lastsirq;
-	$lastguest = 0 unless $lastguest;
-
-	if($user >= $lastuser && $nice >= $lastnice && $sys >= $lastsys && $idle >= $lastidle && $iow >= $lastiow && $irq >= $lastirq && $sirq >= $lastsirq && $steal >= $laststeal && $guest >= $lastguest) {
-		my $user_ = $user - $lastuser;
-		my $nice_ = $nice - $lastnice;
-		my $sys_ = $sys - $lastsys;
-		my $idle_ = $idle - $lastidle;
-		my $iow_ = $iow - $lastiow;
-		my $irq_ = $irq - $lastirq;
-		my $sirq_ = $sirq - $lastsirq;
-		my $steal_ = $steal - $laststeal;
-		my $guest_ = $guest - $lastguest;
-		my $total = $user_ + $nice_ + $sys_ + $idle_ + $iow_ + $irq_ + $sirq_ + $steal_ + $guest_;
-		$user = ($user_ * 100) / $total;
-		$nice = ($nice_ * 100) / $total;
-		$sys = ($sys_ * 100) / $total;
-		$idle = ($idle_ * 100) / $total;
-		$iow = ($iow_ * 100) / $total;
-		$irq = ($irq_ * 100) / $total;
-		$sirq = ($sirq_ * 100) / $total;
-		$steal = ($steal_ * 100) / $total;
-		$guest = ($guest_ * 100) / $total;
-	} else {
-		$user = "nan";
-		$nice = "nan";
-		$sys = "nan";
-		$idle = "nan";
-		$iow = "nan";
-		$irq = "nan";
-		$sirq = "nan";
-		$steal = "nan";
-		$guest = "nan";
-	}
-
-	$rrdata .= ":$user:$nice:$sys:$idle:$iow:$irq:$sirq:$steal:$guest:$cs:$dentry:$file:$inode:$forks:$vforks:$val03:$val04:$val05";
-	RRDs::update($KERN_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $KERN_RRD: $err") if $err;
-}
-
-# PROC graph
-# ----------------------------------------------------------------------------
-sub proc_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(!grep {$_ eq $os} ("Linux", "FreeBSD")) {
-		logger("$myself is not supported yet by your operating system ($os).");
-		return;
-	}
-
-	if(-e $PROC_RRD) {
-		$info = RRDs::info($PROC_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-#					print("$key\n");
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-#		foreach(@ds) {
-#			print($_ . "\n");
-#		}
-#		print(scalar(@ds) . "\n");
-		if(scalar(@ds) / 9 != $PROC_MAX) {
-			logger("Detected size mismatch between \$PROC_MAX ($PROC_MAX) and $PROC_RRD (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($PROC_RRD, "$PROC_RRD.bak");
-		}
-	}
-
-	if(!(-e $PROC_RRD)) {
-		logger("Creating '$PROC_RRD' file.");
-		for($n = 0; $n < $PROC_MAX; $n++) {
-			push(@tmp, "DS:proc" . $n . "_user:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_nice:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_sys:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_idle:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_iow:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_irq:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_sirq:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_steal:GAUGE:120:0:100");
-			push(@tmp, "DS:proc" . $n . "_guest:GAUGE:120:0:100");
-		}
-		eval {
-			RRDs::create($PROC_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $PROC_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	our %proc_hist = ();
-	push(@graphs, "proc_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub proc_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @proc;
-	my $total;
-	
-	my $n;
-	my @lastproc;
-
-	my @p;
-	my @l;
-	my $rrdata = "N";
-
-	# Read last processor usage data
-	my $str;
-	for($n = 0; $n < $PROC_MAX; $n++) {
-		$str = "cpu" . $n;
-		if($proc_hist{$str}) {
-			push(@lastproc, $proc_hist{$str});
-		}
-	}
-
-	if($os eq "Linux") {
-		open(IN, "/proc/stat");
-		while(<IN>) {
-			for($n = 0; $n < $PROC_MAX; $n++) {
-				$str = "cpu" . $n;
-				if(/^cpu$n /) {
-					$proc_hist{$str} = $_;
-					chomp($proc_hist{$str});
-					push(@proc, $proc_hist{$str});
-				}
-			}
-		}
-		close(IN);
-	} elsif($os eq "FreeBSD") {
-		my $cptimes;
-		my @tmp;
-		my $from;
-		my $to;
-		my $ncpu = `sysctl -n hw.ncpu`;
-		open(IN, "sysctl -n kern.cp_times |");
-		my @data = split(' ', <IN>);
-		close(IN);
-		chomp($ncpu);
-		for($n = 0; $n < $PROC_MAX; $n++) {
-			$str = "cpu" . $n;
-			$from = $n * 5;
-			$to = $from + 4;
-			@tmp = @data[$from..$to];
-			@tmp[0, 1, 2, 3, 4] = @tmp[0, 1, 2, 4, 3];
-			$cptimes = join(' ', @tmp);
-			chomp($cptimes);
-			$cptimes = $str . " " . $cptimes;
-			$proc_hist{$str} = $cptimes;
-			push(@proc, $cptimes);
-		}
-	}
-
-	my @deltas;
-	for($n = 0; $n < $PROC_MAX; $n++) {
-		if($proc[$n]) {
-			@p = split(' ', $proc[$n]);
-			@l = split(' ', $lastproc[$n]);
-			@deltas = (
-				$p[1] - $l[1],	# user
-				$p[2] - $l[2],	# nice
-				$p[3] - $l[3],	# sys
-				$p[4] - $l[4],	# idle
-				$p[5] - $l[5],	# iow
-				$p[6] - $l[6],	# irq
-				$p[7] - $l[7],	# sirq
-				$p[8] - $l[8],	# steal
-				$p[9] - $l[9],	# guest
-			);
-			$total = $deltas[0] + $deltas[1] + $deltas[2] + $deltas[3] + $deltas[4] + $deltas[5] + $deltas[6] + $deltas[7] + $deltas[8];
-
-			undef(@p);
-			push(@p, $deltas[0] ? ($deltas[0] * 100) / $total : 0);
-			push(@p, $deltas[1] ? ($deltas[1] * 100) / $total : 0);
-			push(@p, $deltas[2] ? ($deltas[2] * 100) / $total : 0);
-			push(@p, $deltas[3] ? ($deltas[3] * 100) / $total : 0);
-			push(@p, $deltas[4] ? ($deltas[4] * 100) / $total : 0);
-			push(@p, $deltas[5] ? ($deltas[5] * 100) / $total : 0);
-			push(@p, $deltas[6] ? ($deltas[6] * 100) / $total : 0);
-			push(@p, $deltas[7] ? ($deltas[7] * 100) / $total : 0);
-			push(@p, $deltas[8] ? ($deltas[8] * 100) / $total : 0);
-			$proc[$n] = join(' ', @p);
-		} else {
-			$proc[$n] = join(' ', (0, 0, 0, 0, 0, 0, 0, 0, 0));
-		}
-	}
-
-	for($n = 0; $n < $PROC_MAX; $n++) {
-		@p = split(' ', $proc[$n]);
-		$rrdata .= ":$p[0]:$p[1]:$p[2]:$p[3]:$p[4]:$p[5]:$p[6]:$p[7]:$p[8]";
-	}
-	RRDs::update($PROC_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $PROC_RRD: $err") if $err;
-}
-
-# HPTEMP graph
-# ----------------------------------------------------------------------------
-sub hptemp_init {
-	my $myself = (caller(0))[3];
-
-	# save the contents of 'hplog -t' since only 'root' is able to run it
-	# it also checks if 'hplog' does exists.
-	if(!open(IN, "hplog -t |")) {
-		logger("$myself: unable to execute 'hplog'. $!");
-		return;
-	}
-	my @data = <IN>;
-	close(IN);
-	open(OUT, "> $BASE_DIR/cgi-bin/monitorix.hplog");
-	print(OUT @data);
-	close(OUT);
-
-	if(!(-e $HPTEMP_RRD)) {
-		logger("Creating '$HPTEMP_RRD' file.");
-		eval {
-			RRDs::create($HPTEMP_RRD,
-				"--step=60",
-				"DS:hptemp1_1:GAUGE:120:0:100",
-				"DS:hptemp1_2:GAUGE:120:0:100",
-				"DS:hptemp1_3:GAUGE:120:0:100",
-				"DS:hptemp1_4:GAUGE:120:0:100",
-				"DS:hptemp1_5:GAUGE:120:0:100",
-				"DS:hptemp1_6:GAUGE:120:0:100",
-				"DS:hptemp1_7:GAUGE:120:0:100",
-				"DS:hptemp1_8:GAUGE:120:0:100",
-				"DS:hptemp2_1:GAUGE:120:0:100",
-				"DS:hptemp2_2:GAUGE:120:0:100",
-				"DS:hptemp2_3:GAUGE:120:0:100",
-				"DS:hptemp2_4:GAUGE:120:0:100",
-				"DS:hptemp2_5:GAUGE:120:0:100",
-				"DS:hptemp2_6:GAUGE:120:0:100",
-				"DS:hptemp3_1:GAUGE:120:0:100",
-				"DS:hptemp3_2:GAUGE:120:0:100",
-				"DS:hptemp3_3:GAUGE:120:0:100",
-				"DS:hptemp3_4:GAUGE:120:0:100",
-				"DS:hptemp3_5:GAUGE:120:0:100",
-				"DS:hptemp3_6:GAUGE:120:0:100",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $HPTEMP_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "hptemp_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub hptemp_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @hptemp1;
-	my @hptemp2;
-	my @hptemp3;
-
-	my $l;
-	my $n;
-	my $rrdata = "N";
-
-	open(IN, "hplog -t |");
-	my @data = <IN>;
-	close(IN);
-	my $str;
-	for($l = 0; $l < scalar(@data); $l++) {
-		$_ = @data[$l];
-		foreach my $t (@HPTEMP_1) {
-			$str = sprintf("%2d", $t);
-			if(/^$str  /) {
-				my $temp = substr($_, 47, 3);
-				chomp($temp);
-				push(@hptemp1, int($temp));
-			}
-		}
-		foreach my $t (@HPTEMP_2) {
-			$str = sprintf("%2d", $t);
-			if(/^$str  /) {
-				my $temp = substr($_, 47, 3);
-				chomp($temp);
-				push(@hptemp2, int($temp));
-			}
-		}
-		foreach my $t (@HPTEMP_3) {
-			$str = sprintf("%2d", $t);
-			if(/^$str  /) {
-				my $temp = substr($_, 47, 3);
-				chomp($temp);
-				push(@hptemp3, int($temp));
-			}
-		}
-	}
-	for($n = 0; $n < 8; $n++) {
-		$hptemp1[$n] = 0 unless $hptemp1[$n];
-		$rrdata .= ":$hptemp1[$n]";
-	}
-	for($n = 0; $n < 6; $n++) {
-		$hptemp2[$n] = 0 unless $hptemp2[$n];
-		$rrdata .= ":$hptemp2[$n]";
-	}
-	for($n = 0; $n < 6; $n++) {
-		$hptemp3[$n] = 0 unless $hptemp3[$n];
-		$rrdata .= ":$hptemp3[$n]";
-	}
-
-	RRDs::update($HPTEMP_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $HPTEMP_RRD: $err") if $err;
-}
-
-# LMSENS graph
-# ----------------------------------------------------------------------------
-sub lmsens_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $LMSENS_RRD)) {
-		logger("Creating '$LMSENS_RRD' file.");
-		eval {
-			RRDs::create($LMSENS_RRD,
-				"--step=60",
-				"DS:lmsens_mb0:GAUGE:120:0:100",
-				"DS:lmsens_mb1:GAUGE:120:0:100",
-				"DS:lmsens_cpu0:GAUGE:120:0:100",
-				"DS:lmsens_cpu1:GAUGE:120:0:100",
-				"DS:lmsens_cpu2:GAUGE:120:0:100",
-				"DS:lmsens_cpu3:GAUGE:120:0:100",
-				"DS:lmsens_fan0:GAUGE:120:0:U",
-				"DS:lmsens_fan1:GAUGE:120:0:U",
-				"DS:lmsens_fan2:GAUGE:120:0:U",
-				"DS:lmsens_fan3:GAUGE:120:0:U",
-				"DS:lmsens_fan4:GAUGE:120:0:U",
-				"DS:lmsens_fan5:GAUGE:120:0:U",
-				"DS:lmsens_fan6:GAUGE:120:0:U",
-				"DS:lmsens_fan7:GAUGE:120:0:U",
-				"DS:lmsens_fan8:GAUGE:120:0:U",
-				"DS:lmsens_core0:GAUGE:120:0:100",
-				"DS:lmsens_core1:GAUGE:120:0:100",
-				"DS:lmsens_core2:GAUGE:120:0:100",
-				"DS:lmsens_core3:GAUGE:120:0:100",
-				"DS:lmsens_core4:GAUGE:120:0:100",
-				"DS:lmsens_core5:GAUGE:120:0:100",
-				"DS:lmsens_core6:GAUGE:120:0:100",
-				"DS:lmsens_core7:GAUGE:120:0:100",
-				"DS:lmsens_core8:GAUGE:120:0:100",
-				"DS:lmsens_core9:GAUGE:120:0:100",
-				"DS:lmsens_core10:GAUGE:120:0:100",
-				"DS:lmsens_core11:GAUGE:120:0:100",
-				"DS:lmsens_core12:GAUGE:120:0:100",
-				"DS:lmsens_core13:GAUGE:120:0:100",
-				"DS:lmsens_core14:GAUGE:120:0:100",
-				"DS:lmsens_core15:GAUGE:120:0:100",
-				"DS:lmsens_volt0:GAUGE:120:U:U",
-				"DS:lmsens_volt1:GAUGE:120:U:U",
-				"DS:lmsens_volt2:GAUGE:120:U:U",
-				"DS:lmsens_volt3:GAUGE:120:U:U",
-				"DS:lmsens_volt4:GAUGE:120:U:U",
-				"DS:lmsens_volt5:GAUGE:120:U:U",
-				"DS:lmsens_volt6:GAUGE:120:U:U",
-				"DS:lmsens_volt7:GAUGE:120:U:U",
-				"DS:lmsens_volt8:GAUGE:120:U:U",
-				"DS:lmsens_volt9:GAUGE:120:U:U",
-				"DS:lmsens_volt10:GAUGE:120:U:U",
-				"DS:lmsens_volt11:GAUGE:120:U:U",
-				"DS:lmsens_gpu0:GAUGE:120:0:100",
-				"DS:lmsens_gpu1:GAUGE:120:0:100",
-				"DS:lmsens_gpu2:GAUGE:120:0:100",
-				"DS:lmsens_gpu3:GAUGE:120:0:100",
-				"DS:lmsens_gpu4:GAUGE:120:0:100",
-				"DS:lmsens_gpu5:GAUGE:120:0:100",
-				"DS:lmsens_gpu6:GAUGE:120:0:100",
-				"DS:lmsens_gpu7:GAUGE:120:0:100",
-				"DS:lmsens_gpu8:GAUGE:120:0:100",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $LMSENS_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "lmsens_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub get_nvidia_data {
-	my ($gpu) = @_;
-	my $total = 0;
-	my $used = 0;
-	my $mem = 0;
-	my $cpu = 0;
-	my $temp = 0;
-	my $check_mem = 0;
-	my $check_cpu = 0;
-	my $check_temp = 0;
-
-	open(IN, "nvidia-smi -q -i $gpu -d MEMORY,UTILIZATION,TEMPERATURE |");
-	my @data = <IN>;
-	close(IN);
-	for($l = 0; $l < scalar(@data); $l++) {
-		$_ = @data[$l];
-		if(/Memory Usage/) {
-			$check_mem = 1;
-			next;
-		}
-		if($check_mem) {	
-			if(/Total/) {
-				my (undef, $tmp) = split(':', $_);
-				if($tmp eq "\n") {
-					$l++;
-					$tmp = $data[$l];
-				}
-				my ($value, undef) = split(' ', $tmp);
-				$value =~ s/[-]/./;
-				$value =~ s/[^0-9.]//g;
-				if(int($value) > 0) {
-					$total = int($value);
-				}
-			}
-			if(/Used/) {
-				my (undef, $tmp) = split(':', $_);
-				if($tmp eq "\n") {
-					$l++;
-					$tmp = $data[$l];
-				}
-				my ($value, undef) = split(' ', $tmp);
-				$value =~ s/[-]/./;
-				$value =~ s/[^0-9.]//g;
-				if(int($value) > 0) {
-					$used = int($value);
-				}
-				$check_mem = 0;
-			}
-		}
-
-		if(/Utilization/) {
-			$check_cpu = 1;
-			next;
-		}
-		if($check_cpu) {	
-			if(/Gpu/) {
-				my (undef, $tmp) = split(':', $_);
-				if($tmp eq "\n") {
-					$l++;
-					$tmp = $data[$l];
-				}
-				my ($value, undef) = split(' ', $tmp);
-				$value =~ s/[-]/./;
-				$value =~ s/[^0-9.]//g;
-				if(int($value) > 0) {
-					$cpu = int($value);
-				}
-			}
-			if(/Memory/) {
-				my (undef, $tmp) = split(':', $_);
-				if($tmp eq "\n") {
-					$l++;
-					$tmp = $data[$l];
-				}
-				my ($value, undef) = split(' ', $tmp);
-				$value =~ s/[-]/./;
-				$value =~ s/[^0-9.]//g;
-				if(int($value) > 0) {
-					$mem = int($value);
-				}
-			}
-			$check_cpu = 0;
-		}
-
-		if(/Temperature/) {
-			$check_temp = 1;
-			next;
-		}
-		if($check_temp) {	
-			if(/Gpu/) {
-				my (undef, $tmp) = split(':', $_);
-				if($tmp eq "\n") {
-					$l++;
-					$tmp = $data[$l];
-				}
-				my ($value, undef) = split(' ', $tmp);
-				$value =~ s/[-]/./;
-				$value =~ s/[^0-9.]//g;
-				if(int($value) > 0) {
-					$temp = int($value);
-				}
-			}
-			$check_temp = 0;
-		}
-	}
-	# NVIDIA driver v285.+ not supported (needs new output parsing).
-	# This is to avoid a divide by zero message.
-	if($total) {
-		$mem = ($used * 100) / $total;
-	} else {
-		$mem = $used = $total = 0;
-	}
-	return join(" ", $mem, $cpu, $temp);
-}
-
-sub lmsens_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @mb;
-	my @cpu;
-	my @fan;
-	my @core;
-	my @volt;
-	my @gpu;
-
-	my $l;
-	my $n;
-	my $rrdata = "N";
-
-	if($os eq "Linux") {
-		if(scalar(%SENSORS_LIST)) {
-	  		open(IN, "sensors |");
-			my @data = <IN>;
-			close(IN);
-			my $str;
-			for($l = 0; $l < scalar(@data); $l++) {
-				$_ = @data[$l];
-				for($n = 0; $n < 2; $n++) {
-					$str = "MB" . $n;
-					$mb[$n] = 0 unless $mb[$n];
-					if($SENSORS_LIST{$str} && (/^$SENSORS_LIST{$str}:/) && (!/RPM/)) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$mb[$n] = int($value);
-					}
-				}
-				for($n = 0; $n < 4; $n++) {
-					$str = "CPU" . $n;
-					$cpu[$n] = 0 unless $cpu[$n];
-					if($SENSORS_LIST{$str} && (/^$SENSORS_LIST{$str}:/) && (!/RPM/)) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$cpu[$n] = int($value);
-					}
-				}
-				for($n = 0; $n < 9; $n++) {
-					$str = "FAN" . $n;
-					$fan[$n] = 0 unless $fan[$n];
-					if($SENSORS_LIST{$str} && (/^$SENSORS_LIST{$str}:/) && (/RPM/)) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$fan[$n] = int($value);
-					}
-				}
-				for($n = 0; $n < 16; $n++) {
-					$str = "CORE" . $n;
-					$core[$n] = 0 unless $core[$n];
-					if($SENSORS_LIST{$str} && (/^$SENSORS_LIST{$str}:/) && (!/RPM/)) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$core[$n] = int($value);
-					}
-				}
-				for($n = 0; $n < 12; $n++) {
-					$str = "VOLT" . $n;
-					$volt[$n] = 0 unless $volt[$n];
-					if($SENSORS_LIST{$str} && (/^$SENSORS_LIST{$str}:/) && (!/RPM/)) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$volt[$n] = $value;
-					}
-				}
-			}
-			for($n = 0; $n < 9; $n++) {
-				$str = "GPU" . $n;
-				$gpu[$n] = 0 unless $gpu[$n];
-				if($SENSORS_LIST{$str} && $SENSORS_LIST{$str} eq "nvidia") {
-					(undef, undef, $gpu[$n]) = split(' ', get_nvidia_data($n));
-					if(!$gpu[$n]) {
-						# attempt to get data using the old driver version
-	  					open(IN, "nvidia-smi -g $n |");
-						my @data = <IN>;
-						close(IN);
-						for($l = 0; $l < scalar(@data); $l++) {
-							$_ = @data[$l];
-							if(/Temperature/) {
-								my (undef, $tmp) = split(':', $_);
-								if($tmp eq "\n") {
-									$l++;
-									$tmp = $data[$l];
-								}
-								my ($value, undef) = split(' ', $tmp);
-								$value =~ s/[-]/./;
-								$value =~ s/[^0-9.]//g;
-								if(int($value) > 0) {
-									$gpu[$n] = int($value);
-								}
-							}
-						}
-					}
-				}
-			}
-		}
-		for($n = 0; $n < scalar(@mb); $n++) {
-			$rrdata .= ":$mb[$n]";
-		}
-		for($n = 0; $n < scalar(@cpu); $n++) {
-			$rrdata .= ":$cpu[$n]";
-		}
-		for($n = 0; $n < scalar(@fan); $n++) {
-			$rrdata .= ":$fan[$n]";
-		}
-		for($n = 0; $n < scalar(@core); $n++) {
-			$rrdata .= ":$core[$n]";
-		}
-		for($n = 0; $n < scalar(@volt); $n++) {
-			$rrdata .= ":$volt[$n]";
-		}
-		for($n = 0; $n < scalar(@gpu); $n++) {
-			$rrdata .= ":$gpu[$n]";
-		}
-	}
-
-	RRDs::update($LMSENS_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $LMSENS_RRD: $err") if $err;
-}
-
-# NVIDIA graph
-# ----------------------------------------------------------------------------
-sub nvidia_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $NVIDIA_RRD)) {
-		logger("Creating '$NVIDIA_RRD' file.");
-		eval {
-			RRDs::create($NVIDIA_RRD,
-				"--step=60",
-				"DS:nvidia_temp0:GAUGE:120:0:U",
-				"DS:nvidia_temp1:GAUGE:120:0:U",
-				"DS:nvidia_temp2:GAUGE:120:0:U",
-				"DS:nvidia_temp3:GAUGE:120:0:U",
-				"DS:nvidia_temp4:GAUGE:120:0:U",
-				"DS:nvidia_temp5:GAUGE:120:0:U",
-				"DS:nvidia_temp6:GAUGE:120:0:U",
-				"DS:nvidia_temp7:GAUGE:120:0:U",
-				"DS:nvidia_temp8:GAUGE:120:0:U",
-				"DS:nvidia_gpu0:GAUGE:120:0:100",
-				"DS:nvidia_gpu1:GAUGE:120:0:100",
-				"DS:nvidia_gpu2:GAUGE:120:0:100",
-				"DS:nvidia_gpu3:GAUGE:120:0:100",
-				"DS:nvidia_gpu4:GAUGE:120:0:100",
-				"DS:nvidia_gpu5:GAUGE:120:0:100",
-				"DS:nvidia_gpu6:GAUGE:120:0:100",
-				"DS:nvidia_gpu7:GAUGE:120:0:100",
-				"DS:nvidia_gpu8:GAUGE:120:0:100",
-				"DS:nvidia_mem0:GAUGE:120:0:100",
-				"DS:nvidia_mem1:GAUGE:120:0:100",
-				"DS:nvidia_mem2:GAUGE:120:0:100",
-				"DS:nvidia_mem3:GAUGE:120:0:100",
-				"DS:nvidia_mem4:GAUGE:120:0:100",
-				"DS:nvidia_mem5:GAUGE:120:0:100",
-				"DS:nvidia_mem6:GAUGE:120:0:100",
-				"DS:nvidia_mem7:GAUGE:120:0:100",
-				"DS:nvidia_mem8:GAUGE:120:0:100",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NVIDIA_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "nvidia_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub nvidia_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @temp;
-	my @gpu;
-	my @mem;
-	my @data;
-	my $utilization;
-
-	my $l;
-	my $n;
-	my $rrdata = "N";
-
-	for($n = 0; $n < 9; $n++) {
-		$temp[$n] = 0;
-		$gpu[$n] = 0;
-		$mem[$n] = 0;
-		if($n < $NVIDIA_MAX) {
-			($mem[$n], $gpu[$n], $temp[$n]) = split(' ', get_nvidia_data($n));
-			if(!$temp[$n] && !$gpu[$n] && !$mem[$n]) {
-				# attempt to get data using the old driver version
-				$utilization = 0;
-	  			open(IN, "nvidia-smi -g $n |");
-				@data = <IN>;
-				close(IN);
-				for($l = 0; $l < scalar(@data); $l++) {
-					$_ = @data[$l];
-					if(/Temperature/) {
-						my (undef, $tmp) = split(':', $_);
-						if($tmp eq "\n") {
-							$l++;
-							$tmp = $data[$l];
-						}
-						my ($value, undef) = split(' ', $tmp);
-						$value =~ s/[-]/./;
-						$value =~ s/[^0-9.]//g;
-						if(int($value) > 0) {
-							$temp[$n] = int($value);
-						}
-					}
-					if(/Utilization/) {
-						$utilization = 1;
-					}
-					if($utilization == 1) {
-						if(/GPU/) {
-							my (undef, $tmp) = split(':', $_);
-							if($tmp eq "\n") {
-								$l++;
-								$tmp = $data[$l];
-							}
-							my ($value, undef) = split(' ', $tmp);
-							$value =~ s/[-]/./;
-							$value =~ s/[^0-9.]//g;
-							if(int($value) > 0) {
-								$gpu[$n] = int($value);
-							}
-						}
-						if(/Memory/) {
-							my (undef, $tmp) = split(':', $_);
-							if($tmp eq "\n") {
-								$l++;
-								$tmp = $data[$l];
-							}
-							my ($value, undef) = split(' ', $tmp);
-							$value =~ s/[-]/./;
-							$value =~ s/[^0-9.]//g;
-							if(int($value) > 0) {
-								$mem[$n] = int($value);
-							}
-						}
-					}
-				}
-			}
-		}
-	}
-
-	for($n = 0; $n < scalar(@temp); $n++) {
-		$rrdata .= ":$temp[$n]";
-	}
-	for($n = 0; $n < scalar(@gpu); $n++) {
-		$rrdata .= ":$gpu[$n]";
-	}
-	for($n = 0; $n < scalar(@mem); $n++) {
-		$rrdata .= ":$mem[$n]";
-	}
-
-	RRDs::update($NVIDIA_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NVIDIA_RRD: $err") if $err;
-}
-
-# DISK graph
-# ----------------------------------------------------------------------------
-sub disk_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	# This warns and transforms an old @DISK_LIST array (before 2.6) into
-	# the new two-dimensional array to keep backwards compatibility.
-	my @tmp2;
-	if(!(ref($DISK_LIST[0]) eq "ARRAY")) {
-		logger("$myself: \@DISK_LIST array format is outdated. Please check monitorix.conf(5) man page to see how this array must be defined.");
-		push(@{$tmp2[0]}, @DISK_LIST);
-		@DISK_LIST = @tmp2;
-	}
-
-	if(-e $DISK_RRD) {
-		$info = RRDs::info($DISK_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 24 != scalar(@DISK_LIST)) {
-			logger("Detected size mismatch between \@DISK_LIST (" . scalar(@DISK_LIST) . ") and $DISK_RRD (" . scalar(@ds) / 24 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($DISK_RRD, "$DISK_RRD.bak");
-		}
-	}
-
-	if(!(-e $DISK_RRD)) {
-		logger("Creating '$DISK_RRD' file.");
-		for($n = 0; $n < scalar(@DISK_LIST); $n++) {
-			push(@tmp, "DS:disk" . $n . "_hd0_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd0_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd0_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd1_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd1_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd1_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd2_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd2_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd2_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd3_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd3_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd3_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd4_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd4_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd4_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd5_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd5_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd5_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd6_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd6_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd6_smart2:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd7_temp:GAUGE:120:0:100");
-			push(@tmp, "DS:disk" . $n . "_hd7_smart1:GAUGE:120:0:U");
-			push(@tmp, "DS:disk" . $n . "_hd7_smart2:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($DISK_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $DISK_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.6.0 disk.rrd supports unlimited disk device monitoring, this
-	# forces to rename the DS of the first disk accordingly.
-	for($n = 0; $n < 8; $n++) {
-		RRDs::tune($DISK_RRD,
-			"--data-source-rename=disk_hd" . $n . "_temp:disk0_hd" . $n . "_temp",
-			"--data-source-rename=disk_hd" . $n . "_smart1:disk0_hd" . $n . "_smart1",
-			"--data-source-rename=disk_hd" . $n . "_smart2:disk0_hd" . $n . "_smart2",
-		);
-	}
-
-	push(@graphs, "disk_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub disk_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $temp;
-	my $smart1;
-	my $smart2;
-
-	my $n;
-	my $rrdata = "N";
-
-	foreach my $i (@DISK_LIST) {
-		for($n = 0; $n < 8; $n++) {
-			$temp = 0;
-			$smart1 = 0;
-			$smart2 = 0;
-			if(@$i[$n]) {
-				my $d = @$i[$n];
-	  			open(IN, "smartctl -A $d |");
-				while(<IN>) {
-					if(/^  5/ && /Reallocated_Sector_Ct/) {
-						my @tmp = split(' ', $_);
-						$smart1 = $tmp[9];
-						chomp($smart1);
-					}
-					if(/^194/ && /Temperature_Celsius/) {
-						my @tmp = split(' ', $_);
-						$temp = $tmp[9];
-						chomp($temp);
-					}
-					if(/^197/ && /Current_Pending_Sector/) {
-						my @tmp = split(' ', $_);
-						$smart2 = $tmp[9];
-						chomp($smart2);
-					}
-					if(/^Current Drive Temperature: /) {
-						my @tmp = split(' ', $_);
-						$temp = $tmp[3] unless $temp;
-						chomp($temp);
-					}
-				}
-				close(IN);
-				$temp = `hddtemp -wqn $d` unless $temp;
-				chomp($temp);
-			}
-			$rrdata .= ":$temp";
-			$rrdata .= ":$smart1";
-			$rrdata .= ":$smart2";
-		}
-	}
-
-	RRDs::update($DISK_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $DISK_RRD: $err") if $err;
-}
-
-# FS graph
-# ----------------------------------------------------------------------------
-sub is_in_diskstats {
-	my ($d, $major, $minor) = @_;
-
-	open(IN, "/proc/diskstats");
-	my @data = <IN>;
-	close(IN);
-	foreach(@data) {
-		my ($maj, $min, $device) = split(' ', $_);
-		return $device unless $d ne $device;
-		if($maj == $major && $min == $minor) {
-			return $device;
-		}
-	}
-}
-
-sub is_luks {
-	my ($d) = @_;
-
-	if($d =~ m/luks/) {
-		$d =~ s/luks-//;
-		$d = `blkid -t UUID=$d | awk -F ":" '{ print \$1 }'`;
-		chomp($d);
-		$d =~ s/^.*dev\///;	# remove the /dev/ prefix
-		$d =~ s/^.*mapper\///;	# remove the mapper/ prefix
-		return $d;
-	}
-}
-
-sub fs_init {
-	my $myself = (caller(0))[3];
-	our %FS_DEV;
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	# This warns if an old @FS_LIST array (before 2.6) is still used.
-	my @tmp2;
-	if(!(ref($FS_LIST[0]) eq "ARRAY")) {
-		logger("$myself: \@FS_LIST array format is outdated. Please check monitorix.conf(5) man page to see how this array must be defined.");
-		push(@{$tmp2[0]}, @FS_LIST);
- 		@FS_LIST = @tmp2;
-	}
-
-	if(-e $FS_RRD) {
-		$info = RRDs::info($FS_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 24 != scalar(@FS_LIST)) {
-			logger("Detected size mismatch between \@FS_LIST (" . scalar(@FS_LIST) . ") and $FS_RRD (" . scalar(@ds) / 24 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($FS_RRD, "$FS_RRD.bak");
-		}
-	}
-
-	if(!(-e $FS_RRD)) {
-		logger("Creating '$FS_RRD' file.");
-		for($n = 0; $n < scalar(@FS_LIST); $n++) {
-			push(@tmp, "DS:fs" . $n . "_use0:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa0:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim0:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use1:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa1:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim1:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use2:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa2:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim2:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use3:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa3:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim3:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use4:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa4:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim4:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use5:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa5:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim5:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use6:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa6:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim6:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_use7:GAUGE:120:0:100");
-			push(@tmp, "DS:fs" . $n . "_ioa7:GAUGE:120:0:U");
-			push(@tmp, "DS:fs" . $n . "_tim7:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($FS_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $FS_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# This tries to find out the physical device name of each fs.
-	foreach my $i (@FS_LIST) {
-		foreach my $fs (@$i) {
-			my $d = $FS_DEV{$fs};
-
-			next unless !$d;
-
-			if($fs ne "swap") {
-				eval {
-					alarm $TIMEOUT;
-					open(IN, "df -P $fs |");
-					while(<IN>) {
-						if(/ $fs$/) {
-							($d) = split(' ', $_);
-							last;
-						}
-					}
-					close(IN);
-					alarm 0;
-					chomp($d);
-				};
-			}
-
-			if($os eq "Linux" && $kernel_branch > 2.4) {
-				my $lvm;
-				my $lvm_disk;
-				my $is_md;
-				my $found;
-
-				if($fs eq "swap") {
-					$d = `cat /proc/swaps | tail -1 | awk -F " " '{ print \$1 }'`;
-					chomp($d);
-				}
-
-				# check for device names using symbolic links
-				# e.g. /dev/disk/by-uuid/db312d12-0da6-44e5-a354-4c82118f4b66
-				if(-l $d) {
-					$link = readlink($d);
-					$d = abs_path(dirname($d) . "/" . $link);
-					chomp($d);
-				}
-
-				# get the major and minor of $d
-				my $rdev = (stat($d))[6];
-				my $minor = $rdev % 256;
-				my $major = int($rdev / 256);
-
-				# do exists in /proc/diskstats?
-				if($found = is_in_diskstats($d, $major, $minor)) {
-					$d = $found;
-					$FS_DEV{$fs} = $d;
-					logger("$myself: Detected physical device name for $fs in '$d'.") unless !$opt_d;
-					next;
-				}
-
-				logger("$myself: Unable to find major/minor in /proc/diskstats.") unless !$opt_d;
-
-				# check if device is using EVMS <http://evms.sourceforge.net/>
-				if($d =~ m/\/dev\/evms\//) {
-					$d = `evms_query disks $d`;
-					if($found = is_in_diskstats($d)) {
-						$d = $found;
-						$FS_DEV{$fs} = $d;
-						logger("$myself: Detected physical device name for $fs in '$d'.") unless !$opt_d;
-						next;
-					}
-				}
-
-				$d =~ s/^.*dev\///;	# remove the /dev/ prefix
-				$d =~ s/^.*mapper\///;	# remove the mapper/ prefix
-
-				# check if the device is under a crypt LUKS (encrypted fs)
-				if($dev = is_luks($d)) {
-					$d = $dev;
-				}
-
-				# do exists in /proc/diskstats?
-				if($found = is_in_diskstats($d)) {
-					$d = $found;
-					$FS_DEV{$fs} = $d;
-					logger("$myself: Detected physical device name for $fs in '$d'.") unless !$opt_d;
-					next;
-				}
-
-				# check if the device is in a LVM
-				$lvm = $d;
-				$lvm =~ s/-.*//;
-				if($lvm ne $d) {	# probably LVM
-					if(system("pvs >/dev/null 2>&1") == 0 && $lvm) {
-						$lvm_disk = `pvs --noheadings | grep $lvm | tail -1 | awk -F " " '{ print \$1 }'`;
-						chomp($lvm_disk);
-						$lvm_disk =~ s/^.*dev\///;	# remove the /dev/ prefix
-						$lvm_disk =~ s/^.*mapper\///;	# remove the mapper/ prefix
-						if(!($lvm_disk =~ m/md/)) {
-							if($lvm_disk =~ m/cciss/) {
-								# LVM over a CCISS disk (/dev/cciss/c0d0)
-								$d = $lvm_disk;
-								chomp($d);
-							} elsif($dev = is_luks($lvm_disk)) {
-								$d = $dev;
-							} else {
-								# LVM over a direct disk (/dev/sda1)
-								$d = $lvm_disk;
-								chomp($d);
-							}
-						} else {
-							# LVM over Linux RAID combination (/dev/md1)
-							$d = $lvm_disk;
-							chomp($d);
-						}
-					}
-				}
-			} elsif($os eq "FreeBSD" || $os eq "OpenBSD" || $os eq "NetBSD") {
-				# remove the /dev/ prefix
-				if ($d =~ s/^.*dev\///) {
-					# not ZFS; get the device name, eg ada0; md0; ad10
-					$d =~ s/^(\D+\d*)\D.*/\1/;	
-				} else {
-					# Just take ZFS pool name
-					$d =~ s,^([^/]*)/.*,\1,;
-				}
-			}
-			$FS_DEV{$fs} = $d;
-			logger("$myself: Detected physical device name for $fs in '$d'.") unless !$opt_d;
-		}
-	}
-
-	our %fs_hist = ();
-	push(@graphs, "fs_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub fs_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @tmp;
-	my $val;
-	my $str;
-	my $n;
-	my $rrdata = "N";
-
-	my $e = 0;
-	foreach my $i (@FS_LIST) {
-		for($n = 0; $n < 8; $n++) {
-			my $use = 0;
-			my $ioa = 0;
-			my $tim = 0;
-
-			my $used = 0;
-			my $free = 0;
-
-			$fs = @$i[$n];
-			if($fs eq "swap") {
-				if($os eq "Linux") {
-					open(IN, "free |");
-					while(<IN>) {
-						if(/^Swap:\s+\d+\s+(\d+)\s+(\d+)$/) {
-							$used = $1;
-							$free = $2;
-						}
-					}
-					close(IN);
-				} elsif($os eq "FreeBSD") {
-					open(IN, "swapinfo -k |");
-					while(<IN>) {
-						if(/^.*?\s+\d+\s+(\d+)\s+(\d+)\s+\d+\%$/) {
-							$used = $1;
-							$free = $2;
-						}
-					}
-					close(IN);
-				} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-					open(IN, "pstat -sk |");
-					while(<IN>) {
-						if(/^swap_device\s+\d+\s+(\d+)\s+(\d+) /) {
-							$used = $1;
-							$free = $2;
-						}
-					}
-					close(IN);
-				}
-
-				chomp($used, $free);
-				# prevents a division by 0 if swap device is not used
-				$use = ($used * 100) / ($used + $free) unless $used + $free == 0;
-			} elsif($fs) {
-				eval {
-					alarm $TIMEOUT;
-					open(IN, "df -P $fs |");
-					while(<IN>) {
-						if(/ $fs$/) {
-							@tmp = split(' ', $_);
-							last;
-						}
-					}
-					close(IN);
-					alarm 0;
-				};
-				(undef, undef, $used, $free) = @tmp;
-				chomp($used, $free);
-				$use = ($used * 100) / ($used + $free);
-
-				# FS alert
-				if($fs eq "/" && $ENABLE_ALERTS eq "Y") {
-					if(!$ALERT_ROOTFS_THRESHOLD || $pcnt < $ALERT_ROOTFS_THRESHOLD) {
-						$fs_hist{'rootalert'} = 0;
-					} else {
-						if(!$fs_hist{'rootalert'}) {
-							$fs_hist{'rootalert'} = time;
-						}
-						if($fs_hist{'rootalert'} > 0 && (time - $fs_hist{'rootalert'}) > $ALERT_ROOTFS_TIMEINTVL) {
-							if(-x $ALERT_ROOTFS_SCRIPT) {
-								system($ALERT_ROOTFS_SCRIPT . " " . $ALERT_ROOTFS_TIMEINTVL . " " . $ALERT_ROOTFS_THRESHOLD . " " . $pcnt);
-							}
-							$fs_hist{'rootalert'} = time;
-						}
-					}
-				}
-			}
-
-			my $read_cnt = 0;
-			my $read_sec = 0;
-			my $write_cnt = 0;
-			my $write_sec = 0;
-			my $d = $FS_DEV{$fs};
-			if($d) {
-			if($os eq "Linux") {
-				if($kernel_branch > 2.4) {
-					open(IN, "/proc/diskstats");
-					while(<IN>) {
-						if(/ $d /) {
-							@tmp = split(' ', $_);
-							last;
-						}
-					}
-					close(IN);
-					(undef, undef, undef, $read_cnt, undef, undef, $read_sec, $write_cnt, undef, undef, $write_sec) = @tmp;
-				} else {
-					my $io;
-					open(IN, "/proc/stat");
-					while(<IN>) {
-						if(/^disk_io/) {
-							(undef, undef, $io) = split(':', $_);
-							last;
-						}
-					}
-					close(IN);
-					(undef, $read_cnt, $read_sec, $write_cnt, $write_sec) = split(',', $io);
-					$write_sec =~ s/\).*$//;
-				}
-			} elsif($os eq "FreeBSD") {
-				@tmp = split(' ', `iostat -xI $d | grep -w $d`);
-				if(@tmp) {
-					(undef, $read_cnt, $write_cnt, $read_sec, $write_sec) = @tmp;
-					$read_cnt = int($read_cnt);
-					$write_cnt = int($write_cnt);
-					$read_sec = int($read_sec);
-					$write_sec = int($write_sec);
-				} else {
-					@tmp = split(' ', `iostat -dI | tail -1`);
-					(undef, $read_cnt, $read_sec) = @tmp;
-					$write_cnt = "";
-					$write_sec = "";
-					chomp($read_sec);
-					$read_sec = int($read_sec);
-				}
-			} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-				@tmp = split(' ', `iostat -DI | tail -1`);
-				($read_cnt, $read_sec) = @tmp;
-				$write_cnt = "";
-				$write_sec = "";
-				chomp($read_sec);
-				$read_sec = int($read_sec);
-			}
-			}
-
-			$ioa = $read_cnt + $write_cnt;
-			$tim = $read_sec + $write_sec;
-
-			$str = $e . "_ioa" . $n;
-			$val = $ioa;
-			$ioa = $val - $fs_hist{$str};
-			$ioa = 0 unless $val != $ioa;
-			$ioa /= 60;
-			$fs_hist{$str} = $val;
-
-			$str = $e . "_tim" . $n;
-			$val = $tim;
-			$tim = $val - $fs_hist{$str};
-			$tim = 0 unless $val != $tim;
-			$tim /= 60;
-			$fs_hist{$str} = $val;
-
-			$rrdata .= ":$use:$ioa:$tim";
-		}
-		$e++;
-	}
-
-	RRDs::update($FS_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $FS_RRD: $err") if $err;
-}
-
-# NET graph
-# ----------------------------------------------------------------------------
-sub net_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $NET_RRD)) {
-		logger("Creating '$NET_RRD' file.");
-		eval {
-			RRDs::create($NET_RRD,
-				"--step=60",
-				"DS:net0_bytes_in:COUNTER:120:0:U",
-				"DS:net0_bytes_out:COUNTER:120:0:U",
-				"DS:net0_packs_in:COUNTER:120:0:U",
-				"DS:net0_packs_out:COUNTER:120:0:U",
-				"DS:net0_error_in:COUNTER:120:0:U",
-				"DS:net0_error_out:COUNTER:120:0:U",
-				"DS:net1_bytes_in:COUNTER:120:0:U",
-				"DS:net1_bytes_out:COUNTER:120:0:U",
-				"DS:net1_packs_in:COUNTER:120:0:U",
-				"DS:net1_packs_out:COUNTER:120:0:U",
-				"DS:net1_error_in:COUNTER:120:0:U",
-				"DS:net1_error_out:COUNTER:120:0:U",
-				"DS:net2_bytes_in:COUNTER:120:0:U",
-				"DS:net2_bytes_out:COUNTER:120:0:U",
-				"DS:net2_packs_in:COUNTER:120:0:U",
-				"DS:net2_packs_out:COUNTER:120:0:U",
-				"DS:net2_error_in:COUNTER:120:0:U",
-				"DS:net2_error_out:COUNTER:120:0:U",
-				"DS:net3_bytes_in:COUNTER:120:0:U",
-				"DS:net3_bytes_out:COUNTER:120:0:U",
-				"DS:net3_packs_in:COUNTER:120:0:U",
-				"DS:net3_packs_out:COUNTER:120:0:U",
-				"DS:net3_error_in:COUNTER:120:0:U",
-				"DS:net3_error_out:COUNTER:120:0:U",
-				"DS:net4_bytes_in:COUNTER:120:0:U",
-				"DS:net4_bytes_out:COUNTER:120:0:U",
-				"DS:net4_packs_in:COUNTER:120:0:U",
-				"DS:net4_packs_out:COUNTER:120:0:U",
-				"DS:net4_error_in:COUNTER:120:0:U",
-				"DS:net4_error_out:COUNTER:120:0:U",
-				"DS:net5_bytes_in:COUNTER:120:0:U",
-				"DS:net5_bytes_out:COUNTER:120:0:U",
-				"DS:net5_packs_in:COUNTER:120:0:U",
-				"DS:net5_packs_out:COUNTER:120:0:U",
-				"DS:net5_error_in:COUNTER:120:0:U",
-				"DS:net5_error_out:COUNTER:120:0:U",
-				"DS:net6_bytes_in:COUNTER:120:0:U",
-				"DS:net6_bytes_out:COUNTER:120:0:U",
-				"DS:net6_packs_in:COUNTER:120:0:U",
-				"DS:net6_packs_out:COUNTER:120:0:U",
-				"DS:net6_error_in:COUNTER:120:0:U",
-				"DS:net6_error_out:COUNTER:120:0:U",
-				"DS:net7_bytes_in:COUNTER:120:0:U",
-				"DS:net7_bytes_out:COUNTER:120:0:U",
-				"DS:net7_packs_in:COUNTER:120:0:U",
-				"DS:net7_packs_out:COUNTER:120:0:U",
-				"DS:net7_error_in:COUNTER:120:0:U",
-				"DS:net7_error_out:COUNTER:120:0:U",
-				"DS:net8_bytes_in:COUNTER:120:0:U",
-				"DS:net8_bytes_out:COUNTER:120:0:U",
-				"DS:net8_packs_in:COUNTER:120:0:U",
-				"DS:net8_packs_out:COUNTER:120:0:U",
-				"DS:net8_error_in:COUNTER:120:0:U",
-				"DS:net8_error_out:COUNTER:120:0:U",
-				"DS:net9_bytes_in:COUNTER:120:0:U",
-				"DS:net9_bytes_out:COUNTER:120:0:U",
-				"DS:net9_packs_in:COUNTER:120:0:U",
-				"DS:net9_packs_out:COUNTER:120:0:U",
-				"DS:net9_error_in:COUNTER:120:0:U",
-				"DS:net9_error_out:COUNTER:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NET_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "net_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub net_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @net_bytes_in;
-	my @net_bytes_out;
-	my @net_packs_in;
-	my @net_packs_out;
-	my @net_error_in;
-	my @net_error_out;
-
-	my $n;
-	my $rrdata = "N";
-
-	for($n = 0; $n < 10 ; $n++) {
-		$net_bytes_in[$n] = 0;
-		$net_bytes_out[$n] = 0;
-		$net_packs_in[$n] = 0;
-		$net_packs_out[$n] = 0;
-		$net_error_in[$n] = 0;
-		$net_error_out[$n] = 0;
-		if($n < scalar(@NET_LIST)) {
-			if($os eq "Linux") {
-				open(IN, "/proc/net/dev");
-				my $dev;
-				while(<IN>) {
-					($dev, $data) = split(':', $_);
-					$_ = $dev;
-					if(/$NET_LIST[$n]/) {
-						($net_bytes_in[$n], $net_packs_in[$n], $net_error_in[$n], undef, undef, undef, undef, undef, $net_bytes_out[$n], $net_packs_out[$n], $net_error_out[$n]) = split(' ', $data);
-						last;
-					}
-				}
-				close(IN);
-			} elsif($os eq "FreeBSD") {
-				open(IN, "netstat -nibd |");
-				while(<IN>) {
-					if(/Link/ && /$NET_LIST[$n]/) {
-						# Idrop column added in 8.0
-						if($kernel_branch > 7.2) {
-							(undef, undef, undef, undef, $net_packs_in[$n], $net_error_in[$n], undef, $net_bytes_in[$n], $net_packs_out[$n], $net_error_out[$n], $net_bytes_out[$n]) = split(' ', $_);
-						} else {
-							(undef, undef, undef, undef, $net_packs_in[$n], $net_error_in[$n], $net_bytes_in[$n], $net_packs_out[$n], $net_error_out[$n], $net_bytes_out[$n]) = split(' ', $_);
-						}
-						last;
-					}
-				}
-				close(IN);
-			} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-				open(IN, "netstat -nibd |");
-				while(<IN>) {
-					if(/Link/ && /^$NET_LIST[$n]/) {
-						(undef, undef, undef, undef, $net_bytes_in[$n], $net_bytes_out[$n]) = split(' ', $_);
-						$net_packs_in[$n] = 0;
-						$net_error_in[$n] = 0;
-						$net_packs_out[$n] = 0;
-						$net_error_out[$n] = 0;
-						last;
-					}
-				}
-				close(IN);
-			}
-		}
-		chomp($net_bytes_in[$n],
-			$net_bytes_out[$n],
-			$net_packs_in[$n],
-			$net_packs_out[$n],
-			$net_error_in[$n],
-			$net_error_out[$n]);
-		$rrdata .= ":$net_bytes_in[$n]:$net_bytes_out[$n]:$net_packs_in[$n]:$net_packs_out[$n]:$net_error_in[$n]:$net_error_out[$n]";
-	}
-
-	RRDs::update($NET_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NET_RRD: $err") if $err;
-}
-
-# SERV graph
-# ----------------------------------------------------------------------------
-sub serv_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $SERV_RRD)) {
-		logger("Creating '$SERV_RRD' file.");
-		eval {
-			RRDs::create($SERV_RRD,
-				"--step=300",
-				"DS:serv_i_ssh:GAUGE:600:0:U",
-				"DS:serv_i_ftp:GAUGE:600:0:U",
-				"DS:serv_i_telnet:GAUGE:600:0:U",
-				"DS:serv_i_imap:GAUGE:600:0:U",
-				"DS:serv_i_smb:GAUGE:600:0:U",
-				"DS:serv_i_fax:GAUGE:600:0:U",
-				"DS:serv_i_cups:GAUGE:600:0:U",
-				"DS:serv_i_pop3:GAUGE:600:0:U",
-				"DS:serv_i_smtp:GAUGE:600:0:U",
-				"DS:serv_i_spam:GAUGE:600:0:U",
-				"DS:serv_i_virus:GAUGE:600:0:U",
-				"DS:serv_i_f2b:GAUGE:600:0:U",
-				"DS:serv_i_val02:GAUGE:600:0:U",
-				"DS:serv_i_val03:GAUGE:600:0:U",
-				"DS:serv_i_val04:GAUGE:600:0:U",
-				"DS:serv_i_val05:GAUGE:600:0:U",
-				"DS:serv_l_ssh:GAUGE:600:0:U",
-				"DS:serv_l_ftp:GAUGE:600:0:U",
-				"DS:serv_l_telnet:GAUGE:600:0:U",
-				"DS:serv_l_imap:GAUGE:600:0:U",
-				"DS:serv_l_smb:GAUGE:600:0:U",
-				"DS:serv_l_fax:GAUGE:600:0:U",
-				"DS:serv_l_cups:GAUGE:600:0:U",
-				"DS:serv_l_pop3:GAUGE:600:0:U",
-				"DS:serv_l_smtp:GAUGE:600:0:U",
-				"DS:serv_l_spam:GAUGE:600:0:U",
-				"DS:serv_l_virus:GAUGE:600:0:U",
-				"DS:serv_l_f2b:GAUGE:600:0:U",
-				"DS:serv_l_val02:GAUGE:600:0:U",
-				"DS:serv_l_val03:GAUGE:600:0:U",
-				"DS:serv_l_val04:GAUGE:600:0:U",
-				"DS:serv_l_val05:GAUGE:600:0:U",
-				"RRA:AVERAGE:0.5:1:288",
-				"RRA:AVERAGE:0.5:6:336",
-				"RRA:AVERAGE:0.5:12:744",
-				"RRA:AVERAGE:0.5:288:365",
-				"RRA:MIN:0.5:1:288",
-				"RRA:MIN:0.5:6:336",
-				"RRA:MIN:0.5:12:744",
-				"RRA:MIN:0.5:288:365",
-				"RRA:MAX:0.5:1:288",
-				"RRA:MAX:0.5:6:336",
-				"RRA:MAX:0.5:12:744",
-				"RRA:MAX:0.5:288:365",
-				"RRA:LAST:0.5:1:288",
-				"RRA:LAST:0.5:6:336",
-				"RRA:LAST:0.5:12:744",
-				"RRA:LAST:0.5:288:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $SERV_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.4.1 new values are used (val_01) to support 'fail2ban' hits.
-	# These new values need to be renamed.
-	RRDs::tune($SERV_RRD,
-		"--data-source-rename=serv_i_val01:serv_i_f2b",
-		"--data-source-rename=serv_l_val01:serv_l_f2b",
-	);
-
-	our %serv_hist = ();
-	push(@graphs, "serv_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub serv_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $ssh = 0;
-	my $ftp = 0;
-	my $telnet = 0;
-	my $imap = 0;
-	my $smb = 0;
-	my $fax = 0;
-	my $cups = 0;
-	my $pop3 = 0;
-	my $smtp = 0;
-	my $spam = 0;
-	my $virus = 0;
-	my $f2b = 0;
-	my $val02 = 0;
-	my $val03 = 0;
-	my $val04 = 0;
-	my $val05 = 0;
-
-	my $date;
-	my $rrdata = "N";
-
-	# This graph is refreshed only every 5 minutes
-	my (undef, $min) = localtime(time);
-	if($min % 5) {
-		return;
-	}
-
-	if(-r $SECURE_LOG) {
-		$date = strftime("%b %e", localtime);
-		open(IN, "$SECURE_LOG");
-		while(<IN>) {
-			if(/^$date/) {
-				if(/ sshd\[/ && /Accepted /) {
-					$ssh++;
-				}
-				if($os eq "Linux") {
-					if(/START: pop3/) {
-						$pop3++;
-					}
-					if(/START: ftp/ ||
-					  (/ proftpd\[/ && /Login successful./)) {
-						$ftp++;
-					}
-					if(/START: telnet/) {
-						$telnet++;
-					}
-				} elsif($os eq "FreeBSD") {
-
-					if(/login:/ && /login from /) {
-						$telnet++;
-					}
-				}
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $IMAP_LOG) {
-		$IMAP_DATE_LOG_FORMAT = $IMAP_DATE_LOG_FORMAT || "%b %d";
-		$date_dovecot = strftime($IMAP_DATE_LOG_FORMAT, localtime);
-		$date_uw = strftime("%b %e %T", localtime);
-		open(IN, "$IMAP_LOG");
-		while(<IN>) {
-			# UW-IMAP log
-			if(/$date_uw/) {
-				if(/ imapd\[/ && / Login user=/) {
-					$imap++;
-				}
-			}
-			# Dovecot log
-			if(/$date_dovecot /) {
-				if(/ imap-login: / && / Login: /) {
-					$imap++;
-				}
-				if(/ pop3-login: / && / Login: /) {
-					$pop3++;
-				}
-			}
-		}
-		close(IN);
-	}
-
-	my $smb_L = 0;
-	open(IN, "smbstatus -L 2>/dev/null |");
-	while(<IN>) {
-		if(/^----------/) {
-			$smb_L++;
-			next;
-		}
-		if($smb_L) {
-			$smb_L++ unless !$_;
-		}
-	}
-	close(IN);
-	$smb_L--;
-	my $smb_S = 0;
-	open(IN, "smbstatus -S 2>/dev/null |");
-	while(<IN>) {
-		if(/^----------/) {
-			$smb_S++;
-			next;
-		}
-		if($smb_S) {
-			$smb_S++ unless !$_;
-		}
-	}
-	close(IN);
-	$smb_S--;
-	$smb = $smb_L + $smb_S;
-
-	if(-r $HYLAFAX_LOG) {
-		$date = strftime("%m/%d/%y", localtime);
-		open(IN, "$HYLAFAX_LOG");
-		while(<IN>) {
-			if(/^$date/ && /SEND/) {
-				$fax++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $CUPS_LOG) {
-		$date = strftime("%d/%b/%Y", localtime);
-		open(IN, "$CUPS_LOG");
-		while(<IN>) {
-			if(/\[$date:/) {
-				$cups++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $FAIL2BAN_LOG) {
-		$date = strftime("%Y-%m-%d", localtime);
-		open(IN, $FAIL2BAN_LOG);
-		while(<IN>) {
-			if(/^$date/ && / fail2ban/ && / WARNING / && / Ban /) {
-				$f2b++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $MAIL_LOG) {
-		$date = strftime("%b %e", localtime);
-		open(IN, "$MAIL_LOG");
-		while(<IN>) {
-			if(/^$date/) {
-				if(/to=/ && /stat(us)?=sent/i) {
-					$smtp++;	
-				}
-				if(/MailScanner/ && /Spam Checks:/ && /Found/ && /spam messages/) {
-					$spam++;
-				}
-				if(/MailScanner/ && /Virus Scanning:/ && /Found/ && /viruses/) {
-					$virus++;
-				}
-			}
-		}
-		close(IN);
-	}
-
-	$date = strftime("%Y-%m-%d", localtime);
-	if(-r "$CG_LOGDIR/$date.log") {
-		open(IN, "$CG_LOGDIR/$date.log");
-		while(<IN>) {
-			if(/DEQUEUER \[\d+\] (LOCAL\(.+\) delivered|SMTP.+ relayed)\:/) {
-				$smtp++;
-			}
-			if(/IMAP/ && / connected from /) {
-				$imap++;
-			}
-			if(/POP/ && / connected from /) {
-				$pop3++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $SPAMASSASSIN_LOG) {
-		$date = strftime("%b %e", localtime);
-		open(IN, $SPAMASSASSIN_LOG);
-		while(<IN>) {
-			if(/^$date/ && /spamd: identified spam/) {
-				$spam++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $CLAMAV_LOG) {
-		$date = strftime("%a %b %e", localtime);
-		open(IN, $CLAMAV_LOG);
-		while(<IN>) {
-			if(/^$date/ && / FOUND/) {
-				$virus++;
-			}
-		}
-		close(IN);
-	}
-
-	# I data (incremental)
-	$rrdata .= ":$ssh:$ftp:$telnet:$imap:$smb:$fax:$cups:$pop3:$smtp:$spam:$virus:$f2b:$val02:$val03:$val04:$val05";
-
-	# L data (load)
-	my $l_ssh = 0;
-	my $l_ftp = 0;
-	my $l_telnet = 0;
-	my $l_imap = 0;
-	my $l_smb = 0;
-	my $l_fax = 0;
-	my $l_cups = 0;
-	my $l_pop3 = 0;
-	my $l_smtp = 0;
-	my $l_spam = 0;
-	my $l_virus = 0;
-	my $l_f2b = 0;
-	my $l_val02 = 0;
-	my $l_val03 = 0;
-	my $l_val04 = 0;
-	my $l_val05 = 0;
-
-	$l_ssh = $ssh - $serv_hist{'ssh'};
-	$l_ssh = 0 unless $l_ssh != $ssh;
-	$l_ssh /= 300;
-	$serv_hist{'ssh'} = $ssh;
-
-	$l_ftp = $ftp - $serv_hist{'ftp'};
-	$l_ftp = 0 unless $l_ftp != $ftp;
-	$l_ftp /= 300;
-	$serv_hist{'ftp'} = $ftp;
-
-	$l_telnet = $telnet - $serv_hist{'telnet'};
-	$l_telnet = 0 unless $l_telnet != $telnet;
-	$l_telnet /= 300;
-	$serv_hist{'telnet'} = $telnet;
-
-	$l_imap = $imap - $serv_hist{'imap'};
-	$l_imap = 0 unless $l_imap != $imap;
-	$l_imap /= 300;
-	$serv_hist{'imap'} = $imap;
-
-	$l_smb = $smb - $serv_hist{'smb'};
-	$l_smb = 0 unless $l_smb != $smb;
-	$l_smb /= 300;
-	$serv_hist{'smb'} = $smb;
-
-	$l_fax = $fax - $serv_hist{'fax'};
-	$l_fax = 0 unless $l_fax != $fax;
-	$l_fax /= 300;
-	$serv_hist{'fax'} = $fax;
-
-	$l_cups = $cups - $serv_hist{'cups'};
-	$l_cups = 0 unless $l_cups != $cups;
-	$l_cups /= 300;
-	$serv_hist{'cups'} = $cups;
-
-	$l_pop3 = $pop3 - $serv_hist{'pop3'};
-	$l_pop3 = 0 unless $l_pop3 != $pop3;
-	$l_pop3 /= 300;
-	$serv_hist{'pop3'} = $pop3;
-
-	$l_smtp = $smtp - $serv_hist{'smtp'};
-	$l_smtp = 0 unless $l_smtp != $smtp;
-	$l_smtp /= 300;
-	$serv_hist{'smtp'} = $smtp;
-
-	$l_spam = $spam - $serv_hist{'spam'};
-	$l_spam = 0 unless $l_spam != $spam;
-	$l_spam /= 300;
-	$serv_hist{'spam'} = $spam;
-
-	$l_virus = $virus - $serv_hist{'virus'};
-	$l_virus = 0 unless $l_virus != $virus;
-	$l_virus /= 300;
-	$serv_hist{'virus'} = $virus;
-
-	$l_f2b = $f2b - $serv_hist{'f2b'};
-	$l_f2b = 0 unless $l_f2b != $f2b;
-	$l_f2b /= 300;
-	$serv_hist{'f2b'} = $f2b;
-
-	$l_val02 = $val02 - $serv_hist{'val02'};
-	$l_val02 = 0 unless $l_val02 != $val02;
-	$l_val02 /= 300;
-	$serv_hist{'val02'} = $val02;
-
-	$l_val03 = $val03 - $serv_hist{'val03'};
-	$l_val03 = 0 unless $l_val03 != $val03;
-	$l_val03 /= 300;
-	$serv_hist{'val03'} = $val03;
-
-	$l_val04 = $val04 - $serv_hist{'val04'};
-	$l_val04 = 0 unless $l_val04 != $val04;
-	$l_val04 /= 300;
-	$serv_hist{'val04'} = $val04;
-
-	$l_val05 = $val05 - $serv_hist{'val05'};
-	$l_val05 = 0 unless $l_val05 != $val05;
-	$l_val05 /= 300;
-	$serv_hist{'val05'} = $val05;
-
-	$rrdata .= ":$l_ssh:$l_ftp:$l_telnet:$l_imap:$l_smb:$l_fax:$l_cups:$l_pop3:$l_smtp:$l_spam:$l_virus:$l_f2b:$l_val02:$l_val03:$l_val04:$l_val05";
-	RRDs::update($SERV_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $SERV_RRD: $err") if $err;
-}
-
-# MAIL graph
-# ----------------------------------------------------------------------------
-sub mail_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $MAIL_RRD)) {
-		logger("Creating '$MAIL_RRD' file.");
-		eval {
-			RRDs::create($MAIL_RRD,
-				"--step=60",
-				"DS:mail_in:GAUGE:120:0:U",
-				"DS:mail_out:GAUGE:120:0:U",
-				"DS:mail_recvd:GAUGE:120:0:U",
-				"DS:mail_delvd:GAUGE:120:0:U",
-				"DS:mail_bytes_recvd:GAUGE:120:0:U",
-				"DS:mail_bytes_delvd:GAUGE:120:0:U",
-				"DS:mail_rejtd:GAUGE:120:0:U",
-				"DS:mail_spam:GAUGE:120:0:U",
-				"DS:mail_virus:GAUGE:120:0:U",
-				"DS:mail_bouncd:GAUGE:120:0:U",
-				"DS:mail_queued:GAUGE:120:0:U",
-				"DS:mail_discrd:GAUGE:120:0:U",
-				"DS:mail_held:GAUGE:120:0:U",
-				"DS:mail_forwrd:GAUGE:120:0:U",
-				"DS:mail_queues:GAUGE:120:0:U",
-				"DS:mail_val01:COUNTER:120:0:U",
-				"DS:mail_val02:COUNTER:120:0:U",
-				"DS:mail_val03:COUNTER:120:0:U",
-				"DS:mail_val04:COUNTER:120:0:U",
-				"DS:mail_val05:COUNTER:120:0:U",
-				"DS:mail_val06:GAUGE:120:0:U",
-				"DS:mail_val07:GAUGE:120:0:U",
-				"DS:mail_val08:GAUGE:120:0:U",
-				"DS:mail_val09:GAUGE:120:0:U",
-				"DS:mail_val10:GAUGE:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $MAIL_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.5.0 there is support for more message status.
-	# Some values need to be renamed.
-	RRDs::tune($MAIL_RRD,
-		"--data-source-rename=mail_mta_val10:mail_bouncd",
-		"--data-source-rename=mail_mta_val12:mail_discrd",
-		"--data-source-rename=mail_mta_val13:mail_held",
-		"--data-source-rename=mail_mta_val14:mail_forwrd",
-		"--data-source-rename=mail_mta_val15:mail_queues",
-	);
-
-	our $mail_hist = 0;
-	push(@graphs, "mail_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub mail_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $in_conn;
-	my $out_conn;
-	my $recvd;
-	my $delvd;
-	my $bytes_recvd;
-	my $bytes_delvd;
-	my $rejected;
-	my $queued;
-	my $spam;
-	my $virus;
-	my $gl_records;
-	my $gl_greylisted;
-	my $gl_whitelisted;
-	my @mta_h = (0) x 15;
-	my @mta = (0) x 15;
-	my @gen = (0) x 10;
-
-	my $n;
-	my $mail_log_seekpos;
-	my $mail_log_size;
-	my $sa_log_seekpos;
-	my $sa_log_size;
-	my $clamav_log_seekpos;
-	my $clamav_log_size;
-	my $rrdata = "N";
-
-	# Read last MAIL data from historic
-	($mail_log_seekpos, $sa_log_seekpos, $clamav_log_seekpos, @mta_h[0..15-1], @gen[0..10-1]) = split(';', $mail_hist);
-	$mail_log_seekpos = defined($mail_log_seekpos) ? int($mail_log_seekpos) : 0;
-	$sa_log_seekpos = defined($sa_log_seekpos) ? int($sa_log_seekpos) : 0;
-	$clamav_log_seekpos = defined($clamav_log_seekpos) ? int($clamav_log_seekpos) : 0;
-
-	$recvd = $delvd = $bytes_recvd = $bytes_delvd = 0;
-	$in_conn = $out_conn = $rejected = 0;
-	$bounced = $discarded = $held = $forwarded = 0;
-	$queued = $queues = 0;
-	if(lc($MAIL_MTA) eq "sendmail") {
-		if(open(IN, "mailstats -P |")) {
-			while(<IN>) {
-				if(/^ T\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
-					$recvd = $1;
-					$bytes_recvd = $2;
-					$delvd = $3;
-					$bytes_delvd = $4;
-				}
-				if(/^ C\s+(\d+)\s+(\d+)\s+(\d+)/) {
-					$in_conn = $1;
-					$out_conn = $2;
-					$rejected = $3;
-				}
-			}
-			close(IN);
-			$bytes_recvd *= 1024;
-			$bytes_delvd *= 1024;
-		}
-		if(open(IN, "mailq |")) {
-			while(<IN>) {
-				my ($tmp) = ($_ =~ m/^\w{14}[ *X-]\s*(\d{1,8}) /);
-				$queues += $tmp if $tmp;
-				if(/^\s+Total requests: (\d+)$/) {
-					$queued = $1;
-				}
-			}
-			close(IN);
-		}
-	} elsif(lc($MAIL_MTA) eq "postfix") {
-		my @data;
-
-		for my $path (split /:/, $ENV{PATH}) {
-			if(-f "$path/pflogsumm" && -x _) {
-				open(IN, "pflogsumm -d today -h 0 -u 0 --smtpd_stats --no_bounce_detail --no_deferral_detail --no_reject_detail --no_no_msg_size --no_smtpd_warnings $MAIL_LOG 2>/dev/null |");
-			}
-			if(-f "$path/pflogsumm.pl" && -x _) {
-				open(IN, "pflogsumm.pl -d today -h 0 -u 0 --smtpd_stats --no_bounce_detail --no_deferral_detail --no_reject_detail --no_no_msg_size --no_smtpd_warnings $MAIL_LOG 2>/dev/null |");
-			}
-		}
-		@data = <IN>;
-		close(IN);
-		foreach(@data) {
-			if(/^\s*(\d{1,7})([ km])\s*received$/) {
-				$recvd = $1;
-				$recvd = $1 * 1024 if $2 eq "k";
-				$recvd = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*delivered$/) {
-				$delvd = $1;
-				$delvd = $1 * 1024 if $2 eq "k";
-				$delvd = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*forwarded$/) {
-				$forwarded = $1;
-				$forwarded = $1 * 1024 if $2 eq "k";
-				$forwarded = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*bounced$/) {
-				$bounced = $1;
-				$bounced = $1 * 1024 if $2 eq "k";
-				$bounced = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*rejected \(/) {
-				$rejected = $1;
-				$rejected = $1 * 1024 if $2 eq "k";
-				$rejected = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*held/) {
-				$held = $1;
-				$held = $1 * 1024 if $2 eq "k";
-				$held = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*discarded \(/) {
-				$discarded = $1;
-				$discarded = $1 * 1024 if $2 eq "k";
-				$discarded = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*bytes received$/) {
-				$bytes_recvd = $1;
-				$bytes_recvd = $1 * 1024 if $2 eq "k";
-				$bytes_recvd = $1 * 1024 * 1024 if $2 eq "m";
-			}
-			if(/^\s*(\d{1,7})([ km])\s*bytes delivered$/) {
-				$bytes_delvd = $1;
-				$bytes_delvd = $1 * 1024 if $2 eq "k";
-				$bytes_delvd = $1 * 1024 * 1024 if $2 eq "m";
-			}
-		}
-		if(open(IN, "mailq |")) {
-			while(<IN>) {
-				if(/^-- (\d+) Kbytes in (\d+) Request/) {
-					$queues = $1;
-					$queued = $2;
-				}  
-			}
-			close(IN);
-		}
-	}
-
-	$gl_records = $gl_greylisted = $gl_whitelisted = 0;
-	if(lc($MAIL_GREYLIST) eq "milter-greylist") {
-		if(-r $MILTER_GL) {
-			open(IN, $MILTER_GL);
-			if(!seek(IN, -80, 2)) {
-				logger("Couldn't seek to the end ($MILTER_GL): $!");
-				return;
-			}
-			while(<IN>) {
-				if(/^# Summary:\s+(\d+) records,\s+(\d+) greylisted,\s+(\d+) whitelisted$/) {
-					$gl_records = $1;
-					$gl_greylisted = $2;
-					$gl_whitelisted = $3;
-				}
-			}
-			close(IN);
-		}
-	}
-
-	$spam = $virus = 0;
-	if(-r $MAIL_LOG) {
-		open(IN, $MAIL_LOG);
-		if(!seek(IN, 0, 2)) {
-			logger("Couldn't seek to the end ($MAIL_LOG): $!");
-			return;
-		}
-		$mail_log_size = tell(IN);
-		if($mail_log_size < $mail_log_seekpos) {
-			$mail_log_seekpos = 0;
-		}
-		if(!seek(IN, $mail_log_seekpos, 0)) {
-			logger("Couldn't seek to $mail_log_seekpos ($MAIL_LOG): $!");
-			return;
-		}
-		while(<IN>) {
-			my @line;
-			if(/MailScanner/ && /Spam Checks:/ && /Found/ && /spam messages/) {
-				@line = split(' ', $_);
-				$spam += int($line[8]);
-			}
-			if(/MailScanner/ && /Virus Scanning:/ && /Found/ && /viruses/) {
-				@line = split(' ', $_);
-				$virus += int($line[8]);
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $SPAMASSASSIN_LOG) {
-		$date = strftime("%b %e", localtime);
-		open(IN, $SPAMASSASSIN_LOG);
-		if(!seek(IN, 0, 2)) {
-			logger("Couldn't seek to the end ($SPAMASSASSIN_LOG): $!");
-			return;
-		}
-		$sa_log_size = tell(IN);
-		if($sa_log_size < $sa_log_seekpos) {
-			$sa_log_seekpos = 0;
-		}
-		if(!seek(IN, $sa_log_seekpos, 0)) {
-			logger("Couldn't seek to $sa_log_seekpos ($SPAMASSASSIN_LOG): $!");
-			return;
-		}
-		while(<IN>) {
-			if(/^$date/ && /spamd: identified spam/) {
-				$spam++;
-			}
-		}
-		close(IN);
-	}
-
-	if(-r $CLAMAV_LOG) {
-		$date = strftime("%a %b %e", localtime);
-		open(IN, $CLAMAV_LOG);
-		if(!seek(IN, 0, 2)) {
-			logger("Couldn't seek to the end ($CLAMAV_LOG): $!");
-			return;
-		}
-		$clamav_log_size = tell(IN);
-		if($clamav_log_size < $clamav_log_seekpos) {
-			$clamav_log_seekpos = 0;
-		}
-		if(!seek(IN, $clamav_log_seekpos, 0)) {
-			logger("Couldn't seek to $clamav_log_seekpos ($CLAMAV_LOG): $!");
-			return;
-		}
-		while(<IN>) {
-			if(/^$date/ && / FOUND/) {
-				$virus++;
-			}
-		}
-		close(IN);
-	}
-
-	$mta[0] = int($in_conn) - $mta_h[0];
-	$mta[0] = 0 unless $mta[0] != int($in_conn);
-	$mta[0] /= 60;
-	$mta_h[0] = int($in_conn);
-
-	$mta[1] = int($out_conn) - $mta_h[1];
-	$mta[1] = 0 unless $mta[1] != int($out_conn);
-	$mta[1] /= 60;
-	$mta_h[1] = int($out_conn);
-
-	$mta[2] = int($recvd) - $mta_h[2];
-	$mta[2] = 0 unless $mta[2] != int($recvd);
-	$mta[2] /= 60;
-	$mta_h[2] = int($recvd);
-
-	$mta[3] = int($delvd) - $mta_h[3];
-	$mta[3] = 0 unless $mta[3] != int($delvd);
-	$mta[3] /= 60;
-	$mta_h[3] = int($delvd);
-
-	$mta[4] = int($bytes_recvd) - $mta_h[4];
-	$mta[4] = 0 unless $mta[4] != int($bytes_recvd);
-	$mta[4] /= 60;
-	$mta_h[4] = int($bytes_recvd);
-
-	$mta[5] = int($bytes_delvd) - $mta_h[5];
-	$mta[5] = 0 unless $mta[5] != int($bytes_delvd);
-	$mta[5] /= 60;
-	$mta_h[5] = int($bytes_delvd);
-
-	$mta[6] = int($rejected) - $mta_h[6];
-	$mta[6] = 0 unless $mta[6] != int($rejected);
-	$mta[6] /= 60;
-	$mta_h[6] = int($rejected);
-
-	# avoid initial spike
-	$mta[7] = int($spam) unless !$mta_h[7];
-	$mta_h[7] = int($spam) unless $mta_h[7];
-	$mta[7] /= 60;
-
-	# avoid initial spike
-	$mta[8] = int($virus) unless !$mta_h[8];
-	$mta_h[8] = int($virus) unless $mta_h[8];
-	$mta[8] /= 60;
-
-	$mta[9] = int($bouncd) - $mta_h[9];
-	$mta[9] = 0 unless $mta[9] != int($bouncd);
-	$mta[9] /= 60;
-	$mta_h[9] = int($bouncd);
-
-	$mta[10] = int($queued);
-
-	$mta[11] = int($discrd) - $mta_h[11];
-	$mta[11] = 0 unless $mta[11] != int($discrd);
-	$mta[11] /= 60;
-	$mta_h[11] = int($discrd);
-
-	$mta[12] = int($held) - $mta_h[12];
-	$mta[12] = 0 unless $mta[12] != int($held);
-	$mta[12] /= 60;
-	$mta_h[12] = int($held);
-
-	$mta[13] = int($forwrd) - $mta_h[13];
-	$mta[13] = 0 unless $mta[13] != int($forwrd);
-	$mta[13] /= 60;
-	$mta_h[13] = int($forwrd);
-
-	$mta[14] = int($queues);
-
-	$gen[6] = int($gl_records);
-	$gen[7] = int($gl_greylisted);
-	$gen[8] = int($gl_whitelisted);
-
-	$mail_hist = join(";", $mail_log_size, $sa_log_size, $clamav_log_size, @mta_h, @gen);
-	for($n = 0; $n < 15; $n++) {
-		$rrdata .= ":" . $mta[$n];
-	}
-	for($n = 0; $n < 10; $n++) {
-		$rrdata .= ":" . $gen[$n];
-	}
-
-	RRDs::update($MAIL_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $MAIL_RRD: $err") if $err;
-}
-
-# PORT graph
-# ----------------------------------------------------------------------------
-sub port_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my @data;
-	my $n;
-	my $p;
-
-	if(-e $PORT_RRD) {
-		$info = RRDs::info($PORT_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 2 != $PORT_MAX) {
-			logger("Detected size mismatch between \$PORT_MAX ($PORT_MAX) and $PORT_RRD (" . scalar(@ds) / 2 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($PORT_RRD, "$PORT_RRD.bak");
-		}
-	}
-
-	if(!(-e $PORT_RRD)) {
-		logger("Creating '$PORT_RRD' file.");
-		for($n = 0; $n < $PORT_MAX; $n++) {
-			push(@tmp, "DS:port" . $n . "_in:GAUGE:120:0:U");
-			push(@tmp, "DS:port" . $n . "_out:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($PORT_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $PORT_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	if($os eq "Linux") {
-		my $num;
-		my @line;
-
-		# set the iptables rules for each defined port
-		for($n = 0; $n < $PORT_MAX; $n++) {
-			if($PORT_LIST[$n]) {
-				$p = lc($PORT_PROT[$n]);
-				$p = "all" unless $PORT_PROT[$n];
-				system("iptables -N MONITORIX_IN_$n 2>/dev/null");
-				system("iptables -I INPUT -p $p --dport $PORT_LIST[$n] -j MONITORIX_IN_$n -c 0 0");
-				system("iptables -N MONITORIX_OUT_$n 2>/dev/null");
-				system("iptables -I OUTPUT -p $p --sport $PORT_LIST[$n] -j MONITORIX_OUT_$n -c 0 0");
-			}
-		}
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		# set the ipfw rules for each defined port
-		for($n = 0; $n < $PORT_MAX; $n++) {
-			if($PORT_LIST[$n]) {
-				$p = lc($PORT_PROT[$n]);
-				$p = "ip" unless $PORT_PROT[$n];
-				system("ipfw -q add $PORT_RULE count $p from me $PORT_LIST[$n] to any");
-				system("ipfw -q add $PORT_RULE count $p from any to me $PORT_LIST[$n]");
-			}
-		}
-	}
-
-	# Since 2.5.2 port values need to be converted to GAUGE.
-	for($n = 0; $n < $PORT_MAX; $n++) {
-		RRDs::tune($PORT_RRD,
-			"--data-source-type=port" . $n . "_in:GAUGE",
-			"--data-source-type=port" . $n . "_out:GAUGE",
-		);
-	}
-
-	our @port_hist_in = ();
-	our @port_hist_out = ();
-	push(@graphs, "port_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub port_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @in;
-	my @out;
-
-	my $n;
-	my $rrdata = "N";
-
-	if($os eq "Linux") {
-		open(IN, "iptables -nxvL INPUT |");
-		while(<IN>) {
-			for($n = 0; $n < $PORT_MAX; $n++) {
-				$in[$n] = 0 unless $in[$n];
-				if(/ MONITORIX_IN_$n /) {
-					my (undef, $bytes) = split(' ', $_);
-					chomp($bytes);
-					$in[$n] = $bytes - $port_hist_in[$n];
-					$in[$n] = 0 unless $in[$n] != $bytes;
-					$port_hist_in[$n] = $bytes;
-					$in[$n] /= 60;
-				}
-			}
-		}
-		close(IN);
-		open(IN, "iptables -nxvL OUTPUT |");
-		while(<IN>) {
-			for($n = 0; $n < $PORT_MAX; $n++) {
-				$out[$n] = 0 unless $out[$n];
-				if(/ MONITORIX_OUT_$n /) {
-					my (undef, $bytes) = split(' ', $_);
-					chomp($bytes);
-					$out[$n] = $bytes - $port_hist_out[$n];
-					$out[$n] = 0 unless $out[$n] != $bytes;
-					$port_hist_out[$n] = $bytes;
-					$out[$n] /= 60;
-				}
-			}
-		}
-		close(IN);
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		open(IN, "ipfw show $PORT_RULE 2>/dev/null |");
-		while(<IN>) {
-			for($n = 0; $n < $PORT_MAX; $n++) {
-				$in[$n] = 0 unless $in[$n];
-				if(/ from any to me dst-port $PORT_LIST[$n]$/) {
-					my (undef, undef, $bytes) = split(' ', $_);
-					chomp($bytes);
-					$in[$n] = $bytes;
-				}
-				$out[$n] = 0 unless $out[$n];
-				if(/ from me $PORT_LIST[$n] to any$/) {
-					my (undef, undef, $bytes) = split(' ', $_);
-					chomp($bytes);
-					$out[$n] = $bytes;
-				}
-			}
-		}
-		close(IN);
-	}
-
-	for($n = 0; $n < $PORT_MAX; $n++) {
-		$rrdata .= ":$in[$n]:$out[$n]";
-	}
-	RRDs::update($PORT_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $PORT_RRD: $err") if $err;
-}
-
-# USER graph
-# ----------------------------------------------------------------------------
-sub user_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $USER_RRD)) {
-		logger("Creating '$USER_RRD' file.");
-		eval {
-			RRDs::create($USER_RRD,
-				"--step=60",
-				"DS:user_sys:GAUGE:120:0:U",
-				"DS:user_smb:GAUGE:120:0:U",
-				"DS:user_mac:GAUGE:120:0:U",
-				"DS:user_val1:GAUGE:120:0:U",
-				"DS:user_val2:GAUGE:120:0:U",
-				"DS:user_val3:GAUGE:120:0:U",
-				"DS:user_val4:GAUGE:120:0:U",
-				"DS:user_val5:GAUGE:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $USER_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "user_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub user_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $sys;
-	my $smb;
-	my $mac;
-
-	my @data;
-	my $rrdata = "N";
-
-	open(IN, "who -q |");
-	while(<IN>) {
-		if(/^#/) {
-			my @tmp = split('=', $_);
-			$sys = $tmp[scalar(@tmp) - 1];
-			chomp($sys);
-			$sys = int($sys);
-			last;
-		}
-	}
-	close(IN);
-
-	$smb = 0;
-	open(IN, "smbstatus -b 2>/dev/null |");
-	while(<IN>) {
-		if(/^----------/) {
-			$smb++;
-			next;
-		}
-		if($smb) {
-			$smb++ unless !$_;
-		}
-	}
-	close(IN);
-	$smb--;
-
-	open(IN, "macusers 2>/dev/null |");
-	@data = <IN>;
-	close(IN);
-	$mac = scalar(@data) - 1;
-	$mac = 0 unless @data;
-
-	$rrdata .= ":$sys:$smb:$mac:0:0:0:0:0";
-	RRDs::update($USER_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $USER_RRD: $err") if $err;
-}
-
-# APACHE graph
-# ----------------------------------------------------------------------------
-sub apache_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(!defined(@APACHE_LIST)) {
-		logger("$myself: ERROR: missing or not defined APACHE_LIST option.");
-		return 0;
-	}
-
-	if(-e $APACHE_RRD) {
-		$info = RRDs::info($APACHE_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 5 != scalar(@APACHE_LIST)) {
-			logger("Detected size mismatch between \@APACHE_LIST (" . scalar(@APACHE_LIST) . ") and $APACHE_RRD (" . scalar(@ds) / 5 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($APACHE_RRD, "$APACHE_RRD.bak");
-		}
-	}
-
-	if(!(-e $APACHE_RRD)) {
-		logger("Creating '$APACHE_RRD' file.");
-		for($n = 0; $n < scalar(@APACHE_LIST); $n++) {
-			push(@tmp, "DS:apache" . $n . "_acc:GAUGE:120:0:U");
-			push(@tmp, "DS:apache" . $n . "_kb:GAUGE:120:0:U");
-			push(@tmp, "DS:apache" . $n . "_cpu:GAUGE:120:0:U");
-			push(@tmp, "DS:apache" . $n . "_busy:GAUGE:120:0:U");
-			push(@tmp, "DS:apache" . $n . "_idle:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($APACHE_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $APACHE_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.5.0 first 5 values belong to the first Apache being monitored.
-	# These values need to be renamed.
-	RRDs::tune($APACHE_RRD,
-		"--data-source-rename=apache_acc:apache0_acc",
-		"--data-source-rename=apache_kb:apache0_kb",
-		"--data-source-rename=apache_cpu:apache0_cpu",
-		"--data-source-rename=apache_busy:apache0_busy",
-		"--data-source-rename=apache_idle:apache0_idle",
-	);
-
-	our %apache_hist = ();
-	push(@graphs, "apache_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub apache_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $acc;
-	my $kb;
-	my $cpu;
-	my $busy;
-	my $idle;
-
-	my $str;
-	my $rrdata = "N";
-
-	my $n = 0;
-	foreach(@APACHE_LIST) {
-		my $URL = $_ . "/server-status?auto";
-		my $ua = LWP::UserAgent->new(timeout => 30);
-		my $response = $ua->request(HTTP::Request->new('GET', $URL));
-
-		foreach(split('\n', $response->content)) {
-			if(/^Total Accesses:\s+(\d+)$/) {
-				$str = $n . "acc";
-				$acc = $1 - $apache_hist{$str};
-				$acc = 0 unless $acc != $1;
-				$acc /= 60;
-				$apache_hist{$str} = $1;
-				next;
-			}
-			if(/^Total kBytes:\s+(\d+)$/) {
-				$str = $n . "kb";
-				$kb = $1 - $apache_hist{$str};
-				$kb = 0 unless $kb != $1;
-				$apache_hist{$str} = $1;
-				next;
-			}
-			if(/^CPULoad:\s+(\d*\.\d+)$/) {
-				$cpu = abs($1);
-				next;
-			}
-			if(/^BusyWorkers:\s+(\d+)/ || /^BusyServers:\s+(\d+)/) {
-				$busy = int($1);
-				next;
-			}
-			if(/^IdleWorkers:\s+(\d+)/ || /^IdleServers:\s+(\d+)/) {
-				$idle = int($1);
-				last;
-			}
-		}
-		$rrdata .= ":$acc:$kb:$cpu:$busy:$idle";
-		$n++;
-	}
-
-	RRDs::update($APACHE_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $APACHE_RRD: $err") if $err;
-}
-
-# NGINX graph
-# ----------------------------------------------------------------------------
-sub nginx_init {
-	my $myself = (caller(0))[3];
-
-
-	if(!(-e $NGINX_RRD)) {
-		logger("Creating '$NGINX_RRD' file.");
-		eval {
-			RRDs::create($NGINX_RRD,
-				"--step=60",
-				"DS:nginx_requests:GAUGE:120:0:U",
-				"DS:nginx_total:GAUGE:120:0:U",
-				"DS:nginx_reading:GAUGE:120:0:U",
-				"DS:nginx_writing:GAUGE:120:0:U",
-				"DS:nginx_waiting:GAUGE:120:0:U",
-				"DS:nginx_bytes_in:GAUGE:120:0:U",
-				"DS:nginx_bytes_out:GAUGE:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NGINX_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	if(!defined($NGINX_PORT)) {
-		logger("$myself: ERROR: undefined NGINX_PORT option.");
-		return 0;
-	}
-
-	if($os eq "Linux") {
-		system("iptables -N NGINX_IN 2>/dev/null");
-		system("iptables -I INPUT -p tcp --dport $NGINX_PORT -j NGINX_IN -c 0 0");
-		system("iptables -N NGINX_OUT 2>/dev/null");
-		system("iptables -I OUTPUT -p tcp --sport $NGINX_PORT -j NGINX_OUT -c 0 0");
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		system("ipfw delete $NGINX_RULE 2>/dev/null");
-		system("ipfw -q add $NGINX_RULE count tcp from me $NGINX_PORT to any");
-		system("ipfw -q add $NGINX_RULE count tcp from any to me $NGINX_PORT");
-	}
-
-	# Since 2.4.0 these two values need to be converted to GAUGE.
-	RRDs::tune($NGINX_RRD,
-		"--data-source-type=nginx_bytes_in:GAUGE",
-		"--data-source-type=nginx_bytes_out:GAUGE",
-	);
-
-	our %nginx_hist = ();
-	push(@graphs, "nginx_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub nginx_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $reqs;
-	my $tot;
-	my $reads;
-	my $writes;
-	my $waits;
-	my $in;
-	my $out;
-	my $val;
-
-	my $URL = "http://127.0.0.1:" . $NGINX_PORT . "/nginx_status";
-	my $ua = LWP::UserAgent->new(timeout => 30);
-	my $response = $ua->request(HTTP::Request->new('GET', $URL));
-	my $rrdata = "N";
-
-	foreach(split('\n', $response->content)) {
-		if(/^Active connections:\s+(\d+)\s*/) {
-			$tot = $1;
-			next;
-		}
-		if(/^\s+(\d+)\s+(\d+)\s+(\d+)\s*/) {
-			$reqs = $3 - $nginx_hist{'requests'};
-			$reqs = 0 unless $reqs != $3;
-			$nginx_hist{'requests'} = $3;
-		}
-		if(/^Reading:\s+(\d+).*Writing:\s+(\d+).*Waiting:\s+(\d+)\s*/) {
-			$reads = $1;
-			$writes = $2;
-			$waits = $3;
-		}
-	}
-
-	if($os eq "Linux") {
-		open(IN, "iptables -nxvL INPUT |");
-		while(<IN>) {
-			if(/ NGINX_IN /) {
-				(undef, $val) = split(' ', $_);
-				chomp($val);
-				$in = $val - $nginx_hist{'in'};
-				$in = 0 unless $in != $val;
-				$nginx_hist{'in'} = $val;
-				$in /= 60;
-				last;
-			}
-		}
-		close(IN);
-		open(IN, "iptables -nxvL OUTPUT |");
-		while(<IN>) {
-			if(/ NGINX_OUT /) {
-				(undef, $val) = split(' ', $_);
-				chomp($val);
-				$out = $val - $nginx_hist{'out'};
-				$out = 0 unless $out != $val;
-				$nginx_hist{'out'} = $val;
-				$out /= 60;
-				last;
-			}
-		}
-		close(IN);
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		open(IN, "ipfw show $NGINX_RULE 2>/dev/null |");
-		while(<IN>) {
-			if(/ from any to me dst-port $NGINX_PORT$/) {
-				(undef, undef, $val) = split(' ', $_);
-				chomp($val);
-				$in = $val - $nginx_hist{'in'};
-				$in = 0 unless $in != $val;
-				$nginx_hist{'in'} = $val;
-				$in /= 60;
-			}
-			if(/ from me $NGINX_PORT to any$/) {
-				(undef, undef, $val) = split(' ', $_);
-				chomp($val);
-				$out = $val - $nginx_hist{'out'};
-				$out = 0 unless $out != $val;
-				$nginx_hist{'out'} = $val;
-				$out /= 60;
-			}
-		}
-		close(IN);
-	}
-
-	$rrdata .= ":$reqs:$tot:$reads:$writes:$waits:$in:$out";
-	RRDs::update($NGINX_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NGINX_RRD: $err") if $err;
-}
-
-# LIGHTTPD graph
-# ----------------------------------------------------------------------------
-sub lighttpd_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(!defined(@LIGHTTPD_LIST)) {
-		logger("$myself: ERROR: missing or not defined LIGHTTPD_LIST option.");
-		return 0;
-	}
-
-	if(-e $LIGHTTPD_RRD) {
-		$info = RRDs::info($LIGHTTPD_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 9 != scalar(@LIGHTTPD_LIST)) {
-			logger("Detected size mismatch between \@LIGHTTPD_LIST (" . scalar(@LIGHTTPD_LIST) . ") and $LIGHTTPD_RRD (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($LIGHTTPD_RRD, "$LIGHTTPD_RRD.bak");
-		}
-	}
-
-	if(!(-e $LIGHTTPD_RRD)) {
-		logger("Creating '$LIGHTTPD_RRD' file.");
-		for($n = 0; $n < scalar(@LIGHTTPD_LIST); $n++) {
-			push(@tmp, "DS:lighttpd" . $n . "_acc:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_kb:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_busy:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_idle:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_val01:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_val02:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_val03:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_val04:GAUGE:120:0:U");
-			push(@tmp, "DS:lighttpd" . $n . "_val05:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($LIGHTTPD_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $LIGHTTPD_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	our %lighttpd_hist = ();
-	push(@graphs, "lighttpd_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub lighttpd_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $acc;
-	my $kb;
-	my $busy;
-	my $idle;
-
-	my $str;
-	my $rrdata = "N";
-
-	my $n = 0;
-	foreach(@LIGHTTPD_LIST) {
-		my $URL = $_ . "/server-status?auto";
-		my $ua = LWP::UserAgent->new(timeout => 30);
-		my $response = $ua->request(HTTP::Request->new('GET', $URL));
-
-		foreach(split('\n', $response->content)) {
-			if(/^Total Accesses:\s+(\d+)$/) {
-				$str = $n . "acc";
-				$acc = $1 - $lighttpd_hist{$str};
-				$acc = 0 unless $acc != $1;
-				$acc /= 60;
-				$lighttpd_hist{$str} = $1;
-				next;
-			}
-			if(/^Total kBytes:\s+(\d+)$/) {
-				$str = $n . "kb";
-				$kb = $1 - $lighttpd_hist{$str};
-				$kb = 0 unless $kb != $1;
-				$lighttpd_hist{$str} = $1;
-				next;
-			}
-			if(/^BusyServers:\s+(\d+)/) {
-				$busy = int($1);
-				next;
-			}
-			if(/^IdleServers:\s+(\d+)/) {
-				$idle = int($1);
-				last;
-			}
-		}
-		$rrdata .= ":$acc:$kb:$busy:$idle:0:0:0:0:0";
-		$n++;
-	}
-
-	RRDs::update($LIGHTTPD_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $LIGHTTPD_RRD: $err") if $err;
-}
-
-# MYSQL graph
-# ----------------------------------------------------------------------------
-sub mysql_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $num;
-	my $n;
-
-	$MYSQL_CONN_TYPE = $MYSQL_CONN_TYPE || "Host";
-	if(lc($MYSQL_CONN_TYPE) eq "host") {
-		$num = scalar(@MYSQL_HOST_LIST);
-		if(!@MYSQL_HOST_LIST) {
-			logger("$myself: ERROR: invalid value or not defined MYSQL_HOST_LIST option.");
-			return 0;
-		}
-		if(!@MYSQL_PORT_LIST) {
-			logger("$myself: ERROR: invalid value or not defined MYSQL_PORT_LIST option.");
-			return 0;
-		}
-		if(!@MYSQL_USER_LIST) {
-			logger("$myself: ERROR: invalid value or not defined MYSQL_USER_LIST option.");
-			return 0;
-		}
-		if(!@MYSQL_PASS_LIST) {
-			logger("$myself: ERROR: invalid value or not defined MYSQL_PASS_LIST option.");
-			return 0;
-		}
-	} elsif(lc($MYSQL_CONN_TYPE) eq "socket") {
-		$num = scalar(@MYSQL_SOCK_LIST);
-		if(!@MYSQL_SOCK_LIST) {
-			logger("$myself: ERROR: invalid value or not defined MYSQL_SOCK_LIST option.");
-			return 0;
-		}
-	} else {
-		logger("$myself: ERROR: invalid value in MYSQL_CONN_TYPE option.");
-		return 0;
-	}
-
-	if(-e $MYSQL_RRD) {
-		$info = RRDs::info($MYSQL_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(lc($MYSQL_CONN_TYPE) eq "host") {
-			if(scalar(@ds) / 38 != scalar(@MYSQL_HOST_LIST)) {
-				logger("Detected size mismatch between \@MYSQL_HOST_LIST (" . scalar(@MYSQL_HOST_LIST) . ") and $MYSQL_RRD (" . scalar(@ds) / 38 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-				rename($MYSQL_RRD, "$MYSQL_RRD.bak");
-			}
-		}
-		if(lc($MYSQL_CONN_TYPE) eq "socket") {
-			if(scalar(@ds) / 38 != scalar(@MYSQL_SOCK_LIST)) {
-				logger("Detected size mismatch between \@MYSQL_SOCK_LIST (" . scalar(@MYSQL_SOCK_LIST) . ") and $MYSQL_RRD (" . scalar(@ds) / 38 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-				rename($MYSQL_RRD, "$MYSQL_RRD.bak");
-			}
-		}
-	}
-
-	if(!(-e $MYSQL_RRD)) {
-		logger("Creating '$MYSQL_RRD' file.");
-		for($n = 0; $n < $num; $n++) {
-			push(@tmp, "DS:mysql" . $n . "_queries:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_sq:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_tchr:GAUGE:120:0:100");
-			push(@tmp, "DS:mysql" . $n . "_qcu:GAUGE:120:0:100");
-			push(@tmp, "DS:mysql" . $n . "_ot:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_conns_u:GAUGE:120:0:100");
-			push(@tmp, "DS:mysql" . $n . "_conns:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_tlw:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_kbu:GAUGE:120:0:100");
-			push(@tmp, "DS:mysql" . $n . "_innbu:GAUGE:120:0:100");
-			push(@tmp, "DS:mysql" . $n . "_csel:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_ccom:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_cdel:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_cins:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_cinss:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_cupd:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_crep:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_creps:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_crol:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_acli:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_acon:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_brecv:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_bsent:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val01:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val02:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val03:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val04:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val05:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val06:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val07:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val08:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val09:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val10:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val11:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val12:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val13:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val14:GAUGE:120:0:U");
-			push(@tmp, "DS:mysql" . $n . "_val15:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($MYSQL_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $MYSQL_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	# Since 2.5.0 first NN values belong to the first MySQL being monitored.
-	# These values need to be renamed.
-	RRDs::tune($MYSQL_RRD,
-		"--data-source-rename=mysql_queries:mysql0_queries",
-		"--data-source-rename=mysql_slow_queries:mysql0_sq",
-		"--data-source-rename=mysql_tcache_hit_r:mysql0_tchr",
-		"--data-source-rename=mysql_qcache_usage:mysql0_qcu",
-		"--data-source-rename=mysql_opened_tbl:mysql0_ot",
-		"--data-source-rename=mysql_conns_u:mysql0_conns_u",
-		"--data-source-rename=mysql_conns:mysql0_conns",
-		"--data-source-rename=mysql_tlocks_w:mysql0_tlw",
-		"--data-source-rename=mysql_key_buf_u:mysql0_kbu",
-		"--data-source-rename=mysql_innodb_buf_u:mysql0_innbu",
-		"--data-source-rename=mysql_com_select:mysql0_csel",
-		"--data-source-rename=mysql_com_commit:mysql0_ccom",
-		"--data-source-rename=mysql_com_delete:mysql0_cdel",
-		"--data-source-rename=mysql_com_insert:mysql0_cins",
-		"--data-source-rename=mysql_com_insert_s:mysql0_cinss",
-		"--data-source-rename=mysql_com_update:mysql0_cupd",
-		"--data-source-rename=mysql_com_replace:mysql0_crep",
-		"--data-source-rename=mysql_com_replace_s:mysql0_creps",
-		"--data-source-rename=mysql_com_rollback:mysql0_crol",
-		"--data-source-rename=mysql_aborted_cli:mysql0_acli",
-		"--data-source-rename=mysql_aborted_conn:mysql0_acon",
-		"--data-source-rename=mysql_bytes_recv:mysql0_brecv",
-		"--data-source-rename=mysql_bytes_sent:mysql0_bsent",
-		"--data-source-rename=mysql_val01:mysql0_val01",
-		"--data-source-rename=mysql_val02:mysql0_val02",
-		"--data-source-rename=mysql_val03:mysql0_val03",
-		"--data-source-rename=mysql_val04:mysql0_val04",
-		"--data-source-rename=mysql_val05:mysql0_val05",
-		"--data-source-rename=mysql_val06:mysql0_val06",
-		"--data-source-rename=mysql_val07:mysql0_val07",
-		"--data-source-rename=mysql_val08:mysql0_val08",
-		"--data-source-rename=mysql_val09:mysql0_val09",
-		"--data-source-rename=mysql_val10:mysql0_val10",
-		"--data-source-rename=mysql_val11:mysql0_val11",
-		"--data-source-rename=mysql_val12:mysql0_val12",
-		"--data-source-rename=mysql_val13:mysql0_val13",
-		"--data-source-rename=mysql_val14:mysql0_val14",
-		"--data-source-rename=mysql_val15:mysql0_val15",
-	);
-
-	our %mysql_hist = ();
-	push(@graphs, "mysql_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub mysql_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $num;
-	my $str;
-	my $n = 0;
-	my $rrdata = "N";
-
-	my $print_error = 0;
-	if($opt_d eq "all" || $debug) {
-		$print_error = 1;
-	}
-
-	$MYSQL_CONN_TYPE = $MYSQL_CONN_TYPE || "Host";
-	if(lc($MYSQL_CONN_TYPE) eq "host") {
-		$num = scalar(@MYSQL_HOST_LIST);
-	}
-	if(lc($MYSQL_CONN_TYPE) eq "socket") {
-		$num = scalar(@MYSQL_SOCK_LIST);
-	}
-
-	for($n = 0; $n < $num; $n++) {
-		my $host = $MYSQL_HOST_LIST[$n];
-		my $port = $MYSQL_PORT_LIST[$n];
-		my $user = $MYSQL_USER_LIST[$n];
-		my $pass = $MYSQL_PASS_LIST[$n];
-		my $sock = $MYSQL_SOCK_LIST[$n];
-		my $dbh;
-		if(lc($MYSQL_CONN_TYPE) eq "host") {
-			unless ($host && $port && $user && $pass) {
-				logger("$myself: ERROR: undefined configuration.");
-				next;
-			}
-			$dbh = DBI->connect(
-				"DBI:mysql:host=$host;port=$port",
-				$user,
-				$pass,
-				{ PrintError => $print_error, }
-			) or logger("$myself: Cannot connect to MySQL '$host:$port'.") and next;
-		}
-		if(lc($MYSQL_CONN_TYPE) eq "socket") {
-			unless ($sock) {
-				logger("$myself: ERROR: undefined configuration.");
-				next;
-			}
-			$dbh = DBI->connect(
-				"DBI:mysql:mysql_socket=$sock",
-				{ PrintError => $print_error, }
-			) or logger("$myself: Cannot connect to MySQL '$sock'.") and next;
-		}
-
-		# SHOW STATUS
-		my $aborted_clients = 0;
-		my $aborted_connects = 0;
-		my $connections = 0;
-		my $connections_real = 0;
-		my $innodb_buffer_pool_pages_free = 0;
-		my $innodb_buffer_pool_pages_total = 0;
-		my $key_blocks_used = 0;
-		my $key_blocks_unused = 0;
-		my $max_used_connections = 0;
-		my $qcache_free_memory = 0;
-		my $qcache_hits = 0;
-		my $qcache_inserts = 0;
-		my $queries = 0;
-		my $opened_tables = 0;
-		my $slow_queries = 0;
-		my $table_locks_waited = 0;
-		my $threads_created = 0;
-		my $sql = "show status";
-		my $sth = $dbh->prepare($sql);
-		$sth->execute;
-		while((my $name, $value) = $sth->fetchrow_array) {
-			if($name eq "Aborted_clients") {
-				$str = $n . "aborted_clients";
-				$aborted_clients = $value - $mysql_hist{$str};
-				$aborted_clients = 0 unless $aborted_clients != $value;
-				$aborted_clients /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Aborted_connects") {
-				$str = $n . "aborted_connects";
-				$aborted_connects = $value - $mysql_hist{$str};
-				$aborted_connects = 0 unless $aborted_connects != $value;
-				$aborted_connects /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Connections") {
-				$str = $n . "connections";
-				$connections_real = int($value);
-				$connections = $value - $mysql_hist{$str};
-				$connections = 0 unless $connections != $value;
-				$connections /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Innodb_buffer_pool_pages_free") {
-				$innodb_buffer_pool_pages_free = int($value);
-			}
-			if($name eq "Innodb_buffer_pool_pages_total") {
-				$innodb_buffer_pool_pages_total = int($value);
-			}
-			if($name eq "Key_blocks_unused") {
-				$key_blocks_unused = int($value);
-			}
-			if($name eq "Key_blocks_used") {
-				$key_blocks_used = int($value);
-			}
-			if($name eq "Max_used_connections") {
-				$max_used_connections = int($value);
-			}
-			if($name eq "Opened_tables") {
-				$str = $n . "opened_tables";
-				$opened_tables = $value - $mysql_hist{$str};
-				$opened_tables = 0 unless $opened_tables != $value;
-				$opened_tables /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Qcache_free_memory") {
-				$qcache_free_memory = int($value);
-			}
-			if($name eq "Qcache_hits") {
-				$qcache_hits = int($value);
-			}
-			if($name eq "Qcache_inserts") {
-				$qcache_inserts = int($value);
-			}
-			if($name eq "Queries") {
-				$str = $n . "queries";
-				$queries = $value - $mysql_hist{$str};
-				$queries = 0 unless $queries != $value;
-				$queries /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Slow_queries") {
-				$str = $n . "slow_queries";
-				$slow_queries = $value - $mysql_hist{$str};
-				$slow_queries = 0 unless $slow_queries != $value;
-				$slow_queries /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Table_locks_waited") {
-				$str = $n . "table_locks_waited";
-				$table_locks_waited = $value - $mysql_hist{$str};
-				$table_locks_waited = 0 unless $table_locks_waited != $value;
-				$table_locks_waited /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Threads_created") {
-				$threads_created = int($value);
-			}
-		}
-		$sth->finish;
-
-		# SHOW GLOBAL STATUS
-		my $bytes_received = 0;
-		my $bytes_sent = 0;
-		my $com_commit = 0;
-		my $com_delete = 0;
-		my $com_insert = 0;
-		my $com_insert_s = 0;
-		my $com_replace = 0;
-		my $com_replace_s = 0;
-		my $com_rollback = 0;
-		my $com_select = 0;
-		my $com_update = 0;
-		my $sql = "show global status";
-		my $sth = $dbh->prepare($sql);
-		$sth->execute;
-		while((my $name, $value) = $sth->fetchrow_array) {
-			if($name eq "Bytes_received") {
-				$str = $n . "bytes_received";
-				$bytes_received = $value - $mysql_hist{$str};
-				$bytes_received = 0 unless $bytes_received != $value;
-				$bytes_received /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Bytes_sent") {
-				$str = $n . "bytes_sent";
-				$bytes_sent = $value - $mysql_hist{$str};
-				$bytes_sent = 0 unless $bytes_sent != $value;
-				$bytes_sent /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_commit") {
-				$str = $n . "com_commit";
-				$com_commit = $value - $mysql_hist{$str};
-				$com_commit = 0 unless $com_commit != $value;
-				$com_commit /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_delete") {
-				$str = $n . "com_delete";
-				$com_delete = $value - $mysql_hist{$str};
-				$com_delete = 0 unless $com_delete != $value;
-				$com_delete /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_insert") {
-				$str = $n . "com_insert";
-				$com_insert = $value - $mysql_hist{$str};
-				$com_insert = 0 unless $com_insert != $value;
-				$com_insert /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_insert_select") {
-				$str = $n . "com_insert_s";
-				$com_insert_s = $value - $mysql_hist{$str};
-				$com_insert_s = 0 unless $com_insert_s != $value;
-				$com_insert_s /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_replace") {
-				$str = $n . "com_replace";
-				$com_replace = $value - $mysql_hist{$str};
-				$com_replace = 0 unless $com_replace != $value;
-				$com_replace /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_replace_select") {
-				$str = $n . "com_replace_s";
-				$com_replace_s = $value - $mysql_hist{$str};
-				$com_replace_s = 0 unless $com_replace_s != $value;
-				$com_replace_s /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_rollback") {
-				$str = $n . "com_rollback";
-				$com_rollback = $value - $mysql_hist{$str};
-				$com_rollback = 0 unless $com_rollback != $value;
-				$com_rollback /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_select") {
-				$str = $n . "com_select";
-				$com_select = $value - $mysql_hist{$str};
-				$com_select = 0 unless $com_select != $value;
-				$com_select /= 60;
-				$mysql_hist{$str} = $value;
-			}
-			if($name eq "Com_update") {
-				$str = $n . "com_update";
-				$com_update = $value - $mysql_hist{$str};
-				$com_update = 0 unless $com_update != $value;
-				$com_update /= 60;
-				$mysql_hist{$str} = $value;
-			}
-		}
-		$sth->finish;
-
-		# SHOW VARIABLES
-		my $query_cache_size = 0;
-		my $max_connections = 0;
-		my $sql = "show variables";
-		my $sth = $dbh->prepare($sql);
-		$sth->execute;
-		while((my $name, $value) = $sth->fetchrow_array) {
-			if($name eq "max_connections") {
-				$max_connections = int($value);
-			}
-			if($name eq "query_cache_size") {
-				$query_cache_size = int($value);
-			}
-		}
-		$sth->finish;
-		$dbh->disconnect;
-
-		my $tcache_hit_rate = 0;
-		my $qcache_usage = 0;
-		my $connections_usage = 0;
-		my $key_buffer_usage = 0;
-		my $innodb_buffer_pool_usage = 0;
-
-		$tcache_hit_rate = (1 - ($threads_created / $connections_real)) * 100
-			unless !$connections_real;
-		$qcache_usage = (1 - ($qcache_free_memory / $query_cache_size)) * 100
-			unless !$query_cache_size;
-		$connections_usage = ($max_used_connections / $max_connections) * 100
-			unless !$max_connections;
-		$key_buffer_usage = ($key_blocks_used / ($key_blocks_used + $key_blocks_unused)) * 100
-			unless !($key_blocks_used + $key_blocks_unused);
-		$innodb_buffer_pool_usage = (1 - ($innodb_buffer_pool_pages_free / $innodb_buffer_pool_pages_total)) * 100
-			unless !$innodb_buffer_pool_pages_total;
-
-		$connections_usage = $connections_usage > 100 ? 100 : $connections_usage;
-
-		$rrdata .= ":$queries:$slow_queries:$tcache_hit_rate:$qcache_usage:$opened_tables:$connections_usage:$connections:$table_locks_waited:$key_buffer_usage:$innodb_buffer_pool_usage:$com_select:$com_commit:$com_delete:$com_insert:$com_insert_s:$com_update:$com_replace:$com_replace_s:$com_rollback:$aborted_clients:$aborted_connects:$bytes_received:$bytes_sent:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0";
-	}
-
-	RRDs::update($MYSQL_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $MYSQL_RRD: $err") if $err;
-}
-
-# SQUID graph
-# ----------------------------------------------------------------------------
-sub squid_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $SQUID_RRD)) {
-		logger("Creating '$SQUID_RRD' file.");
-		eval {
-			RRDs::create($SQUID_RRD,
-				"--step=60",
-				"DS:squid_g1_1:GAUGE:120:0:U",
-				"DS:squid_g1_2:GAUGE:120:0:U",
-				"DS:squid_g1_3:GAUGE:120:0:U",
-				"DS:squid_g1_4:GAUGE:120:0:U",
-				"DS:squid_g1_5:GAUGE:120:0:U",
-				"DS:squid_g1_6:GAUGE:120:0:U",
-				"DS:squid_g1_7:GAUGE:120:0:U",
-				"DS:squid_g1_8:GAUGE:120:0:U",
-				"DS:squid_g1_9:GAUGE:120:0:U",
-				"DS:squid_g2_1:GAUGE:120:0:U",
-				"DS:squid_g2_2:GAUGE:120:0:U",
-				"DS:squid_g2_3:GAUGE:120:0:U",
-				"DS:squid_g2_4:GAUGE:120:0:U",
-				"DS:squid_g2_5:GAUGE:120:0:U",
-				"DS:squid_g2_6:GAUGE:120:0:U",
-				"DS:squid_g2_7:GAUGE:120:0:U",
-				"DS:squid_g2_8:GAUGE:120:0:U",
-				"DS:squid_g2_9:GAUGE:120:0:U",
-				"DS:squid_rq_1:GAUGE:120:0:U",
-				"DS:squid_rq_2:GAUGE:120:0:U",
-				"DS:squid_rq_3:GAUGE:120:0:U",
-				"DS:squid_rq_4:GAUGE:120:0:U",
-				"DS:squid_rq_5:GAUGE:120:0:U",
-				"DS:squid_rq_6:GAUGE:120:0:U",
-				"DS:squid_rq_7:GAUGE:120:0:U",
-				"DS:squid_rq_8:GAUGE:120:0:U",
-				"DS:squid_rq_9:GAUGE:120:0:U",
-				"DS:squid_m_1:GAUGE:120:0:U",
-				"DS:squid_m_2:GAUGE:120:0:U",
-				"DS:squid_m_3:GAUGE:120:0:U",
-				"DS:squid_m_4:GAUGE:120:0:U",
-				"DS:squid_m_5:GAUGE:120:0:U",
-				"DS:squid_ic_1:GAUGE:120:0:U",
-				"DS:squid_ic_2:GAUGE:120:0:U",
-				"DS:squid_ic_3:GAUGE:120:0:U",
-				"DS:squid_ic_4:GAUGE:120:0:U",
-				"DS:squid_ic_5:GAUGE:120:0:U",
-				"DS:squid_io_1:GAUGE:120:0:U",
-				"DS:squid_io_2:GAUGE:120:0:U",
-				"DS:squid_io_3:GAUGE:120:0:U",
-				"DS:squid_io_4:GAUGE:120:0:U",
-				"DS:squid_io_5:GAUGE:120:0:U",
-				"DS:squid_s_1:GAUGE:120:0:U",
-				"DS:squid_s_2:GAUGE:120:0:U",
-				"DS:squid_s_3:GAUGE:120:0:U",
-				"DS:squid_s_4:GAUGE:120:0:U",
-				"DS:squid_s_5:GAUGE:120:0:U",
-				"DS:squid_tc_1:GAUGE:120:0:U",
-				"DS:squid_tc_2:GAUGE:120:0:U",
-				"DS:squid_tc_3:GAUGE:120:0:U",
-				"DS:squid_ts_1:GAUGE:120:0:U",
-				"DS:squid_ts_2:GAUGE:120:0:U",
-				"DS:squid_ts_3:GAUGE:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $SQUID_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	our %squid_hist = ();
-	push(@graphs, "squid_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub squid_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my %g12 = ();
-	my $seek_pos;
-	my $logsize;
-	my @data;
-	my $all;
-	my $value;
-	my $g_result;
-	my $g_status;
-
-	my $rq_client_http_req;
-	my $rq_client_http_hit;
-	my $rq_server_http_req;
-	my $rq_server_ftp_req;
-	my $rq_server_other_req;
-	my $rq_aborted_req;
-	my $rq_swap_files_cleaned;
-	my $rq_unlink_requests;
-
-	my $tc_client_http_in;
-	my $tc_client_http_out;
-	my $ts_server_all_in;
-	my $ts_server_all_out;
-
-	my $m_alloc;
-	my $m_inuse;
-
-	my $ic_requests;
-	my $ic_hits;
-	my $ic_misses;
-
-	my $io_http;
-	my $io_ftp;
-	my $io_gopher;
-	my $io_wais;
-
-	my $s_entries;
-	my $s_maximum;
-	my $s_current;
-
-	my $n;
-	my $rrdata = "N";
-
-	$seek_pos = $squid_hist{'seek_pos'};
-	$seek_pos = defined($seek_pos) ? int($seek_pos) : 0;
-	open(IN, $SQUID_LOG);
-	if(!seek(IN, 0, 2)) {
-		logger("Couldn't seek to the end ($SQUID_LOG): $!");
-		return;
-	}
-	$logsize = tell(IN);
-	if($logsize < $seek_pos) {
-		$seek_pos = 0;
-	}
-	if(!seek(IN, $seek_pos, 0)) {
-		logger("Couldn't seek to $seek_pos ($SQUID_LOG): $!");
-		return;
-	}
-	if(defined($squid_hist{'seek_pos'})) {	# avoid initial spike
-		while(<IN>) {
-			(undef, undef, undef, $value) = split(' ', $_);
-			($g_result, $g_status) = split('/', $value);
-			$g12{$g_result}++;
-			$g12{$g_status}++;
-		}
-	}
-	close(IN);
-	foreach(@SQUID_GRAPH_1) {
-		$rrdata .= ":";
-		$rrdata .= defined($g12{$_}) ? int($g12{$_}) : 0;
-	}
-	foreach(@SQUID_GRAPH_2) {
-		$rrdata .= ":";
-		$rrdata .= defined($g12{$_}) ? int($g12{$_}) : 0;
-	}
-	$squid_hist{'seek_pos'} = $logsize;
-
-	open(IN, "$SQUID_CMD mgr:counters |");
-	while(<IN>) {
-		if(/^client_http\.requests = (\d+)$/) {
-			$rq_client_http_req = $1 - $squid_hist{'rq_client_http_req'};
-			$rq_client_http_req = 0 unless $rq_client_http_req != $1;
-			$rq_client_http_req /= 60;
-			$squid_hist{'rq_client_http_req'} = $1;
-			next;
-		}
-		if(/^client_http\.hits = (\d+)$/) {
-			$rq_client_http_hit = $1 - $squid_hist{'rq_client_http_hit'};
-			$rq_client_http_hit = 0 unless $rq_client_http_hit != $1;
-			$rq_client_http_hit /= 60;
-			$squid_hist{'rq_client_http_hit'} = $1;
-			next;
-		}
-		if(/^client_http\.kbytes_in = (\d+)$/) {
-			$tc_client_http_in = $1 - $squid_hist{'tc_client_http_in'};
-			$tc_client_http_in = 0 unless $tc_client_http_in != $1;
-			$tc_client_http_in *= 1024;
-			$tc_client_http_in /= 60;
-			$squid_hist{'tc_client_http_in'} = $1;
-			next;
-		}
-		if(/^client_http\.kbytes_out = (\d+)$/) {
-			$tc_client_http_out = $1 - $squid_hist{'tc_client_http_out'};
-			$tc_client_http_out = 0 unless $tc_client_http_out != $1;
-			$tc_client_http_out *= 1024;
-			$tc_client_http_out /= 60;
-			$squid_hist{'tc_client_http_out'} = $1;
-			next;
-		}
-		if(/^server\.all\.kbytes_in = (\d+)$/) {
-			$ts_server_all_in = $1 - $squid_hist{'ts_server_all_in'};
-			$ts_server_all_in = 0 unless $ts_server_all_in != $1;
-			$ts_server_all_in *= 1024;
-			$ts_server_all_in /= 60;
-			$squid_hist{'ts_server_all_in'} = $1;
-			next;
-		}
-		if(/^server\.all\.kbytes_out = (\d+)$/) {
-			$ts_server_all_out = $1 - $squid_hist{'ts_server_all_out'};
-			$ts_server_all_out = 0 unless $ts_server_all_out != $1;
-			$ts_server_all_out *= 1024;
-			$ts_server_all_out /= 60;
-			$squid_hist{'ts_server_all_out'} = $1;
-			next;
-		}
-		if(/^server\.http\.requests = (\d+)$/) {
-			$rq_server_http_req = $1 - $squid_hist{'rq_server_http_req'};
-			$rq_server_http_req = 0 unless $rq_server_http_req != $1;
-			$rq_server_http_req /= 60;
-			$squid_hist{'rq_server_http_req'} = $1;
-			next;
-		}
-		if(/^server\.ftp\.requests = (\d+)$/) {
-			$rq_server_ftp_req = $1 - $squid_hist{'rq_server_ftp_req'};
-			$rq_server_ftp_req = 0 unless $rq_server_ftp_req != $1;
-			$rq_server_ftp_req /= 60;
-			$squid_hist{'rq_server_ftp_req'} = $1;
-			next;
-		}
-		if(/^server\.other\.requests = (\d+)$/) {
-			$rq_server_other_req = $1 - $squid_hist{'rq_server_other_req'};
-			$rq_server_other_req = 0 unless $rq_server_other_req != $1;
-			$rq_server_other_req /= 60;
-			$squid_hist{'rq_server_other_req'} = $1;
-			next;
-		}
-		if(/^unlink\.requests = (\d+)$/) {
-			$rq_unlink_requests = $1 - $squid_hist{'rq_unlink_requests'};
-			$rq_unlink_requests = 0 unless $rq_unlink_requests != $1;
-			$rq_unlink_requests /= 60;
-			$squid_hist{'rq_unlink_requests'} = $1;
-			next;
-		}
-		if(/^swap\.files_cleaned = (\d+)$/) {
-			$rq_swap_files_cleaned = $1 - $squid_hist{'rq_swap_files_cleaned'};
-			$rq_swap_files_cleaned = 0 unless $rq_swap_files_cleaned != $1;
-			$rq_swap_files_cleaned /= 60;
-			$squid_hist{'rq_swap_files_cleaned'} = $1;
-			next;
-		}
-		if(/^aborted_requests = (\d+)$/) {
-			$rq_aborted_req = $1 - $squid_hist{'rq_aborted_req'};
-			$rq_aborted_req = 0 unless $rq_aborted_req != $1;
-			$rq_aborted_req /= 60;
-			$squid_hist{'rq_aborted_req'} = $1;
-			last;
-		}
-	}
-	close(IN);
-	$rrdata .= ":$rq_client_http_req:$rq_client_http_hit:$rq_server_http_req:$rq_server_ftp_req:$rq_server_other_req:$rq_aborted_req:$rq_swap_files_cleaned:$rq_unlink_requests:0";
-
-	open(IN, "$SQUID_CMD mgr:mem |");
-	while(<IN>) {
-		if(/^Total      /) {
-			(undef, undef, $m_alloc, undef, undef, undef, undef, $m_inuse) = split(' ', $_);
-			chomp($m_alloc);
-			chomp($m_inuse);
-			$m_alloc;
-			$m_inuse;
-			last;
-		}
-	}
-	close(IN);
-	$rrdata .= ":$m_alloc:$m_inuse:0:0:0";
-
-	open(IN, "$SQUID_CMD mgr:ipcache |");
-	while(<IN>) {
-		if(/^IPcache Requests:\s+(\d+)$/) {
-			$ic_requests = $1 - $squid_hist{'ic_requests'};
-			$ic_requests = 0 unless $ic_requests != $1;
-			$ic_requests /= 60;
-			$squid_hist{'ic_requests'} = $1;
-			next;
-		}
-		if(/^IPcache Hits:\s+(\d+)$/) {
-			$ic_hits = $1 - $squid_hist{'ic_hits'};
-			$ic_hits = 0 unless $ic_hits != $1;
-			$ic_hits /= 60;
-			$squid_hist{'ic_hits'} = $1;
-			next;
-		}
-		if(/^IPcache Misses:\s+(\d+)$/) {
-			$ic_misses = $1 - $squid_hist{'ic_misses'};
-			$ic_misses = 0 unless $ic_misses != $1;
-			$ic_misses /= 60;
-			$squid_hist{'ic_misses'} = $1;
-			last;
-		}
-	}
-	close(IN);
-	$rrdata .= ":$ic_requests:$ic_hits:$ic_misses:0:0";
-
-	open(IN, "$SQUID_CMD mgr:io |");
-	@data = <IN>;
-	close(IN);
-	$all = join('', @data);
-	$all =~ s/\n/ /g;
-	($value) = ($all =~ m/ HTTP I\/O number of reads.*?(\d+)/g);
-	chomp($value);
-	$io_http = $value - $squid_hist{'io_http'};
-	$io_http = 0 unless $io_http != $value;
-	$io_http /= 60;
-	$squid_hist{'io_http'} = $value;
-	($value) = ($all =~ m/ FTP I\/O number of reads.*?(\d+)/g);
-	chomp($value);
-	$io_ftp = $value - $squid_hist{'io_ftp'};
-	$io_ftp = 0 unless $io_ftp != $value;
-	$io_ftp /= 60;
-	$squid_hist{'io_ftp'} = $value;
-	($value) = ($all =~ m/ Gopher I\/O number of reads.*?(\d+)/g);
-	chomp($value);
-	$io_gopher = $value - $squid_hist{'io_gopher'};
-	$io_gopher = 0 unless $io_gopher != $value;
-	$io_gopher /= 60;
-	$squid_hist{'io_gopher'} = $value;
-	($value) = ($all =~ m/ WAIS I\/O number of reads.*?(\d+)/g);
-	chomp($value);
-	$io_wais = $value - $squid_hist{'io_wais'};
-	$io_wais = 0 unless $io_wais != $value;
-	$io_wais /= 60;
-	$squid_hist{'io_wais'} = $value;
-	$rrdata .= ":$io_http:$io_ftp:$io_gopher:$io_wais:0";
-
-	open(IN, "$SQUID_CMD mgr:storedir |");
-	while(<IN>) {
-		if(/^Store Entries\s+:\s+(\d+)$/) {
-			$s_entries = $1;
-			next;
-		}
-		if(/^Maximum Swap Size\s+:\s+(\d+)/) {
-			$s_maximum = $1;
-			next;
-		}
-		if(/^Current Store Swap Size\s*:\s+(\d+)/) {
-			$s_current = $1;
-			last;
-		}
-	}
-	close(IN);
-	$rrdata .= ":$s_entries:$s_maximum:$s_current:0:0";
-	$rrdata .= ":$tc_client_http_in:$tc_client_http_out:0";
-	$rrdata .= ":$ts_server_all_in:$ts_server_all_out:0";
-	RRDs::update($SQUID_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $SQUID_RRD: $err") if $err;
-}
-
-# NFSS graph
-# ----------------------------------------------------------------------------
-sub nfss_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $NFSS_RRD)) {
-		logger("Creating '$NFSS_RRD' file.");
-		eval {
-			RRDs::create($NFSS_RRD,
-				"--step=60",
-				"DS:nfss_0:COUNTER:120:0:U",
-				"DS:nfss_1:COUNTER:120:0:U",
-				"DS:nfss_2:COUNTER:120:0:U",
-				"DS:nfss_3:COUNTER:120:0:U",
-				"DS:nfss_4:COUNTER:120:0:U",
-				"DS:nfss_5:COUNTER:120:0:U",
-				"DS:nfss_6:COUNTER:120:0:U",
-				"DS:nfss_7:COUNTER:120:0:U",
-				"DS:nfss_8:COUNTER:120:0:U",
-				"DS:nfss_9:COUNTER:120:0:U",
-				"DS:nfss_10:COUNTER:120:0:U",
-				"DS:nfss_11:COUNTER:120:0:U",
-				"DS:nfss_12:COUNTER:120:0:U",
-				"DS:nfss_13:COUNTER:120:0:U",
-				"DS:nfss_14:COUNTER:120:0:U",
-				"DS:nfss_15:COUNTER:120:0:U",
-				"DS:nfss_16:COUNTER:120:0:U",
-				"DS:nfss_17:COUNTER:120:0:U",
-				"DS:nfss_18:COUNTER:120:0:U",
-				"DS:nfss_19:COUNTER:120:0:U",
-				"DS:nfss_20:COUNTER:120:0:U",
-				"DS:nfss_21:COUNTER:120:0:U",
-				"DS:nfss_22:COUNTER:120:0:U",
-				"DS:nfss_23:COUNTER:120:0:U",
-				"DS:nfss_24:COUNTER:120:0:U",
-				"DS:nfss_25:COUNTER:120:0:U",
-				"DS:nfss_26:COUNTER:120:0:U",
-				"DS:nfss_27:COUNTER:120:0:U",
-				"DS:nfss_28:COUNTER:120:0:U",
-				"DS:nfss_29:COUNTER:120:0:U",
-				"DS:nfss_30:COUNTER:120:0:U",
-				"DS:nfss_31:COUNTER:120:0:U",
-				"DS:nfss_32:COUNTER:120:0:U",
-				"DS:nfss_33:COUNTER:120:0:U",
-				"DS:nfss_34:COUNTER:120:0:U",
-				"DS:nfss_35:COUNTER:120:0:U",
-				"DS:nfss_36:COUNTER:120:0:U",
-				"DS:nfss_37:COUNTER:120:0:U",
-				"DS:nfss_38:COUNTER:120:0:U",
-				"DS:nfss_39:COUNTER:120:0:U",
-				"DS:nfss_40:COUNTER:120:0:U",
-				"DS:nfss_41:COUNTER:120:0:U",
-				"DS:nfss_42:COUNTER:120:0:U",
-				"DS:nfss_43:COUNTER:120:0:U",
-				"DS:nfss_44:COUNTER:120:0:U",
-				"DS:nfss_45:COUNTER:120:0:U",
-				"DS:nfss_46:COUNTER:120:0:U",
-				"DS:nfss_47:COUNTER:120:0:U",
-				"DS:nfss_48:COUNTER:120:0:U",
-				"DS:nfss_49:COUNTER:120:0:U",
-				"DS:nfss_rc_1:COUNTER:120:0:U",
-				"DS:nfss_rc_2:COUNTER:120:0:U",
-				"DS:nfss_rc_3:COUNTER:120:0:U",
-				"DS:nfss_rc_4:COUNTER:120:0:U",
-				"DS:nfss_rc_5:COUNTER:120:0:U",
-				"DS:nfss_fh_1:COUNTER:120:0:U",
-				"DS:nfss_fh_2:COUNTER:120:0:U",
-				"DS:nfss_fh_3:COUNTER:120:0:U",
-				"DS:nfss_fh_4:COUNTER:120:0:U",
-				"DS:nfss_fh_5:COUNTER:120:0:U",
-				"DS:nfss_io_1:COUNTER:120:0:U",
-				"DS:nfss_io_2:COUNTER:120:0:U",
-				"DS:nfss_io_3:COUNTER:120:0:U",
-				"DS:nfss_th_0:COUNTER:120:0:U",
-				"DS:nfss_th_1:COUNTER:120:0:U",
-				"DS:nfss_th_2:COUNTER:120:0:U",
-				"DS:nfss_th_3:COUNTER:120:0:U",
-				"DS:nfss_th_4:COUNTER:120:0:U",
-				"DS:nfss_th_5:COUNTER:120:0:U",
-				"DS:nfss_th_6:COUNTER:120:0:U",
-				"DS:nfss_th_7:COUNTER:120:0:U",
-				"DS:nfss_th_8:COUNTER:120:0:U",
-				"DS:nfss_th_9:COUNTER:120:0:U",
-				"DS:nfss_th_10:COUNTER:120:0:U",
-				"DS:nfss_net_1:COUNTER:120:0:U",
-				"DS:nfss_net_2:COUNTER:120:0:U",
-				"DS:nfss_net_3:COUNTER:120:0:U",
-				"DS:nfss_net_4:COUNTER:120:0:U",
-				"DS:nfss_net_5:COUNTER:120:0:U",
-				"DS:nfss_rpc_1:COUNTER:120:0:U",
-				"DS:nfss_rpc_2:COUNTER:120:0:U",
-				"DS:nfss_rpc_3:COUNTER:120:0:U",
-				"DS:nfss_rpc_4:COUNTER:120:0:U",
-				"DS:nfss_rpc_5:COUNTER:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NFSS_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "nfss_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub nfss_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @rc;
-	my @fh;
-	my @io;
-	my @th;
-	my @net;
-	my @rpc;
-	my @nfss;
-
-	my $n;
-	my $rrdata = "N";
-
-	if($os eq "Linux") {
-		open(IN, "/proc/net/rpc/nfsd");
-		while(<IN>) {
-			if(/^rc\s+(\d+)\s+(\d+)\s+(\d+)$/) {
-				@rc = ($1, $2, $3);
-			}
-			if(/^fh\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
-				@fh = ($1, $2, $3, $4, $5);
-			}
-			if(/^io\s+(\d+)\s+(\d+)$/) {
-				@io = ($1, $2);
-			}
-			if(/^th /) {
-				my @tmp = split(' ', $_);
-				(undef, undef, @th) = @tmp;
-			}
-			if(/^net\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
-				@net = ($1, $2, $3, $4);
-			}
-			if(/^rpc\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
-				@rpc = ($1, $2, $3, $4, $5);
-			}
-			$NFSS_VERSION = "4ops" if $NFSS_VERSION eq "4";
-			if(/^proc$NFSS_VERSION /) {
-				my @tmp = split(' ', $_);
-				(undef, undef, @nfss) = @tmp;
-			}
-		}
-		close(IN);
-	} elsif($os eq "FreeBSD" || $os eq "OpenBSD") {
-		# this part must be finished!!!! XXX
-	}
-
-	for($n = 0; $n < 50; $n++) {
-		if(!defined($nfss[$n])) {
-			$nfss[$n] = 0;
-		}
-		$rrdata .= ":" . $nfss[$n];
-	}
-	$rrdata .= ":$rc[0]:$rc[1]:$rc[2]:0:0";
-	$rrdata .= ":$fh[0]:$fh[1]:$fh[2]:$fh[3]:$fh[4]";
-	$rrdata .= ":$io[0]:$io[1]:0";
-	for($n = 0; $n < 11; $n++) {
-		$rrdata .= ":" . int($th[$n]);
-	}
-	$rrdata .= ":$net[0]:$net[1]:$net[2]:$net[3]:0";
-	$rrdata .= ":$rpc[0]:$rpc[1]:$rpc[2]:$rpc[3]:$rpc[4]";
-	RRDs::update($NFSS_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NFSS_RRD: $err") if $err;
-}
-
-# NFSC graph
-# ----------------------------------------------------------------------------
-sub nfsc_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $NFSC_RRD)) {
-		logger("Creating '$NFSC_RRD' file.");
-		eval {
-			RRDs::create($NFSC_RRD,
-				"--step=60",
-				"DS:nfsc_0:COUNTER:120:0:U",
-				"DS:nfsc_1:COUNTER:120:0:U",
-				"DS:nfsc_2:COUNTER:120:0:U",
-				"DS:nfsc_3:COUNTER:120:0:U",
-				"DS:nfsc_4:COUNTER:120:0:U",
-				"DS:nfsc_5:COUNTER:120:0:U",
-				"DS:nfsc_6:COUNTER:120:0:U",
-				"DS:nfsc_7:COUNTER:120:0:U",
-				"DS:nfsc_8:COUNTER:120:0:U",
-				"DS:nfsc_9:COUNTER:120:0:U",
-				"DS:nfsc_10:COUNTER:120:0:U",
-				"DS:nfsc_11:COUNTER:120:0:U",
-				"DS:nfsc_12:COUNTER:120:0:U",
-				"DS:nfsc_13:COUNTER:120:0:U",
-				"DS:nfsc_14:COUNTER:120:0:U",
-				"DS:nfsc_15:COUNTER:120:0:U",
-				"DS:nfsc_16:COUNTER:120:0:U",
-				"DS:nfsc_17:COUNTER:120:0:U",
-				"DS:nfsc_18:COUNTER:120:0:U",
-				"DS:nfsc_19:COUNTER:120:0:U",
-				"DS:nfsc_20:COUNTER:120:0:U",
-				"DS:nfsc_21:COUNTER:120:0:U",
-				"DS:nfsc_22:COUNTER:120:0:U",
-				"DS:nfsc_23:COUNTER:120:0:U",
-				"DS:nfsc_24:COUNTER:120:0:U",
-				"DS:nfsc_25:COUNTER:120:0:U",
-				"DS:nfsc_26:COUNTER:120:0:U",
-				"DS:nfsc_27:COUNTER:120:0:U",
-				"DS:nfsc_28:COUNTER:120:0:U",
-				"DS:nfsc_29:COUNTER:120:0:U",
-				"DS:nfsc_30:COUNTER:120:0:U",
-				"DS:nfsc_31:COUNTER:120:0:U",
-				"DS:nfsc_32:COUNTER:120:0:U",
-				"DS:nfsc_33:COUNTER:120:0:U",
-				"DS:nfsc_34:COUNTER:120:0:U",
-				"DS:nfsc_35:COUNTER:120:0:U",
-				"DS:nfsc_36:COUNTER:120:0:U",
-				"DS:nfsc_37:COUNTER:120:0:U",
-				"DS:nfsc_38:COUNTER:120:0:U",
-				"DS:nfsc_39:COUNTER:120:0:U",
-				"DS:nfsc_40:COUNTER:120:0:U",
-				"DS:nfsc_41:COUNTER:120:0:U",
-				"DS:nfsc_42:COUNTER:120:0:U",
-				"DS:nfsc_43:COUNTER:120:0:U",
-				"DS:nfsc_44:COUNTER:120:0:U",
-				"DS:nfsc_45:COUNTER:120:0:U",
-				"DS:nfsc_46:COUNTER:120:0:U",
-				"DS:nfsc_47:COUNTER:120:0:U",
-				"DS:nfsc_48:COUNTER:120:0:U",
-				"DS:nfsc_49:COUNTER:120:0:U",
-				"DS:nfsc_rpc_1:COUNTER:120:0:U",
-				"DS:nfsc_rpc_2:COUNTER:120:0:U",
-				"DS:nfsc_rpc_3:COUNTER:120:0:U",
-				"DS:nfsc_rpc_4:COUNTER:120:0:U",
-				"DS:nfsc_rpc_5:COUNTER:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NFSC_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "nfsc_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub nfsc_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @rpc;
-	my @nfsc;
-
-	my $n;
-	my $rrdata = "N";
-
-	if($os eq "Linux") {
-		open(IN, "/proc/net/rpc/nfs");
-		while(<IN>) {
-			if(/^rpc\s+(\d+)\s+(\d+)\s+(\d+)$/) {
-				@rpc = ($1, $2, $3);
-			}
-			if(/^proc$NFSC_VERSION /) {
-				my @tmp = split(' ', $_);
-				(undef, undef, @nfsc) = @tmp;
-			}
-		}
-		close(IN);
-	} elsif($os eq "FreeBSD" || $os eq "OpenBSD") {
-		# this part must be finished!!!! XXX
-	}
-
-	for($n = 0; $n < 50; $n++) {
-		if(!defined($nfsc[$n])) {
-			$nfsc[$n] = 0;
-		}
-		$rrdata .= ":" . $nfsc[$n];
-	}
-
-	$rrdata .= ":$rpc[0]:$rpc[1]:$rpc[2]:0:0";
-	RRDs::update($NFSC_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NFSC_RRD: $err") if $err;
-}
-
-# BIND graph
-# ----------------------------------------------------------------------------
-sub bind_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(-e $BIND_RRD) {
-		$info = RRDs::info($BIND_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 135 != scalar(@BIND_URL_LIST)) {
-			logger("Detected size mismatch between \@BIND_URL_LIST (" . scalar(@BIND_URL_LIST) . ") and $BIND_RRD (" . scalar(@ds) / 135 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($BIND_RRD, "$BIND_RRD.bak");
-		}
-	}
-
-	if(!(-e $BIND_RRD)) {
-		logger("Creating '$BIND_RRD' file.");
-		for($n = 0; $n < scalar(@BIND_URL_LIST); $n++) {
-			push(@tmp, "DS:bind" . $n . "_totalinq:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq01:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq02:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq03:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq04:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq05:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_inq06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_inq20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq01:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_ouq02:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_ouq03:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_ouq04:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_ouq05:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_ouq06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ouq20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss01:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss02:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss03:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss04:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss05:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_ss20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs01:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs02:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs03:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs04:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs05:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_rs20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr01:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_crr02:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_crr03:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_crr04:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_crr05:GAUGE:120:U:U");
-			push(@tmp, "DS:bind" . $n . "_crr06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_crr20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio01:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio02:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio03:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio04:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio05:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio06:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio07:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio08:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio09:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio10:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio11:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio12:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio13:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio14:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio15:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio16:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio17:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio18:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio19:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_sio20:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_totaluse:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_inuse:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_blksize:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_ctxtsize:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_lost:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_val01:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_val02:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_mem_val03:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_workthrds:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_defquantm:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_tasksrun:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_val01:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_val02:GAUGE:120:0:U");
-			push(@tmp, "DS:bind" . $n . "_tsk_val03:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($BIND_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $BIND_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	our %bind_hist = ();
-	push(@graphs, "bind_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub bind_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $totalinq;
-	my %inq = ();
-	my %ouq = ();
-	my %ss = ();
-	my %rs = ();
-	my %crr = ();
-	my $str;
-	my $n;
-	my $rrdata = "N";
-
-	my $e = 0;
-	foreach(@BIND_URL_LIST) {
-		my $ua = LWP::UserAgent->new(timeout => 30);
-		my $response = $ua->request(HTTP::Request->new('GET', $_));
-		my $data = XMLin($response->content);
-		my $value;
-
-		$value = $data->{bind}->{statistics}->{server}->{requests}->{opcode}->{counter};
-		$str = $e . "totalinq";
-		$totalinq = $value - $bind_hist{$str};
-		$totalinq = 0 unless $totalinq != $value;
-		$totalinq /= 60;
-		$bind_hist{$str} = $value;
-
-		$value = $data->{bind}->{statistics}->{server}->{'queries-in'}->{rdtype};
-		foreach(keys %{$value}) {
-			$str = $e . "inq_$_";
-			$inq{$str} = $value->{$_}->{counter} - $bind_hist{$str};
-			$inq{$str} = 0 unless $inq{$str} != $value->{$_}->{counter};
-			$inq{$str} /= 60;
-			$bind_hist{$str} = $value->{$_}->{counter};
-		}
-
-		my $views_default = $data->{bind}->{statistics}->{views}->{view}->{_default};
-		$value = $views_default->{rdtype};
-		foreach(keys %{$value}) {
-			$str = $e . "ouq_$_";
-			$ouq{$str} = $value->{$_}->{counter} - $bind_hist{$str};
-			$ouq{$str} = 0 unless $ouq{$str} != $value->{$_}->{counter};
-			$ouq{$str} /= 60;
-			$bind_hist{$str} = $value->{$_}->{counter};
-		}
-
-		$value = $data->{bind}->{statistics}->{server}->{nsstat};
-		foreach(keys %{$value}) {
-			$str = $e . "ss_$_";
-			$ss{$str} = $value->{$_}->{counter} - $bind_hist{$str};
-			$ss{$str} = 0 unless $ss{$str} != $value->{$_}->{counter};
-			$ss{$str} /= 60;
-			$bind_hist{$str} = $value->{$_}->{counter};
-		}
-
-		$value = $views_default->{resstat};
-		foreach(keys %{$value}) {
-			$str = $e . "rs_$_";
-			$rs{$str} = $value->{$_}->{counter} - $bind_hist{$str};
-			$rs{$str} = 0 unless $rs{$str} != $value->{$_}->{counter};
-			$rs{$str} /= 60;
-			$bind_hist{$str} = $value->{$_}->{counter};
-		}
-
-		$value = $views_default->{cache}->{rrset};
-		foreach(keys %{$value}) {
-			$str = $e . "crr_$_";
-			$crr{$str} = $value->{$_}->{counter};
-		}
-
-#		Socket I/O Statistics
-#		$value = $data->{bind}->{statistics}->{server}->{sockstat};
-#		foreach(keys %{$value}) {
-#			$str = $e . "sio_$_";
-#			$sio{$str} = $value->{$_}->{counter} - $bind_hist{$str};
-#			$sio{$str} = 0 unless $sio{$str} != $value->{$_}->{counter};
-#			$sio{$str} /= 60;
-#			$bind_hist{$str} = $value->{$_}->{counter};
-#		}
-
-		$rrdata .= ":$totalinq";
-		my $i = @BIND_IN_QUERIES_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "inq_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($inq{$str}) ? $inq{$str} : 0;
-		}
-		$i = @BIND_OUT_QUERIES_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "ouq_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($ouq{$str}) ? $ouq{$str} : 0;
-		}
-		$i = @BIND_SERVER_STATS_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "ss_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($ss{$str}) ? $ss{$str} : 0;
-		}
-		$i = @BIND_RESOLVER_STATS_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "rs_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($rs{$str}) ? $rs{$str} : 0;
-		}
-		$i = @BIND_CACHE_RRSETS_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "crr_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($crr{$str}) ? $crr{$str} : 0;
-		}
-#		$i = @BIND_SOCKET_IO_STATS_LIST[$e];
-		for($n = 0; $n < 20; $n++) {
-			my $j = @$i[$n];
-			$str = $e . "sio_$j";
-			$rrdata .= ":";
-			$rrdata .= defined($sio{$str}) ? $sio{$str} : 0;
-		}
-		$value = $data->{bind}->{statistics}->{memory};
-		$rrdata .= ":" . $value->{summary}->{TotalUse};
-		$rrdata .= ":" . $value->{summary}->{InUse};
-		$rrdata .= ":" . $value->{summary}->{BlockSize};
-		$rrdata .= ":" . $value->{summary}->{ContextSize};
-		$rrdata .= ":" . $value->{summary}->{Lost};
-		$rrdata .= ":0:0:0";
-		$value = $data->{bind}->{statistics}->{taskmgr};
-		$rrdata .= ":" . $value->{'thread-model'}->{'worker-threads'};
-		$rrdata .= ":" . $value->{'thread-model'}->{'default-quantum'};
-		$rrdata .= ":" . $value->{'thread-model'}->{'tasks-running'};
-		$rrdata .= ":0:0:0";
-
-		$e++;
-	}
-
-	RRDs::update($BIND_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $BIND_RRD: $err") if $err;
-}
-
-# NTP graph
-# ----------------------------------------------------------------------------
-sub ntp_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(-e $NTP_RRD) {
-		$info = RRDs::info($NTP_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 14 != scalar(@NTP_HOST_LIST)) {
-			logger("Detected size mismatch between \@NTP_HOST_LIST (" . scalar(@NTP_HOST_LIST) . ") and $NTP_RRD (" . scalar(@ds) / 14 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($NTP_RRD, "$NTP_RRD.bak");
-		}
-	}
-
-	if(!(-e $NTP_RRD)) {
-		logger("Creating '$NTP_RRD' file.");
-		for($n = 0; $n < scalar(@NTP_HOST_LIST); $n++) {
-			push(@tmp, "DS:ntp" . $n . "_del:GAUGE:120:U:U");
-			push(@tmp, "DS:ntp" . $n . "_off:GAUGE:120:U:U");
-			push(@tmp, "DS:ntp" . $n . "_jit:GAUGE:120:U:U");
-			push(@tmp, "DS:ntp" . $n . "_str:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c01:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c02:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c03:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c04:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c05:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c06:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c07:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c08:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c09:GAUGE:120:0:U");
-			push(@tmp, "DS:ntp" . $n . "_c10:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($NTP_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $NTP_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "ntp_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub ntp_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @data;
-	my $del;
-	my $off;
-	my $jit;
-	my $str;
-	my $cod;
-
-	my $n;
-	my $rrdata = "N";
-
-	my $e = 0;
-	foreach(@NTP_HOST_LIST) {
-		open(IN, "ntpq -pn $_ |");
-		@data = <IN>;
-		close(IN);
-		$cod = $str = $del = $off = $jit = 0;
-		foreach(@data) {
-			if(/^\*/) {
-				(undef, $cod, $str, undef, undef, undef, undef, $del, $off, $jit) = split(' ', $_);
-				$cod =~ s/\.//g;
-				chomp($jit);
-				last;
-			}
-		}
-		$del = 0 unless defined($del);
-		$off = 0 unless defined($off);
-		$jit = 0 unless defined($jit);
-		$str = 0 unless defined($str);
-		$del /= 1000;
-		$off /= 1000;
-		$jit /= 1000;
-		$rrdata .= ":$del:$off:$jit:$str";
-		foreach my $i (@NTP_CODE_LIST[$e]) {
-			for($n = 0; $n < 10; $n++) {
-				if($cod eq @$i[$n]) {
-					$rrdata .= ":1";
-				} else {
-					$rrdata .= ":0";
-				}
-			}
-		}
-		$e++;
-	}
-
-	RRDs::update($NTP_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $NTP_RRD: $err") if $err;
-}
-
-# FAIL2BAN graph
-# ----------------------------------------------------------------------------
-sub fail2ban_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(-e $FAIL2BAN_RRD) {
-		$info = RRDs::info($FAIL2BAN_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 9 != scalar(@FAIL2BAN_LIST)) {
-			logger("Detected size mismatch between \@FAIL2BAN_LIST (" . scalar(@FAIL2BAN_LIST) . ") and $FAIL2BAN_RRD (" . scalar(@ds) / 9 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($FAIL2BAN_RRD, "$FAIL2BAN_RRD.bak");
-		}
-	}
-
-	if(!(-e $FAIL2BAN_RRD)) {
-		logger("Creating '$FAIL2BAN_RRD' file.");
-		for($n = 0; $n < scalar(@FAIL2BAN_LIST); $n++) {
-			push(@tmp, "DS:fail2ban" . $n . "_j1:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j2:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j3:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j4:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j5:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j6:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j7:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j8:GAUGE:120:0:U");
-			push(@tmp, "DS:fail2ban" . $n . "_j9:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($FAIL2BAN_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $FAIL2BAN_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	our $fail2ban_hist = 0;
-	push(@graphs, "fail2ban_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub fail2ban_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my $seek_pos;
-	my $logsize;
-	my @jails;
-
-	my $n;
-	my $str;
-	my $rrdata = "N";
-
-	if(! -r $FAIL2BAN_LOG) {
-		logger("Couldn't find file $FAIL2BAN_LOG: $!");
-		return;
-	}
-
-	$seek_pos = $fail2ban_hist;
-	$seek_pos = defined($seek_pos) ? int($seek_pos) : 0;
-	open(IN, $FAIL2BAN_LOG);
-	if(!seek(IN, 0, 2)) {
-		logger("Couldn't seek to the end ($FAIL2BAN_LOG): $!");
-		return;
-	}
-	$logsize = tell(IN);
-	if($logsize < $seek_pos) {
-		$seek_pos = 0;
-	}
-	if(!seek(IN, $seek_pos, 0)) {
-		logger("Couldn't seek to $seek_pos ($FAIL2BAN_LOG): $!");
-		return;
-	}
-	if($fail2ban_hist > 0) {	# avoid initial spike
-		$date = strftime("%Y-%m-%d", localtime);
-		while(<IN>) {
-			if(/^$date/) {
-				my $e = 0;
-				while($e < scalar(@FAIL2BAN_LIST)) {
-					foreach my $i (@FAIL2BAN_LIST[$e]) {
-						my $e2 = 0;
-						foreach my $j (@$i) {
-							($str = $j) =~ s/\[/\\[/;
-							$str =~ s/\]/\\]/;
-							$jails[$e][$e2] = 0 unless defined $jails[$e][$e2];
-							if(/ $str Ban /) {
-								$jails[$e][$e2]++;
-							}
-							$e2++;
-						}
-					}
-					$e++;
-				}
-			}
-		}
-	}
-	close(IN);
-
-	my $e = 0;
-	while($e < scalar(@FAIL2BAN_LIST)) {
-		for($n = 0; $n < 9; $n++) {
-			$jails[$e][$n] = 0 unless defined $jails[$e][$n];
-			$rrdata .= ":" . $jails[$e][$n];
-		}
-		$e++;
-	}
-
-	$fail2ban_hist = $logsize;
-
-	RRDs::update($FAIL2BAN_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $FAIL2BAN_RRD: $err") if $err;
-}
-
-# ICECAST graph
-# ----------------------------------------------------------------------------
-sub icecast_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my $n;
-
-	if(-e $ICECAST_RRD) {
-		$info = RRDs::info($ICECAST_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 36 != scalar(@ICECAST_URL_LIST)) {
-			logger("Detected size mismatch between \@ICECAST_URL_LIST (" . scalar(@ICECAST_URL_LIST) . ") and $ICECAST_RRD (" . scalar(@ds) / 36 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($ICECAST_RRD, "$ICECAST_RRD.bak");
-		}
-	}
-
-	if(!(-e $ICECAST_RRD)) {
-		logger("Creating '$ICECAST_RRD' file.");
-		for($n = 0; $n < scalar(@ICECAST_URL_LIST); $n++) {
-			push(@tmp, "DS:icecast" . $n . "_mp0_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp0_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp0_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp0_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp1_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp1_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp1_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp1_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp2_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp2_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp2_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp2_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp3_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp3_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp3_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp3_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp4_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp4_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp4_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp4_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp5_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp5_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp5_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp5_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp6_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp6_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp6_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp6_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp7_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp7_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp7_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp7_v1:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp8_ls:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp8_br:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp8_v0:GAUGE:120:0:U");
-			push(@tmp, "DS:icecast" . $n . "_mp8_v1:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($ICECAST_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $ICECAST_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "icecast_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub icecast_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @ls;
-	my @br;
-
-	my $n;
-	my $rrdata = "N";
-
-	my $e = 0;
-	foreach(@ICECAST_URL_LIST) {
-		my $ua = LWP::UserAgent->new(timeout => 30);
-		my $response = $ua->request(HTTP::Request->new('GET', $_));
-		my $data = $response->content;
-
-		$data =~ s/\n//g;
-		undef(@ls);
-		undef(@br);
-		foreach my $i (@ICECAST_MP_LIST[$e]) {
-			foreach(@$i) {
-				my $m = "Mount Point " . $_;
-				my ($b) = ($data =~ m/$m.*?<tr><td>Bitrate:<\/td><td class=\"streamdata\">(\d*?)<\/td><\/tr>/g);
-				my ($l) = ($data =~ m/$m.*?<tr><td>Current Listeners:<\/td><td class=\"streamdata\">(\d*?)<\/td>/g);
-				$b = 0 unless defined($b);
-				$l = 0 unless defined($l);
-				push(@ls, $l);
-				push(@br, $b);
-			}
-			for($n = 0; $n < 9; $n++) {
-				$ls[$n] = 0 unless defined($ls[$n]);
-				$br[$n] = 0 unless defined($br[$n]);
-				$rrdata .= ":" . $ls[$n];
-				$rrdata .= ":" . $br[$n];
-				$rrdata .= ":" . "0";
-				$rrdata .= ":" . "0";
-			}
-		}
-		$e++;
-	}
-
-	RRDs::update($ICECAST_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $ICECAST_RRD: $err") if $err;
-}
-
-# INT graph
-# ----------------------------------------------------------------------------
-sub int_init {
-	my $myself = (caller(0))[3];
-
-	if(!(-e $INT_RRD)) {
-		logger("Creating '$INT_RRD' file.");
-		eval {
-			RRDs::create($INT_RRD,
-				"--step=60",
-				"DS:int_0:COUNTER:120:0:U",
-				"DS:int_1:COUNTER:120:0:U",
-				"DS:int_2:COUNTER:120:0:U",
-				"DS:int_3:COUNTER:120:0:U",
-				"DS:int_4:COUNTER:120:0:U",
-				"DS:int_5:COUNTER:120:0:U",
-				"DS:int_6:COUNTER:120:0:U",
-				"DS:int_7:COUNTER:120:0:U",
-				"DS:int_8:COUNTER:120:0:U",
-				"DS:int_9:COUNTER:120:0:U",
-				"DS:int_10:COUNTER:120:0:U",
-				"DS:int_11:COUNTER:120:0:U",
-				"DS:int_12:COUNTER:120:0:U",
-				"DS:int_13:COUNTER:120:0:U",
-				"DS:int_14:COUNTER:120:0:U",
-				"DS:int_15:COUNTER:120:0:U",
-				"DS:int_16:COUNTER:120:0:U",
-				"DS:int_17:COUNTER:120:0:U",
-				"DS:int_18:COUNTER:120:0:U",
-				"DS:int_19:COUNTER:120:0:U",
-				"DS:int_20:COUNTER:120:0:U",
-				"DS:int_21:COUNTER:120:0:U",
-				"DS:int_22:COUNTER:120:0:U",
-				"DS:int_23:COUNTER:120:0:U",
-				"DS:int_24:COUNTER:120:0:U",
-				"DS:int_25:COUNTER:120:0:U",
-				"DS:int_26:COUNTER:120:0:U",
-				"DS:int_27:COUNTER:120:0:U",
-				"DS:int_28:COUNTER:120:0:U",
-				"DS:int_29:COUNTER:120:0:U",
-				"DS:int_30:COUNTER:120:0:U",
-				"DS:int_31:COUNTER:120:0:U",
-				"DS:int_32:COUNTER:120:0:U",
-				"DS:int_33:COUNTER:120:0:U",
-				"DS:int_34:COUNTER:120:0:U",
-				"DS:int_35:COUNTER:120:0:U",
-				"DS:int_36:COUNTER:120:0:U",
-				"DS:int_37:COUNTER:120:0:U",
-				"DS:int_38:COUNTER:120:0:U",
-				"DS:int_39:COUNTER:120:0:U",
-				"DS:int_40:COUNTER:120:0:U",
-				"DS:int_41:COUNTER:120:0:U",
-				"DS:int_42:COUNTER:120:0:U",
-				"DS:int_43:COUNTER:120:0:U",
-				"DS:int_44:COUNTER:120:0:U",
-				"DS:int_45:COUNTER:120:0:U",
-				"DS:int_46:COUNTER:120:0:U",
-				"DS:int_47:COUNTER:120:0:U",
-				"DS:int_48:COUNTER:120:0:U",
-				"DS:int_49:COUNTER:120:0:U",
-				"DS:int_50:COUNTER:120:0:U",
-				"DS:int_51:COUNTER:120:0:U",
-				"DS:int_52:COUNTER:120:0:U",
-				"DS:int_53:COUNTER:120:0:U",
-				"DS:int_54:COUNTER:120:0:U",
-				"DS:int_55:COUNTER:120:0:U",
-				"DS:int_56:COUNTER:120:0:U",
-				"DS:int_57:COUNTER:120:0:U",
-				"DS:int_58:COUNTER:120:0:U",
-				"DS:int_59:COUNTER:120:0:U",
-				"DS:int_60:COUNTER:120:0:U",
-				"DS:int_61:COUNTER:120:0:U",
-				"DS:int_62:COUNTER:120:0:U",
-				"DS:int_63:COUNTER:120:0:U",
-				"DS:int_64:COUNTER:120:0:U",
-				"DS:int_65:COUNTER:120:0:U",
-				"DS:int_66:COUNTER:120:0:U",
-				"DS:int_67:COUNTER:120:0:U",
-				"DS:int_68:COUNTER:120:0:U",
-				"DS:int_69:COUNTER:120:0:U",
-				"DS:int_70:COUNTER:120:0:U",
-				"DS:int_71:COUNTER:120:0:U",
-				"DS:int_72:COUNTER:120:0:U",
-				"DS:int_73:COUNTER:120:0:U",
-				"DS:int_74:COUNTER:120:0:U",
-				"DS:int_75:COUNTER:120:0:U",
-				"DS:int_76:COUNTER:120:0:U",
-				"DS:int_77:COUNTER:120:0:U",
-				"DS:int_78:COUNTER:120:0:U",
-				"DS:int_79:COUNTER:120:0:U",
-				"DS:int_80:COUNTER:120:0:U",
-				"DS:int_81:COUNTER:120:0:U",
-				"DS:int_82:COUNTER:120:0:U",
-				"DS:int_83:COUNTER:120:0:U",
-				"DS:int_84:COUNTER:120:0:U",
-				"DS:int_85:COUNTER:120:0:U",
-				"DS:int_86:COUNTER:120:0:U",
-				"DS:int_87:COUNTER:120:0:U",
-				"DS:int_88:COUNTER:120:0:U",
-				"DS:int_89:COUNTER:120:0:U",
-				"DS:int_90:COUNTER:120:0:U",
-				"DS:int_91:COUNTER:120:0:U",
-				"DS:int_92:COUNTER:120:0:U",
-				"DS:int_93:COUNTER:120:0:U",
-				"DS:int_94:COUNTER:120:0:U",
-				"DS:int_95:COUNTER:120:0:U",
-				"DS:int_96:COUNTER:120:0:U",
-				"DS:int_97:COUNTER:120:0:U",
-				"DS:int_98:COUNTER:120:0:U",
-				"DS:int_99:COUNTER:120:0:U",
-				"DS:int_100:COUNTER:120:0:U",
-				"DS:int_101:COUNTER:120:0:U",
-				"DS:int_102:COUNTER:120:0:U",
-				"DS:int_103:COUNTER:120:0:U",
-				"DS:int_104:COUNTER:120:0:U",
-				"DS:int_105:COUNTER:120:0:U",
-				"DS:int_106:COUNTER:120:0:U",
-				"DS:int_107:COUNTER:120:0:U",
-				"DS:int_108:COUNTER:120:0:U",
-				"DS:int_109:COUNTER:120:0:U",
-				"DS:int_110:COUNTER:120:0:U",
-				"DS:int_111:COUNTER:120:0:U",
-				"DS:int_112:COUNTER:120:0:U",
-				"DS:int_113:COUNTER:120:0:U",
-				"DS:int_114:COUNTER:120:0:U",
-				"DS:int_115:COUNTER:120:0:U",
-				"DS:int_116:COUNTER:120:0:U",
-				"DS:int_117:COUNTER:120:0:U",
-				"DS:int_118:COUNTER:120:0:U",
-				"DS:int_119:COUNTER:120:0:U",
-				"DS:int_120:COUNTER:120:0:U",
-				"DS:int_121:COUNTER:120:0:U",
-				"DS:int_122:COUNTER:120:0:U",
-				"DS:int_123:COUNTER:120:0:U",
-				"DS:int_124:COUNTER:120:0:U",
-				"DS:int_125:COUNTER:120:0:U",
-				"DS:int_126:COUNTER:120:0:U",
-				"DS:int_127:COUNTER:120:0:U",
-				"DS:int_128:COUNTER:120:0:U",
-				"DS:int_129:COUNTER:120:0:U",
-				"DS:int_130:COUNTER:120:0:U",
-				"DS:int_131:COUNTER:120:0:U",
-				"DS:int_132:COUNTER:120:0:U",
-				"DS:int_133:COUNTER:120:0:U",
-				"DS:int_134:COUNTER:120:0:U",
-				"DS:int_135:COUNTER:120:0:U",
-				"DS:int_136:COUNTER:120:0:U",
-				"DS:int_137:COUNTER:120:0:U",
-				"DS:int_138:COUNTER:120:0:U",
-				"DS:int_139:COUNTER:120:0:U",
-				"DS:int_140:COUNTER:120:0:U",
-				"DS:int_141:COUNTER:120:0:U",
-				"DS:int_142:COUNTER:120:0:U",
-				"DS:int_143:COUNTER:120:0:U",
-				"DS:int_144:COUNTER:120:0:U",
-				"DS:int_145:COUNTER:120:0:U",
-				"DS:int_146:COUNTER:120:0:U",
-				"DS:int_147:COUNTER:120:0:U",
-				"DS:int_148:COUNTER:120:0:U",
-				"DS:int_149:COUNTER:120:0:U",
-				"DS:int_150:COUNTER:120:0:U",
-				"DS:int_151:COUNTER:120:0:U",
-				"DS:int_152:COUNTER:120:0:U",
-				"DS:int_153:COUNTER:120:0:U",
-				"DS:int_154:COUNTER:120:0:U",
-				"DS:int_155:COUNTER:120:0:U",
-				"DS:int_156:COUNTER:120:0:U",
-				"DS:int_157:COUNTER:120:0:U",
-				"DS:int_158:COUNTER:120:0:U",
-				"DS:int_159:COUNTER:120:0:U",
-				"DS:int_160:COUNTER:120:0:U",
-				"DS:int_161:COUNTER:120:0:U",
-				"DS:int_162:COUNTER:120:0:U",
-				"DS:int_163:COUNTER:120:0:U",
-				"DS:int_164:COUNTER:120:0:U",
-				"DS:int_165:COUNTER:120:0:U",
-				"DS:int_166:COUNTER:120:0:U",
-				"DS:int_167:COUNTER:120:0:U",
-				"DS:int_168:COUNTER:120:0:U",
-				"DS:int_169:COUNTER:120:0:U",
-				"DS:int_170:COUNTER:120:0:U",
-				"DS:int_171:COUNTER:120:0:U",
-				"DS:int_172:COUNTER:120:0:U",
-				"DS:int_173:COUNTER:120:0:U",
-				"DS:int_174:COUNTER:120:0:U",
-				"DS:int_175:COUNTER:120:0:U",
-				"DS:int_176:COUNTER:120:0:U",
-				"DS:int_177:COUNTER:120:0:U",
-				"DS:int_178:COUNTER:120:0:U",
-				"DS:int_179:COUNTER:120:0:U",
-				"DS:int_180:COUNTER:120:0:U",
-				"DS:int_181:COUNTER:120:0:U",
-				"DS:int_182:COUNTER:120:0:U",
-				"DS:int_183:COUNTER:120:0:U",
-				"DS:int_184:COUNTER:120:0:U",
-				"DS:int_185:COUNTER:120:0:U",
-				"DS:int_186:COUNTER:120:0:U",
-				"DS:int_187:COUNTER:120:0:U",
-				"DS:int_188:COUNTER:120:0:U",
-				"DS:int_189:COUNTER:120:0:U",
-				"DS:int_190:COUNTER:120:0:U",
-				"DS:int_191:COUNTER:120:0:U",
-				"DS:int_192:COUNTER:120:0:U",
-				"DS:int_193:COUNTER:120:0:U",
-				"DS:int_194:COUNTER:120:0:U",
-				"DS:int_195:COUNTER:120:0:U",
-				"DS:int_196:COUNTER:120:0:U",
-				"DS:int_197:COUNTER:120:0:U",
-				"DS:int_198:COUNTER:120:0:U",
-				"DS:int_199:COUNTER:120:0:U",
-				"DS:int_200:COUNTER:120:0:U",
-				"DS:int_201:COUNTER:120:0:U",
-				"DS:int_202:COUNTER:120:0:U",
-				"DS:int_203:COUNTER:120:0:U",
-				"DS:int_204:COUNTER:120:0:U",
-				"DS:int_205:COUNTER:120:0:U",
-				"DS:int_206:COUNTER:120:0:U",
-				"DS:int_207:COUNTER:120:0:U",
-				"DS:int_208:COUNTER:120:0:U",
-				"DS:int_209:COUNTER:120:0:U",
-				"DS:int_210:COUNTER:120:0:U",
-				"DS:int_211:COUNTER:120:0:U",
-				"DS:int_212:COUNTER:120:0:U",
-				"DS:int_213:COUNTER:120:0:U",
-				"DS:int_214:COUNTER:120:0:U",
-				"DS:int_215:COUNTER:120:0:U",
-				"DS:int_216:COUNTER:120:0:U",
-				"DS:int_217:COUNTER:120:0:U",
-				"DS:int_218:COUNTER:120:0:U",
-				"DS:int_219:COUNTER:120:0:U",
-				"DS:int_220:COUNTER:120:0:U",
-				"DS:int_221:COUNTER:120:0:U",
-				"DS:int_222:COUNTER:120:0:U",
-				"DS:int_223:COUNTER:120:0:U",
-				"DS:int_224:COUNTER:120:0:U",
-				"DS:int_225:COUNTER:120:0:U",
-				"DS:int_226:COUNTER:120:0:U",
-				"DS:int_227:COUNTER:120:0:U",
-				"DS:int_228:COUNTER:120:0:U",
-				"DS:int_229:COUNTER:120:0:U",
-				"DS:int_230:COUNTER:120:0:U",
-				"DS:int_231:COUNTER:120:0:U",
-				"DS:int_232:COUNTER:120:0:U",
-				"DS:int_233:COUNTER:120:0:U",
-				"DS:int_234:COUNTER:120:0:U",
-				"DS:int_235:COUNTER:120:0:U",
-				"DS:int_236:COUNTER:120:0:U",
-				"DS:int_237:COUNTER:120:0:U",
-				"DS:int_238:COUNTER:120:0:U",
-				"DS:int_239:COUNTER:120:0:U",
-				"DS:int_240:COUNTER:120:0:U",
-				"DS:int_241:COUNTER:120:0:U",
-				"DS:int_242:COUNTER:120:0:U",
-				"DS:int_243:COUNTER:120:0:U",
-				"DS:int_244:COUNTER:120:0:U",
-				"DS:int_245:COUNTER:120:0:U",
-				"DS:int_246:COUNTER:120:0:U",
-				"DS:int_247:COUNTER:120:0:U",
-				"DS:int_248:COUNTER:120:0:U",
-				"DS:int_249:COUNTER:120:0:U",
-				"DS:int_250:COUNTER:120:0:U",
-				"DS:int_251:COUNTER:120:0:U",
-				"DS:int_252:COUNTER:120:0:U",
-				"DS:int_253:COUNTER:120:0:U",
-				"DS:int_254:COUNTER:120:0:U",
-				"DS:int_255:COUNTER:120:0:U",
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $INT_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	push(@graphs, "int_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub int_update {
-	my $myself = (caller(0))[3];
-	my ($debug) = @_;
-
-	my @int;
-
-	my $n;
-	my $maxints;
-	my $rrdata = "N";
-
-	if($os eq "Linux") {
-		open(IN, "/proc/stat");
-		while(<IN>) {
-			if(/^intr/) {
-				my @tmp = split(' ', $_);
-				(undef, undef, @int) = @tmp;
-				last;
-			}
-		}
-		close(IN);
-	} elsif($os eq "FreeBSD" || $os eq "OpenBSD") {
-		open(IN, "vmstat -i |");
-		my @allfields;
-		my $num;
-		my $name;
-		my $ticks;
-		$maxints = 0;
-		while(<IN>) {
-			if(/^\D{3}\d+/) {
-				@allfields = split(' ', $_);
-				$num = $allfields[0];
-				$name = $allfields[1];
-				$ticks = $allfields[$#allfields - 1];
-				chomp($ticks);
-				if($name eq "timer") {
-					$num = 0;
-				} else {
-					$num =~ s/^\D{3}//;
-					$num =~ s/://;
-				}
-				$int[$num] += $ticks;
-				$maxints = $maxints < $num ? $num : $maxints;
-			}
-		}
-		close(IN);
-		for($n = 0; $n < $maxints; $n++) {
-			$int[$n] = !$int[$n] ? 0 : $int[$n];
-		}
-	}
-
-	for($n = 0; $n < scalar(@int); $n++) {
-		if(($n % 256) != $n) {
-			$int[$n % 256] += $int[$n];
-		}
-	}
-
-	for($n = 0; $n < 256; $n++) {
-		if(!defined($int[$n])) {
-			$int[$n] = 0;
-		}
-		$rrdata .= ":" . $int[$n];
-	}
-
-	RRDs::update($INT_RRD, $rrdata);
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $INT_RRD: $err") if $err;
-}
-
-# PC graph
-# ----------------------------------------------------------------------------
-sub pc_init {
-	my $myself = (caller(0))[3];
-
-	my $info;
-	my @ds;
-	my @tmp;
-	my @data;
-	my $n;
-	my $p;
-
-	if(!grep {$_ eq $os} ("Linux")) {
-		logger("$myself is not supported yet by your operating system ($os).");
-		return;
-	}
-
-	if(-e $PC_RRD) {
-		$info = RRDs::info($PC_RRD);
-		for my $key (keys %$info) {
-			if(index($key, 'ds[') == 0) {
-				if(index($key, '.type') != -1) {
-					push(@ds, substr($key, 3, index($key, ']') - 3));
-				}
-			}
-		}
-		if(scalar(@ds) / 2 != $PC_MAX) {
-			logger("Detected size mismatch between \$PC_MAX ($PC_MAX) and $PC_RRD (" . scalar(@ds) / 2 . "). Resizing it accordingly. All historic data will be lost. Backup file created.");
-			rename($PC_RRD, "$PC_RRD.bak");
-		}
-	}
-
-	if(!(-e $PC_RRD)) {
-		logger("Creating '$PC_RRD' file.");
-		for($n = 0; $n < $PC_MAX; $n++) {
-			push(@tmp, "DS:pc" . $n . "_in:GAUGE:120:0:U");
-			push(@tmp, "DS:pc" . $n . "_out:GAUGE:120:0:U");
-		}
-		eval {
-			RRDs::create($PC_RRD,
-				"--step=60",
-				@tmp,
-				"RRA:AVERAGE:0.5:1:1440",
-				"RRA:AVERAGE:0.5:30:336",
-				"RRA:AVERAGE:0.5:60:744",
-				"RRA:AVERAGE:0.5:1440:365",
-				"RRA:MIN:0.5:1:1440",
-				"RRA:MIN:0.5:30:336",
-				"RRA:MIN:0.5:60:744",
-				"RRA:MIN:0.5:1440:365",
-				"RRA:MAX:0.5:1:1440",
-				"RRA:MAX:0.5:30:336",
-				"RRA:MAX:0.5:60:744",
-				"RRA:MAX:0.5:1440:365",
-				"RRA:LAST:0.5:1:1440",
-				"RRA:LAST:0.5:30:336",
-				"RRA:LAST:0.5:60:744",
-				"RRA:LAST:0.5:1440:365",
-			);
-		};
-		my $err = RRDs::error;
-		if($@ || $err) {
-			logger("$@") unless !$@;
-			if($err) {
-				logger("ERROR: while creating $PC_RRD: $err");
-				if($err eq "RRDs::error") {
-					logger("... is the RRDtool Perl package installed?");
-				}
-			}
-			return;
-		}
-	}
-
-	if($os eq "Linux") {
-		if(!$NET_GATEWAY) {
-			logger("You must assign a valid ethernet interface in \$NET_GATEWAY");
-			return;
-		}
-		# remove the changed PC or those that no longer exist (daily)
-		open(IN, "iptables -nxvL FORWARD | grep _daily |");
-		@data = <IN>;
-		close(IN);
-		my $rule;
-		my $num;
-		my $exist;
-		foreach my $d (@data) {
-			$exist = 0;
-			(undef, undef, $name) = split(' ', $d);
-			$name =~ s/_daily//;
-			for($n = 0; $n < $PC_MAX; $n++) {
-				if($name eq $PC_LIST[$n]) {
-					$exist = 1;
-					last;
-				}
-			}
-			if(!$exist) {
-				logger("removing unused iptables rule: pc=$name");
-				$rule = system("iptables -nxvL FORWARD --line-numbers | grep -w $name" . "_daily 2>/dev/null");
-				$rule = split(' ', $rule);
-				system("iptables -D FORWARD $rule");
-				system("iptables -F $name" . "_daily");
-				system("iptables -X $name" . "_daily");
-			}
-		}
-
-		# set the iptables rules for each defined PC
-		my $ip;
-		for($n = 0; $n < $PC_MAX; $n++) {
-			if($PC_LIST[$n]) {
-				if(!($ip = $PC_IP[$n])) {
-					if(!(gethostbyname($PC_LIST[$n]))) {
-						logger("DNS problem with: ", $PC_LIST[$n]);
-					}
-					$ip = inet_ntoa((gethostbyname($PC_LIST[$n]))[4]);
-					$ip = $ip . "/32";
-				}
-				undef(@data);
-				open(IN, "iptables -nxvL $PC_LIST[$n]_daily 2>/dev/null |");
-				@data = <IN>;
-				close(IN);
-				if(!scalar(@data)) {
-					system("iptables -N $PC_LIST[$n]_daily");
-					system("iptables -I FORWARD -j $PC_LIST[$n]_daily");
-					system("iptables -A $PC_LIST[$n]_daily -s $ip -d 0/0 -o $NET_GATEWAY");
-					system("iptables -A $PC_LIST[$n]_daily -s 0/0 -d $ip -i $NET_GATEWAY");
-				}
-			}
-		}
-	}
-
-	# Since 2.5.2 PC_LAN values need to be converted to GAUGE.
-	for($n = 0; $n < $PC_MAX; $n++) {
-		RRDs::tune($PC_RRD,
-			"--data-source-type=pc" . $n . "_in:GAUGE",
-			"--data-source-type=pc" . $n . "_out:GAUGE",
-		);
-	}
-
-	our @pc_hist_in = ();
-	our @pc_hist_out = ();
-	push(@graphs, "pc_update");
-	if($opt_d eq "all" || $debug) {
-		logger("$myself: Ok");
-	}
-}
-
-sub pc_update {
-	my $myself = (caller(0))[3];
-
-	my @in;
-	my @out;
-
-	my $n;
-	my $ip;
-	my $rrdata = "N";
-
-	for($n = 0; $n < $PC_MAX; $n++) {
-		if($PC_LIST[$n]) {
-			if(!($ip = $PC_IP[$n])) {
-				if(!(gethostbyname($PC_LIST[$n]))) {
-					logger("DNS problem with: ", $PC_LIST[$n]);
-				}
-				$ip = inet_ntoa((gethostbyname($PC_LIST[$n]))[4]);
-			}
-			$ip =~ s/\/\d+//;
-			open(IN, "iptables -nxvL $PC_LIST[$n]_daily |");
-			$in[$n] = 0 unless $in[$n];
-			$out[$n] = 0 unless $out[$n];
-			while(<IN>) {
-				my (undef, $bytes, undef, undef, undef, undef, $source) = split(' ', $_);
-				if($source =~ /0.0.0.0/) {
-					$in[$n] = $bytes - $pc_hist_in[$n];
-					$in[$n] = 0 unless $in[$n] != $bytes;
-					$pc_hist_in[$n] = $bytes;
-					$in[$n] /= 60;
-				}
-				if($source eq $ip) {
-					$out[$n] = $bytes - $pc_hist_out[$n];
-					$out[$n] = 0 unless $out[$n] != $bytes;
-					$pc_hist_out[$n] = $bytes;
-					$out[$n] /= 60;
-				}
-			}
-			close(IN);
-		}
-	}
-
-	for($n = 0; $n < $PC_MAX; $n++) {
-		$rrdata .= ":$in[$n]:$out[$n]";
-	}
-
-	RRDs::update($PC_RRD, $rrdata);
-	if($opt_d eq "all") {
-		logger("$myself: $rrdata");
-	}
-	my $err = RRDs::error;
-	logger("ERROR: while updating $PC_RRD: $err") if $err;
-}
-
-sub get_counters {
-	my $in;
-	my $out;
-
-	my $n;
-	my $ip;
-	my $day = (localtime(time - 60))[3];
-
-	for($n = 0; $n < $PC_MAX; $n++) {
-		if($PC_LIST[$n]) {
-			if(!($ip = $PC_IP[$n])) {
-				if(!(gethostbyname($PC_LIST[$n]))) {
-					logger("DNS problem with: ", $PC_LIST[$n]);
-				}
-				$ip = inet_ntoa((gethostbyname($PC_LIST[$n]))[4]);
-			}
-			$ip =~ s/\/\d+//;
-			open(IN, "iptables -nxvL $PC_LIST[$n]_daily |");
-			while(<IN>) {
-				my (undef, $bytes, undef, undef, undef, undef, $source) = split(' ', $_);
-				if($source eq $ip) {
-					$out = $bytes;
-				}
-				if($source =~ /0.0.0.0/) {
-					$in = $bytes;
-				}
-			}
-			close(IN);
-			if(! -w $USAGE_DIR) {
-				logger("WARNING: directory '" . $USAGE_DIR ."' doesn't exists or is not writable.");
-				last;
-			} else {
-				open(OUT, ">> " . $USAGE_DIR . $PC_LIST[$n]);
-				print(OUT "$day $in $out\n");
-				close(OUT);
-				logger("Saved the daily traffic counter for '$PC_LIST[$n]'.") unless !$opt_d;
-			}
-			system("iptables -Z $PC_LIST[$n]_daily >/dev/null 2>/dev/null");
-		}
-	}
-
-}
-
-sub send_reports {
-	my $myself = (caller(0))[3];
-	my $n;
-	my $to;
-
-	if(! -x $REPORT_DIR . "send_reports") {
-		logger("$myself: unable to find the script '" . $REPORT_DIR . "send_reports" . "'.");
-		return;
-	}
-	logger("Sending monthly traffic reports.");
-	for($n = 0; $n < $PC_MAX; $n++) {
-		if($PC_LIST[$n]) {
-			$to = $PC_REPORT_MAIL[$n];
-			$to = $PC_DEFAULT_MAIL unless $PC_REPORT_MAIL[$n];
-			logger("$myself: $PC_LIST[$n] -> $to [$PC_REPORT_LANG]");
-			system("cd $REPORT_DIR ; " . $REPORT_DIR . "send_reports -h $PC_LIST[$n] -c $opt_c &");
-		}
-	}
-}
-
 
 # Main
 # ----------------------------------------------------------------------------
-getopts("d:vc:p:") || usage();
+getopts("d:vc:p:", \%options) || usage();
 
-if($opt_v) {
+if($options{v}) {
 	print("Monitorix version " . VERSION . " (" . RELDATE . ")\n");
 	print("by Jordi Sanfeliu <jordi\@fibranet.cat>\n");
 	print("http://www.monitorix.org/\n\n");
 	exit(0);
 }
-if(!$opt_c) {
+if(!$options{c}) {
 	usage();
 	exit(1);
 }
-$opt_c = abs_path($opt_c) unless $^V lt 5.6.2;
-if(!stat($opt_c)) {
-	die("can't open file $opt_c.\n");
+$options{c} = abs_path($options{c}) unless $^V lt 5.6.2;
+if(!stat($options{c})) {
+	die("can't open file '$options{c}'.\n");
 }
 
-# get the current OS and kernel branch and check its support
+# load configuration file
+my $conf = new Config::General(
+	-ConfigFile => $options{c},
+);
+%config = $conf->getall;
+$config{debug} = ();
+$config{func_update} = ();
+
+# get the current OS and kernel version and check its support
 my $release;
-($os, undef, $release) = uname();
+($config{os}, undef, $release) = uname();
 my ($major, $minor) = split('\.', $release);
-$kernel_branch = $major . "." . $minor;
-if(!grep {$_ eq $os} @suppsys) {
-	die("FATAL: your operating system ($os) is not supported.\n");
+$config{kernel} = $major . "." . $minor;
+if(!grep {$_ eq $config{os}} @suppsys) {
+	die("FATAL: your operating system ($config{os}) is not supported.\n");
 }
 
-# check configuration file syntax (and load it)
-if(grep {$_ eq $os} ("FreeBSD", "OpenBSD", "NetBSD")) {
+if(grep {$_ eq $config{os}} ("FreeBSD", "OpenBSD", "NetBSD")) {
 	$SIG{'CHLD'} = 'DEFAULT';
 }	
-if(system("perl -wc $opt_c >/dev/null 2>&1")) {
-	die("FATAL: configuration file '$opt_c' had compilation errors.\n");
-}
-require $opt_c;
-
 
 $0 = sprintf("%s %s%s%s%s",
-	$^V lt 5.6.2 ? monitorix : abs_path($0),
-	$opt_c ? "-c $opt_c" : "",
-	$opt_p ? " -p $opt_p" : "",
-	$opt_d ? " -d $opt_d" : "",
-	$opt_v ? " -v" : "");
+	$^V lt 5.6.2 ? "monitorix" : abs_path($0),
+	$options{c} ? "-c $options{c}" : "",
+	$options{p} ? " -p $options{p}" : "",
+	$options{d} ? " -d $options{d}" : "",
+	$options{v} ? " -v" : "");
 
-daemonize();
+#daemonize();
 logger("Starting Monitorix version " . VERSION . " (pid $$).");
 
-if($opt_p) {
-	$opt_p = abs_path($opt_p);
-	open(PIDFILE, "> $opt_p")
-		|| die("could not open $opt_p for writing");
-	print(PIDFILE "$$");
-	close(PIDFILE);
+if($options{p}) {
+	$options{p} = abs_path($options{p});
+	open(OUT, "> $options{p}")
+		|| die("could not open '$options{p}' for writing");
+	print(OUT "$$");
+	close(OUT);
 }
 
-# change to safety directory
+# change to a safety directory
 unless(chdir("/tmp")) {
 	logger("can't chdir to /tmp: $!");
 	unless(chdir("/lost+found")) {
@@ -6954,11 +427,11 @@ unless(chdir("/tmp")) {
 	}
 }
 
-if($opt_d) {
-	if($opt_d ne "none" && $opt_d ne "all") {
-		@graphs_debug = split(',', $opt_d);
-		foreach my $t (@graphs_debug) {
-			if(!grep {$_ eq $t} (@GRAPH_NAME)) {
+if($options{d}) {
+	if($options{d} ne "none" && $options{d} ne "all") {
+		@{$config{debug}} = split(',', $options{d});
+		foreach my $t (@{$config{debug}}) {
+			if(!grep {trim($_) eq $t} (split(',', $config{graph_name}))) {
 				die("Invalid debug key '$t'");
 			}
 		}
@@ -6968,37 +441,49 @@ if($opt_d) {
 }
 
 # save the path of the configuration file
-open(OUT, "> $BASE_DIR/cgi-bin/monitorix.conf.path");
-print(OUT "$opt_c\n");
-close(OUT);
+if(open(OUT, "> " . $config{base_dir} . "/cgi-bin/monitorix.conf.path")) {
+	print(OUT "$options{c}\n");
+	close(OUT);
+} else {
+	logger("Unable to create the file '$config{base_dir}/cgi-bin/monitorix.conf.path'.");
+}
 
-# initialize all enabled graphs
-logger("Initializing graphs.") unless !$opt_d;
-flush_accounting_rules();
+flush_accounting_rules(\%config, $options{d});
 
-my $func;
-foreach my $g (@GRAPH_NAME) {
-	if($GRAPH_ENABLE{$g} eq "Y") {
-		$func = $g . "_init";
-		eval {&$func();};
-		if($@) {
-			logger("WARNING: unexpected errors in function $func()");
+logger("Initializing graphs.") unless !$options{d};
+foreach (split(',', $config{graph_name})) {
+	my $g = trim($_);
+	if(lc($config{graph_enable}->{$g}) eq "y") {
+		my $init = $g . "_init";
+		my $d = $g;
+
+		undef($d) if(!grep {trim($_) eq $d} (@{$config{debug}}));
+		if(defined($options{d}) && $options{d} eq "all") {
+			$d = $g;
 		}
+
+		eval "use $g qw(" . $init . " " . $g . "_update)";
+		if($@) {
+			logger("WARNING: unable to find module '$g'");
+			next;
+		}
+		{
+			no strict "refs";
+			eval { &$init($g, \%config, $d); };
+		}
+		logger("WARNING: unexpected errors in function $init()") if($@);
 	}
 }
-if($PC_LAN eq "Y") {
-	pc_init();
-}
 
-if(!scalar(@graphs)) {
+print Dumper($config{func_update});
+if(!scalar($config{func_update})) {
 	logger("nothing to do, exiting.");
 	exit(0);
 }
 
-# create 'index.html' file
-logger("Generating the 'index.html' file.") unless !$opt_d;
+logger("Generating the 'index.html' file.") unless !$options{d};
 create_index();
-logger("Ok, done.") unless !$opt_d;
+logger("Ok, done.") unless !$options{d};
 
 alarm(1);
 while(1) {
diff --git a/monitorix.cgi b/monitorix.cgi
index f92314b..287da62 100755
--- a/monitorix.cgi
+++ b/monitorix.cgi
@@ -2,7 +2,7 @@
 #
 # Monitorix - A lightweight system monitoring tool.
 #
-# Copyright (C) 2005-2012 by Jordi Sanfeliu <jordi@fibranet.cat>
+# Copyright (C) 2005-2013 by Jordi Sanfeliu <jordi@fibranet.cat>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -19,13328 +19,85 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 #
 
-no strict "vars";
-no warnings "once";
-use CGI qw/:standard/;
+use strict;
+use warnings;
+use FindBin qw($Bin);
+use lib $Bin . '/lib';
+
+use Monitorix;
+use CGI qw(:standard);
+use Config::General;
 use POSIX;
 use RRDs;
 
-# load the path of the configuration file
-open(IN, "< monitorix.conf.path");
-my $opt_config = <IN>;
-chomp($opt_config);
-close(IN);
-if(-f $opt_config) {
-	require $opt_config;
-} elsif(-f "/etc/monitorix.conf") {
-	require "/etc/monitorix.conf";
-} elsif(-f "/usr/local/etc/monitorix.conf") {
-	require "/usr/local/etc/monitorix.conf";
-} else {
-	print("Content-Type: text/html\n");
-	print("\n");
-	print("Monitorix configuration file '$opt_config' not found!\n");
-	print("Other possible locations also failed.\n");
-	exit(1);
-}
+my %config;
+my %cgi;
+my %colors;
+my %tf;
+my @version12;
+my @version12_small;
 
-our $URL = $ENV{HTTPS} ? "https://" . $ENV{HTTP_HOST} : "http://" . $ENV{HTTP_HOST};
-if(!($HOSTNAME)) {
-	$HOSTNAME = $ENV{SERVER_NAME};
-	if(!($HOSTNAME)) {	# called from the command line
-		$HOSTNAME = "127.0.0.1";
-		$URL = "http://127.0.0.1";
-	}
-}
-$URL .= $BASE_URL . "/";
 
-# get the current OS and kernel branch
-my ($os, undef, $release) = uname();
-my ($major, $minor) = split('\.', $release);
-my $kernel_branch = $major . "." . $minor;
-
-my $mode = defined(param('mode')) ? param('mode') : '';
-my $graph = param('graph');
-my $when = param('when');
-my $color = param('color');
-my $val = defined(param('val')) ? param('val') : '';
-my $silent = defined(param('silent')) ? param('silent') : '';
-if($mode ne "localhost") {
-	($mode, $val)  = split(/\./, $mode);
-}
-
-my ($twhen) = ($when =~ m/(hour|day|week|month|year)$/);
-(my $nwhen = $when) =~ s/$twhen// unless !$twhen;
-$nwhen = 1 unless $nwhen;
-$twhen = "day" unless $twhen;
-$when = $nwhen . $twhen;
-
-# toggle this to 1 if you want to maintain old (2.3-) Monitorix with Multihost
-if($backwards_compat_old_multihost) {
-	$when = $twhen;
-}
-
-our ($res, $tc, $tb, $ts);
-($res, $tc, $tb, $ts) = (3600, 'h', 24, 1) if $twhen eq "day";
-($res, $tc, $tb, $ts) = (108000, 'd', 7, 1) if $twhen eq "week";
-($res, $tc, $tb, $ts) = (216000, 'd', 30, 1) if $twhen eq "month";
-($res, $tc, $tb, $ts) = (5184000, 'd', 365, 1) if $twhen eq "year";
-
-# Default colors (white theme)
-our @graph_colors;
-our $warning_color = "--color=CANVAS#880000";
-our $bg_color = "#FFFFFF";
-our $fg_color = "#000000";
-our $title_bg_color = "#777777";
-our $title_fg_color = "#CCCC00";
-our $graph_bg_color = "#CCCCCC";
-
-if($color) {
-	if($color eq "black") {
-		push(@graph_colors, "--color=CANVAS" . $BLACK{canvas});
-		push(@graph_colors, "--color=BACK" . $BLACK{back});
-		push(@graph_colors, "--color=FONT" . $BLACK{font});
-		push(@graph_colors, "--color=MGRID" . $BLACK{mgrid});
-		push(@graph_colors, "--color=GRID" . $BLACK{grid});
-		push(@graph_colors, "--color=FRAME" . $BLACK{frame});
-		push(@graph_colors, "--color=ARROW" . $BLACK{arrow});
-		push(@graph_colors, "--color=SHADEA" . $BLACK{shadea});
-		push(@graph_colors, "--color=SHADEB" . $BLACK{shadeb});
-		push(@graph_colors, "--color=AXIS" . $BLACK{axis}) if defined($BLACK{axis});
-		$bg_color = $BLACK{main_bg};
-		$fg_color = $BLACK{main_fg};
-		$title_bg_color = $BLACK{title_bg};
-		$title_fg_color = $BLACK{title_fg};
-		$graph_bg_color = $BLACK{graph_bg};
-	}
-}
-
-my @VERSION12;
-my @VERSION12_small;
-if($RRDs::VERSION > 1.2) {
-	push(@VERSION12, "--slope-mode");
-	push(@VERSION12, "--font=LEGEND:7:");
-	push(@VERSION12, "--font=TITLE:9:");
-	push(@VERSION12, "--font=UNIT:8:");
-	if($RRDs::VERSION >= 1.3) {
-		push(@VERSION12, "--font=DEFAULT:0:Mono");
-	}
-	if($twhen eq "day") {
-		push(@VERSION12, "--x-grid=HOUR:1:HOUR:6:HOUR:6:0:%R");
-	}
-	push(@VERSION12_small, "--font=TITLE:8:");
-	push(@VERSION12_small, "--font=UNIT:7:");
-	if($RRDs::VERSION >= 1.3) {
-		push(@VERSION12_small, "--font=DEFAULT:0:Mono");
-	}
-} else {
-	undef(@VERSION12);
-	undef(@VERSION12_small);
-}
-
-our %rgraphs = reverse %GRAPHS;
-
-my $u = "";
-if($silent eq "yes" || $silent eq "imagetag") {
-	$fg_color = "#000000";	# visible color for text mode
-	$u = "_";
-}
-if($silent eq "imagetagbig") {
-	$fg_color = "#000000";	# visible color for text mode
-	$u = "";
-}
-
-our @nfsv2 = ("null", "getattr", "setattr", "root", "lookup", "readlink", "read", "wrcache", "write", "create", "remove", "rename", "link", "symlink", "mkdir", "rmdir", "readdir", "fsstat");
-our @nfsv3 = ("null", "getattr", "setattr", "lookup", "access", "readlink", "read", "write", "create", "mkdir", "symlink", "mknod", "remove", "rmdir", "rename", "link", "readdir", "readdirplus", "fsstat", "fsinfo", "pathconf", "commit");
-our @nfssv4 = ("op0-unused", "op1-unused", "op2-future", "access", "close", "commit", "create", "delegpurge", "delegreturn", "getattr", "getfh", "link", "lock", "lockt", "locku", "lookup", "lookup_root", "nverify", "open", "openattr", "open_conf", "open_dgrd", "putfh", "putpubfh", "putrootfh", "read", "readdir", "readlink", "remove", "rename", "renew", "restorefh", "savefh", "secinfo", "setattr", "setcltid", "setcltidconf", "verify", "write", "rellockowner", "bc_ctl", "bind_conn", "exchange_id", "create_ses", "destroy_ses", "free_stateid", "getdirdeleg", "getdevinfo", "getdevlist", "layoutcommit", "layoutget", "layoutreturn", "secinfononam", "sequence", "set_ssv", "test_stateid", "want_deleg", "destroy_clid", "reclaim_comp");
-our @nfscv4 = ("null", "read", "write", "commit", "open", "open_conf", "open_noat", "open_dgrd", "close", "setattr", "fsinfo", "renew", "setclntid", "confirm", "lock", "lockt", "locku", "access", "getattr", "lookup", "lookup_root", "remove", "rename", "link", "symlink", "create", "pathconf", "statfs", "readlink", "readdir", "server_caps", "delegreturn", "getacl", "setacl", "fs_locations", "exchange_id", "create_ses", "destroy_ses", "sequence", "get_lease_t", "reclaim_comp", "layoutget", "layoutcommit", "layoutreturn", "getdevlist", "getdevinfo", "ds_write", "ds_commit");
-
-sub get_uptime {
-	my $str;
-	my $uptime;
-
-	if($os eq "Linux") {
-		open(IN, "/proc/uptime");
-		($uptime, undef) = split(' ', <IN>);
-		close(IN);
-	} elsif($os eq "FreeBSD") {
-		open(IN, "/sbin/sysctl -n kern.boottime |");
-		(undef, undef, undef, $uptime) = split(' ', <IN>);
-		close(IN);
-		$uptime =~ s/,//;
-		$uptime = time - int($uptime);
-	} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-		open(IN, "/sbin/sysctl -n kern.boottime |");
-		$uptime = <IN>;
-		close(IN);
-		chomp($uptime);
-		$uptime = time - int($uptime);
-	}
-
-	my ($d, $h, $m);
-	my ($d_string, $h_string, $m_string);
-
-	$d = int($uptime / (60 * 60 * 24));
-	$h = int($uptime / (60 * 60)) % 24;
-	$m = int($uptime / 60) % 60;
-
-	$d_string = $d ? sprintf("%d days,", $d) : "";
-	$h_string = $h ? sprintf("%d", $h) : "";
-	$m_string = $h ? sprintf("%sh %dm", $h, $m) : sprintf("%d min", $m);
-
-	return "$d_string $m_string";
-}
-
-# SYSTEM graph
-# ----------------------------------------------------------------------------
-sub system {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($os eq "Linux") {
-		$MEMORY = `grep -w MemTotal: /proc/meminfo | awk '{print \$2}'`;
-		chomp($MEMORY);
-	} elsif(grep {$_ eq $os} ("FreeBSD", "OpenBSD", "NetBSD")) {
-		$MEMORY = `/sbin/sysctl -n hw.physmem`;	# in bytes
-		chomp($MEMORY);
-		$MEMORY = int($MEMORY / 1024);		# in KB
-	}
-	$MEMORY = int($MEMORY / 1024);			# in MB
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$SYSTEM_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $SYSTEM_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("       CPU load average    Memory usage in MB     Processes\n");
-		print("Time   1min  5min 15min    Used  Cached Buffers   Total   Run\n");
-		print("------------------------------------------------------------- \n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			my ($load1, $load5, $load15, $nproc, $npslp, $nprun, $mtotl, $buff, $cach, $free) = @$line;
-			$buff /= 1024;
-			$cach /= 1024;
-			$free /= 1024;
-			@row = ($load1, $load5, $load15, $MEMORY - $free, $cach, $buff, $nproc, $nprun);
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc   %4.1f  %4.1f  %4.1f  %6d  %6d  %6d   %5d %5d \n", $time, @row);
-		}
-		print("\n");
-		print(" system uptime: " . get_uptime() . "\n");
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($SYSTEM1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SYSTEM1_LIMIT");
-	} else {
-		if($SYSTEM1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SYSTEM1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	my $UPTIME = get_uptime();
-	my $UPTIMELINE;
-	if($RRDs::VERSION > 1.2) {
-		$UPTIMELINE = "COMMENT:system uptime\\: " . $UPTIME . "\\c";
-	} else {
-		$UPTIMELINE = "COMMENT:system uptime: " . $UPTIME . "\\c";
-	}
-
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	push(@tmp, "AREA:load1#4444EE: 1 min average");
-	push(@tmp, "GPRINT:load1:LAST:  Current\\: %4.2lf");
-	push(@tmp, "GPRINT:load1:AVERAGE:   Average\\: %4.2lf");
-	push(@tmp, "GPRINT:load1:MIN:   Min\\: %4.2lf");
-	push(@tmp, "GPRINT:load1:MAX:   Max\\: %4.2lf\\n");
-	push(@tmp, "LINE1:load1#0000EE");
-	push(@tmp, "LINE1:load5#EEEE00: 5 min average");
-	push(@tmp, "GPRINT:load5:LAST:  Current\\: %4.2lf");
-	push(@tmp, "GPRINT:load5:AVERAGE:   Average\\: %4.2lf");
-	push(@tmp, "GPRINT:load5:MIN:   Min\\: %4.2lf");
-	push(@tmp, "GPRINT:load5:MAX:   Max\\: %4.2lf\\n");
-	push(@tmp, "LINE1:load15#00EEEE:15 min average");
-	push(@tmp, "GPRINT:load15:LAST:  Current\\: %4.2lf");
-	push(@tmp, "GPRINT:load15:AVERAGE:   Average\\: %4.2lf");
-	push(@tmp, "GPRINT:load15:MIN:   Min\\: %4.2lf");
-	push(@tmp, "GPRINT:load15:MAX:   Max\\: %4.2lf\\n");
-	push(@tmpz, "AREA:load1#4444EE: 1 min average");
-	push(@tmpz, "LINE1:load1#0000EE");
-	push(@tmpz, "LINE1:load5#EEEE00: 5 min average");
-	push(@tmpz, "LINE1:load15#00EEEE:15 min average");
-	if($os eq "FreeBSD") {
-		push(@tmp, "COMMENT: \\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_system1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Load average",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:load1=$SYSTEM_RRD:system_load1:AVERAGE",
-		"DEF:load5=$SYSTEM_RRD:system_load5:AVERAGE",
-		"DEF:load15=$SYSTEM_RRD:system_load15:AVERAGE",
-		@tmp,
-		"COMMENT: \\n",
-		$UPTIMELINE);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_system1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Load average",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:load1=$SYSTEM_RRD:system_load1:AVERAGE",
-			"DEF:load5=$SYSTEM_RRD:system_load5:AVERAGE",
-			"DEF:load15=$SYSTEM_RRD:system_load15:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /system1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($SYSTEM2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SYSTEM2_LIMIT");
-	} else {
-		if($SYSTEM2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SYSTEM2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:npslp#44AAEE:Sleeping");
-	push(@tmp, "AREA:nprun#EE4444:Running");
-	push(@tmp, "LINE1:nprun#EE0000");
-	push(@tmp, "LINE1:npslp#00EEEE");
-	push(@tmp, "LINE1:nproc#EEEE00:Processes");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_system2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Processes",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:nproc=$SYSTEM_RRD:system_nproc:AVERAGE",
-		"DEF:npslp=$SYSTEM_RRD:system_npslp:AVERAGE",
-		"DEF:nprun=$SYSTEM_RRD:system_nprun:AVERAGE",
-		@tmp,
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_system2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Processes",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:nproc=$SYSTEM_RRD:system_nproc:AVERAGE",
-			"DEF:npslp=$SYSTEM_RRD:system_npslp:AVERAGE",
-			"DEF:nprun=$SYSTEM_RRD:system_nprun:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /system2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	if($os eq "Linux") {
-		push(@tmp, "AREA:m_mused#EE4444:Used");
-		push(@tmp, "AREA:m_mcach#44EE44:Cached");
-		push(@tmp, "AREA:m_mbuff#CCCCCC:Buffers");
-		push(@tmp, "LINE1:m_mbuff#888888");
-		push(@tmp, "LINE1:m_mcach#00EE00");
-		push(@tmp, "LINE1:m_mused#EE0000");
-	} elsif($os eq "FreeBSD") {
-		push(@tmp, "AREA:m_mused#EE4444:Used");
-		push(@tmp, "AREA:m_mcach#44EE44:Cached");
-		push(@tmp, "AREA:m_mbuff#CCCCCC:Buffers");
-		push(@tmp, "AREA:m_macti#EEEE44:Active");
-		push(@tmp, "AREA:m_minac#4444EE:Inactive");
-		push(@tmp, "LINE1:m_minac#0000EE");
-		push(@tmp, "LINE1:m_macti#EEEE00");
-		push(@tmp, "LINE1:m_mbuff#888888");
-		push(@tmp, "LINE1:m_mcach#00EE00");
-		push(@tmp, "LINE1:m_mused#EE0000");
-	} elsif($os eq "OpenBSD" || $os eq "NetBSD") {
-		push(@tmp, "AREA:m_mused#EE4444:Used");
-		push(@tmp, "AREA:m_macti#44EE44:Active");
-		push(@tmp, "LINE1:m_macti#00EE00");
-		push(@tmp, "LINE1:m_mused#EE0000");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_system3} (${MEMORY}MB)  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Megabytes",
-		"--width=$width",
-		"--height=$height",
-		"--upper-limit=$MEMORY",
-		"--lower-limit=0",
-		"--base=1024",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:mtotl=$SYSTEM_RRD:system_mtotl:AVERAGE",
-		"DEF:mbuff=$SYSTEM_RRD:system_mbuff:AVERAGE",
-		"DEF:mcach=$SYSTEM_RRD:system_mcach:AVERAGE",
-		"DEF:mfree=$SYSTEM_RRD:system_mfree:AVERAGE",
-		"DEF:macti=$SYSTEM_RRD:system_macti:AVERAGE",
-		"DEF:minac=$SYSTEM_RRD:system_minac:AVERAGE",
-		"CDEF:m_mtotl=mtotl,1024,/",
-		"CDEF:m_mbuff=mbuff,1024,/",
-		"CDEF:m_mcach=mcach,1024,/",
-		"CDEF:m_mused=m_mtotl,mfree,1024,/,-",
-		"CDEF:m_macti=macti,1024,/",
-		"CDEF:m_minac=minac,1024,/",
-		@tmp,
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_system3} (${MEMORY}MB)  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Megabytes",
-			"--width=$width",
-			"--height=$height",
-			"--upper-limit=$MEMORY",
-			"--lower-limit=0",
-			"--base=1024",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:mtotl=$SYSTEM_RRD:system_mtotl:AVERAGE",
-			"DEF:mbuff=$SYSTEM_RRD:system_mbuff:AVERAGE",
-			"DEF:mcach=$SYSTEM_RRD:system_mcach:AVERAGE",
-			"DEF:mfree=$SYSTEM_RRD:system_mfree:AVERAGE",
-			"DEF:macti=$SYSTEM_RRD:system_macti:AVERAGE",
-			"DEF:minac=$SYSTEM_RRD:system_minac:AVERAGE",
-			"CDEF:m_mtotl=mtotl,1024,/",
-			"CDEF:m_mbuff=mbuff,1024,/",
-			"CDEF:m_mcach=mcach,1024,/",
-			"CDEF:m_mused=m_mtotl,mfree,1024,/,-",
-			"CDEF:m_macti=macti,1024,/",
-			"CDEF:m_minac=minac,1024,/",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /system3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# KERN graph
-# ----------------------------------------------------------------------------
-sub kern {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my $vlabel;
-	my $n;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$KERN_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $KERN_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("       Kernel usage                                                                           VFS usage\n");
-		print("Time   User   Nice    Sys   Idle   I/Ow    IRQ   sIRQ  Steal  Guest   Ctxt.Sw  Forks  VForks  dentry   file  inode\n");
-		print("------------------------------------------------------------------------------------------------------------------\n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			my ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest, $cs, $dentry, $file, $inode, $forks, $vforks) = @$line;
-			@row = ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest, $cs, $forks, $vforks, $dentry, $file, $inode);
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%  %4.1f%%   %7d %6d  %6d   %4.1f%%  %4.1f%%  %4.1f%% \n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-
-	if($KERN1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$KERN1_LIMIT");
-	} else {
-		if($KERN1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$KERN1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($KERN_GRAPH_MODE eq "R") {
-		$vlabel = "Percent (%)";
-		if($KERN_DATA{user} eq "Y") {
-			push(@tmp, "AREA:user#4444EE:user");
-			push(@tmpz, "AREA:user#4444EE:user");
-			push(@tmp, "GPRINT:user:LAST:      Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{nice} eq "Y") {
-			push(@tmp, "AREA:nice#EEEE44:nice");
-			push(@tmpz, "AREA:nice#EEEE44:nice");
-			push(@tmp, "GPRINT:nice:LAST:      Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{sys} eq "Y") {
-			push(@tmp, "AREA:sys#44EEEE:system");
-			push(@tmpz, "AREA:sys#44EEEE:system");
-			push(@tmp, "GPRINT:sys:LAST:    Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{iow} eq "Y") {
-			push(@tmp, "AREA:iow#EE44EE:I/O wait");
-			push(@tmpz, "AREA:iow#EE44EE:I/O wait");
-			push(@tmp, "GPRINT:iow:LAST:  Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($os eq "Linux") {
-			if($KERN_DATA{irq} eq "Y") {
-				push(@tmp, "AREA:irq#888888:IRQ");
-				push(@tmpz, "AREA:irq#888888:IRQ");
-				push(@tmp, "GPRINT:irq:LAST:       Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{sirq} eq "Y") {
-				push(@tmp, "AREA:sirq#E29136:softIRQ");
-				push(@tmpz, "AREA:sirq#E29136:softIRQ");
-				push(@tmp, "GPRINT:sirq:LAST:   Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{steal} eq "Y") {
-				push(@tmp, "AREA:steal#44EE44:steal");
-				push(@tmpz, "AREA:steal#44EE44:steal");
-				push(@tmp, "GPRINT:steal:LAST:     Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{guest} eq "Y") {
-				push(@tmp, "AREA:guest#448844:guest");
-				push(@tmpz, "AREA:guest#448844:guest");
-				push(@tmp, "GPRINT:guest:LAST:     Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			push(@tmp, "LINE1:guest#1F881F") unless $KERN_DATA{guest} ne "Y";
-			push(@tmpz, "LINE1:guest#1F881F") unless $KERN_DATA{guest} ne "Y";
-			push(@tmp, "LINE1:steal#00EE00") unless $KERN_DATA{steal} ne "Y";
-			push(@tmpz, "LINE1:steal#00EE00") unless $KERN_DATA{steal} ne "Y";
-			push(@tmp, "LINE1:sirq#D86612") unless $KERN_DATA{sirq} ne "Y";
-			push(@tmpz, "LINE1:sirq#D86612") unless $KERN_DATA{sirq} ne "Y";
-			push(@tmp, "LINE1:irq#CCCCCC") unless $KERN_DATA{irq} ne "Y";
-			push(@tmpz, "LINE1:irq#CCCCCC") unless $KERN_DATA{irq} ne "Y";
-		}
-		push(@tmp, "LINE1:iow#EE00EE") unless $KERN_DATA{iow} ne "Y";
-		push(@tmpz, "LINE1:iow#EE00EE") unless $KERN_DATA{iow} ne "Y";
-		push(@tmp, "LINE1:sys#00EEEE") unless $KERN_DATA{sys} ne "Y";
-		push(@tmpz, "LINE1:sys#00EEEE") unless $KERN_DATA{sys} ne "Y";
-		push(@tmp, "LINE1:nice#EEEE00") unless $KERN_DATA{nice} ne "Y";
-		push(@tmpz, "LINE1:nice#EEEE00") unless $KERN_DATA{nice} ne "Y";
-		push(@tmp, "LINE1:user#0000EE") unless $KERN_DATA{user} ne "Y";
-		push(@tmpz, "LINE1:user#0000EE") unless $KERN_DATA{user} ne "Y";
-	} else {
-		$vlabel = "Stacked Percent (%)";
-		push(@tmp, "CDEF:s_nice=user,nice,+");
-		push(@tmpz, "CDEF:s_nice=user,nice,+");
-		push(@tmp, "CDEF:s_sys=s_nice,sys,+");
-		push(@tmpz, "CDEF:s_sys=s_nice,sys,+");
-		push(@tmp, "CDEF:s_iow=s_sys,iow,+");
-		push(@tmpz, "CDEF:s_iow=s_sys,iow,+");
-		if($os eq "Linux") {
-			push(@tmp, "CDEF:s_irq=s_iow,irq,+");
-			push(@tmpz, "CDEF:s_irq=s_iow,irq,+");
-			push(@tmp, "CDEF:s_sirq=s_irq,sirq,+");
-			push(@tmpz, "CDEF:s_sirq=s_irq,sirq,+");
-			push(@tmp, "CDEF:s_steal=s_sirq,steal,+");
-			push(@tmpz, "CDEF:s_steal=s_sirq,steal,+");
-			push(@tmp, "CDEF:s_guest=s_steal,guest,+");
-			push(@tmpz, "CDEF:s_guest=s_steal,guest,+");
-			if($KERN_DATA{guest} eq "Y") {
-				push(@tmp, "AREA:s_guest#448844:guest");
-				push(@tmpz, "AREA:s_guest#448844:guest");
-				push(@tmp, "GPRINT:guest:LAST:     Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:guest:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{steal} eq "Y") {
-				push(@tmp, "AREA:s_steal#44EE44:steal");
-				push(@tmpz, "AREA:s_steal#44EE44:steal");
-				push(@tmp, "GPRINT:steal:LAST:     Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:steal:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{sirq} eq "Y") {
-				push(@tmp, "AREA:s_sirq#E29136:softIRQ");
-				push(@tmpz, "AREA:s_sirq#E29136:softIRQ");
-				push(@tmp, "GPRINT:sirq:LAST:   Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:sirq:MAX:    Max\\: %4.1lf%%\\n");
-			}
-			if($KERN_DATA{irq} eq "Y") {
-				push(@tmp, "AREA:s_irq#888888:IRQ");
-				push(@tmpz, "AREA:s_irq#888888:IRQ");
-				push(@tmp, "GPRINT:irq:LAST:       Current\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:AVERAGE:    Average\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:MIN:    Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:irq:MAX:    Max\\: %4.1lf%%\\n");
-			}
-		}	
-		if($KERN_DATA{iow} eq "Y") {
-			push(@tmp, "AREA:s_iow#EE44EE:I/O wait");
-			push(@tmpz, "AREA:s_iow#EE44EE:I/O wait");
-			push(@tmp, "GPRINT:iow:LAST:  Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:iow:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{sys} eq "Y") {
-			push(@tmp, "AREA:s_sys#44EEEE:system");
-			push(@tmpz, "AREA:s_sys#44EEEE:system");
-			push(@tmp, "GPRINT:sys:LAST:    Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:sys:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{nice} eq "Y") {
-			push(@tmp, "AREA:s_nice#EEEE44:nice");
-			push(@tmpz, "AREA:s_nice#EEEE44:nice");
-			push(@tmp, "GPRINT:nice:LAST:      Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:nice:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($KERN_DATA{user} eq "Y") {
-			push(@tmp, "AREA:user#4444EE:user");
-			push(@tmpz, "AREA:user#4444EE:user");
-			push(@tmp, "GPRINT:user:LAST:      Current\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:AVERAGE:    Average\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:MIN:    Min\\: %4.1lf%%");
-			push(@tmp, "GPRINT:user:MAX:    Max\\: %4.1lf%%\\n");
-		}
-		if($os eq "Linux") {
-			push(@tmp, "LINE1:s_guest#1F881F");
-			push(@tmpz, "LINE1:s_guest#1F881F");
-			push(@tmp, "LINE1:s_steal#00EE00");
-			push(@tmpz, "LINE1:s_steal#00EE00");
-			push(@tmp, "LINE1:s_sirq#D86612");
-			push(@tmpz, "LINE1:s_sirq#D86612");
-			push(@tmp, "LINE1:s_irq#CCCCCC");
-			push(@tmpz, "LINE1:s_irq#CCCCCC");
-		}	
-		push(@tmp, "LINE1:s_iow#EE00EE");
-		push(@tmpz, "LINE1:s_iow#EE00EE");
-		push(@tmp, "LINE1:s_sys#00EEEE");
-		push(@tmpz, "LINE1:s_sys#00EEEE");
-		push(@tmp, "LINE1:s_nice#EEEE00");
-		push(@tmpz, "LINE1:s_nice#EEEE00");
-		push(@tmp, "LINE1:user#0000EE");
-		push(@tmpz, "LINE1:user#0000EE");
-	}
-	if(grep {$_ eq $os} ("FreeBSD", "OpenBSD", "NetBSD")) {
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_kern1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:user=$KERN_RRD:kern_user:AVERAGE",
-		"DEF:nice=$KERN_RRD:kern_nice:AVERAGE",
-		"DEF:sys=$KERN_RRD:kern_sys:AVERAGE",
-		"DEF:iow=$KERN_RRD:kern_iow:AVERAGE",
-		"DEF:irq=$KERN_RRD:kern_irq:AVERAGE",
-		"DEF:sirq=$KERN_RRD:kern_sirq:AVERAGE",
-		"DEF:steal=$KERN_RRD:kern_steal:AVERAGE",
-		"DEF:guest=$KERN_RRD:kern_guest:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_kern1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:user=$KERN_RRD:kern_user:AVERAGE",
-			"DEF:nice=$KERN_RRD:kern_nice:AVERAGE",
-			"DEF:sys=$KERN_RRD:kern_sys:AVERAGE",
-			"DEF:iow=$KERN_RRD:kern_iow:AVERAGE",
-			"DEF:irq=$KERN_RRD:kern_irq:AVERAGE",
-			"DEF:sirq=$KERN_RRD:kern_sirq:AVERAGE",
-			"DEF:steal=$KERN_RRD:kern_steal:AVERAGE",
-			"DEF:guest=$KERN_RRD:kern_guest:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /kern1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:cs#44AAEE:Context switches");
-	push(@tmpz, "AREA:cs#44AAEE:Context switches");
-	push(@tmp, "GPRINT:cs:LAST:     Current\\: %6.0lf\\n");
-	push(@tmp, "AREA:forks#4444EE:Forks");
-	push(@tmpz, "AREA:forks#4444EE:Forks");
-	push(@tmp, "GPRINT:forks:LAST:                Current\\: %6.0lf\\n");
-	push(@tmp, "LINE1:cs#00EEEE");
-	push(@tmp, "LINE1:forks#0000EE");
-	push(@tmpz, "LINE1:cs#00EEEE");
-	push(@tmpz, "LINE1:forks#0000EE");
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		push(@tmp, "AREA:vforks#EE4444:VForks");
-		push(@tmpz, "AREA:vforks#EE4444:VForks");
-		push(@tmp, "GPRINT:vforks:LAST:               Current\\: %6.0lf\\n");
-		push(@tmp, "LINE1:vforks#EE0000");
-		push(@tmpz, "LINE1:vforks#EE0000");
-	}
-
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_kern2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=CS & forks/s",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:cs=$KERN_RRD:kern_cs:AVERAGE",
-		"DEF:forks=$KERN_RRD:kern_forks:AVERAGE",
-		"DEF:vforks=$KERN_RRD:kern_vforks:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_kern2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=CS & forks/s",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:cs=$KERN_RRD:kern_cs:AVERAGE",
-			"DEF:forks=$KERN_RRD:kern_forks:AVERAGE",
-			"DEF:vforks=$KERN_RRD:kern_vforks:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /kern2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:inode#4444EE:inode");
-	push(@tmpz, "AREA:inode#4444EE:inode");
-	push(@tmp, "GPRINT:inode:LAST:                Current\\:  %4.1lf%%\\n");
-	if($os eq "Linux") {
-		push(@tmp, "AREA:dentry#EEEE44:dentry");
-		push(@tmpz, "AREA:dentry#EEEE44:dentry");
-		push(@tmp, "GPRINT:dentry:LAST:               Current\\:  %4.1lf%%\\n");
-	}
-	push(@tmp, "AREA:file#EE44EE:file");
-	push(@tmpz, "AREA:file#EE44EE:file");
-	push(@tmp, "GPRINT:file:LAST:                 Current\\:  %4.1lf%%\\n");
-	push(@tmp, "LINE2:inode#0000EE");
-	push(@tmpz, "LINE2:inode#0000EE");
-	if($os eq "Linux") {
-		push(@tmp, "LINE2:dentry#EEEE00");
-		push(@tmpz, "LINE2:dentry#EEEE00");
-	}	
-	push(@tmp, "LINE2:file#EE00EE");
-	push(@tmpz, "LINE2:file#EE00EE");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_kern3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Percent (%)",
-		"--width=$width",
-		"--height=$height",
-		"--upper-limit=100",
-		"--lower-limit=0",
-		"--rigid",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:dentry=$KERN_RRD:kern_dentry:AVERAGE",
-		"DEF:file=$KERN_RRD:kern_file:AVERAGE",
-		"DEF:inode=$KERN_RRD:kern_inode:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_kern3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent (%)",
-			"--width=$width",
-			"--height=$height",
-			"--upper-limit=100",
-			"--lower-limit=0",
-			"--rigid",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:dentry=$KERN_RRD:kern_dentry:AVERAGE",
-			"DEF:file=$KERN_RRD:kern_file:AVERAGE",
-			"DEF:inode=$KERN_RRD:kern_inode:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /kern3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# PROC graph
-# ----------------------------------------------------------------------------
-sub proc {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $vlabel;
-	my $ncpu;
-	my $n;
-	my $str;
-	my $err;
-
-	if($os eq "Linux") {
-		$ncpu = `grep -w processor /proc/cpuinfo | tail -1 | awk '{ print \$3 }'`;
-		chomp($ncpu);
-		$ncpu++;
-	} elsif($os eq "FreeBSD") {
-		$ncpu = `/sbin/sysctl -n hw.ncpu`;
-		chomp($ncpu);
-	}
-	$ncpu = $ncpu > $PROC_MAX ? $PROC_MAX : $ncpu;
-	return 0 unless $ncpu > 1;
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$PROC_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $PROC_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		for($n = 0; $n < $ncpu; $n++) {
-			print("       Processor " . sprintf("%3d", $n) . "                                   ");
-		}
-		print("\nTime");
-		for($n = 0; $n < $ncpu; $n++) {
-			print("   User  Nice   Sys  Idle  I/Ow   IRQ  sIRQ Steal Guest");
-		}
-		print(" \n----");
-		for($n = 0; $n < $ncpu; $n++) {
-			print("-------------------------------------------------------");
-		}
-		print(" \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			for($n2 = 0; $n2 < $ncpu; $n2++) {
-				$from = $n2 * $ncpu;
-				$to = $from + $ncpu;
-				my ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest,) = @$line[$from..$to];
-				@row = ($usr, $nic, $sys, $idle, $iow, $irq, $sirq, $steal, $guest);
-				printf(" %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% %4.1f%% ", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < $ncpu; $n++) {
-		$str = $u . $myself . $n . "." . $when . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		if($ENABLE_ZOOM eq "Y") {
-			$str = $u . $myself . $n . "z." . $when . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-		}
-	}
-
-	if($PROC_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$PROC_LIMIT");
-	} else {
-		if($PROC_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$PROC_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	$n = 0;
-	while($n < $ncpu) {
-		if($title) {
-			if($n == 0) {
-				graph_header($title, $PROC_PER_ROW);
-			}
-			print("    <tr>\n");
-		}
-		for($n2 = 0; $n2 < $PROC_PER_ROW; $n2++) {
-			last unless $n < $ncpu;
-			if($title) {
-				print("    <td bgcolor='" . $title_bg_color . "'>\n");
-			}
-			undef(@tmp);
-			undef(@tmpz);
-			if($KERN_GRAPH_MODE eq "R") {
-				$vlabel = "Percent (%)";
-				if($KERN_DATA{user} eq "Y") {
-					push(@tmp, "AREA:user#4444EE:user");
-					push(@tmpz, "AREA:user#4444EE:user");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:user:LAST:    Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{nice} eq "Y") {
-					push(@tmp, "AREA:nice#EEEE44:nice");
-					push(@tmpz, "AREA:nice#EEEE44:nice");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:nice:LAST:    Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{sys} eq "Y") {
-					push(@tmp, "AREA:sys#44EEEE:system");
-					push(@tmpz, "AREA:sys#44EEEE:system");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:sys:LAST:  Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{iow} eq "Y") {
-					push(@tmp, "AREA:iow#EE44EE:I/O wait");
-					push(@tmpz, "AREA:iow#EE44EE:I/O wait");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:iow:LAST:Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{irq} eq "Y") {
-					push(@tmp, "AREA:irq#888888:IRQ");
-					push(@tmpz, "AREA:irq#888888:IRQ");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:irq:LAST:     Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{sirq} eq "Y") {
-					push(@tmp, "AREA:sirq#E29136:softIRQ");
-					push(@tmpz, "AREA:sirq#E29136:softIRQ");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:sirq:LAST: Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{steal} eq "Y") {
-					push(@tmp, "AREA:steal#44EE44:steal");
-					push(@tmpz, "AREA:steal#44EE44:steal");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:steal:LAST:   Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{guest} eq "Y") {
-					push(@tmp, "AREA:guest#448844:guest");
-					push(@tmpz, "AREA:guest#448844:guest");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:guest:LAST:   Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				push(@tmp, "LINE1:guest#1F881F") unless $KERN_DATA{guest} ne "Y";
-				push(@tmpz, "LINE1:guest#1F881F") unless $KERN_DATA{guest} ne "Y";
-				push(@tmp, "LINE1:steal#00EE00") unless $KERN_DATA{steal} ne "Y";
-				push(@tmpz, "LINE1:steal#00EE00") unless $KERN_DATA{steal} ne "Y";
-				push(@tmp, "LINE1:sirq#D86612") unless $KERN_DATA{sirq} ne "Y";
-				push(@tmpz, "LINE1:sirq#D86612") unless $KERN_DATA{sirq} ne "Y";
-				push(@tmp, "LINE1:irq#CCCCCC") unless $KERN_DATA{irq} ne "Y";
-				push(@tmpz, "LINE1:irq#CCCCCC") unless $KERN_DATA{irq} ne "Y";
-				push(@tmp, "LINE1:iow#EE00EE") unless $KERN_DATA{iow} ne "Y";
-				push(@tmpz, "LINE1:iow#EE00EE") unless $KERN_DATA{iow} ne "Y";
-				push(@tmp, "LINE1:sys#00EEEE") unless $KERN_DATA{sys} ne "Y";
-				push(@tmpz, "LINE1:sys#00EEEE") unless $KERN_DATA{sys} ne "Y";
-				push(@tmp, "LINE1:nice#EEEE00") unless $KERN_DATA{nice} ne "Y";
-				push(@tmpz, "LINE1:nice#EEEE00") unless $KERN_DATA{nice} ne "Y";
-				push(@tmp, "LINE1:user#0000EE") unless $KERN_DATA{user} ne "Y";
-				push(@tmpz, "LINE1:user#0000EE") unless $KERN_DATA{user} ne "Y";
-			} else {
-				$vlabel = "Stacked Percent (%)";
-				push(@tmp, "CDEF:s_nice=user,nice,+");
-				push(@tmpz, "CDEF:s_nice=user,nice,+");
-				push(@tmp, "CDEF:s_sys=s_nice,sys,+");
-				push(@tmpz, "CDEF:s_sys=s_nice,sys,+");
-				push(@tmp, "CDEF:s_iow=s_sys,iow,+");
-				push(@tmpz, "CDEF:s_iow=s_sys,iow,+");
-				push(@tmp, "CDEF:s_irq=s_iow,irq,+");
-				push(@tmpz, "CDEF:s_irq=s_iow,irq,+");
-				push(@tmp, "CDEF:s_sirq=s_irq,sirq,+");
-				push(@tmpz, "CDEF:s_sirq=s_irq,sirq,+");
-				push(@tmp, "CDEF:s_steal=s_sirq,steal,+");
-				push(@tmpz, "CDEF:s_steal=s_sirq,steal,+");
-				push(@tmp, "CDEF:s_guest=s_steal,guest,+");
-				push(@tmpz, "CDEF:s_guest=s_steal,guest,+");
-				if($KERN_DATA{guest} eq "Y") {
-					push(@tmp, "AREA:s_guest#E29136:guest");
-					push(@tmpz, "AREA:s_guest#E29136:guest");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:guest:LAST:   Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:guest:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{steal} eq "Y") {
-					push(@tmp, "AREA:s_steal#888888:steal");
-					push(@tmpz, "AREA:s_steal#888888:steal");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:steal:LAST:   Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:steal:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{sirq} eq "Y") {
-					push(@tmp, "AREA:s_sirq#448844:softIRQ");
-					push(@tmpz, "AREA:s_sirq#448844:softIRQ");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:sirq:LAST: Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sirq:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{irq} eq "Y") {
-					push(@tmp, "AREA:s_irq#44EE44:IRQ");
-					push(@tmpz, "AREA:s_irq#44EE44:IRQ");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:irq:LAST:     Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:irq:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{iow} eq "Y") {
-					push(@tmp, "AREA:s_iow#EE44EE:I/O wait");
-					push(@tmpz, "AREA:s_iow#EE44EE:I/O wait");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:iow:LAST:Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:iow:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{sys} eq "Y") {
-					push(@tmp, "AREA:s_sys#44EEEE:system");
-					push(@tmpz, "AREA:s_sys#44EEEE:system");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:sys:LAST:  Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:sys:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{nice} eq "Y") {
-					push(@tmp, "AREA:s_nice#EEEE44:nice");
-					push(@tmpz, "AREA:s_nice#EEEE44:nice");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:nice:LAST:    Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:nice:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				if($KERN_DATA{user} eq "Y") {
-					push(@tmp, "AREA:user#4444EE:user");
-					push(@tmpz, "AREA:user#4444EE:user");
-					if($PROC_DATA eq "Y") {
-						push(@tmp, "GPRINT:user:LAST:    Cur\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:AVERAGE:  Avg\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:MIN:  Min\\: %4.1lf%%");
-						push(@tmp, "GPRINT:user:MAX:  Max\\: %4.1lf%%\\n");
-					}
-				}
-				push(@tmp, "LINE1:s_guest#D86612");
-				push(@tmpz, "LINE1:s_guest#D86612");
-				push(@tmp, "LINE1:s_steal#CCCCCC");
-				push(@tmpz, "LINE1:s_steal#CCCCCC");
-				push(@tmp, "LINE1:s_sirq#1F881F");
-				push(@tmpz, "LINE1:s_sirq#1F881F");
-				push(@tmp, "LINE1:s_irq#00EE00");
-				push(@tmpz, "LINE1:s_irq#00EE00");
-				push(@tmp, "LINE1:s_iow#EE00EE");
-				push(@tmpz, "LINE1:s_iow#EE00EE");
-				push(@tmp, "LINE1:s_sys#00EEEE");
-				push(@tmpz, "LINE1:s_sys#00EEEE");
-				push(@tmp, "LINE1:s_nice#EEEE00");
-				push(@tmpz, "LINE1:s_nice#EEEE00");
-				push(@tmp, "LINE1:user#0000EE");
-				push(@tmpz, "LINE1:user#0000EE");
-			}
-			($width, $height) = split('x', $GRAPH_SIZE{$PROC_SIZE});
-			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
-				"--title=$rgraphs{_proc} $n  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:user=$PROC_RRD:proc" . $n . "_user:AVERAGE",
-				"DEF:nice=$PROC_RRD:proc" . $n . "_nice:AVERAGE",
-				"DEF:sys=$PROC_RRD:proc" . $n . "_sys:AVERAGE",
-				"DEF:iow=$PROC_RRD:proc" . $n . "_iow:AVERAGE",
-				"DEF:irq=$PROC_RRD:proc" . $n . "_irq:AVERAGE",
-				"DEF:sirq=$PROC_RRD:proc" . $n . "_sirq:AVERAGE",
-				"DEF:steal=$PROC_RRD:proc" . $n . "_steal:AVERAGE",
-				"DEF:guest=$PROC_RRD:proc" . $n . "_guest:AVERAGE",
-				@tmp);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
-			if($ENABLE_ZOOM eq "Y") {
-				($width, $height) = split('x', $GRAPH_SIZE{zoom});
-				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
-					"--title=$rgraphs{_proc} $n  ($nwhen$twhen)",
-					"--start=-$nwhen$twhen",
-					"--imgformat=PNG",
-					"--vertical-label=$vlabel",
-					"--width=$width",
-					"--height=$height",
-					@riglim,
-					"--lower-limit=0",
-					@VERSION12,
-					@VERSION12_small,
-					@graph_colors,
-					"DEF:user=$PROC_RRD:proc" . $n . "_user:AVERAGE",
-					"DEF:nice=$PROC_RRD:proc" . $n . "_nice:AVERAGE",
-					"DEF:sys=$PROC_RRD:proc" . $n . "_sys:AVERAGE",
-					"DEF:iow=$PROC_RRD:proc" . $n . "_iow:AVERAGE",
-					"DEF:irq=$PROC_RRD:proc" . $n . "_irq:AVERAGE",
-					"DEF:sirq=$PROC_RRD:proc" . $n . "_sirq:AVERAGE",
-					"DEF:steal=$PROC_RRD:proc" . $n . "_steal:AVERAGE",
-					"DEF:guest=$PROC_RRD:proc" . $n . "_guest:AVERAGE",
-					@tmpz);
-				$err = RRDs::error;
-				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
-			}
-			if($title || ($silent =~ /imagetag/ && $graph =~ /proc$n/)) {
-				if($ENABLE_ZOOM eq "Y") {
-					if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-						print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$n] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-					else {
-						print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-				} else {
-					print("      <img src='" . $URL . $IMGS_DIR . $PNG[$n] . "'>\n");
-				}
-			}
-			if($title) {
-				print("    </td>\n");
-			}
-			$n++;
-		}
-		if($title) {
-			print("    </tr>\n");
-		}
-	}
-	if($title) {
-		graph_footer();
-	}
-	return 1;
-}
-
-# HPTEMP graph
-# ----------------------------------------------------------------------------
-sub hptemp {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $id;
-	my $str;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	open(IN, "monitorix.hplog");
-	my @hplog = <IN>;
-	close(IN);
-
-	if(!scalar(@hplog)) {
-		print("WARNING: 'hplog' command output is empty.");
-	}
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$HPTEMP_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $HPTEMP_RRD: $err\n") if $err;
-		my $str;
-		my $line1;
-		my $line2;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		foreach my $t (@HPTEMP_1, @HPTEMP_2, @HPTEMP_3) {
-			$id = sprintf("%2d", $t);
-			for($n = 0; $n < scalar(@hplog); $n++) {
-				$_ = $hplog[$n];
-				if(/^$id  /) {
-					$str = substr($_, 17, 8);
-					$str = sprintf("%8s", $str);
-					$line1 .= "  ";
-					$line1 .= $str;
-					$line2 .= "----------";
-				}
-			}
-		}
-		print("Time $line1 \n");
-		print("-----$line2\n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			undef($line1);
-			undef(@row);
-			for($n2 = 0; $n2 < scalar(@HPTEMP_1); $n2++) {
-				my $temp = @$line[$n2];
-				push(@row, $temp);
-				$line1 .= " %8.0f ";
-			}
-			for($n2 = 0; $n2 < scalar(@HPTEMP_2); $n2++) {
-				my $temp = @$line[8 + $n2];
-				push(@row, $temp);
-				$line1 .= " %8.0f ";
-			}
-			for($n2 = 0; $n2 < scalar(@HPTEMP_3); $n2++) {
-				my $temp = @$line[8 + 3 + $n2];
-				push(@row, $temp);
-				$line1 .= " %8.0f ";
-			}
-			print(sprintf($line1, @row));
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-
-	if(scalar(@HPTEMP_1)) {
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 8; $n++) {
-			if($HPTEMP_1[$n]) {
-				foreach $_ (@hplog) {
-					$id = sprintf("%2d", $HPTEMP_1[$n]);
-					if(/^$id  /) {
-						$str = substr($_, 17, 8);
-						$str = sprintf("%-20s", $str);
-						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						push(@tmp, "GPRINT:temp" . $n . ":LAST:Current\\: %2.0lf");
-						push(@tmp, "GPRINT:temp" . $n . ":AVERAGE:   Average\\: %2.0lf");
-						push(@tmp, "GPRINT:temp" . $n . ":MIN:   Min\\: %2.0lf");
-						push(@tmp, "GPRINT:temp" . $n . ":MAX:   Max\\: %2.0lf\\n");
-						$str =~ s/\s+$//;
-						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						last;
-					}
-				}
-			} else {
-				push(@tmp, "COMMENT: \\n");
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG1",
-			"--title=$rgraphs{_hptemp1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:temp0=$HPTEMP_RRD:hptemp1_1:AVERAGE",
-			"DEF:temp1=$HPTEMP_RRD:hptemp1_2:AVERAGE",
-			"DEF:temp2=$HPTEMP_RRD:hptemp1_3:AVERAGE",
-			"DEF:temp3=$HPTEMP_RRD:hptemp1_4:AVERAGE",
-			"DEF:temp4=$HPTEMP_RRD:hptemp1_5:AVERAGE",
-			"DEF:temp5=$HPTEMP_RRD:hptemp1_6:AVERAGE",
-			"DEF:temp6=$HPTEMP_RRD:hptemp1_7:AVERAGE",
-			"DEF:temp7=$HPTEMP_RRD:hptemp1_8:AVERAGE",
-			@tmp,
-			"COMMENT: \\n");
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG1z",
-				"--title=$rgraphs{_hptemp1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Celsius",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:temp0=$HPTEMP_RRD:hptemp1_1:AVERAGE",
-				"DEF:temp1=$HPTEMP_RRD:hptemp1_2:AVERAGE",
-				"DEF:temp2=$HPTEMP_RRD:hptemp1_3:AVERAGE",
-				"DEF:temp3=$HPTEMP_RRD:hptemp1_4:AVERAGE",
-				"DEF:temp4=$HPTEMP_RRD:hptemp1_5:AVERAGE",
-				"DEF:temp5=$HPTEMP_RRD:hptemp1_6:AVERAGE",
-				"DEF:temp6=$HPTEMP_RRD:hptemp1_7:AVERAGE",
-				"DEF:temp7=$HPTEMP_RRD:hptemp1_8:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp1/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-			}
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	if(scalar(@HPTEMP_2)) {
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 6; $n++) {
-			if($HPTEMP_2[$n]) {
-				foreach $_ (@hplog) {
-					$id = sprintf("%2d", $HPTEMP_2[$n]);
-					if(/^$id  /) {
-						$str = substr($_, 17, 8);
-						$str = sprintf("%-8s", $str);
-						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						push(@tmp, "GPRINT:temp" . $n . ":LAST:\\: %2.0lf");
-						if(!(($n + 1) % 2)) {
-							push(@tmp, "COMMENT: \\n");
-						} else {
-							push(@tmp, "COMMENT:    ");
-						}
-						$str =~ s/\s+$//;
-						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						last;
-					}
-				}
-			} else {
-				push(@tmp, "COMMENT: \\n") unless ($n + 1) % 2;
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG2",
-			"--title=$rgraphs{_hptemp2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:temp0=$HPTEMP_RRD:hptemp2_1:AVERAGE",
-			"DEF:temp1=$HPTEMP_RRD:hptemp2_2:AVERAGE",
-			"DEF:temp2=$HPTEMP_RRD:hptemp2_3:AVERAGE",
-			"DEF:temp3=$HPTEMP_RRD:hptemp2_4:AVERAGE",
-			"DEF:temp4=$HPTEMP_RRD:hptemp2_5:AVERAGE",
-			"DEF:temp5=$HPTEMP_RRD:hptemp2_6:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG2z",
-				"--title=$rgraphs{_hptemp2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Celsius",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:temp0=$HPTEMP_RRD:hptemp2_1:AVERAGE",
-				"DEF:temp1=$HPTEMP_RRD:hptemp2_2:AVERAGE",
-				"DEF:temp2=$HPTEMP_RRD:hptemp2_3:AVERAGE",
-				"DEF:temp3=$HPTEMP_RRD:hptemp2_4:AVERAGE",
-				"DEF:temp4=$HPTEMP_RRD:hptemp2_5:AVERAGE",
-				"DEF:temp5=$HPTEMP_RRD:hptemp2_6:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-			}
-		}
-	}
-
-	if(scalar(@HPTEMP_3)) {
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 6; $n++) {
-			if($HPTEMP_3[$n]) {
-				foreach $_ (@hplog) {
-					$id = sprintf("%2d", $HPTEMP_3[$n]);
-					if(/^$id  /) {
-						$str = substr($_, 17, 8);
-						$str = sprintf("%-8s", $str);
-						push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						push(@tmp, "GPRINT:temp" . $n . ":LAST:\\: %2.0lf");
-						if(!(($n + 1) % 2)) {
-							push(@tmp, "COMMENT: \\n");
-						} else {
-							push(@tmp, "COMMENT:    ");
-						}
-						$str =~ s/\s+$//;
-						push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":$str");
-						last;
-					}
-				}
-			} else {
-				push(@tmp, "COMMENT: \\n") unless ($n + 1) % 2;
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG3",
-			"--title=$rgraphs{_hptemp3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:temp0=$HPTEMP_RRD:hptemp3_1:AVERAGE",
-			"DEF:temp1=$HPTEMP_RRD:hptemp3_2:AVERAGE",
-			"DEF:temp2=$HPTEMP_RRD:hptemp3_3:AVERAGE",
-			"DEF:temp3=$HPTEMP_RRD:hptemp3_4:AVERAGE",
-			"DEF:temp4=$HPTEMP_RRD:hptemp3_5:AVERAGE",
-			"DEF:temp5=$HPTEMP_RRD:hptemp3_6:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG3z",
-				"--title=$rgraphs{_hptemp3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Celsius",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:temp0=$HPTEMP_RRD:hptemp3_1:AVERAGE",
-				"DEF:temp1=$HPTEMP_RRD:hptemp3_2:AVERAGE",
-				"DEF:temp2=$HPTEMP_RRD:hptemp3_3:AVERAGE",
-				"DEF:temp3=$HPTEMP_RRD:hptemp3_4:AVERAGE",
-				"DEF:temp4=$HPTEMP_RRD:hptemp3_5:AVERAGE",
-				"DEF:temp5=$HPTEMP_RRD:hptemp3_6:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /hptemp3/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-			}
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# LMSENS graph
-# ----------------------------------------------------------------------------
-sub lmsens {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @tmp;
-	my @tmpz;
-	my $vlabel;
-	my $n;
-	my $str;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#444444",
-		"#BB44EE",
-		"#CCCCCC",
-		"#B4B444",
-		"#D3D701",
-		"#E29136",
-		"#DDAE8C",
-		"#F29967",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG4 = $u . $myself . "4." . $when . ".png";
-	my $PNG5 = $u . $myself . "5." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-	my $PNG4z = $u . $myself . "4z." . $when . ".png";
-	my $PNG5z = $u . $myself . "5z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3",
-		"$PNG_DIR" . "$PNG4",
-		"$PNG_DIR" . "$PNG5");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z",
-			"$PNG_DIR" . "$PNG4z",
-			"$PNG_DIR" . "$PNG5z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$LMSENS_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $LMSENS_RRD: $err\n") if $err;
-		my $line1;
-		my $line2;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		for($n = 0; $n < 2; $n++) {
-			$str = "MB" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		for($n = 0; $n < 4; $n++) {
-			$str = "CPU" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		for($n = 0; $n < 9; $n++) {
-			$str = "FAN" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		for($n = 0; $n < 16; $n++) {
-			$str = "CORE" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		for($n = 0; $n < 12; $n++) {
-			$str = "VOLT" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		for($n = 0; $n < 9; $n++) {
-			$str = "GPU" . $n;
-			if($SENSORS_LIST{$str}) {
-				$line1 .= "  ";
-				$line1 .= sprintf("%15s", substr($SENSORS_LIST{$str}, 0, 15));
-				$line2 .= "-----------------";
-			}
-		}
-		print("Time $line1\n");
-		print("-----$line2\n");
-		my $l;
-		my $line;
-		my @row;
-		my $time;
-		my @mb;
-		my @cpu;
-		my @fan;
-		my @core;
-		my @volt;
-		my @gpu;
-		for($l = 0, $time = $tb; $l < ($tb * $ts); $l++) {
-			$line1 = " %2d$tc ";
-			undef(@row);
-			$line = @$data[$l];
-			(@mb[0..2-1], @cpu[0..4-1], @fan[0..10-1], @core[0..16-1], @volt[0..10-1], @gpu[0..8-1]) = @$line;
-			for($n = 0; $n < 2; $n++) {
-				$str = "MB" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $mb[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			for($n = 0; $n < 4; $n++) {
-				$str = "CPU" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $cpu[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			for($n = 0; $n < 9; $n++) {
-				$str = "FAN" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $fan[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			for($n = 0; $n < 16; $n++) {
-				$str = "CORE" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $core[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			for($n = 0; $n < 12; $n++) {
-				$str = "VOLT" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $volt[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			for($n = 0; $n < 9; $n++) {
-				$str = "GPU" . $n;
-				if($SENSORS_LIST{$str}) {
-					push(@row, $gpu[$n]);
-					$line1 .= "  ";
-					$line1 .= "%15.1f";
-				}
-			}
-			$time = $time - (1 / $ts);
-			printf("$line1 \n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		my $n2;
-		graph_header($title, 2);
-	}
-	for($n = 0; $n < 4; $n++) {
-		for($n2 = $n; $n2 < 16; $n2 += 4) {
-			$str = "CORE" . $n2;
-			if($SENSORS_LIST{$str}) {
-				$str = sprintf("Core %2d", $n2);
-				push(@tmp, "LINE2:core$n2" . $LC[$n2] . ":$str\\g");
-				push(@tmp, "GPRINT:core$n2:LAST:\\:%3.0lf      ");
-			}
-		}
-		push(@tmp, "COMMENT: \\n") unless !@tmp;
-	}
-	for($n = 0; $n < 16; $n++) {
-		$str = "CORE" . $n;
-		if($SENSORS_LIST{$str}) {
-			$str = sprintf("Core %d", $n);
-			push(@tmpz, "LINE2:core$n" . $LC[$n] . ":$str");
-		}
-	}
-	# if no COREs are defined then create a blank graph
-	if(!@tmp) {
-		push(@tmp, "GPRINT:core0:LAST:%0.0lf");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmpz, "GPRINT:core0:LAST:%0.0lf");
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td valign='bottom' bgcolor='$title_bg_color'>\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_lmsens1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Celsius",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:core0=$LMSENS_RRD:lmsens_core0:AVERAGE",
-		"DEF:core1=$LMSENS_RRD:lmsens_core1:AVERAGE",
-		"DEF:core2=$LMSENS_RRD:lmsens_core2:AVERAGE",
-		"DEF:core3=$LMSENS_RRD:lmsens_core3:AVERAGE",
-		"DEF:core4=$LMSENS_RRD:lmsens_core4:AVERAGE",
-		"DEF:core5=$LMSENS_RRD:lmsens_core5:AVERAGE",
-		"DEF:core6=$LMSENS_RRD:lmsens_core6:AVERAGE",
-		"DEF:core7=$LMSENS_RRD:lmsens_core7:AVERAGE",
-		"DEF:core8=$LMSENS_RRD:lmsens_core8:AVERAGE",
-		"DEF:core9=$LMSENS_RRD:lmsens_core9:AVERAGE",
-		"DEF:core10=$LMSENS_RRD:lmsens_core10:AVERAGE",
-		"DEF:core11=$LMSENS_RRD:lmsens_core11:AVERAGE",
-		"DEF:core12=$LMSENS_RRD:lmsens_core12:AVERAGE",
-		"DEF:core13=$LMSENS_RRD:lmsens_core13:AVERAGE",
-		"DEF:core14=$LMSENS_RRD:lmsens_core14:AVERAGE",
-		"DEF:core15=$LMSENS_RRD:lmsens_core15:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_lmsens1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:core0=$LMSENS_RRD:lmsens_core0:AVERAGE",
-			"DEF:core1=$LMSENS_RRD:lmsens_core1:AVERAGE",
-			"DEF:core2=$LMSENS_RRD:lmsens_core2:AVERAGE",
-			"DEF:core3=$LMSENS_RRD:lmsens_core3:AVERAGE",
-			"DEF:core4=$LMSENS_RRD:lmsens_core4:AVERAGE",
-			"DEF:core5=$LMSENS_RRD:lmsens_core5:AVERAGE",
-			"DEF:core6=$LMSENS_RRD:lmsens_core6:AVERAGE",
-			"DEF:core7=$LMSENS_RRD:lmsens_core7:AVERAGE",
-			"DEF:core8=$LMSENS_RRD:lmsens_core8:AVERAGE",
-			"DEF:core9=$LMSENS_RRD:lmsens_core9:AVERAGE",
-			"DEF:core10=$LMSENS_RRD:lmsens_core10:AVERAGE",
-			"DEF:core11=$LMSENS_RRD:lmsens_core11:AVERAGE",
-			"DEF:core12=$LMSENS_RRD:lmsens_core12:AVERAGE",
-			"DEF:core13=$LMSENS_RRD:lmsens_core13:AVERAGE",
-			"DEF:core14=$LMSENS_RRD:lmsens_core14:AVERAGE",
-			"DEF:core15=$LMSENS_RRD:lmsens_core15:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	$SENSORS_LIST{'VOLT0'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT0'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT0'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt0#FFA500:$str\\g", "GPRINT:volt0:LAST:\\:%6.2lf   "));
-	$SENSORS_LIST{'VOLT3'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT3'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT3'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt3#4444EE:$str\\g", "GPRINT:volt3:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT6'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT6'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT6'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt6#EE44EE:$str\\g", "GPRINT:volt6:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT9'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT9'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT9'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt9#94C36B:$str\\g", "GPRINT:volt9:LAST:\\:%6.2lf\\g")) unless !$str;
-	push(@tmp, "COMMENT: \\n");
-	$SENSORS_LIST{'VOLT1'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT1'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT1'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt1#44EEEE:$str\\g", "GPRINT:volt1:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT4'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT4'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT4'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt4#448844:$str\\g", "GPRINT:volt4:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT7'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT7'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT7'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt7#EEEE44:$str\\g", "GPRINT:volt7:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT10'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT10'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT10'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt10#3CB5B0:$str\\g", "GPRINT:volt10:LAST:\\:%6.2lf\\g")) unless !$str;
-	push(@tmp, "COMMENT: \\n");
-	$SENSORS_LIST{'VOLT2'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT2'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT2'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt2#44EE44:$str\\g", "GPRINT:volt2:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT5'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT5'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT5'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt5#EE4444:$str\\g", "GPRINT:volt5:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT8'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT8'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT8'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt8#963C74:$str\\g", "GPRINT:volt8:LAST:\\:%6.2lf   ")) unless !$str;
-	$SENSORS_LIST{'VOLT11'} =~ s/\\//;
-	$str = $SENSORS_LIST{'VOLT11'} ? sprintf("%8s", substr($SENSORS_LIST{'VOLT11'}, 0, 8)) : "";
-	push(@tmp, ("LINE2:volt11#597AB7:$str\\g", "GPRINT:volt11:LAST:\\:%6.2lf\\g")) unless !$str;
-	push(@tmp, "COMMENT: \\n");
-	$str = $SENSORS_LIST{'VOLT0'} ? substr($SENSORS_LIST{'VOLT0'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt0#FFA500:$str");
-	$str = $SENSORS_LIST{'VOLT1'} ? substr($SENSORS_LIST{'VOLT1'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt1#44EEEE:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT2'} ? substr($SENSORS_LIST{'VOLT2'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt2#44EE44:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT3'} ? substr($SENSORS_LIST{'VOLT3'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt3#4444EE:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT4'} ? substr($SENSORS_LIST{'VOLT4'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt4#448844:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT5'} ? substr($SENSORS_LIST{'VOLT5'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt5#EE4444:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT6'} ? substr($SENSORS_LIST{'VOLT6'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt6#EE44EE:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT7'} ? substr($SENSORS_LIST{'VOLT7'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt7#EEEE44:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT8'} ? substr($SENSORS_LIST{'VOLT8'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt8#963C74:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT9'} ? substr($SENSORS_LIST{'VOLT9'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt9#94C36B:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT10'} ? substr($SENSORS_LIST{'VOLT10'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt10#3CB5B0:$str")unless !$str;
-	$str = $SENSORS_LIST{'VOLT11'} ? substr($SENSORS_LIST{'VOLT11'}, 0, 8) : "";
-	push(@tmpz, "LINE2:volt11#597AB7:$str") unless !$str;
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_lmsens2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Volts",
-		"--width=$width",
-		"--height=$height",
-		@VERSION12,
-		@graph_colors,
-		"DEF:volt0=$LMSENS_RRD:lmsens_volt0:AVERAGE",
-		"DEF:volt1=$LMSENS_RRD:lmsens_volt1:AVERAGE",
-		"DEF:volt2=$LMSENS_RRD:lmsens_volt2:AVERAGE",
-		"DEF:volt3=$LMSENS_RRD:lmsens_volt3:AVERAGE",
-		"DEF:volt4=$LMSENS_RRD:lmsens_volt4:AVERAGE",
-		"DEF:volt5=$LMSENS_RRD:lmsens_volt5:AVERAGE",
-		"DEF:volt6=$LMSENS_RRD:lmsens_volt6:AVERAGE",
-		"DEF:volt7=$LMSENS_RRD:lmsens_volt7:AVERAGE",
-		"DEF:volt8=$LMSENS_RRD:lmsens_volt8:AVERAGE",
-		"DEF:volt9=$LMSENS_RRD:lmsens_volt9:AVERAGE",
-		"DEF:volt10=$LMSENS_RRD:lmsens_volt10:AVERAGE",
-		"DEF:volt11=$LMSENS_RRD:lmsens_volt11:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_lmsens2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Volts",
-			"--width=$width",
-			"--height=$height",
-			@VERSION12,
-			@graph_colors,
-			"DEF:volt0=$LMSENS_RRD:lmsens_volt0:AVERAGE",
-			"DEF:volt1=$LMSENS_RRD:lmsens_volt1:AVERAGE",
-			"DEF:volt2=$LMSENS_RRD:lmsens_volt2:AVERAGE",
-			"DEF:volt3=$LMSENS_RRD:lmsens_volt3:AVERAGE",
-			"DEF:volt4=$LMSENS_RRD:lmsens_volt4:AVERAGE",
-			"DEF:volt5=$LMSENS_RRD:lmsens_volt5:AVERAGE",
-			"DEF:volt6=$LMSENS_RRD:lmsens_volt6:AVERAGE",
-			"DEF:volt7=$LMSENS_RRD:lmsens_volt7:AVERAGE",
-			"DEF:volt8=$LMSENS_RRD:lmsens_volt8:AVERAGE",
-			"DEF:volt9=$LMSENS_RRD:lmsens_volt9:AVERAGE",
-			"DEF:volt10=$LMSENS_RRD:lmsens_volt10:AVERAGE",
-			"DEF:volt11=$LMSENS_RRD:lmsens_volt11:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, ("LINE2:mb0#FFA500:MB 0\\g", "GPRINT:mb0:LAST:\\:%3.0lf   "));
-	push(@tmp, ("LINE2:cpu0#4444EE:CPU 0\\g", "GPRINT:cpu0:LAST:\\:%3.0lf   ")) unless !$SENSORS_LIST{'CPU0'};
-	push(@tmp, ("LINE2:cpu2#EE44EE:CPU 2\\g", "GPRINT:cpu2:LAST:\\:%3.0lf\\g")) unless !$SENSORS_LIST{'CPU2'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmp, ("LINE2:mb1#44EEEE:MB 1\\g", "GPRINT:mb1:LAST:\\:%3.0lf   ")) unless !$SENSORS_LIST{'MB1'};
-	push(@tmp, ("LINE2:cpu1#EEEE44:CPU 1\\g", "GPRINT:cpu1:LAST:\\:%3.0lf   ")) unless !$SENSORS_LIST{'CPU1'};
-	push(@tmp, ("LINE2:cpu3#44EE44:CPU 3\\g", "GPRINT:cpu3:LAST:\\:%3.0lf\\g")) unless !$SENSORS_LIST{'CPU3'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmpz, "LINE2:mb0#FFA500:MB 0");
-	push(@tmpz, "LINE2:mb1#44EEEE:MB 1") unless !$SENSORS_LIST{'MB1'};
-	push(@tmpz, "LINE2:cpu0#4444EE:CPU 0") unless !$SENSORS_LIST{'CPU0'};
-	push(@tmpz, "LINE2:cpu1#EEEE44:CPU 1") unless !$SENSORS_LIST{'CPU1'};
-	push(@tmpz, "LINE2:cpu2#EE44EE:CPU 2") unless !$SENSORS_LIST{'CPU2'};
-	push(@tmpz, "LINE2:cpu3#44EE44:CPU 3") unless !$SENSORS_LIST{'CPU3'};
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_lmsens3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Celsius",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:mb0=$LMSENS_RRD:lmsens_mb0:AVERAGE",
-		"DEF:mb1=$LMSENS_RRD:lmsens_mb1:AVERAGE",
-		"DEF:cpu0=$LMSENS_RRD:lmsens_cpu0:AVERAGE",
-		"DEF:cpu1=$LMSENS_RRD:lmsens_cpu1:AVERAGE",
-		"DEF:cpu2=$LMSENS_RRD:lmsens_cpu2:AVERAGE",
-		"DEF:cpu3=$LMSENS_RRD:lmsens_cpu3:AVERAGE",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_lmsens3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:mb0=$LMSENS_RRD:lmsens_mb0:AVERAGE",
-			"DEF:mb1=$LMSENS_RRD:lmsens_mb1:AVERAGE",
-			"DEF:cpu0=$LMSENS_RRD:lmsens_cpu0:AVERAGE",
-			"DEF:cpu1=$LMSENS_RRD:lmsens_cpu1:AVERAGE",
-			"DEF:cpu2=$LMSENS_RRD:lmsens_cpu2:AVERAGE",
-			"DEF:cpu3=$LMSENS_RRD:lmsens_cpu3:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, ("LINE2:fan0#FFA500:Fan 0\\g", "GPRINT:fan0:LAST:\\:%5.0lf"));
-	push(@tmp, ("LINE2:fan3#4444EE:Fan 3\\g", "GPRINT:fan3:LAST:\\:%5.0lf")) unless !$SENSORS_LIST{'FAN3'};
-	push(@tmp, ("LINE2:fan6#EE44EE:Fan 6\\g", "GPRINT:fan6:LAST:\\:%5.0lf\\g")) unless !$SENSORS_LIST{'FAN6'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmp, ("LINE2:fan1#44EEEE:Fan 1\\g", "GPRINT:fan1:LAST:\\:%5.0lf")) unless !$SENSORS_LIST{'FAN1'};
-	push(@tmp, ("LINE2:fan4#448844:Fan 4\\g", "GPRINT:fan4:LAST:\\:%5.0lf")) unless !$SENSORS_LIST{'FAN4'};
-	push(@tmp, ("LINE2:fan7#EEEE44:Fan 7\\g", "GPRINT:fan7:LAST:\\:%5.0lf\\g")) unless !$SENSORS_LIST{'FAN7'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmp, ("LINE2:fan2#44EE44:Fan 2\\g", "GPRINT:fan2:LAST:\\:%5.0lf")) unless !$SENSORS_LIST{'FAN2'};
-	push(@tmp, ("LINE2:fan5#EE4444:Fan 5\\g", "GPRINT:fan5:LAST:\\:%5.0lf")) unless !$SENSORS_LIST{'FAN5'};
-	push(@tmp, ("LINE2:fan8#963C74:Fan 8\\g", "GPRINT:fan8:LAST:\\:%5.0lf\\g")) unless !$SENSORS_LIST{'FAN8'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmpz, "LINE2:fan0#FFA500:Fan 0");
-	push(@tmpz, "LINE2:fan1#44EEEE:Fan 1") unless !$SENSORS_LIST{'FAN1'};
-	push(@tmpz, "LINE2:fan2#44EE44:Fan 2") unless !$SENSORS_LIST{'FAN2'};
-	push(@tmpz, "LINE2:fan3#4444EE:Fan 3") unless !$SENSORS_LIST{'FAN3'};
-	push(@tmpz, "LINE2:fan4#448844:Fan 4") unless !$SENSORS_LIST{'FAN4'};
-	push(@tmpz, "LINE2:fan5#EE4444:Fan 5") unless !$SENSORS_LIST{'FAN5'};
-	push(@tmpz, "LINE2:fan6#EE44EE:Fan 6") unless !$SENSORS_LIST{'FAN6'};
-	push(@tmpz, "LINE2:fan7#EEEE44:Fan 7") unless !$SENSORS_LIST{'FAN7'};
-	push(@tmpz, "LINE2:fan8#963C74:Fan 8") unless !$SENSORS_LIST{'FAN8'};
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG4",
-		"--title=$rgraphs{_lmsens4}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=RPM",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:fan0=$LMSENS_RRD:lmsens_fan0:AVERAGE",
-		"DEF:fan1=$LMSENS_RRD:lmsens_fan1:AVERAGE",
-		"DEF:fan2=$LMSENS_RRD:lmsens_fan2:AVERAGE",
-		"DEF:fan3=$LMSENS_RRD:lmsens_fan3:AVERAGE",
-		"DEF:fan4=$LMSENS_RRD:lmsens_fan4:AVERAGE",
-		"DEF:fan5=$LMSENS_RRD:lmsens_fan5:AVERAGE",
-		"DEF:fan6=$LMSENS_RRD:lmsens_fan6:AVERAGE",
-		"DEF:fan7=$LMSENS_RRD:lmsens_fan7:AVERAGE",
-		"DEF:fan8=$LMSENS_RRD:lmsens_fan8:AVERAGE",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG4z",
-			"--title=$rgraphs{_lmsens4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=RPM",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:fan0=$LMSENS_RRD:lmsens_fan0:AVERAGE",
-			"DEF:fan1=$LMSENS_RRD:lmsens_fan1:AVERAGE",
-			"DEF:fan2=$LMSENS_RRD:lmsens_fan2:AVERAGE",
-			"DEF:fan3=$LMSENS_RRD:lmsens_fan3:AVERAGE",
-			"DEF:fan4=$LMSENS_RRD:lmsens_fan4:AVERAGE",
-			"DEF:fan5=$LMSENS_RRD:lmsens_fan5:AVERAGE",
-			"DEF:fan6=$LMSENS_RRD:lmsens_fan6:AVERAGE",
-			"DEF:fan7=$LMSENS_RRD:lmsens_fan7:AVERAGE",
-			"DEF:fan8=$LMSENS_RRD:lmsens_fan8:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens4/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG4z . "\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG4 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE2:gpu0#FFA500:GPU 0\\g");
-	push(@tmp, "GPRINT:gpu0:LAST:\\:%3.0lf  ");
-	push(@tmp, ("LINE2:gpu3#4444EE:GPU 3\\g", "GPRINT:gpu3:LAST:\\:%3.0lf  ")) unless !$SENSORS_LIST{'GPU3'};
-	push(@tmp, ("LINE2:gpu6#EE44EE:GPU 6\\g", "GPRINT:gpu6:LAST:\\:%3.0lf\\g")) unless !$SENSORS_LIST{'GPU6'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmp, ("LINE2:gpu1#44EEEE:GPU 1\\g", "GPRINT:gpu1:LAST:\\:%3.0lf  ")) unless !$SENSORS_LIST{'GPU1'};
-	push(@tmp, ("LINE2:gpu4#448844:GPU 4\\g", "GPRINT:gpu4:LAST:\\:%3.0lf  ")) unless !$SENSORS_LIST{'GPU4'};
-	push(@tmp, ("LINE2:gpu7#EEEE44:GPU 7\\g", "GPRINT:gpu7:LAST:\\:%3.0lf\\g")) unless !$SENSORS_LIST{'GPU7'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmp, ("LINE2:gpu2#44EE44:GPU 2\\g", "GPRINT:gpu2:LAST:\\:%3.0lf  ")) unless !$SENSORS_LIST{'GPU2'};
-	push(@tmp, ("LINE2:gpu5#EE4444:GPU 5\\g", "GPRINT:gpu5:LAST:\\:%3.0lf  ")) unless !$SENSORS_LIST{'GPU5'};
-	push(@tmp, ("LINE2:gpu8#963C74:GPU 8\\g", "GPRINT:gpu8:LAST:\\:%3.0lf\\g")) unless !$SENSORS_LIST{'GPU8'};
-	push(@tmp, "COMMENT: \\n");
-	push(@tmpz, "LINE2:gpu0#FFA500:GPU 0\\g");
-	push(@tmpz, "LINE2:gpu1#44EEEE:GPU 1\\g") unless !$SENSORS_LIST{'GPU1'};
-	push(@tmpz, "LINE2:gpu2#44EE44:GPU 2\\g") unless !$SENSORS_LIST{'GPU2'};
-	push(@tmpz, "LINE2:gpu3#4444EE:GPU 3\\g") unless !$SENSORS_LIST{'GPU3'};
-	push(@tmpz, "LINE2:gpu4#448844:GPU 4\\g") unless !$SENSORS_LIST{'GPU4'};
-	push(@tmpz, "LINE2:gpu5#EE4444:GPU 5\\g") unless !$SENSORS_LIST{'GPU5'};
-	push(@tmpz, "LINE2:gpu6#EE44EE:GPU 6\\g") unless !$SENSORS_LIST{'GPU6'};
-	push(@tmpz, "LINE2:gpu7#EEEE44:GPU 7\\g") unless !$SENSORS_LIST{'GPU7'};
-	push(@tmpz, "LINE2:gpu8#963C74:GPU 8\\g") unless !$SENSORS_LIST{'GPU8'};
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG5",
-		"--title=$rgraphs{_lmsens5}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Celsius",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:gpu0=$LMSENS_RRD:lmsens_gpu0:AVERAGE",
-		"DEF:gpu1=$LMSENS_RRD:lmsens_gpu1:AVERAGE",
-		"DEF:gpu2=$LMSENS_RRD:lmsens_gpu2:AVERAGE",
-		"DEF:gpu3=$LMSENS_RRD:lmsens_gpu3:AVERAGE",
-		"DEF:gpu4=$LMSENS_RRD:lmsens_gpu4:AVERAGE",
-		"DEF:gpu5=$LMSENS_RRD:lmsens_gpu5:AVERAGE",
-		"DEF:gpu6=$LMSENS_RRD:lmsens_gpu6:AVERAGE",
-		"DEF:gpu7=$LMSENS_RRD:lmsens_gpu7:AVERAGE",
-		"DEF:gpu8=$LMSENS_RRD:lmsens_gpu8:AVERAGE",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG5z",
-			"--title=$rgraphs{_lmsens5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:gpu0=$LMSENS_RRD:lmsens_gpu0:AVERAGE",
-			"DEF:gpu1=$LMSENS_RRD:lmsens_gpu1:AVERAGE",
-			"DEF:gpu2=$LMSENS_RRD:lmsens_gpu2:AVERAGE",
-			"DEF:gpu3=$LMSENS_RRD:lmsens_gpu3:AVERAGE",
-			"DEF:gpu4=$LMSENS_RRD:lmsens_gpu4:AVERAGE",
-			"DEF:gpu5=$LMSENS_RRD:lmsens_gpu5:AVERAGE",
-			"DEF:gpu6=$LMSENS_RRD:lmsens_gpu6:AVERAGE",
-			"DEF:gpu7=$LMSENS_RRD:lmsens_gpu7:AVERAGE",
-			"DEF:gpu8=$LMSENS_RRD:lmsens_gpu8:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /lmsens5/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG5z . "\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG5 . "'>\n");
-		}
-	}
-
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# NVIDIA graph
-# ----------------------------------------------------------------------------
-sub nvidia {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#963C74",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NVIDIA_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NVIDIA_RRD: $err\n") if $err;
-		my $line2;
-		my $line3;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < $NVIDIA_MAX; $n++) {
-			print("   NVIDIA card $n ");
-		}
-		print("\n");
-		for($n = 0; $n < $NVIDIA_MAX; $n++) {
-			$line2 .= "   Temp  GPU  Mem";
-			$line3 .= "-----------------";
-		}
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			undef($line1);
-			undef(@row);
-			for($n2 = 0; $n2 < $NVIDIA_MAX; $n2++) {
-				push(@row, @$line[$n2]);
-				push(@row, @$line[$n2 + 9]);
-				push(@row, @$line[$n2 + 18]);
-				$line1 .= "   %3d %3d%% %3d%%";
-			}
-			print(sprintf($line1, @row));
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	for($n = 0; $n < 9; $n++) {
-		if($n < $NVIDIA_MAX) {
-			push(@tmp, "LINE2:temp" . $n . $LC[$n] . ":Card $n");
-			push(@tmpz, "LINE2:temp" . $n . $LC[$n] . ":Card $n");
-			push(@tmp, "GPRINT:temp" . $n . ":LAST:             Current\\: %2.0lf");
-			push(@tmp, "GPRINT:temp" . $n . ":AVERAGE:   Average\\: %2.0lf");
-			push(@tmp, "GPRINT:temp" . $n . ":MIN:   Min\\: %2.0lf");
-			push(@tmp, "GPRINT:temp" . $n . ":MAX:   Max\\: %2.0lf\\n");
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_nvidia1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Celsius",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:temp0=$NVIDIA_RRD:nvidia_temp0:AVERAGE",
-		"DEF:temp1=$NVIDIA_RRD:nvidia_temp1:AVERAGE",
-		"DEF:temp2=$NVIDIA_RRD:nvidia_temp2:AVERAGE",
-		"DEF:temp3=$NVIDIA_RRD:nvidia_temp3:AVERAGE",
-		"DEF:temp4=$NVIDIA_RRD:nvidia_temp4:AVERAGE",
-		"DEF:temp5=$NVIDIA_RRD:nvidia_temp5:AVERAGE",
-		"DEF:temp6=$NVIDIA_RRD:nvidia_temp6:AVERAGE",
-		"DEF:temp7=$NVIDIA_RRD:nvidia_temp7:AVERAGE",
-		"DEF:temp8=$NVIDIA_RRD:nvidia_temp8:AVERAGE",
-		@tmp,
-		"COMMENT: \\n",
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_nvidia1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:temp0=$NVIDIA_RRD:nvidia_temp0:AVERAGE",
-			"DEF:temp1=$NVIDIA_RRD:nvidia_temp1:AVERAGE",
-			"DEF:temp2=$NVIDIA_RRD:nvidia_temp2:AVERAGE",
-			"DEF:temp3=$NVIDIA_RRD:nvidia_temp3:AVERAGE",
-			"DEF:temp4=$NVIDIA_RRD:nvidia_temp4:AVERAGE",
-			"DEF:temp5=$NVIDIA_RRD:nvidia_temp5:AVERAGE",
-			"DEF:temp6=$NVIDIA_RRD:nvidia_temp6:AVERAGE",
-			"DEF:temp7=$NVIDIA_RRD:nvidia_temp7:AVERAGE",
-			"DEF:temp8=$NVIDIA_RRD:nvidia_temp8:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE2:gpu0#FFA500:Card 0\\g");
-	push(@tmp, "GPRINT:gpu0:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu3#4444EE:Card 3\\g");
-	push(@tmp, "GPRINT:gpu3:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu6#EE44EE:Card 6\\g");
-	push(@tmp, "GPRINT:gpu6:LAST:\\:%3.0lf%%\\n");
-	push(@tmp, "LINE2:gpu1#44EEEE:Card 1\\g");
-	push(@tmp, "GPRINT:gpu1:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu4#448844:Card 4\\g");
-	push(@tmp, "GPRINT:gpu4:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu7#EEEE44:Card 7\\g");
-	push(@tmp, "GPRINT:gpu7:LAST:\\:%3.0lf%%\\n");
-	push(@tmp, "LINE2:gpu2#44EE44:Card 2\\g");
-	push(@tmp, "GPRINT:gpu2:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu5#EE4444:Card 5\\g");
-	push(@tmp, "GPRINT:gpu5:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:gpu8#963C74:Card 8\\g");
-	push(@tmp, "GPRINT:gpu8:LAST:\\:%3.0lf%%\\n");
-	push(@tmpz, "LINE2:gpu0#FFA500:Card 0");
-	push(@tmpz, "LINE2:gpu3#4444EE:Card 3");
-	push(@tmpz, "LINE2:gpu6#EE44EE:Card 6");
-	push(@tmpz, "LINE2:gpu1#44EEEE:Card 1");
-	push(@tmpz, "LINE2:gpu4#448844:Card 4");
-	push(@tmpz, "LINE2:gpu7#EEEE44:Card 7");
-	push(@tmpz, "LINE2:gpu2#44EE44:Card 2");
-	push(@tmpz, "LINE2:gpu5#EE4444:Card 5");
-	push(@tmpz, "LINE2:gpu8#963C74:Card 8");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_nvidia2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Percent",
-		"--width=$width",
-		"--height=$height",
-		"--upper-limit=100",
-		"--lower-limit=0",
-		"--rigid",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:gpu0=$NVIDIA_RRD:nvidia_gpu0:AVERAGE",
-		"DEF:gpu1=$NVIDIA_RRD:nvidia_gpu1:AVERAGE",
-		"DEF:gpu2=$NVIDIA_RRD:nvidia_gpu2:AVERAGE",
-		"DEF:gpu3=$NVIDIA_RRD:nvidia_gpu3:AVERAGE",
-		"DEF:gpu4=$NVIDIA_RRD:nvidia_gpu4:AVERAGE",
-		"DEF:gpu5=$NVIDIA_RRD:nvidia_gpu5:AVERAGE",
-		"DEF:gpu6=$NVIDIA_RRD:nvidia_gpu6:AVERAGE",
-		"DEF:gpu7=$NVIDIA_RRD:nvidia_gpu7:AVERAGE",
-		"DEF:gpu8=$NVIDIA_RRD:nvidia_gpu8:AVERAGE",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_nvidia2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent",
-			"--width=$width",
-			"--height=$height",
-			"--upper-limit=100",
-			"--lower-limit=0",
-			"--rigid",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:gpu0=$NVIDIA_RRD:nvidia_gpu0:AVERAGE",
-			"DEF:gpu1=$NVIDIA_RRD:nvidia_gpu1:AVERAGE",
-			"DEF:gpu2=$NVIDIA_RRD:nvidia_gpu2:AVERAGE",
-			"DEF:gpu3=$NVIDIA_RRD:nvidia_gpu3:AVERAGE",
-			"DEF:gpu4=$NVIDIA_RRD:nvidia_gpu4:AVERAGE",
-			"DEF:gpu5=$NVIDIA_RRD:nvidia_gpu5:AVERAGE",
-			"DEF:gpu6=$NVIDIA_RRD:nvidia_gpu6:AVERAGE",
-			"DEF:gpu7=$NVIDIA_RRD:nvidia_gpu7:AVERAGE",
-			"DEF:gpu8=$NVIDIA_RRD:nvidia_gpu8:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE2:mem0#FFA500:Card 0\\g");
-	push(@tmp, "GPRINT:mem0:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem3#4444EE:Card 3\\g");
-	push(@tmp, "GPRINT:mem3:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem6#EE44EE:Card 6\\g");
-	push(@tmp, "GPRINT:mem6:LAST:\\:%3.0lf%%\\n");
-	push(@tmp, "LINE2:mem1#44EEEE:Card 1\\g");
-	push(@tmp, "GPRINT:mem1:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem4#448844:Card 4\\g");
-	push(@tmp, "GPRINT:mem4:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem7#EEEE44:Card 7\\g");
-	push(@tmp, "GPRINT:mem7:LAST:\\:%3.0lf%%\\n");
-	push(@tmp, "LINE2:mem2#44EE44:Card 2\\g");
-	push(@tmp, "GPRINT:mem2:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem5#EE4444:Card 5\\g");
-	push(@tmp, "GPRINT:mem5:LAST:\\:%3.0lf%%");
-	push(@tmp, "LINE2:mem8#963C74:Card 8\\g");
-	push(@tmp, "GPRINT:mem8:LAST:\\:%3.0lf%%\\n");
-	push(@tmpz, "LINE2:mem0#FFA500:Card 0");
-	push(@tmpz, "LINE2:mem3#4444EE:Card 3");
-	push(@tmpz, "LINE2:mem6#EE44EE:Card 6");
-	push(@tmpz, "LINE2:mem1#44EEEE:Card 1");
-	push(@tmpz, "LINE2:mem4#448844:Card 4");
-	push(@tmpz, "LINE2:mem7#EEEE44:Card 7");
-	push(@tmpz, "LINE2:mem2#44EE44:Card 2");
-	push(@tmpz, "LINE2:mem5#EE4444:Card 5");
-	push(@tmpz, "LINE2:mem8#963C74:Card 8");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_nvidia3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Percent",
-		"--width=$width",
-		"--height=$height",
-		"--upper-limit=100",
-		"--lower-limit=0",
-		"--rigid",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:mem0=$NVIDIA_RRD:nvidia_mem0:AVERAGE",
-		"DEF:mem1=$NVIDIA_RRD:nvidia_mem1:AVERAGE",
-		"DEF:mem2=$NVIDIA_RRD:nvidia_mem2:AVERAGE",
-		"DEF:mem3=$NVIDIA_RRD:nvidia_mem3:AVERAGE",
-		"DEF:mem4=$NVIDIA_RRD:nvidia_mem4:AVERAGE",
-		"DEF:mem5=$NVIDIA_RRD:nvidia_mem5:AVERAGE",
-		"DEF:mem6=$NVIDIA_RRD:nvidia_mem6:AVERAGE",
-		"DEF:mem7=$NVIDIA_RRD:nvidia_mem7:AVERAGE",
-		"DEF:mem8=$NVIDIA_RRD:nvidia_mem8:AVERAGE",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_nvidia3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent",
-			"--width=$width",
-			"--height=$height",
-			"--upper-limit=100",
-			"--lower-limit=0",
-			"--rigid",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:mem0=$NVIDIA_RRD:nvidia_mem0:AVERAGE",
-			"DEF:mem1=$NVIDIA_RRD:nvidia_mem1:AVERAGE",
-			"DEF:mem2=$NVIDIA_RRD:nvidia_mem2:AVERAGE",
-			"DEF:mem3=$NVIDIA_RRD:nvidia_mem3:AVERAGE",
-			"DEF:mem4=$NVIDIA_RRD:nvidia_mem4:AVERAGE",
-			"DEF:mem5=$NVIDIA_RRD:nvidia_mem5:AVERAGE",
-			"DEF:mem6=$NVIDIA_RRD:nvidia_mem6:AVERAGE",
-			"DEF:mem7=$NVIDIA_RRD:nvidia_mem7:AVERAGE",
-			"DEF:mem8=$NVIDIA_RRD:nvidia_mem8:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nvidia3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# DISK graph
-# ----------------------------------------------------------------------------
-sub disk {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $n2;
-	my $e;
-	my $e2;
-	my $str;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-	);
-
-	$title = !$silent ? $title : "";
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$DISK_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $DISK_RRD: $err\n") if $err;
-		my $line1;
-		my $line2;
-		my $line3;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		foreach my $i (@DISK_LIST) {
-			for($n = 0; $n < scalar(@$i); $n++) {
-				$str = sprintf(" DISK %d               ", $n + 1);
-				$line1 .= $str;
-				$str = sprintf(" Temp Realloc Pending ", $n + 1);
-				$line2 .= $str;
-				$line3 .=      "----------------------";
-			}
-		}
-		print("     $line1\n");
-		print("Time $line2\n");
-		print("-----$line3\n");
-		my $line;
-		my @row;
-		my $time;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			$e = 0;
-			foreach my $i (@DISK_LIST) {
-				for($n2 = 0; $n2 < scalar(@$i); $n2++) {
-					$from = ($e * 8 * 3) + ($n2 * 3);
-					$to = $from + 3;
-					my ($temp, $realloc, $pending) = @$line[$from..$to];
-					@row = ($temp, $realloc, $pending);
-					printf(" %4.0f %7.0f %7.0f ", @row);
-				}
-				$e++;
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@DISK_LIST); $n++) {
-		for($n2 = 1; $n2 <= 8; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $i (@DISK_LIST) {
-		if($e) {
-			print("   <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "COMMENT: \\n");
-		for($n = 0; $n < 8; $n++) {
-			if(@$i[$n]) {
-				my ($dstr) = (split /\s+/, @$i[$n]);
-				$str = sprintf("%-20s", $dstr);
-				push(@tmp, "LINE2:hd" . $n . $LC[$n] . ":$str");
-				push(@tmpz, "LINE2:hd" . $n . $LC[$n] . ":$dstr");
-				push(@tmp, "GPRINT:hd" . $n . ":LAST:   Current\\: %2.0lf");
-				push(@tmp, "GPRINT:hd" . $n . ":AVERAGE:   Average\\: %2.0lf");
-				push(@tmp, "GPRINT:hd" . $n . ":MIN:   Min\\: %2.0lf");
-				push(@tmp, "GPRINT:hd" . $n . ":MAX:   Max\\: %2.0lf\\n");
-			}
-		}
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		if(scalar(@$i) && (scalar(@$i) % 2)) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
-			"--title=$rgraphs{_disk1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Celsius",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:hd0=$DISK_RRD:disk" . $e ."_hd0_temp:AVERAGE",
-			"DEF:hd1=$DISK_RRD:disk" . $e ."_hd1_temp:AVERAGE",
-			"DEF:hd2=$DISK_RRD:disk" . $e ."_hd2_temp:AVERAGE",
-			"DEF:hd3=$DISK_RRD:disk" . $e ."_hd3_temp:AVERAGE",
-			"DEF:hd4=$DISK_RRD:disk" . $e ."_hd4_temp:AVERAGE",
-			"DEF:hd5=$DISK_RRD:disk" . $e ."_hd5_temp:AVERAGE",
-			"DEF:hd6=$DISK_RRD:disk" . $e ."_hd6_temp:AVERAGE",
-			"DEF:hd7=$DISK_RRD:disk" . $e ."_hd7_temp:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
-				"--title=$rgraphs{_disk1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Celsius",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:hd0=$DISK_RRD:disk" . $e ."_hd0_temp:AVERAGE",
-				"DEF:hd1=$DISK_RRD:disk" . $e ."_hd1_temp:AVERAGE",
-				"DEF:hd2=$DISK_RRD:disk" . $e ."_hd2_temp:AVERAGE",
-				"DEF:hd3=$DISK_RRD:disk" . $e ."_hd3_temp:AVERAGE",
-				"DEF:hd4=$DISK_RRD:disk" . $e ."_hd4_temp:AVERAGE",
-				"DEF:hd5=$DISK_RRD:disk" . $e ."_hd5_temp:AVERAGE",
-				"DEF:hd6=$DISK_RRD:disk" . $e ."_hd6_temp:AVERAGE",
-				"DEF:hd7=$DISK_RRD:disk" . $e ."_hd7_temp:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 8; $n += 2) {
-			if(@$i[$n]) {
-				$str = sprintf("%-17s", substr(@$i[$n], 0, 17));
-				push(@tmp, "LINE2:rsc" . $n . $LC[$n] . ":$str");
-				push(@tmpz, "LINE2:rsc" . $n . $LC[$n] . ":@$i[$n]\\g");
-			}
-			if(@$i[$n + 1]) {
-				$str = sprintf("%-17s", substr(@$i[$n + 1], 0, 17));
-				push(@tmp, "LINE2:rsc" . ($n + 1) . $LC[$n + 1] . ":$str\\n");
-				push(@tmpz, "LINE2:rsc" . ($n + 1) . $LC[$n + 1] . ":@$i[$n + 1]\\g");
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
-			"--title=$rgraphs{_disk2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Sectors",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:rsc0=$DISK_RRD:disk" . $e . "_hd0_smart1:AVERAGE",
-			"DEF:rsc1=$DISK_RRD:disk" . $e . "_hd1_smart1:AVERAGE",
-			"DEF:rsc2=$DISK_RRD:disk" . $e . "_hd2_smart1:AVERAGE",
-			"DEF:rsc3=$DISK_RRD:disk" . $e . "_hd3_smart1:AVERAGE",
-			"DEF:rsc4=$DISK_RRD:disk" . $e . "_hd4_smart1:AVERAGE",
-			"DEF:rsc5=$DISK_RRD:disk" . $e . "_hd5_smart1:AVERAGE",
-			"DEF:rsc6=$DISK_RRD:disk" . $e . "_hd6_smart1:AVERAGE",
-			"DEF:rsc7=$DISK_RRD:disk" . $e . "_hd7_smart1:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
-				"--title=$rgraphs{_disk2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Sectors",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:rsc0=$DISK_RRD:disk" . $e . "_hd0_smart1:AVERAGE",
-				"DEF:rsc1=$DISK_RRD:disk" . $e . "_hd1_smart1:AVERAGE",
-				"DEF:rsc2=$DISK_RRD:disk" . $e . "_hd2_smart1:AVERAGE",
-				"DEF:rsc3=$DISK_RRD:disk" . $e . "_hd3_smart1:AVERAGE",
-				"DEF:rsc4=$DISK_RRD:disk" . $e . "_hd4_smart1:AVERAGE",
-				"DEF:rsc5=$DISK_RRD:disk" . $e . "_hd5_smart1:AVERAGE",
-				"DEF:rsc6=$DISK_RRD:disk" . $e . "_hd6_smart1:AVERAGE",
-				"DEF:rsc7=$DISK_RRD:disk" . $e . "_hd7_smart1:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "'>\n");
-			}
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 8; $n += 2) {
-			if(@$i[$n]) {
-				$str = sprintf("%-17s", substr(@$i[$n], 0, 17));
-				push(@tmp, "LINE2:cps" . $n . $LC[$n] . ":$str");
-				push(@tmpz, "LINE2:cps" . $n . $LC[$n] . ":@$i[$n]\\g");
-			}
-			if(@$i[$n + 1]) {
-				$str = sprintf("%-17s", substr(@$i[$n + 1], 0, 17));
-				push(@tmp, "LINE2:cps" . ($n + 1) . $LC[$n + 1] . ":$str\\n");
-				push(@tmpz, "LINE2:cps" . ($n + 1) . $LC[$n + 1] . ":@$i[$n + 1]\\g");
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
-			"--title=$rgraphs{_disk3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Sectors",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:cps0=$DISK_RRD:disk" . $e . "_hd0_smart2:AVERAGE",
-			"DEF:cps1=$DISK_RRD:disk" . $e . "_hd1_smart2:AVERAGE",
-			"DEF:cps2=$DISK_RRD:disk" . $e . "_hd2_smart2:AVERAGE",
-			"DEF:cps3=$DISK_RRD:disk" . $e . "_hd3_smart2:AVERAGE",
-			"DEF:cps4=$DISK_RRD:disk" . $e . "_hd4_smart2:AVERAGE",
-			"DEF:cps5=$DISK_RRD:disk" . $e . "_hd5_smart2:AVERAGE",
-			"DEF:cps6=$DISK_RRD:disk" . $e . "_hd6_smart2:AVERAGE",
-			"DEF:cps7=$DISK_RRD:disk" . $e . "_hd7_smart2:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
-				"--title=$rgraphs{_disk3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Sectors",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:cps0=$DISK_RRD:disk" . $e . "_hd0_smart2:AVERAGE",
-				"DEF:cps1=$DISK_RRD:disk" . $e . "_hd1_smart2:AVERAGE",
-				"DEF:cps2=$DISK_RRD:disk" . $e . "_hd2_smart2:AVERAGE",
-				"DEF:cps3=$DISK_RRD:disk" . $e . "_hd3_smart2:AVERAGE",
-				"DEF:cps4=$DISK_RRD:disk" . $e . "_hd4_smart2:AVERAGE",
-				"DEF:cps5=$DISK_RRD:disk" . $e . "_hd5_smart2:AVERAGE",
-				"DEF:cps6=$DISK_RRD:disk" . $e . "_hd6_smart2:AVERAGE",
-				"DEF:cps7=$DISK_RRD:disk" . $e . "_hd7_smart2:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /disk$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# FS graph
-# ----------------------------------------------------------------------------
-sub fs {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my $graph_title;
-	my $vlabel;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my @riglim;
-	my $n;
-	my $n2;
-	my $e;
-	my $e2;
-	my $str;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#5F04B4",
-		"#EE44EE",
-		"#EEEE44",
-	);
-
-	$title = !$silent ? $title : "";
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$FS_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $FS_RRD: $err\n") if $err;
-		my $line1;
-		my $line2;
-		my $line3;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		foreach my $i (@FS_LIST) {
-			for($n = 0; $n < scalar(@$i); $n++) {
-				$str = sprintf("%23s", @$i[$n]);
-				$line1 .= $str;
-				$str = sprintf("   Use     I/O    Time ");
-				$line2 .= $str;
-				$line3 .=      "-----------------------";
-			}
-		}
-		print("    $line1\n");
-		print("Time $line2\n");
-		print("-----$line3\n");
-		my $line;
-		my @row;
-		my $time;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			my ($root, $swap) = @$line;
-			printf(" %2d$tc ", $time);
-			$e = 0;
-			foreach my $i (@FS_LIST) {
-				for($n2 = 0; $n2 < scalar(@$i); $n2++) {
-					$from = ($e * 8 * 3) + ($n2 * 3);
-					$to = $from + 3;
-					my ($use, $ioa, $tim) = @$line[$from..$to];
-					@row = ($use, $ioa, $tim);
-					printf(" %4.1f%% %7.1f %7.1f ", @row);
-				}
-				$e++;
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@FS_LIST); $n++) {
-		for($n2 = 1; $n2 <= 8; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $i (@FS_LIST) {
-		if($e) {
-			print("   <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "COMMENT: \\n");
-		for($n = 0; $n < 8; $n++) {
-			if(@$i[$n]) {
-				my $color;
-
-				$str = $FS_DESC{@$i[$n]};
-				$str = @$i[$n] unless $str;
-				if($str eq "/") {
-					$color = "#EE4444";
-				} elsif($str eq "swap") {
-					$color = "#CCCCCC";
-				} elsif($str eq "/boot") {
-					$color = "#666666";
-				} else {
-					$color = $LC[$n];
-				}
-				push(@tmpz, "LINE2:fs" . $n . $color . ":$str");
-				$str = sprintf("%-23s", $str);
-				push(@tmp, "LINE2:fs" . $n . $color . ":$str");
-				push(@tmp, "GPRINT:fs" . $n . ":LAST:Cur\\: %4.1lf%%");
-				push(@tmp, "GPRINT:fs" . $n . ":AVERAGE:   Avg\\: %4.1lf%%");
-				push(@tmp, "GPRINT:fs" . $n . ":MIN:   Min\\: %4.1lf%%");
-				push(@tmp, "GPRINT:fs" . $n . ":MAX:   Max\\: %4.1lf%%\\n");
-			}
-		}
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		if(scalar(@$i) && (scalar(@$i) % 2)) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@line, "COMMENT: \\n");
-			push(@line, "COMMENT: \\n");
-			push(@line, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
-			"--title=$rgraphs{_fs1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent (%)",
-			"--width=$width",
-			"--height=$height",
-			"--upper-limit=100",
-			"--lower-limit=0",
-			"--rigid",
-			@VERSION12,
-			@graph_colors,
-			"DEF:fs0=$FS_RRD:fs" . $e . "_use0:AVERAGE",
-			"DEF:fs1=$FS_RRD:fs" . $e . "_use1:AVERAGE",
-			"DEF:fs2=$FS_RRD:fs" . $e . "_use2:AVERAGE",
-			"DEF:fs3=$FS_RRD:fs" . $e . "_use3:AVERAGE",
-			"DEF:fs4=$FS_RRD:fs" . $e . "_use4:AVERAGE",
-			"DEF:fs5=$FS_RRD:fs" . $e . "_use5:AVERAGE",
-			"DEF:fs6=$FS_RRD:fs" . $e . "_use6:AVERAGE",
-			"DEF:fs7=$FS_RRD:fs" . $e . "_use7:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
-				"--title=$rgraphs{_fs1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Percent (%)",
-				"--width=$width",
-				"--height=$height",
-				"--upper-limit=100",
-				"--lower-limit=0",
-				"--rigid",
-				@VERSION12,
-				@graph_colors,
-				"DEF:fs0=$FS_RRD:fs" . $e . "_use0:AVERAGE",
-				"DEF:fs1=$FS_RRD:fs" . $e . "_use1:AVERAGE",
-				"DEF:fs2=$FS_RRD:fs" . $e . "_use2:AVERAGE",
-				"DEF:fs3=$FS_RRD:fs" . $e . "_use3:AVERAGE",
-				"DEF:fs4=$FS_RRD:fs" . $e . "_use4:AVERAGE",
-				"DEF:fs5=$FS_RRD:fs" . $e . "_use5:AVERAGE",
-				"DEF:fs6=$FS_RRD:fs" . $e . "_use6:AVERAGE",
-				"DEF:fs7=$FS_RRD:fs" . $e . "_use7:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@riglim);
-		if($FS2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$FS2_LIMIT");
-		} else {
-			if($FS2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$FS2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		for($n = 0; $n < 8; $n += 2) {
-			my $color;
-			if(@$i[$n]) {
-				$str = $FS_DESC{@$i[$n]};
-				$str = @$i[$n] unless $str;
-				if($str eq "/") {
-					$color = "#EE4444";
-				} elsif($str eq "swap") {
-					$color = "#CCCCCC";
-				} elsif($str eq "/boot") {
-					$color = "#666666";
-				} else {
-					$color = $LC[$n];
-				}
-				push(@tmpz, "LINE2:ioa" . $n . $color . ":$str\\g");
-				$str = sprintf("%-17s", substr($str, 0, 17));
-				push(@tmp, "LINE2:ioa" . $n . $color . ":$str");
-			}
-			if(@$i[$n + 1]) {
-				$str = $FS_DESC{@$i[$n + 1]};
-				$str = @$i[$n + 1] unless $str;
-				if($str eq "/") {
-					$color = "#EE4444";
-				} elsif($str eq "swap") {
-					$color = "#CCCCCC";
-				} elsif($str eq "/boot") {
-					$color = "#666666";
-				} else {
-					$color = $LC[$n + 1];
-				}
-				push(@tmpz, "LINE2:ioa" . ($n + 1) . $color . ":$str\\g");
-				$str = sprintf("%-17s", substr($str, 0, 17));
-				push(@tmp, "LINE2:ioa" . ($n + 1) . $color . ":$str\\n");
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
-			"--title=$rgraphs{_fs2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Reads+Writes/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ioa0=$FS_RRD:fs" . $e . "_ioa0:AVERAGE",
-			"DEF:ioa1=$FS_RRD:fs" . $e . "_ioa1:AVERAGE",
-			"DEF:ioa2=$FS_RRD:fs" . $e . "_ioa2:AVERAGE",
-			"DEF:ioa3=$FS_RRD:fs" . $e . "_ioa3:AVERAGE",
-			"DEF:ioa4=$FS_RRD:fs" . $e . "_ioa4:AVERAGE",
-			"DEF:ioa5=$FS_RRD:fs" . $e . "_ioa5:AVERAGE",
-			"DEF:ioa6=$FS_RRD:fs" . $e . "_ioa6:AVERAGE",
-			"DEF:ioa7=$FS_RRD:fs" . $e . "_ioa7:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
-				"--title=$rgraphs{_fs2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Reads+Writes/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:ioa0=$FS_RRD:fs" . $e . "_ioa0:AVERAGE",
-				"DEF:ioa1=$FS_RRD:fs" . $e . "_ioa1:AVERAGE",
-				"DEF:ioa2=$FS_RRD:fs" . $e . "_ioa2:AVERAGE",
-				"DEF:ioa3=$FS_RRD:fs" . $e . "_ioa3:AVERAGE",
-				"DEF:ioa4=$FS_RRD:fs" . $e . "_ioa4:AVERAGE",
-				"DEF:ioa5=$FS_RRD:fs" . $e . "_ioa5:AVERAGE",
-				"DEF:ioa6=$FS_RRD:fs" . $e . "_ioa6:AVERAGE",
-				"DEF:ioa7=$FS_RRD:fs" . $e . "_ioa7:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($FS3_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$FS3_LIMIT");
-		} else {
-			if($FS3_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$FS3_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		if($os eq "Linux") {
-			if($kernel_branch > 2.4) {
-	   			$graph_title = "$rgraphs{_fs3}  ($nwhen$twhen)";
-				$vlabel = "Milliseconds";
-			} else {
-	   			$graph_title = "Disk sectors activity  ($nwhen$twhen)";
-				$vlabel = "Sectors/s";
-			}
-			for($n = 0; $n < 8; $n += 2) {
-				my $color;
-				if(@$i[$n]) {
-					$str = $FS_DESC{@$i[$n]};
-					$str = @$i[$n] unless $str;
-					if($str eq "/") {
-						$color = "#EE4444";
-					} elsif($str eq "swap") {
-						$color = "#CCCCCC";
-					} elsif($str eq "/boot") {
-						$color = "#666666";
-					} else {
-						$color = $LC[$n];
-					}
-					push(@tmpz, "LINE2:tim" . $n . $color . ":$str\\g");
-					$str = sprintf("%-17s", substr($str, 0, 17));
-					push(@tmp, "LINE2:tim" . $n . $color . ":$str");
-				}
-				if(@$i[$n + 1]) {
-					$str = $FS_DESC{@$i[$n + 1]};
-					$str = @$i[$n + 1] unless $str;
-					if($str eq "/") {
-						$color = "#EE4444";
-					} elsif($str eq "swap") {
-						$color = "#CCCCCC";
-					} elsif($str eq "/boot") {
-						$color = "#666666";
-					} else {
-						$color = $LC[$n + 1];
-					}
-					push(@tmpz, "LINE2:tim" . ($n + 1) . $color . ":$str\\g");
-					$str = sprintf("%-17s", substr($str, 0, 17));
-					push(@tmp, "LINE2:tim" . ($n + 1) . $color . ":$str\\n");
-				}
-			}
-		} elsif(grep {$_ eq $os} ("FreeBSD", "OpenBSD", "NetBSD")) {
-	   		$graph_title = "Disk data activity  ($nwhen$twhen)";
-			$vlabel = "KB/s";
-			for($n = 0; $n < 8; $n += 2) {
-				my $color;
-				if(@$i[$n]) {
-					$str = sprintf("%-17s", substr(@$i[$n], 0, 17));
-					if($str eq "/") {
-						$color = "#EE4444";
-					} elsif($str eq "swap") {
-						$color = "#CCCCCC";
-					} elsif($str eq "/boot") {
-						$color = "#666666";
-					} else {
-						$color = $LC[$n];
-					}
-					push(@tmp, "LINE2:tim" . $n . $color . ":$str");
-					push(@tmpz, "LINE2:tim" . $n . $color . ":@$i[$n]\\g");
-				}
-				if(@$i[$n + 1]) {
-					$str = sprintf("%-17s", substr(@$i[$n + 1], 0, 17));
-					if($str eq "/") {
-						$color = "#EE4444";
-					} elsif($str eq "swap") {
-						$color = "#CCCCCC";
-					} elsif($str eq "/boot") {
-						$color = "#666666";
-					} else {
-						$color = $LC[$n + 1];
-					}
-					push(@tmp, "LINE2:tim" . ($n + 1) . $color . ":$str\\n");
-					push(@tmpz, "LINE2:tim" . ($n + 1) . $color . ":@$i[$n + 1]\\g");
-				}
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
-			"--title=$graph_title",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:tim0=$FS_RRD:fs" . $e . "_tim0:AVERAGE",
-			"DEF:tim1=$FS_RRD:fs" . $e . "_tim1:AVERAGE",
-			"DEF:tim2=$FS_RRD:fs" . $e . "_tim2:AVERAGE",
-			"DEF:tim3=$FS_RRD:fs" . $e . "_tim3:AVERAGE",
-			"DEF:tim4=$FS_RRD:fs" . $e . "_tim4:AVERAGE",
-			"DEF:tim5=$FS_RRD:fs" . $e . "_tim5:AVERAGE",
-			"DEF:tim6=$FS_RRD:fs" . $e . "_tim6:AVERAGE",
-			"DEF:tim7=$FS_RRD:fs" . $e . "_tim7:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
-				"--title=$graph_title",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:tim0=$FS_RRD:fs" . $e . "_tim0:AVERAGE",
-				"DEF:tim1=$FS_RRD:fs" . $e . "_tim1:AVERAGE",
-				"DEF:tim2=$FS_RRD:fs" . $e . "_tim2:AVERAGE",
-				"DEF:tim3=$FS_RRD:fs" . $e . "_tim3:AVERAGE",
-				"DEF:tim4=$FS_RRD:fs" . $e . "_tim4:AVERAGE",
-				"DEF:tim5=$FS_RRD:fs" . $e . "_tim5:AVERAGE",
-				"DEF:tim6=$FS_RRD:fs" . $e . "_tim6:AVERAGE",
-				"DEF:tim7=$FS_RRD:fs" . $e . "_tim7:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /fs$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# NET graph
-# ----------------------------------------------------------------------------
-sub net {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my $PNG1;
-	my $PNG2;
-	my $PNG3;
-	my $PNG1z;
-	my $PNG2z;
-	my $PNG3z;
-	my $netname;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my $n;
-	my $str;
-	my $err;
-
-	$title = !$silent ? $title : "";
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NET_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NET_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("       ");
-		for($n = 0; $n < scalar(@NET_LIST); $n++) {
-			print("$NET_LIST[$n] ($NET_DESC[$n])                          ");
-		}
-		print("\nTime");
-		for($n = 0; $n < scalar(@NET_LIST); $n++) {
-			print("   K$T/s_I  K$T/s_O  Pk/s_I  Pk/s_O  Er/s_I  Er/s_O");
-		}
-		print(" \n----");
-		for($n = 0; $n < scalar(@NET_LIST); $n++) {
-			print("-------------------------------------------------");
-		}
-		print " \n";
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < scalar(@NET_LIST); $n2++) {
-				$from = $n2 * 6;
-				$to = $from + 6;
-				my ($ki, $ko, $pi, $po, $ei, $eo) = @$line[$from..$to];
-				$ki /= 1024;
-				$ko /= 1024;
-				$pi /= 1024;
-				$po /= 1024;
-				$ei /= 1024;
-				$eo /= 1024;
-				if($NETSTATS_IN_BPS eq "Y") {
-					$ki *= 8;
-					$ko *= 8;
-				}
-				@row = ($ki, $ko, $pi, $po, $ei, $eo);
-				printf("   %6d  %6d  %6d  %6d  %6d  %6d", @row);
-			}
-			print(" \n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@NET_LIST); $n++) {
-		$PNG1 = $u . $myself . $n . "1." . $when . ".png";
-		$PNG2 = $u . $myself . $n . "2." . $when . ".png";
-		$PNG3 = $u . $myself . $n . "3." . $when . ".png";
-		unlink("$PNG_DIR" . $PNG1);
-		unlink("$PNG_DIR" . $PNG2);
-		unlink("$PNG_DIR" . $PNG3);
-		if($ENABLE_ZOOM eq "Y") {
-			$PNG1z = $u . $myself . $n . "1z." . $when . ".png";
-			$PNG2z = $u . $myself . $n . "2z." . $when . ".png";
-			$PNG3z = $u . $myself . $n . "3z." . $when . ".png";
-			unlink("$PNG_DIR" . $PNG1z);
-			unlink("$PNG_DIR" . $PNG2z);
-			unlink("$PNG_DIR" . $PNG3z);
-		}
-
-		if($title) {
-			if($n) {
-			print("    <br>\n");
-			}
-			graph_header($NET_LIST[$n] . " " . $title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-
-		undef(@riglim);
-		if($NET_RIGID[$n] eq 1) {
-			push(@riglim, "--upper-limit=$NET_LIMIT[$n]");
-		} else {
-			if($NET_RIGID[$n] eq 2) {
-				push(@riglim, "--upper-limit=$NET_LIMIT[$n]");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		undef(@CDEF);
-		push(@tmp, "AREA:B_in#44EE44:K$T/s Input");
-		push(@tmp, "GPRINT:K_in:LAST:     Current\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:AVERAGE: Average\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:MIN:    Min\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:MAX:    Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:B_out#4444EE:K$T/s Output");
-		push(@tmp, "GPRINT:K_out:LAST:    Current\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:AVERAGE: Average\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:MIN:    Min\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:MAX:    Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:B_out#4444EE:");
-		push(@tmp, "AREA:B_in#44EE44:");
-		push(@tmp, "LINE1:B_out#0000EE");
-		push(@tmp, "LINE1:B_in#00EE00");
-		push(@tmpz, "AREA:B_in#44EE44:Input");
-		push(@tmpz, "AREA:B_out#4444EE:Output");
-		push(@tmpz, "AREA:B_out#4444EE:");
-		push(@tmpz, "AREA:B_in#44EE44:");
-		push(@tmpz, "LINE1:B_out#0000EE");
-		push(@tmpz, "LINE1:B_in#00EE00");
-		if($NETSTATS_IN_BPS eq "Y") {
-			push(@CDEF, "CDEF:B_in=in,8,*");
-			push(@CDEF, "CDEF:B_out=out,8,*");
-		} else {
-			push(@CDEF, "CDEF:B_in=in");
-			push(@CDEF, "CDEF:B_out=out");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG1",
-			"--title=$NET_LIST[$n] $NET_DESC[$n] $rgraphs{_net1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:in=$NET_RRD:net" . $n . "_bytes_in:AVERAGE",
-			"DEF:out=$NET_RRD:net" . $n . "_bytes_out:AVERAGE",
-			@CDEF,
-			"CDEF:K_in=B_in,1024,/",
-			"CDEF:K_out=B_out,1024,/",
-			"COMMENT: \\n",
-			@tmp,
-			"COMMENT: \\n",
-			"COMMENT: \\n",
-			);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG1z",
-				"--title=$NET_LIST[$n] $NET_DESC[$n] $rgraphs{_net1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:in=$NET_RRD:net" . $n . "_bytes_in:AVERAGE",
-				"DEF:out=$NET_RRD:net" . $n . "_bytes_out:AVERAGE",
-				@CDEF,
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-		}
-		$netname="net" . $n . "1";
-		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:p_in#44EE44:Input");
-		push(@tmp, "AREA:p_out#4444EE:Output");
-		push(@tmp, "AREA:p_out#4444EE:");
-		push(@tmp, "AREA:p_in#44EE44:");
-		push(@tmp, "LINE1:p_out#0000EE");
-		push(@tmp, "LINE1:p_in#00EE00");
-		push(@tmpz, "AREA:p_in#44EE44:Input");
-		push(@tmpz, "AREA:p_out#4444EE:Output");
-		push(@tmpz, "AREA:p_out#4444EE:");
-		push(@tmpz, "AREA:p_in#44EE44:");
-		push(@tmpz, "LINE1:p_out#0000EE");
-		push(@tmpz, "LINE1:p_in#00EE00");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG2",
-			"--title=$NET_LIST[$n] $rgraphs{_net2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Packets/s",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:p_in=$NET_RRD:net" . $n . "_packs_in:AVERAGE",
-			"DEF:p_out=$NET_RRD:net" . $n . "_packs_out:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG2z",
-				"--title=$NET_LIST[$n] $rgraphs{_net2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Packets/s",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:p_in=$NET_RRD:net" . $n . "_packs_in:AVERAGE",
-				"DEF:p_out=$NET_RRD:net" . $n . "_packs_out:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-		}
-		$netname="net" . $n . "2";
-		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-			}
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:e_in#44EE44:Input");
-		push(@tmp, "AREA:e_out#4444EE:Output");
-		push(@tmp, "AREA:e_out#4444EE:");
-		push(@tmp, "AREA:e_in#44EE44:");
-		push(@tmp, "LINE1:e_out#0000EE");
-		push(@tmp, "LINE1:e_in#00EE00");
-		push(@tmpz, "AREA:e_in#44EE44:Input");
-		push(@tmpz, "AREA:e_out#4444EE:Output");
-		push(@tmpz, "AREA:e_out#4444EE:");
-		push(@tmpz, "AREA:e_in#44EE44:");
-		push(@tmpz, "LINE1:e_out#0000EE");
-		push(@tmpz, "LINE1:e_in#00EE00");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG3",
-			"--title=$NET_LIST[$n] $rgraphs{_net3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Errors/s",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:e_in=$NET_RRD:net" . $n . "_error_in:AVERAGE",
-			"DEF:e_out=$NET_RRD:net" . $n . "_error_out:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG3z",
-				"--title=$NET_LIST[$n] $rgraphs{_net3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Errors/s",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:e_in=$NET_RRD:net" . $n . "_error_in:AVERAGE",
-				"DEF:e_out=$NET_RRD:net" . $n . "_error_out:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-		}
-		$netname="net" . $n . "3";
-		if($title || ($silent =~ /imagetag/ && $graph =~ /$netname/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-	}
-	return 1;
-}
-
-# SERV graph
-# ----------------------------------------------------------------------------
-sub serv {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my $vlabel;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $str;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$SERV_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $SERV_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		if($SERV_MODE eq "I") {
-			print "Values expressed as incremental or cumulative hits.\n";
-		}
-		print("Time    SSH     FTP  Telnet   Samba     Fax    CUPS     F2B    IMAP    POP3    SMTP    Spam   Virus\n");
-		print("--------------------------------------------------------------------------------------------------- \n");
-		my $line;
-		my @row;
-		my $time;
-		my $from = 0;
-		my $to;
-		if($SERV_MODE eq "L") {
-			$from = 15;
-		}
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			$to = $from + 10;
-			my ($ssh, $ftp, $telnet, $imap, $smb, $fax, $cups, $pop3, $smtp, $spam, $virus, $f2b) = @$line[$from..$to];
-			@row = ($ssh, $ftp, $telnet, $imap, $smb, $fax, $cups, $f2b, $pop3, $smtp, $spam, $virus);
-			if($SERV_MODE eq "I") {
-				printf(" %2d$tc %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d  %6d\n", $time, @row);
-			} elsif($SERV_MODE eq "L") {
-				printf(" %2d$tc %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f\n", $time, @row);
-			}
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($SERV_MODE eq "L") {
-		$vlabel = "Accesses/s";
-		push(@tmp, "AREA:l_ssh#4444EE:SSH");
-		push(@tmp, "GPRINT:l_ssh:LAST:        Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ssh:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ssh:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ssh:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_ftp#44EE44:FTP");
-		push(@tmp, "GPRINT:l_ftp:LAST:        Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ftp:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ftp:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_ftp:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_telnet#EE44EE:Telnet");
-		push(@tmp, "GPRINT:l_telnet:LAST:     Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_telnet:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_telnet:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_telnet:MAX:   Max\\: %3.2lf\\n");
-#		push(@tmp, "AREA:l_imap#44EEEE:IMAP");
-#		push(@tmp, "GPRINT:l_imap:LAST:       Current\\: %3.2lf");
-#		push(@tmp, "GPRINT:l_imap:AVERAGE:   Average\\: %3.2lf");
-#		push(@tmp, "GPRINT:l_imap:MIN:   Min\\: %3.2lf");
-#		push(@tmp, "GPRINT:l_imap:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_smb#EEEE44:Samba");
-		push(@tmp, "GPRINT:l_smb:LAST:      Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_smb:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_smb:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_smb:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_fax#FFA500:Fax");
-		push(@tmp, "GPRINT:l_fax:LAST:        Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_fax:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_fax:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_fax:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_cups#444444:CUPS");
-		push(@tmp, "GPRINT:l_cups:LAST:       Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_cups:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_cups:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_cups:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "AREA:l_f2b#EE4444:Fail2ban");
-		push(@tmp, "GPRINT:l_f2b:LAST:   Current\\: %3.2lf");
-		push(@tmp, "GPRINT:l_f2b:AVERAGE:   Average\\: %3.2lf");
-		push(@tmp, "GPRINT:l_f2b:MIN:   Min\\: %3.2lf");
-		push(@tmp, "GPRINT:l_f2b:MAX:   Max\\: %3.2lf\\n");
-		push(@tmp, "LINE2:l_ssh#4444EE");
-		push(@tmp, "LINE2:l_ftp#44EE44");
-		push(@tmp, "LINE2:l_telnet#EE44EE");
-#		push(@tmp, "LINE2:l_imap#44EEEE");
-		push(@tmp, "LINE2:l_smb#EEEE44");
-		push(@tmp, "LINE2:l_fax#FFA500");
-		push(@tmp, "LINE2:l_cups#444444");
-		push(@tmp, "LINE2:l_f2b#EE4444");
-		push(@tmp, "COMMENT: \\n");
-
-		push(@tmpz, "AREA:l_ssh#4444EE:SSH");
-		push(@tmpz, "AREA:l_ftp#44EE44:FTP");
-		push(@tmpz, "AREA:l_telnet#EE44EE:Telnet");
-#		push(@tmpz, "AREA:l_imap#44EEEE:IMAP");
-		push(@tmpz, "AREA:l_smb#EEEE44:Samba");
-		push(@tmpz, "AREA:l_fax#FFA500:Fax");
-		push(@tmpz, "AREA:l_cups#444444:CUPS");
-		push(@tmpz, "AREA:l_f2b#EE4444:Fail2ban");
-		push(@tmpz, "LINE2:l_ssh#4444EE");
-		push(@tmpz, "LINE2:l_ftp#44EE44");
-		push(@tmpz, "LINE2:l_telnet#EE44EE");
-#		push(@tmpz, "LINE2:l_imap#44EEEE");
-		push(@tmpz, "LINE2:l_smb#EEEE44");
-		push(@tmpz, "LINE2:l_fax#FFA500");
-		push(@tmpz, "LINE2:l_cups#444444");
-		push(@tmpz, "LINE2:l_f2b#EE4444");
-	} else {
-		$vlabel = "Incremental hits";
-		push(@tmp, "AREA:i_ssh#4444EE:SSH");
-		push(@tmp, "GPRINT:i_ssh:LAST:        Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ssh:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ssh:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ssh:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_ftp#44EE44:FTP");
-		push(@tmp, "GPRINT:i_ftp:LAST:        Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ftp:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ftp:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_ftp:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_telnet#EE44EE:Telnet");
-		push(@tmp, "GPRINT:i_telnet:LAST:     Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_telnet:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_telnet:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_telnet:MAX:   Max\\: %5.0lf\\n");
-#		push(@tmp, "AREA:i_imap#44EEEE:IMAP");
-#		push(@tmp, "GPRINT:i_imap:LAST:       Current\\: %5.0lf");
-#		push(@tmp, "GPRINT:i_imap:AVERAGE:   Average\\: %5.0lf");
-#		push(@tmp, "GPRINT:i_imap:MIN:   Min\\: %5.0lf");
-#		push(@tmp, "GPRINT:i_imap:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_smb#EEEE44:Samba");
-		push(@tmp, "GPRINT:i_smb:LAST:      Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_smb:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_smb:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_smb:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_fax#FFA500:Fax");
-		push(@tmp, "GPRINT:i_fax:LAST:        Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_fax:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_fax:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_fax:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_cups#444444:CUPS");
-		push(@tmp, "GPRINT:i_cups:LAST:       Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_cups:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_cups:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_cups:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_f2b#EE4444:Fail2ban");
-		push(@tmp, "GPRINT:i_f2b:LAST:   Current\\: %5.0lf");
-		push(@tmp, "GPRINT:i_f2b:AVERAGE:   Average\\: %5.0lf");
-		push(@tmp, "GPRINT:i_f2b:MIN:   Min\\: %5.0lf");
-		push(@tmp, "GPRINT:i_f2b:MAX:   Max\\: %5.0lf\\n");
-		push(@tmp, "LINE2:i_ssh#4444EE");
-		push(@tmp, "LINE2:i_ftp#44EE44");
-		push(@tmp, "LINE2:i_telnet#EE44EE");
-#		push(@tmp, "LINE2:i_imap#44EEEE");
-		push(@tmp, "LINE2:i_smb#EEEE44");
-		push(@tmp, "LINE2:i_fax#FFA500");
-		push(@tmp, "LINE2:i_cups#444444");
-		push(@tmp, "LINE2:i_f2b#EE4444");
-		push(@tmp, "COMMENT: \\n");
-
-		push(@tmpz, "AREA:i_ssh#4444EE:SSH");
-		push(@tmpz, "AREA:i_ftp#44EE44:FTP");
-		push(@tmpz, "AREA:i_telnet#EE44EE:Telnet");
-#		push(@tmpz, "AREA:i_imap#44EEEE:IMAP");
-		push(@tmpz, "AREA:i_smb#EEEE44:Samba");
-		push(@tmpz, "AREA:i_fax#FFA500:Fax");
-		push(@tmpz, "AREA:i_cups#444444:CUPS");
-		push(@tmpz, "AREA:i_f2b#EE4444:Fail2ban");
-		push(@tmpz, "LINE2:i_ssh#4444EE");
-		push(@tmpz, "LINE2:i_ftp#44EE44");
-		push(@tmpz, "LINE2:i_telnet#EE44EE");
-#		push(@tmpz, "LINE2:i_imap#44EEEE");
-		push(@tmpz, "LINE2:i_smb#EEEE44");
-		push(@tmpz, "LINE2:i_fax#FFA500");
-		push(@tmpz, "LINE2:i_cups#444444");
-		push(@tmpz, "LINE2:i_f2b#EE4444");
-	}
-
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_serv1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:i_ssh=$SERV_RRD:serv_i_ssh:AVERAGE",
-		"DEF:i_ftp=$SERV_RRD:serv_i_ftp:AVERAGE",
-		"DEF:i_telnet=$SERV_RRD:serv_i_telnet:AVERAGE",
-		"DEF:i_imap=$SERV_RRD:serv_i_imap:AVERAGE",
-		"DEF:i_smb=$SERV_RRD:serv_i_smb:AVERAGE",
-		"DEF:i_fax=$SERV_RRD:serv_i_fax:AVERAGE",
-		"DEF:i_cups=$SERV_RRD:serv_i_cups:AVERAGE",
-		"DEF:i_f2b=$SERV_RRD:serv_i_f2b:AVERAGE",
-		"DEF:l_ssh=$SERV_RRD:serv_l_ssh:AVERAGE",
-		"DEF:l_ftp=$SERV_RRD:serv_l_ftp:AVERAGE",
-		"DEF:l_telnet=$SERV_RRD:serv_l_telnet:AVERAGE",
-		"DEF:l_imap=$SERV_RRD:serv_l_imap:AVERAGE",
-		"DEF:l_smb=$SERV_RRD:serv_l_smb:AVERAGE",
-		"DEF:l_fax=$SERV_RRD:serv_l_fax:AVERAGE",
-		"DEF:l_cups=$SERV_RRD:serv_l_cups:AVERAGE",
-		"DEF:l_f2b=$SERV_RRD:serv_l_f2b:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_serv1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:i_ssh=$SERV_RRD:serv_i_ssh:AVERAGE",
-			"DEF:i_ftp=$SERV_RRD:serv_i_ftp:AVERAGE",
-			"DEF:i_telnet=$SERV_RRD:serv_i_telnet:AVERAGE",
-			"DEF:i_imap=$SERV_RRD:serv_i_imap:AVERAGE",
-			"DEF:i_smb=$SERV_RRD:serv_i_smb:AVERAGE",
-			"DEF:i_fax=$SERV_RRD:serv_i_fax:AVERAGE",
-			"DEF:i_cups=$SERV_RRD:serv_i_cups:AVERAGE",
-			"DEF:i_f2b=$SERV_RRD:serv_i_f2b:AVERAGE",
-			"DEF:l_ssh=$SERV_RRD:serv_l_ssh:AVERAGE",
-			"DEF:l_ftp=$SERV_RRD:serv_l_ftp:AVERAGE",
-			"DEF:l_telnet=$SERV_RRD:serv_l_telnet:AVERAGE",
-			"DEF:l_imap=$SERV_RRD:serv_l_imap:AVERAGE",
-			"DEF:l_smb=$SERV_RRD:serv_l_smb:AVERAGE",
-			"DEF:l_fax=$SERV_RRD:serv_l_fax:AVERAGE",
-			"DEF:l_cups=$SERV_RRD:serv_l_cups:AVERAGE",
-			"DEF:l_f2b=$SERV_RRD:serv_l_f2b:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /serv1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	if($SERV_MODE eq "L") {
-		$vlabel = "Accesses/s";
-		push(@tmp, "AREA:l_imap#4444EE:IMAP");
-		push(@tmp, "GPRINT:l_imap:LAST:                 Current\\: %4.2lf\\n");
-		push(@tmp, "AREA:l_pop3#44EE44:POP3");
-		push(@tmp, "GPRINT:l_pop3:LAST:                 Current\\: %4.2lf\\n");
-		push(@tmp, "LINE1:l_imap#4444EE:");
-		push(@tmp, "LINE1:l_pop3#44EE44:");
-		push(@tmpz, "AREA:l_imap#4444EE:IMAP");
-		push(@tmpz, "AREA:l_pop3#44EE44:POP3");
-		push(@tmpz, "LINE2:l_imap#4444EE:");
-		push(@tmpz, "LINE2:l_pop3#44EE44:");
-	} else {
-		$vlabel = "Incremental hits";
-		push(@tmp, "AREA:i_imap#4444EE:IMAP");
-		push(@tmp, "GPRINT:i_imap:LAST:                 Current\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_pop3#44EE44:POP3");
-		push(@tmp, "GPRINT:i_pop3:LAST:                 Current\\: %5.0lf\\n");
-		push(@tmp, "LINE1:i_imap#4444EE:");
-		push(@tmp, "LINE1:i_pop3#44EE44:");
-		push(@tmpz, "AREA:i_imap#4444EE:IMAP");
-		push(@tmpz, "AREA:i_pop3#44EE44:POP3");
-		push(@tmpz, "LINE2:i_imap#4444EE:");
-		push(@tmpz, "LINE2:i_pop3#44EE44:");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_serv2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:i_imap=$SERV_RRD:serv_i_imap:AVERAGE",
-		"DEF:l_imap=$SERV_RRD:serv_l_imap:AVERAGE",
-		"DEF:i_pop3=$SERV_RRD:serv_i_pop3:AVERAGE",
-		"DEF:l_pop3=$SERV_RRD:serv_l_pop3:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_serv2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:i_imap=$SERV_RRD:serv_i_imap:AVERAGE",
-			"DEF:l_imap=$SERV_RRD:serv_l_imap:AVERAGE",
-			"DEF:i_pop3=$SERV_RRD:serv_i_pop3:AVERAGE",
-			"DEF:l_pop3=$SERV_RRD:serv_l_pop3:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /serv2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@tmp);
-	undef(@tmpz);
-	if($SERV_MODE eq "L") {
-		$vlabel = "Accesses/s";
-		push(@tmp, "AREA:l_smtp#44EEEE:SMTP");
-		push(@tmp, "GPRINT:l_smtp:LAST:                 Current\\: %4.2lf\\n");
-		push(@tmp, "AREA:l_spam#EEEE44:Spam");
-		push(@tmp, "GPRINT:l_spam:LAST:                 Current\\: %4.2lf\\n");
-		push(@tmp, "AREA:l_virus#EE4444:Virus");
-		push(@tmp, "GPRINT:l_virus:LAST:                Current\\: %4.2lf\\n");
-		push(@tmp, "LINE2:l_smtp#44EEEE");
-		push(@tmp, "LINE2:l_spam#EEEE44");
-		push(@tmp, "LINE2:l_virus#EE4444");
-
-		push(@tmpz, "AREA:l_smtp#44EEEE:SMTP");
-		push(@tmpz, "AREA:l_spam#EEEE44:Spam");
-		push(@tmpz, "AREA:l_virus#EE4444:Virus");
-		push(@tmpz, "LINE2:l_smtp#44EEEE");
-		push(@tmpz, "LINE2:l_spam#EEEE44");
-		push(@tmpz, "LINE2:l_virus#EE4444");
-	} else {
-		$vlabel = "Incremental hits";
-		push(@tmp, "AREA:i_smtp#44EEEE:SMTP");
-		push(@tmp, "GPRINT:i_smtp:LAST:                 Current\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_spam#EEEE44:Spam");
-		push(@tmp, "GPRINT:i_spam:LAST:                 Current\\: %5.0lf\\n");
-		push(@tmp, "AREA:i_virus#EE4444:Virus");
-		push(@tmp, "GPRINT:i_virus:LAST:                Current\\: %5.0lf\\n");
-		push(@tmp, "LINE2:i_smtp#44EEEE");
-		push(@tmp, "LINE2:i_spam#EEEE44");
-		push(@tmp, "LINE2:i_virus#EE4444");
-
-		push(@tmpz, "AREA:i_smtp#44EEEE:SMTP");
-		push(@tmpz, "AREA:i_spam#EEEE44:Spam");
-		push(@tmpz, "AREA:i_virus#EE4444:Virus");
-		push(@tmpz, "LINE2:i_smtp#44EEEE");
-		push(@tmpz, "LINE2:i_spam#EEEE44");
-		push(@tmpz, "LINE2:i_virus#EE4444");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_serv3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:i_smtp=$SERV_RRD:serv_i_smtp:AVERAGE",
-		"DEF:i_spam=$SERV_RRD:serv_i_spam:AVERAGE",
-		"DEF:i_virus=$SERV_RRD:serv_i_virus:AVERAGE",
-		"DEF:l_smtp=$SERV_RRD:serv_l_smtp:AVERAGE",
-		"DEF:l_spam=$SERV_RRD:serv_l_spam:AVERAGE",
-		"DEF:l_virus=$SERV_RRD:serv_l_virus:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		undef(@tmp);
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_serv3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:i_smtp=$SERV_RRD:serv_i_smtp:AVERAGE",
-			"DEF:i_spam=$SERV_RRD:serv_i_spam:AVERAGE",
-			"DEF:i_virus=$SERV_RRD:serv_i_virus:AVERAGE",
-			"DEF:l_smtp=$SERV_RRD:serv_l_smtp:AVERAGE",
-			"DEF:l_spam=$SERV_RRD:serv_l_spam:AVERAGE",
-			"DEF:l_virus=$SERV_RRD:serv_l_virus:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /serv3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# MAIL graph
-# ----------------------------------------------------------------------------
-sub mail {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $n;
-	my $str;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG4 = $u . $myself . "4." . $when . ".png";
-	my $PNG5 = $u . $myself . "5." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-	my $PNG4z = $u . $myself . "4z." . $when . ".png";
-	my $PNG5z = $u . $myself . "5z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3",
-		"$PNG_DIR" . "$PNG4",
-		"$PNG_DIR" . "$PNG5");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z",
-			"$PNG_DIR" . "$PNG4z",
-			"$PNG_DIR" . "$PNG5z");
-	}
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$MAIL_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $MAIL_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("Time  In.Conn Out.Conn  Receivd   Delivd  Bytes.R  Bytes.D  Rejectd  Bounced  Discard     Held  Forward     Spam    Virus   Queued  Queue.S\n");
-		print("------------------------------------------------------------------------------------------------------------------------------------------- \n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			my ($in, $out, $recvd, $delvd, $bytes_recvd, $bytes_delvd, $rejtd, $spam, $virus, $bouncd, $queued, $discrd, $held, $forwrd, $queues) = @$line;
-			@row = ($in, $out, $recvd, $delvd, $bytes_recvd, $bytes_delvd, $rejtd, $bouncd, $discrd, $held, $forwrd, $spam, $virus, $queued, $queues);
-			printf(" %2d$tc  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %7.2f\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if(lc($MAIL_MTA) eq "sendmail") {
-		push(@tmp, "AREA:in#44EE44:In Connections");
-		push(@tmp, "GPRINT:in:LAST:    Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:in:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:in:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:in:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:rejtd#EE4444:Rejected");
-		push(@tmp, "GPRINT:rejtd:LAST:          Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:recvd#448844:Received");
-		push(@tmp, "GPRINT:recvd:LAST:          Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:spam#EEEE44:Spam");
-		push(@tmp, "GPRINT:spam:LAST:              Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:virus#EE44EE:Virus");
-		push(@tmp, "GPRINT:virus:LAST:             Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:n_delvd#4444EE:Delivered");
-		push(@tmp, "GPRINT:delvd:LAST:         Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:n_out#44EEEE:Out Connections");
-		push(@tmp, "GPRINT:out:LAST:   Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:out:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:out:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:out:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "LINE1:in#00EE00");
-		push(@tmp, "LINE1:rejtd#EE0000");
-		push(@tmp, "LINE1:recvd#1F881F");
-		push(@tmp, "LINE1:spam#EEEE00");
-		push(@tmp, "LINE1:virus#EE00EE");
-		push(@tmp, "LINE1:n_delvd#0000EE");
-		push(@tmp, "LINE1:n_out#00EEEE");
-
-		push(@tmpz, "AREA:in#44EE44:In Connections");
-		push(@tmpz, "AREA:rejtd#EE4444:Rejected");
-		push(@tmpz, "AREA:recvd#448844:Received");
-		push(@tmpz, "AREA:spam#EEEE44:Spam");
-		push(@tmpz, "AREA:virus#EE44EE:Virus");
-		push(@tmpz, "AREA:n_delvd#4444EE:Delivered");
-		push(@tmpz, "AREA:n_out#44EEEE:Out Connections");
-		push(@tmpz, "LINE1:in#00EE00");
-		push(@tmpz, "LINE1:rejtd#EE0000");
-		push(@tmpz, "LINE1:recvd#1F881F");
-		push(@tmpz, "LINE1:spam#EEEE00");
-		push(@tmpz, "LINE1:virus#EE00EE");
-		push(@tmpz, "LINE1:n_delvd#0000EE");
-		push(@tmpz, "LINE1:n_out#00EEEE");
-	} elsif(lc($MAIL_MTA eq "postfix")) {
-		push(@tmp, "AREA:rejtd#EE4444:Rejected");
-		push(@tmp, "GPRINT:rejtd:LAST:          Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:rejtd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:recvd#448844:Received");
-		push(@tmp, "GPRINT:recvd:LAST:          Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:recvd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:spam#EEEE44:Spam");
-		push(@tmp, "GPRINT:spam:LAST:              Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:spam:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:virus#EE44EE:Virus");
-		push(@tmp, "GPRINT:virus:LAST:             Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:virus:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:bouncd#FFA500:Bounced");
-		push(@tmp, "GPRINT:bouncd:LAST:           Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:bouncd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:bouncd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:bouncd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:discrd#CCCCCC:Discarded");
-		push(@tmp, "GPRINT:discrd:LAST:         Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:discrd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:discrd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:discrd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:held#44EE44:Held");
-		push(@tmp, "GPRINT:held:LAST:              Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:held:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:held:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:held:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:n_forwrd#44EEEE:Forwarded");
-		push(@tmp, "GPRINT:forwrd:LAST:         Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:forwrd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:forwrd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:forwrd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "AREA:n_delvd#4444EE:Delivered");
-		push(@tmp, "GPRINT:delvd:LAST:         Cur\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:AVERAGE:    Avg\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:MIN:    Min\\: %5.2lf");
-		push(@tmp, "GPRINT:delvd:MAX:    Max\\: %5.2lf\\n");
-		push(@tmp, "LINE1:rejtd#EE0000");
-		push(@tmp, "LINE1:recvd#1F881F");
-		push(@tmp, "LINE1:spam#EEEE00");
-		push(@tmp, "LINE1:virus#EE00EE");
-		push(@tmp, "LINE1:bouncd#FFA500");
-		push(@tmp, "LINE1:discrd#888888");
-		push(@tmp, "LINE1:held#00EE00");
-		push(@tmp, "LINE1:n_forwrd#00EEEE");
-		push(@tmp, "LINE1:n_delvd#0000EE");
-
-		push(@tmpz, "AREA:rejtd#EE4444:Rejected");
-		push(@tmpz, "AREA:recvd#448844:Received");
-		push(@tmpz, "AREA:spam#EEEE44:Spam");
-		push(@tmpz, "AREA:virus#EE44EE:Virus");
-		push(@tmpz, "AREA:bouncd#FFA500:Bounced");
-		push(@tmpz, "AREA:discrd#888888:Discarded");
-		push(@tmpz, "AREA:held#44EE44:Held");
-		push(@tmpz, "AREA:n_forwrd#44EEEE:Forwarded");
-		push(@tmpz, "AREA:n_delvd#4444EE:Delivered");
-		push(@tmpz, "LINE1:rejtd#EE0000");
-		push(@tmpz, "LINE1:recvd#1F881F");
-		push(@tmpz, "LINE1:spam#EEEE00");
-		push(@tmpz, "LINE1:virus#EE00EE");
-		push(@tmpz, "LINE1:bouncd#FFA500");
-		push(@tmpz, "LINE1:discrd#888888");
-		push(@tmpz, "LINE1:held#00EE00");
-		push(@tmpz, "LINE1:n_forwrd#00EEEE");
-		push(@tmpz, "LINE1:n_delvd#0000EE");
-	}
-
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-
-	undef(@riglim);
-	if($MAIL1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$MAIL1_LIMIT");
-	} else {
-		if($MAIL1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$MAIL1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_mail1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Messages/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:in=$MAIL_RRD:mail_in:AVERAGE",
-		"DEF:out=$MAIL_RRD:mail_out:AVERAGE",
-		"DEF:recvd=$MAIL_RRD:mail_recvd:AVERAGE",
-		"DEF:delvd=$MAIL_RRD:mail_delvd:AVERAGE",
-		"DEF:bytes_recvd=$MAIL_RRD:mail_bytes_recvd:AVERAGE",
-		"DEF:bytes_delvd=$MAIL_RRD:mail_bytes_delvd:AVERAGE",
-		"DEF:rejtd=$MAIL_RRD:mail_rejtd:AVERAGE",
-		"DEF:spam=$MAIL_RRD:mail_spam:AVERAGE",
-		"DEF:virus=$MAIL_RRD:mail_virus:AVERAGE",
-		"DEF:bouncd=$MAIL_RRD:mail_bouncd:AVERAGE",
-		"DEF:discrd=$MAIL_RRD:mail_discrd:AVERAGE",
-		"DEF:held=$MAIL_RRD:mail_held:AVERAGE",
-		"DEF:forwrd=$MAIL_RRD:mail_forwrd:AVERAGE",
-		"CDEF:n_forwrd=forwrd,-1,*",
-		"CDEF:n_delvd=delvd,-1,*",
-		"CDEF:n_out=out,-1,*",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_mail1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Messages/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:in=$MAIL_RRD:mail_in:AVERAGE",
-			"DEF:out=$MAIL_RRD:mail_out:AVERAGE",
-			"DEF:recvd=$MAIL_RRD:mail_recvd:AVERAGE",
-			"DEF:delvd=$MAIL_RRD:mail_delvd:AVERAGE",
-			"DEF:bytes_recvd=$MAIL_RRD:mail_bytes_recvd:AVERAGE",
-			"DEF:bytes_delvd=$MAIL_RRD:mail_bytes_delvd:AVERAGE",
-			"DEF:rejtd=$MAIL_RRD:mail_rejtd:AVERAGE",
-			"DEF:spam=$MAIL_RRD:mail_spam:AVERAGE",
-			"DEF:virus=$MAIL_RRD:mail_virus:AVERAGE",
-			"DEF:bouncd=$MAIL_RRD:mail_bouncd:AVERAGE",
-			"DEF:discrd=$MAIL_RRD:mail_discrd:AVERAGE",
-			"DEF:held=$MAIL_RRD:mail_held:AVERAGE",
-			"DEF:forwrd=$MAIL_RRD:mail_forwrd:AVERAGE",
-			"CDEF:n_forwrd=forwrd,-1,*",
-			"CDEF:n_delvd=delvd,-1,*",
-			"CDEF:n_out=out,-1,*",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /mail1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($MAIL2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$MAIL2_LIMIT");
-	} else {
-		if($MAIL2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$MAIL2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:B_in#44EE44:K$T/s Received");
-	push(@tmp, "GPRINT:K_in:LAST:      Cur\\: %5.0lf");
-	push(@tmp, "GPRINT:K_in:AVERAGE:    Avg\\: %5.0lf");
-	push(@tmp, "GPRINT:K_in:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:K_in:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "AREA:B_out#4444EE:K$T/s Delivered");
-	push(@tmp, "GPRINT:K_out:LAST:     Cur\\: %5.0lf");
-	push(@tmp, "GPRINT:K_out:AVERAGE:    Avg\\: %5.0lf");
-	push(@tmp, "GPRINT:K_out:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:K_out:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "AREA:B_out#4444EE:");
-	push(@tmp, "AREA:B_in#44EE44:");
-	push(@tmp, "LINE1:B_out#0000EE");
-	push(@tmp, "LINE1:B_in#00EE00");
-	push(@tmpz, "AREA:B_in#44EE44:Received");
-	push(@tmpz, "AREA:B_out#4444EE:Delivered");
-	push(@tmpz, "AREA:B_out#4444EE:");
-	push(@tmpz, "AREA:B_in#44EE44:");
-	push(@tmpz, "LINE1:B_out#0000EE");
-	push(@tmpz, "LINE1:B_in#00EE00");
-	if($NETSTATS_IN_BPS eq "Y") {
-		push(@CDEF, "CDEF:B_in=in,8,*");
-		push(@CDEF, "CDEF:B_out=out,8,*");
-	} else {
-		push(@CDEF, "CDEF:B_in=in");
-		push(@CDEF, "CDEF:B_out=out");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-	}
-
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_mail2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:in=$MAIL_RRD:mail_bytes_recvd:AVERAGE",
-		"DEF:out=$MAIL_RRD:mail_bytes_delvd:AVERAGE",
-		@CDEF,
-		"CDEF:K_in=B_in,1024,/",
-		"CDEF:K_out=B_out,1024,/",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_mail2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:in=$MAIL_RRD:mail_bytes_recvd:AVERAGE",
-			"DEF:out=$MAIL_RRD:mail_bytes_delvd:AVERAGE",
-			@CDEF,
-			"CDEF:K_in=B_in,1024,/",
-			"CDEF:K_out=B_out,1024,/",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /mail2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($MAIL3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$MAIL3_LIMIT");
-	} else {
-		if($MAIL3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$MAIL3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:queued#EEEE44:Queued");
-	push(@tmp, "LINE1:queued#EEEE00");
-	push(@tmp, "GPRINT:queued:LAST:               Current\\: %5.0lf\\n");
-	push(@tmpz, "AREA:queued#EEEE44:Queued");
-	push(@tmpz, "LINE1:queued#EEEE00");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_mail3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Messages",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:queued=$MAIL_RRD:mail_queued:AVERAGE",
-		"COMMENT: \\n",
-		@tmp,
-		"COMMENT: \\n",
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_mail3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Messages",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:queued=$MAIL_RRD:mail_queued:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /mail3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($MAIL4_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$MAIL4_LIMIT");
-	} else {
-		if($MAIL4_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$MAIL4_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:queues#44AAEE:Size in KB");
-	push(@tmp, "LINE1:queues#00AAEE");
-	push(@tmp, "GPRINT:K_queues:LAST:           Current\\: %5.1lf\\n");
-	push(@tmpz, "AREA:queues#44AAEE:Size");
-	push(@tmpz, "LINE1:queues#00AAEE");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG4",
-		"--title=$rgraphs{_mail4}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Bytes",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:queues=$MAIL_RRD:mail_queues:AVERAGE",
-		"CDEF:K_queues=queues,1024,/",
-		"COMMENT: \\n",
-		@tmp,
-		"COMMENT: \\n",
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG4z",
-			"--title=$rgraphs{_mail4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Bytes",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:queues=$MAIL_RRD:mail_queues:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /mail4/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG4z . "\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG4 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($MAIL5_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$MAIL5_LIMIT");
-	} else {
-		if($MAIL5_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$MAIL5_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:greylisted#4444EE:Greylisted");
-	push(@tmp, "GPRINT:greylisted:LAST:           Current\\: %5.0lf\\n");
-	push(@tmp, "AREA:whitelisted#44EEEE:Whitelisted");
-	push(@tmp, "GPRINT:whitelisted:LAST:          Current\\: %5.0lf\\n");
-	push(@tmp, "LINE1:greylisted#0000EE");
-	push(@tmp, "LINE1:whitelisted#00EEEE");
-	push(@tmp, "LINE1:records#EE0000:Records");
-	push(@tmp, "GPRINT:records:LAST:              Current\\: %5.0lf\\n");
-	push(@tmpz, "AREA:greylisted#4444EE:Greylisted");
-	push(@tmpz, "AREA:whitelisted#44EEEE:Whitelisted");
-	push(@tmpz, "LINE2:greylisted#0000EE");
-	push(@tmpz, "LINE2:whitelisted#00EEEE");
-	push(@tmpz, "LINE2:records#EE0000:Records");
-	if(lc($MAIL_MTA eq "postfix")) {
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG5",
-		"--title=$rgraphs{_mail5}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Messages",
-		"--width=$width",
-		"--height=$height",
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:records=$MAIL_RRD:mail_val07:AVERAGE",
-		"DEF:greylisted=$MAIL_RRD:mail_val08:AVERAGE",
-		"DEF:whitelisted=$MAIL_RRD:mail_val09:AVERAGE",
-		"COMMENT: \\n",
-		"COMMENT: \\n",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG5z",
-			"--title=$rgraphs{_mail5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Messages",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:records=$MAIL_RRD:mail_val07:AVERAGE",
-			"DEF:greylisted=$MAIL_RRD:mail_val08:AVERAGE",
-			"DEF:whitelisted=$MAIL_RRD:mail_val09:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /mail5/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG5z . "\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG5 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# PORT graph
-# ----------------------------------------------------------------------------
-sub port {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @warning;
-	my @PNG;
-	my @PNGz;
-	my $addr;
-	my $stat;
-	my $name;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my $n;
-	my $str;
-	my $err;
-
-	my $PORT_PER_ROW = 3;
-	$title = !$silent ? $title : "";
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-	if($IFACE_MODE eq "text") {
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$PORT_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $PORT_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < $PORT_MAX && $n < scalar(@PORT_LIST); $n++) {
-			printf("   %-5s %-8s", $PORT_LIST[$n], substr($PORT_NAME[$n], 0, 8));
-			$line2 .= "   K$T/s_I  K$T/s_O";
-			$line3 .= "-----------------";
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			for($n2 = 0; $n2 < $PORT_MAX && $n2 < scalar(@PORT_LIST); $n2++) {
-				$from = $n2 * 2;
-				$to = $from + 1;
-				my ($kin, $kout) = @$line[$from..$to];
-				$kin /= 1024;
-				$kout /= 1024;
-				if($NETSTATS_IN_BPS eq "Y") {
-					$kin *= 8;
-					$kout *= 8;
-				}
-				@row = ($kin, $kout);
-				printf("  %6d  %6d ", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < $PORT_MAX; $n++) {
-		$str = $u . $myself . $n . "." . $when . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		if($ENABLE_ZOOM eq "Y") {
-			$str = $u . $myself . $n . "z." . $when . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-		}
-	}
-
-	$n = 0;
-	while($n < $PORT_MAX && $n < scalar(@PORT_LIST)) {
-		if($title) {
-			if($n == 0) {
-				graph_header($title, $PORT_PER_ROW);
-			}
-			print("    <tr>\n");
-		}
-		for($n2 = 0; $n2 < $PORT_PER_ROW; $n2++) {
-			last unless ($n < $PORT_MAX && $n < scalar(@PORT_LIST));
-			if($title) {
-				print("    <td bgcolor='" . $title_bg_color . "'>\n");
-			}
-			undef(@riglim);
-			if($PORT_RIGID[$n] eq 1) {
-				push(@riglim, "--upper-limit=$PORT_LIMIT[$n]");
-			} else {
-				if($PORT_RIGID[$n] eq 2) {
-					push(@riglim, "--upper-limit=$PORT_LIMIT[$n]");
-					push(@riglim, "--rigid");
-				}
-			}
-
-			undef(@warning);
-			if($os eq "Linux") {
-				open(IN, "netstat -nl --$PORT_PROT[$n] |");
-				while(<IN>) {
-					(undef, undef, undef, $addr) = split(' ', $_);
-					chomp($addr);
-					$addr =~ s/.*://;
-					if($addr eq $PORT_LIST[$n]) {
-						last;
-					}
-				}
-				close(IN);
-			}
-			if($os eq "FreeBSD" || $os eq "OpenBSD") {
-				open(IN, "netstat -anl -p $PORT_PROT[$n] |");
-				while(<IN>) {
-					(undef, undef, undef, $addr, undef, $stat) = split(' ', $_);
-					chomp($stat);
-					if($stat eq "LISTEN") {
-						chomp($addr);
-						($addr) = ($addr =~ m/^.*?(\.\d+$)/);
-						$addr =~ s/\.//;
-						if($addr eq $PORT_LIST[$n]) {
-							last;
-						}
-					}
-				}
-				close(IN);
-			}
-			if($addr ne $PORT_LIST[$n]) {
-				push(@warning, $warning_color);
-			}
-
-			$name = substr($PORT_NAME[$n], 0, 15);
-			undef(@tmp);
-			undef(@tmpz);
-			undef(@CDEF);
-			push(@tmp, "AREA:B_in#44EE44:Input");
-			push(@tmp, "AREA:B_out#4444EE:Output");
-			push(@tmp, "AREA:B_out#4444EE:");
-			push(@tmp, "AREA:B_in#44EE44:");
-			push(@tmp, "LINE1:B_out#0000EE");
-			push(@tmp, "LINE1:B_in#00EE00");
-			push(@tmpz, "AREA:B_in#44EE44:Input");
-			push(@tmpz, "AREA:B_out#4444EE:Output");
-			push(@tmpz, "AREA:B_out#4444EE:");
-			push(@tmpz, "AREA:B_in#44EE44:");
-			push(@tmpz, "LINE1:B_out#0000EE");
-			push(@tmpz, "LINE1:B_in#00EE00");
-			if($NETSTATS_IN_BPS eq "Y") {
-				push(@CDEF, "CDEF:B_in=in,8,*");
-				push(@CDEF, "CDEF:B_out=out,8,*");
-			} else {
-				push(@CDEF, "CDEF:B_in=in");
-				push(@CDEF, "CDEF:B_out=out");
-			}
-			($width, $height) = split('x', $GRAPH_SIZE{mini});
-			if($silent =~ /imagetag/) {
-				($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-				($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-				push(@tmp, "COMMENT: \\n");
-				push(@tmp, "COMMENT: \\n");
-				push(@tmp, "COMMENT: \\n");
-			}
-			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
-				"--title=$name traffic  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				@warning,
-				"DEF:in=$PORT_RRD:port" . $n . "_in:AVERAGE",
-				"DEF:out=$PORT_RRD:port" . $n . "_out:AVERAGE",
-				@CDEF,
-				@tmp);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
-			if($ENABLE_ZOOM eq "Y") {
-				($width, $height) = split('x', $GRAPH_SIZE{zoom});
-				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
-					"--title=$name traffic  ($nwhen$twhen)",
-					"--start=-$nwhen$twhen",
-					"--imgformat=PNG",
-					"--vertical-label=$vlabel",
-					"--width=$width",
-					"--height=$height",
-					@riglim,
-					"--lower-limit=0",
-					@VERSION12,
-					@VERSION12_small,
-					@graph_colors,
-					@warning,
-					"DEF:in=$PORT_RRD:port" . $n . "_in:AVERAGE",
-					"DEF:out=$PORT_RRD:port" . $n . "_out:AVERAGE",
-					@CDEF,
-					@tmpz);
-				$err = RRDs::error;
-				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
-			}
-			if($title || ($silent =~ /imagetag/ && $graph =~ /port$n/)) {
-				if($ENABLE_ZOOM eq "Y") {
-					if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-						print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$n] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-					else {
-						print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-				} else {
-					print("      <img src='" . $URL . $IMGS_DIR . $PNG[$n] . "'>\n");
-				}
-			}
-			if($title) {
-				print("    </td>\n");
-			}
-			$n++;
-		}
-		if($title) {
-			print("    </tr>\n");
-		}
-	}
-	if($title) {
-		graph_footer();
-	}
-	return 1;
-}
-
-# USER graph
-# ----------------------------------------------------------------------------
-sub user {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$USER_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $USER_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("Time    Logged In     Samba  Netatalk\n");
-		print("------------------------------------- \n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			my ($sys, $smb, $mac) = @$line;
-			@row = ($sys, $smb, $mac);
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc       %6d    %6d    %6d\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($USER1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$USER1_LIMIT");
-	} else {
-		if($USER1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$USER1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	push(@tmp, "AREA:sys#44EE44:Logged In");
-	push(@tmp, "GPRINT:sys:LAST:        Current\\: %3.0lf");
-	push(@tmp, "GPRINT:sys:AVERAGE:   Average\\: %3.0lf");
-	push(@tmp, "GPRINT:sys:MIN:   Min\\: %3.0lf");
-	push(@tmp, "GPRINT:sys:MAX:   Max\\: %3.0lf\\n");
-	push(@tmp, "LINE1:sys#00EE00");
-	push(@tmpz, "AREA:sys#44EE44:Logged In");
-	push(@tmpz, "LINE1:sys#00EE00");
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_user1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Users",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:sys=$USER_RRD:user_sys:AVERAGE",
-		"COMMENT: \\n",
-		@tmp,
-		"COMMENT: \\n",
-		"COMMENT: \\n",
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_user1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Users",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:sys=$USER_RRD:user_sys:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /user1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($USER2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$USER2_LIMIT");
-	} else {
-		if($USER2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$USER2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:smb#EEEE44:Samba");
-	push(@tmp, "GPRINT:smb:LAST:                Current\\: %3.0lf\\n");
-	push(@tmp, "LINE1:smb#EEEE00");
-	push(@tmpz, "AREA:smb#EEEE44:Samba");
-	push(@tmpz, "LINE2:smb#EEEE00");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_user2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Users",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:smb=$USER_RRD:user_smb:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_user2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Users",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:smb=$USER_RRD:user_smb:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /user2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($USER3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$USER3_LIMIT");
-	} else {
-		if($USER3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$USER3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:mac#EE4444:Netatalk");
-	push(@tmp, "GPRINT:mac:LAST:             Current\\: %3.0lf\\n");
-	push(@tmp, "LINE1:mac#EE0000");
-	push(@tmpz, "AREA:mac#EE4444:Netatalk");
-	push(@tmpz, "LINE2:mac#EE0000");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_user3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Users",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:mac=$USER_RRD:user_mac:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_user3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Users",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:mac=$USER_RRD:user_mac:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /user3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# APACHE graph
-# ----------------------------------------------------------------------------
-sub apache {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $e;
-	my $e2;
-	my $n;
-	my $n2;
-	my $str;
-	my $err;
-
-	$title = !$silent ? $title : "";
-
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$APACHE_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $APACHE_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < scalar(@APACHE_LIST); $n++) {
-			$line1 = "                                          ";
-			$line2 .= "   Acceses     kbytes      CPU  Busy  Idle";
-			$line3 .= "------------------------------------------";
-			if($line1) {
-				$i = length($line1);
-				printf(sprintf("%${i}s", sprintf("%s", $APACHE_LIST[$n])));
-			}
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < scalar(@APACHE_LIST); $n2++) {
-				undef(@row);
-				$from = $n2 * 5;
-				$to = $from + 5;
-				push(@row, @$line[$from..$to]);
-				printf("   %7d  %9d    %4.2f%%   %3d   %3d", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@APACHE_LIST); $n++) {
-		for($n2 = 1; $n2 <= 3; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $url (@APACHE_LIST) {
-		if($e) {
-			print("  <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($APACHE1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$APACHE1_LIMIT");
-		} else {
-			if($APACHE1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$APACHE1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:apache" . $e . "_idle#4444EE:Idle");
-		push(@tmp, "GPRINT:apache" . $e . "_idle:LAST:            Current\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_idle:AVERAGE:   Average\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_idle:MIN:   Min\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_idle:MAX:   Max\\: %3.0lf\\n");
-		push(@tmp, "AREA:apache" . $e . "_busy#44EEEE:Busy");
-		push(@tmp, "GPRINT:apache" . $e . "_busy:LAST:            Current\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_busy:AVERAGE:   Average\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_busy:MIN:   Min\\: %3.0lf");
-		push(@tmp, "GPRINT:apache" . $e . "_busy:MAX:   Max\\: %3.0lf\\n");
-		push(@tmp, "LINE1:apache" . $e . "_idle#0000EE");
-		push(@tmp, "LINE1:apache" . $e . "_busy#00EEEE");
-		push(@tmp, "LINE1:apache" . $e . "_tot#EE0000");
-		push(@tmpz, "AREA:apache" . $e . "_idle#4444EE:Idle");
-		push(@tmpz, "AREA:apache" . $e . "_busy#44EEEE:Busy");
-		push(@tmpz, "LINE2:apache" . $e . "_idle#0000EE");
-		push(@tmpz, "LINE2:apache" . $e . "_busy#00EEEE");
-		push(@tmpz, "LINE2:apache" . $e . "_tot#EE0000");
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
-			"--title=$rgraphs{_apache1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Workers",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:apache" . $e . "_busy=$APACHE_RRD:apache" . $e . "_busy:AVERAGE",
-			"DEF:apache" . $e . "_idle=$APACHE_RRD:apache" . $e . "_idle:AVERAGE",
-			"CDEF:apache" . $e . "_tot=apache" . $e . "_busy,apache" . $e . "_idle,+",
-			"COMMENT: \\n",
-			@tmp,
-			"COMMENT: \\n",
-			"COMMENT: \\n");
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
-				"--title=$rgraphs{_apache1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Workers",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:apache" . $e . "_busy=$APACHE_RRD:apache" . $e . "_busy:AVERAGE",
-				"DEF:apache" . $e . "_idle=$APACHE_RRD:apache" . $e . "_idle:AVERAGE",
-				"CDEF:apache" . $e . "_tot=apache" . $e . "_busy,apache" . $e . "_idle,+",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@riglim);
-		if($APACHE2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$APACHE2_LIMIT");
-		} else {
-			if($APACHE2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$APACHE2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:apache" . $e . "_cpu#44AAEE:CPU");
-		push(@tmp, "GPRINT:apache" . $e . "_cpu:LAST:                  Current\\: %5.2lf%%\\n");
-		push(@tmp, "LINE1:apache" . $e . "_cpu#00EEEE");
-		push(@tmpz, "AREA:apache" . $e . "_cpu#44AAEE:CPU");
-		push(@tmpz, "LINE1:apache" . $e . "_cpu#00EEEE");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
-			"--title=$rgraphs{_apache2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent (%)",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:apache" . $e . "_cpu=$APACHE_RRD:apache" . $e . "_cpu:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
-				"--title=$rgraphs{_apache2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Percent",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:apache" . $e . "_cpu=$APACHE_RRD:apache" . $e . "_cpu:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($APACHE3_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$APACHE3_LIMIT");
-		} else {
-			if($APACHE3_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$APACHE3_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:apache" . $e . "_acc#44EE44:Accesses");
-		push(@tmp, "GPRINT:apache" . $e . "_acc:LAST:             Current\\: %5.2lf\\n");
-		push(@tmp, "LINE1:apache" . $e . "_acc#00EE00");
-		push(@tmpz, "AREA:apache" . $e . "_acc#44EE44:Accesses");
-		push(@tmpz, "LINE1:apache" . $e . "_acc#00EE00");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
-			"--title=$rgraphs{_apache3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Accesses/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:apache" . $e . "_acc=$APACHE_RRD:apache" . $e . "_acc:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
-				"--title=$rgraphs{_apache3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Accesses/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:apache" . $e . "_acc=$APACHE_RRD:apache" . $e . "_acc:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /apache$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b style='{color: $title_fg_color}'>&nbsp;&nbsp;$url<b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# NGINX graph
-# ----------------------------------------------------------------------------
-sub nginx {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @warning;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my $addr;
-	my $n;
-	my $err;
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NGINX_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NGINX_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("Time   Total  Reading  Writing  Waiting Requests   K$T/s_I   K$T/s_O\n");
-		print("------------------------------------------------------------------ \n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			my ($req, $tot, $rea, $wri, $wai, $ki, $ko) = @$line;
-			$ki /= 1024;
-			$ko /= 1024;
-			if($NETSTATS_IN_BPS eq "Y") {
-				$ki *= 8;
-				$ko *= 8;
-			}
-			@row = ($tot, $rea, $wri, $wai, $req, $ki, $ko);
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc  %6d   %6d   %6d   %6d   %6d   %6d   %6d\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($NGINX1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NGINX1_LIMIT");
-	} else {
-		if($NGINX1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NGINX1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	push(@tmp, "AREA:total#44EEEE:Total");
-	push(@tmp, "GPRINT:total:LAST:       Current\\: %5.0lf");
-	push(@tmp, "GPRINT:total:AVERAGE:    Average\\: %5.0lf");
-	push(@tmp, "GPRINT:total:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:total:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "AREA:reading#44EE44:Reading");
-	push(@tmp, "GPRINT:reading:LAST:     Current\\: %5.0lf");
-	push(@tmp, "GPRINT:reading:AVERAGE:    Average\\: %5.0lf");
-	push(@tmp, "GPRINT:reading:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:reading:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "AREA:writing#4444EE:Writing");
-	push(@tmp, "GPRINT:writing:LAST:     Current\\: %5.0lf");
-	push(@tmp, "GPRINT:writing:AVERAGE:    Average\\: %5.0lf");
-	push(@tmp, "GPRINT:writing:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:writing:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "AREA:waiting#EE44EE:Waiting");
-	push(@tmp, "GPRINT:waiting:LAST:     Current\\: %5.0lf");
-	push(@tmp, "GPRINT:waiting:AVERAGE:    Average\\: %5.0lf");
-	push(@tmp, "GPRINT:waiting:MIN:    Min\\: %5.0lf");
-	push(@tmp, "GPRINT:waiting:MAX:    Max\\: %5.0lf\\n");
-	push(@tmp, "LINE1:total#00EEEE");
-	push(@tmp, "LINE1:reading#00EE00");
-	push(@tmp, "LINE1:writing#0000EE");
-	push(@tmp, "LINE1:waiting#EE00EE");
-	push(@tmpz, "AREA:total#44EEEE:Total");
-	push(@tmpz, "AREA:reading#44EE44:Reading");
-	push(@tmpz, "AREA:writing#4444EE:Writing");
-	push(@tmpz, "AREA:waiting#EE44EE:Waiting");
-	push(@tmpz, "LINE1:total#00EEEE");
-	push(@tmpz, "LINE1:reading#00EE00");
-	push(@tmpz, "LINE1:writing#0000EE");
-	push(@tmpz, "LINE1:waiting#EE00EE");
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_nginx1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Connections/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:total=$NGINX_RRD:nginx_total:AVERAGE",
-		"DEF:reading=$NGINX_RRD:nginx_reading:AVERAGE",
-		"DEF:writing=$NGINX_RRD:nginx_writing:AVERAGE",
-		"DEF:waiting=$NGINX_RRD:nginx_waiting:AVERAGE",
-		@tmp,
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_nginx1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Connections/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:total=$NGINX_RRD:nginx_total:AVERAGE",
-			"DEF:reading=$NGINX_RRD:nginx_reading:AVERAGE",
-			"DEF:writing=$NGINX_RRD:nginx_writing:AVERAGE",
-			"DEF:waiting=$NGINX_RRD:nginx_waiting:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($NGINX2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NGINX2_LIMIT");
-	} else {
-		if($NGINX2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NGINX2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:requests#44EEEE:Requests");
-	push(@tmp, "GPRINT:requests:LAST:             Current\\: %5.1lf\\n");
-	push(@tmp, "LINE1:requests#00EEEE");
-	push(@tmpz, "AREA:requests#44EEEE:Requests");
-	push(@tmpz, "LINE1:requests#00EEEE");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_nginx2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:requests=$NGINX_RRD:nginx_requests:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_nginx2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:requests=$NGINX_RRD:nginx_requests:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@warning);
-	if($os eq "Linux") {
-		open(IN, "netstat -nl --tcp |");
-		while(<IN>) {
-			(undef, undef, undef, $addr) = split(' ', $_);
-			chomp($addr);
-			$addr =~ s/.*://;
-			if($addr eq $NGINX_PORT) {
-				last;
-			}
-		}
-		close(IN);
-	}
-	if($os eq "FreeBSD" || $os eq "OpenBSD") {
-		open(IN, "netstat -anl -p tcp |");
-		while(<IN>) {
-			(undef, undef, undef, $addr, undef, $stat) = split(' ', $_);
-			chomp($stat);
-			if($stat eq "LISTEN") {
-				chomp($addr);
-				($addr) = ($addr =~ m/^.*?(\.\d+$)/);
-				$addr =~ s/\.//;
-				if($addr eq $NGINX_PORT) {
-					last;
-				}
-			}
-		}
-		close(IN);
-	}
-	if($addr ne $NGINX_PORT) {
-		push(@warning, $warning_color);
-	}
-
-	undef(@riglim);
-	if($NGINX3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NGINX3_LIMIT");
-	} else {
-		if($NGINX3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NGINX3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@CDEF);
-	push(@tmp, "AREA:B_in#44EE44:Input");
-	push(@tmp, "AREA:B_out#4444EE:Output");
-	push(@tmp, "AREA:B_out#4444EE:");
-	push(@tmp, "AREA:B_in#44EE44:");
-	push(@tmp, "LINE1:B_out#0000EE");
-	push(@tmp, "LINE1:B_in#00EE00");
-	push(@tmpz, "AREA:B_in#44EE44:Input");
-	push(@tmpz, "AREA:B_out#4444EE:Output");
-	push(@tmpz, "AREA:B_out#4444EE:");
-	push(@tmpz, "AREA:B_in#44EE44:");
-	push(@tmpz, "LINE1:B_out#0000EE");
-	push(@tmpz, "LINE1:B_in#00EE00");
-	if($NETSTATS_IN_BPS eq "Y") {
-		push(@CDEF, "CDEF:B_in=in,8,*");
-		push(@CDEF, "CDEF:B_out=out,8,*");
-	} else {
-		push(@CDEF, "CDEF:B_in=in");
-		push(@CDEF, "CDEF:B_out=out");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_nginx3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=$vlabel",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		@warning,
-		"DEF:in=$NGINX_RRD:nginx_bytes_in:AVERAGE",
-		"DEF:out=$NGINX_RRD:nginx_bytes_out:AVERAGE",
-		@CDEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_nginx3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@warning,
-			"DEF:in=$NGINX_RRD:nginx_bytes_in:AVERAGE",
-			"DEF:out=$NGINX_RRD:nginx_bytes_out:AVERAGE",
-			@CDEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nginx3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# LIGHTTPD graph
-# ----------------------------------------------------------------------------
-sub lighttpd {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $vlabel = "bytes/s";
-	my $e;
-	my $e2;
-	my $n;
-	my $n2;
-	my $str;
-	my $err;
-
-	$title = !$silent ? $title : "";
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$vlabel = "bits/s";
-	}
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$LIGHTTPD_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $LIGHTTPD_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < scalar(@LIGHTTPD_LIST); $n++) {
-			$line1 = "                                    ";
-			$line2 .= "   Acceses     kbytes     Busy  Idle";
-			$line3 .= "------------------------------------";
-			if($line1) {
-				$i = length($line1);
-				printf(sprintf("%${i}s", sprintf("%s", $LIGHTTPD_LIST[$n])));
-			}
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < scalar(@LIGHTTPD_LIST); $n2++) {
-				undef(@row);
-				$from = $n2 * 9;
-				$to = $from + 9;
-				push(@row, @$line[$from..$to]);
-				printf("   %7d  %9d      %3d   %3d", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@LIGHTTPD_LIST); $n++) {
-		for($n2 = 1; $n2 <= 3; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $url (@LIGHTTPD_LIST) {
-		if($e) {
-			print("  <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($LIGHTTPD1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$LIGHTTPD1_LIMIT");
-		} else {
-			if($LIGHTTPD1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$LIGHTTPD1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:lighttpd" . $e . "_idle#4444EE:Idle");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:LAST:            Current\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:AVERAGE:   Average\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:MIN:   Min\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_idle:MAX:   Max\\: %3.0lf\\n");
-		push(@tmp, "AREA:lighttpd" . $e . "_busy#44EEEE:Busy");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:LAST:            Current\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:AVERAGE:   Average\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:MIN:   Min\\: %3.0lf");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_busy:MAX:   Max\\: %3.0lf\\n");
-		push(@tmp, "LINE1:lighttpd" . $e . "_idle#0000EE");
-		push(@tmp, "LINE1:lighttpd" . $e . "_busy#00EEEE");
-		push(@tmp, "LINE1:lighttpd" . $e . "_tot#EE0000");
-		push(@tmpz, "AREA:lighttpd" . $e . "_idle#4444EE:Idle");
-		push(@tmpz, "AREA:lighttpd" . $e . "_busy#44EEEE:Busy");
-		push(@tmpz, "LINE2:lighttpd" . $e . "_idle#0000EE");
-		push(@tmpz, "LINE2:lighttpd" . $e . "_busy#00EEEE");
-		push(@tmpz, "LINE2:lighttpd" . $e . "_tot#EE0000");
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
-			"--title=$rgraphs{_lighttpd1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Workers",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:lighttpd" . $e . "_busy=$LIGHTTPD_RRD:lighttpd" . $e . "_busy:AVERAGE",
-			"DEF:lighttpd" . $e . "_idle=$LIGHTTPD_RRD:lighttpd" . $e . "_idle:AVERAGE",
-			"CDEF:lighttpd" . $e . "_tot=lighttpd" . $e . "_busy,lighttpd" . $e . "_idle,+",
-			"COMMENT: \\n",
-			@tmp,
-			"COMMENT: \\n",
-			"COMMENT: \\n");
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
-				"--title=$rgraphs{_lighttpd1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Workers",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:lighttpd" . $e . "_busy=$LIGHTTPD_RRD:lighttpd" . $e . "_busy:AVERAGE",
-				"DEF:lighttpd" . $e . "_idle=$LIGHTTPD_RRD:lighttpd" . $e . "_idle:AVERAGE",
-				"CDEF:lighttpd" . $e . "_tot=lighttpd" . $e . "_busy,lighttpd" . $e . "_idle,+",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@riglim);
-		if($LIGHTTPD2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$LIGHTTPD2_LIMIT");
-		} else {
-			if($LIGHTTPD2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$LIGHTTPD2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		undef(@CDEF);
-		push(@tmp, "AREA:Bytes#44AAEE:KBytes");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_kb:LAST:               Current\\: %6.1lf\\n");
-		push(@tmp, "LINE1:lighttpd" . $e . "_kb#00EEEE");
-		push(@tmpz, "AREA:Bytes#44AAEE:Bytes");
-		push(@tmpz, "LINE1:lighttpd" . $e . "_kb#00EEEE");
-		if($NETSTATS_IN_BPS eq "Y") {
-			push(@CDEF, "CDEF:Bytes=lighttpd" . $e . "_kb,8,*,1024,*");
-		} else {
-			push(@CDEF, "CDEF:Bytes=lighttpd" . $e . "_kb,1024,*");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 1]",
-			"--title=$rgraphs{_lighttpd2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:lighttpd" . $e . "_kb=$LIGHTTPD_RRD:lighttpd" . $e . "_kb:AVERAGE",
-			@CDEF,
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 1]",
-				"--title=$rgraphs{_lighttpd2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:lighttpd" . $e . "_kb=$LIGHTTPD_RRD:lighttpd" . $e . "_kb:AVERAGE",
-				@CDEF,
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 1]: $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($LIGHTTPD3_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$LIGHTTPD3_LIMIT");
-		} else {
-			if($LIGHTTPD3_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$LIGHTTPD3_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:lighttpd" . $e . "_acc#44EE44:Accesses");
-		push(@tmp, "GPRINT:lighttpd" . $e . "_acc:LAST:             Current\\: %5.2lf\\n");
-		push(@tmp, "LINE1:lighttpd" . $e . "_acc#00EE00");
-		push(@tmpz, "AREA:lighttpd" . $e . "_acc#44EE44:Accesses");
-		push(@tmpz, "LINE1:lighttpd" . $e . "_acc#00EE00");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3 + 2]",
-			"--title=$rgraphs{_lighttpd3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Accesses/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:lighttpd" . $e . "_acc=$LIGHTTPD_RRD:lighttpd" . $e . "_acc:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3 + 2]",
-				"--title=$rgraphs{_lighttpd3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Accesses/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:lighttpd" . $e . "_acc=$LIGHTTPD_RRD:lighttpd" . $e . "_acc:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3 + 2]: $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /lighttpd$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b style='{color: $title_fg_color}'>&nbsp;&nbsp;$url<b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# MYSQL graph
-# ----------------------------------------------------------------------------
-sub mysql {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my $e;
-	my $e2;
-	my $n;
-	my $n2;
-	my $num;
-	my $err;
-
-	$title = !$silent ? $title : "";
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-	$MYSQL_CONN_TYPE = $MYSQL_CONN_TYPE || "Host";
-	if(lc($MYSQL_CONN_TYPE) eq "host") {
-		$num = scalar(@MYSQL_HOST_LIST);
-	}
-	if(lc($MYSQL_CONN_TYPE) eq "socket") {
-		$num = scalar(@MYSQL_SOCK_LIST);
-	}
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$MYSQL_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $MYSQL_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < $num; $n++) {
-			$line1 = "                                                                                                                                                                                                                          ";
-			$line2 .= "   Select  Commit  Delete  Insert  Insert_S  Update  Replace  Replace_S  Rollback  TCacheHit  QCache_U  Conns_U  KeyBuf_U  InnoDB_U  OpenedTbl  TLocks_W  Queries  SlowQrs  Conns  AbrtCli  AbrtConn  BytesRecv  BytesSent";
-			$line3 .= "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------";
-			if($line1) {
-				$i = length($line1);
-				if(lc($MYSQL_CONN_TYPE) eq "host") {
-					printf(sprintf("%${i}s", sprintf("%s:%s", $MYSQL_HOST_LIST[$n], $MYSQL_PORT_LIST[$n])));
-				}
-				if(lc($MYSQL_CONN_TYPE) eq "socket") {
-					printf(sprintf("%${i}s", sprintf("socket: %s", $MYSQL_SOCK_LIST[$n])));
-				}
-			}
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < $num; $n2++) {
-				undef(@row);
-				$from = $n2 * 38;
-				$to = $from + 38;
-				push(@row, @$line[$from..$to]);
-				printf("   %6d  %6d  %6d  %6d  %8d  %6d  %7d   %8d  %8d        %2d%%       %2d%%      %2d%%       %2d%%       %2d%%     %6d    %6d   %6d   %6d %6d   %6d    %6d  %9d  %9d", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	$e = 0;
-	for($n = 0; $n < $num; $n++) {
-		for($n2 = 1; $n2 <= 6; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-
-		if(lc($MYSQL_CONN_TYPE) eq "host") {
-	        	$str = $MYSQL_HOST_LIST[$e] . ":" . $MYSQL_PORT_LIST[$e];
-		}
-		if(lc($MYSQL_CONN_TYPE) eq "socket") {
-	        	$str = "socket: " . $MYSQL_SOCK_LIST[$e];
-		}
-
-		if($e) {
-			print("  <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($MYSQL1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL1_LIMIT");
-		} else {
-			if($MYSQL1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td valign='top' bgcolor='$title_bg_color'>\n");
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE1:com_select#FFA500:Select");
-		push(@tmp, "GPRINT:com_select:LAST:         Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_select:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_select:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_select:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_commit#EEEE44:Commit");
-		push(@tmp, "GPRINT:com_commit:LAST:         Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_commit:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_commit:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_commit:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_delete#EE4444:Delete");
-		push(@tmp, "GPRINT:com_delete:LAST:         Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_delete:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_delete:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_delete:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_insert#44EE44:Insert");
-		push(@tmp, "GPRINT:com_insert:LAST:         Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_insert_s#448844:Insert Select");
-		push(@tmp, "GPRINT:com_insert_s:LAST:  Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert_s:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert_s:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_insert_s:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_update#EE44EE:Update");
-		push(@tmp, "GPRINT:com_update:LAST:         Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_update:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_update:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_update:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_replace#44EEEE:Replace");
-		push(@tmp, "GPRINT:com_replace:LAST:        Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_replace_s#4444EE:Replace Select");
-		push(@tmp, "GPRINT:com_replace_s:LAST: Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace_s:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace_s:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_replace_s:MAX:    Max\\: %6.1lf\\n");
-		push(@tmp, "LINE1:com_rollback#444444:Rollback");
-		push(@tmp, "GPRINT:com_rollback:LAST:       Cur\\: %6.1lf");
-		push(@tmp, "GPRINT:com_rollback:AVERAGE:    Avg\\: %6.1lf");
-		push(@tmp, "GPRINT:com_rollback:MIN:    Min\\: %6.1lf");
-		push(@tmp, "GPRINT:com_rollback:MAX:    Max\\: %6.1lf\\n");
-		push(@tmpz, "LINE2:com_select#FFA500:Select");
-		push(@tmpz, "LINE2:com_commit#EEEE44:Commit");
-		push(@tmpz, "LINE2:com_delete#EE4444:Delete");
-		push(@tmpz, "LINE2:com_insert#44EE44:Insert");
-		push(@tmpz, "LINE2:com_insert_s#448844:Insert Sel");
-		push(@tmpz, "LINE2:com_update#EE44EE:Update");
-		push(@tmpz, "LINE2:com_replace#44EEEE:Replace");
-		push(@tmpz, "LINE2:com_replace_s#4444EE:Replace Sel");
-		push(@tmpz, "LINE2:com_rollback#444444:Rollback");
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6]",
-			"--title=$rgraphs{_mysql1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Queries/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:com_select=$MYSQL_RRD:mysql" . $e . "_csel:AVERAGE",
-			"DEF:com_commit=$MYSQL_RRD:mysql" . $e . "_ccom:AVERAGE",
-			"DEF:com_delete=$MYSQL_RRD:mysql" . $e . "_cdel:AVERAGE",
-			"DEF:com_insert=$MYSQL_RRD:mysql" . $e . "_cins:AVERAGE",
-			"DEF:com_insert_s=$MYSQL_RRD:mysql" . $e . "_cinss:AVERAGE",
-			"DEF:com_update=$MYSQL_RRD:mysql" . $e . "_cupd:AVERAGE",
-			"DEF:com_replace=$MYSQL_RRD:mysql" . $e . "_crep:AVERAGE",
-			"DEF:com_replace_s=$MYSQL_RRD:mysql" . $e . "_creps:AVERAGE",
-			"DEF:com_rollback=$MYSQL_RRD:mysql" . $e . "_crol:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6]",
-				"--title=$rgraphs{_mysql1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Queries/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:com_select=$MYSQL_RRD:mysql" . $e . "_csel:AVERAGE",
-				"DEF:com_commit=$MYSQL_RRD:mysql" . $e . "_ccom:AVERAGE",
-				"DEF:com_delete=$MYSQL_RRD:mysql" . $e . "_cdel:AVERAGE",
-				"DEF:com_insert=$MYSQL_RRD:mysql" . $e . "_cins:AVERAGE",
-				"DEF:com_insert_s=$MYSQL_RRD:mysql" . $e . "_cinss:AVERAGE",
-				"DEF:com_update=$MYSQL_RRD:mysql" . $e . "_cupd:AVERAGE",
-				"DEF:com_replace=$MYSQL_RRD:mysql" . $e . "_crep:AVERAGE",
-				"DEF:com_replace_s=$MYSQL_RRD:mysql" . $e . "_creps:AVERAGE",
-				"DEF:com_rollback=$MYSQL_RRD:mysql" . $e . "_crol:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($MYSQL2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL2_LIMIT");
-		} else {
-			if($MYSQL2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE1:tcache_hit_r#FFA500:Thread Cache Hit Rate");
-		push(@tmp, "GPRINT:tcache_hit_r:LAST:  Cur\\: %4.1lf%%");
-		push(@tmp, "GPRINT:tcache_hit_r:AVERAGE:  Avg\\: %4.1lf%%");
-		push(@tmp, "GPRINT:tcache_hit_r:MIN:  Min\\: %4.1lf%%");
-		push(@tmp, "GPRINT:tcache_hit_r:MAX:  Max\\: %4.1lf%%\\n");
-		push(@tmp, "LINE1:qcache_usage#44EEEE:Query Cache Usage");
-		push(@tmp, "GPRINT:qcache_usage:LAST:      Cur\\: %4.1lf%%");
-		push(@tmp, "GPRINT:qcache_usage:AVERAGE:  Avg\\: %4.1lf%%");
-		push(@tmp, "GPRINT:qcache_usage:MIN:  Min\\: %4.1lf%%");
-		push(@tmp, "GPRINT:qcache_usage:MAX:  Max\\: %4.1lf%%\\n");
-		push(@tmp, "LINE1:conns_u#44EE44:Connections Usage");
-		push(@tmp, "GPRINT:conns_u:LAST:      Cur\\: %4.1lf%%");
-		push(@tmp, "GPRINT:conns_u:AVERAGE:  Avg\\: %4.1lf%%");
-		push(@tmp, "GPRINT:conns_u:MIN:  Min\\: %4.1lf%%");
-		push(@tmp, "GPRINT:conns_u:MAX:  Max\\: %4.1lf%%\\n");
-		push(@tmp, "LINE1:key_buf_u#EE4444:Key Buffer Usage");
-		push(@tmp, "GPRINT:key_buf_u:LAST:       Cur\\: %4.1lf%%");
-		push(@tmp, "GPRINT:key_buf_u:AVERAGE:  Avg\\: %4.1lf%%");
-		push(@tmp, "GPRINT:key_buf_u:MIN:  Min\\: %4.1lf%%");
-		push(@tmp, "GPRINT:key_buf_u:MAX:  Max\\: %4.1lf%%\\n");
-		push(@tmp, "LINE1:innodb_buf_u#EE44EE:InnoDB Buffer P. Usage");
-		push(@tmp, "GPRINT:innodb_buf_u:LAST: Cur\\: %4.1lf%%");
-		push(@tmp, "GPRINT:innodb_buf_u:AVERAGE:  Avg\\: %4.1lf%%");
-		push(@tmp, "GPRINT:innodb_buf_u:MIN:  Min\\: %4.1lf%%");
-		push(@tmp, "GPRINT:innodb_buf_u:MAX:  Max\\: %4.1lf%%\\n");
-		push(@tmpz, "LINE2:tcache_hit_r#FFA500:Thread Cache Hit Rate");
-		push(@tmpz, "LINE2:qcache_usage#44EEEE:Query Cache Usage");
-		push(@tmpz, "LINE2:conns_u#44EE44:Connections Usage");
-		push(@tmpz, "LINE2:key_buf_u#EE4444:Key Buffer Usage");
-		push(@tmpz, "LINE2:innodb_buf_u#EE44EE:Innodb Buffer P. Usage");
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 1]",
-			"--title=$rgraphs{_mysql2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Percent (%)",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:tcache_hit_r=$MYSQL_RRD:mysql" . $e . "_tchr:AVERAGE",
-			"DEF:qcache_usage=$MYSQL_RRD:mysql" . $e . "_qcu:AVERAGE",
-			"DEF:conns_u=$MYSQL_RRD:mysql" . $e . "_conns_u:AVERAGE",
-			"DEF:key_buf_u=$MYSQL_RRD:mysql" . $e . "_kbu:AVERAGE",
-			"DEF:innodb_buf_u=$MYSQL_RRD:mysql" . $e . "_innbu:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 1]",
-				"--title=$rgraphs{_mysql2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Percent (%)",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:tcache_hit_r=$MYSQL_RRD:mysql" . $e . "_tchr:AVERAGE",
-				"DEF:qcache_usage=$MYSQL_RRD:mysql" . $e . "_qcu:AVERAGE",
-				"DEF:conns_u=$MYSQL_RRD:mysql" . $e . "_conns_u:AVERAGE",
-				"DEF:key_buf_u=$MYSQL_RRD:mysql" . $e . "_kbu:AVERAGE",
-				"DEF:innodb_buf_u=$MYSQL_RRD:mysql" . $e . "_innbu:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 1]: $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 1] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@riglim);
-		if($MYSQL3_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL3_LIMIT");
-		} else {
-			if($MYSQL3_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL3_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:opened_tbl#44EEEE:Opened Tables");
-		push(@tmp, "GPRINT:opened_tbl:LAST:        Current\\: %7.1lf\\n");
-		push(@tmp, "AREA:tlocks_w#4444EE:Table Locks Waited");
-		push(@tmp, "GPRINT:tlocks_w:LAST:   Current\\: %7.1lf\\n");
-		push(@tmp, "LINE1:opened_tbl#00EEEE");
-		push(@tmp, "LINE1:tlocks_w#0000EE");
-		push(@tmpz, "AREA:opened_tbl#44EEEE:Opened Tables");
-		push(@tmpz, "AREA:tlocks_w#4444EE:Table Locks Waited");
-		push(@tmpz, "LINE1:opened_tbl#00EEEE");
-		push(@tmpz, "LINE1:tlocks_w#0000EE");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 2]",
-			"--title=$rgraphs{_mysql3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Open & Locks/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:opened_tbl=$MYSQL_RRD:mysql" . $e . "_ot:AVERAGE",
-			"DEF:tlocks_w=$MYSQL_RRD:mysql" . $e . "_tlw:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 2]",
-				"--title=$rgraphs{_mysql3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Open & Locks/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:opened_tbl=$MYSQL_RRD:mysql" . $e . "_ot:AVERAGE",
-				"DEF:tlocks_w=$MYSQL_RRD:mysql" . $e . "_tlw:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 2]: $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 2] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($MYSQL4_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL4_LIMIT");
-		} else {
-			if($MYSQL4_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL4_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:qrs#44EEEE:Queries");
-		push(@tmp, "GPRINT:qrs:LAST:              Current\\: %7.1lf\\n");
-		push(@tmp, "AREA:sqrs#4444EE:Slow Queries");
-		push(@tmp, "GPRINT:sqrs:LAST:         Current\\: %7.1lf\\n");
-		push(@tmp, "LINE1:qrs#00EEEE");
-		push(@tmp, "LINE1:sqrs#0000EE");
-		push(@tmpz, "AREA:qrs#44EEEE:Queries");
-		push(@tmpz, "AREA:sqrs#4444EE:Slow Queries");
-		push(@tmpz, "LINE1:qrs#00EEEE");
-		push(@tmpz, "LINE1:sqrs#0000EE");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 3]",
-			"--title=$rgraphs{_mysql4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Queries/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:qrs=$MYSQL_RRD:mysql" . $e . "_queries:AVERAGE",
-			"DEF:sqrs=$MYSQL_RRD:mysql" . $e . "_sq:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 3]",
-				"--title=$rgraphs{_mysql4}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Queries/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:qrs=$MYSQL_RRD:mysql" . $e . "_queries:AVERAGE",
-				"DEF:sqrs=$MYSQL_RRD:mysql" . $e . "_sq:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 3]: $err\n") if $err;
-		}
-		$e2 = $e + 4;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 3] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($MYSQL5_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL5_LIMIT");
-		} else {
-			if($MYSQL5_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL5_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "AREA:conns#44EEEE:Connections");
-		push(@tmp, "GPRINT:conns:LAST:          Current\\: %7.1lf\\n");
-		push(@tmp, "AREA:acli#EEEE44:Aborted Clients");
-		push(@tmp, "GPRINT:acli:LAST:      Current\\: %7.1lf\\n");
-		push(@tmp, "AREA:acon#EE4444:Aborted Connects");
-		push(@tmp, "GPRINT:acon:LAST:     Current\\: %7.1lf\\n");
-		push(@tmp, "LINE1:conns#00EEEE");
-		push(@tmp, "LINE1:acli#EEEE00");
-		push(@tmp, "LINE1:acon#EE0000");
-		push(@tmpz, "AREA:conns#44EEEE:Connections");
-		push(@tmpz, "AREA:acli#EEEE44:Aborted Clients");
-		push(@tmpz, "AREA:acon#EE4444:Aborted Connects");
-		push(@tmpz, "LINE1:conns#00EEEE");
-		push(@tmpz, "LINE1:acli#EEEE00");
-		push(@tmpz, "LINE1:acon#EE0000");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 4]",
-			"--title=$rgraphs{_mysql5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Connectionss/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:conns=$MYSQL_RRD:mysql" . $e . "_conns:AVERAGE",
-			"DEF:acli=$MYSQL_RRD:mysql" . $e . "_acli:AVERAGE",
-			"DEF:acon=$MYSQL_RRD:mysql" . $e . "_acon:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 4]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 4]",
-				"--title=$rgraphs{_mysql5}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Connectionss/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:conns=$MYSQL_RRD:mysql" . $e . "_conns:AVERAGE",
-				"DEF:acli=$MYSQL_RRD:mysql" . $e . "_acli:AVERAGE",
-				"DEF:acon=$MYSQL_RRD:mysql" . $e . "_acon:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 4]: $err\n") if $err;
-		}
-		$e2 = $e + 5;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 4] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 4] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 4] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 4] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 4] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($MYSQL6_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$MYSQL6_LIMIT");
-		} else {
-			if($MYSQL6_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$MYSQL6_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		undef(@CDEF);
-		push(@tmp, "AREA:B_in#44EE44:Input");
-		push(@tmp, "AREA:B_out#4444EE:Output");
-		push(@tmp, "AREA:B_out#4444EE:");
-		push(@tmp, "AREA:B_in#44EE44:");
-		push(@tmp, "LINE1:B_out#0000EE");
-		push(@tmp, "LINE1:B_in#00EE00");
-		push(@tmpz, "AREA:B_in#44EE44:Input");
-		push(@tmpz, "AREA:B_out#4444EE:Output");
-		push(@tmpz, "AREA:B_out#4444EE:");
-		push(@tmpz, "AREA:B_in#44EE44:");
-		push(@tmpz, "LINE1:B_out#0000EE");
-		push(@tmpz, "LINE1:B_in#00EE00");
-		if($NETSTATS_IN_BPS eq "Y") {
-			push(@CDEF, "CDEF:B_in=in,8,*");
-			push(@CDEF, "CDEF:B_out=out,8,*");
-		} else {
-			push(@CDEF, "CDEF:B_in=in");
-			push(@CDEF, "CDEF:B_out=out");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-			push(@tmp, "COMMENT: \\n");
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 6 + 5]",
-			"--title=$rgraphs{_mysql6}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:in=$MYSQL_RRD:mysql" . $e . "_brecv:AVERAGE",
-			"DEF:out=$MYSQL_RRD:mysql" . $e . "_bsent:AVERAGE",
-			@CDEF,
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 6 + 5]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 6 + 5]",
-				"--title=$rgraphs{_mysql6}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:in=$MYSQL_RRD:mysql" . $e . "_brecv:AVERAGE",
-				"DEF:out=$MYSQL_RRD:mysql" . $e . "_bsent:AVERAGE",
-				@CDEF,
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 6 + 5]: $err\n") if $err;
-		}
-		$e2 = $e + 6;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /mysql$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 5] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 5] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 6 + 5] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 5] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 6 + 5] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b style='{color: $title_fg_color}'>&nbsp;&nbsp;$str<b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# SQUID graph
-# ----------------------------------------------------------------------------
-sub squid {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my $i;
-	my @DEF;
-	my $n;
-	my $str;
-	my $err;
-	my @AC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#963C74",
-		"#CCCCCC",
-	);
-	my @LC = (
-		"#FFA500",
-		"#00EEEE",
-		"#00EE00",
-		"#0000EE",
-		"#448844",
-		"#EE0000",
-		"#EE00EE",
-		"#EEEE00",
-		"#B4B444",
-		"#888888",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG4 = $u . $myself . "4." . $when . ".png";
-	my $PNG5 = $u . $myself . "5." . $when . ".png";
-	my $PNG6 = $u . $myself . "6." . $when . ".png";
-	my $PNG7 = $u . $myself . "7." . $when . ".png";
-	my $PNG8 = $u . $myself . "8." . $when . ".png";
-	my $PNG9 = $u . $myself . "9." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-	my $PNG4z = $u . $myself . "4z." . $when . ".png";
-	my $PNG5z = $u . $myself . "5z." . $when . ".png";
-	my $PNG6z = $u . $myself . "6z." . $when . ".png";
-	my $PNG7z = $u . $myself . "7z." . $when . ".png";
-	my $PNG8z = $u . $myself . "8z." . $when . ".png";
-	my $PNG9z = $u . $myself . "9z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3",
-		"$PNG_DIR" . "$PNG4",
-		"$PNG_DIR" . "$PNG5",
-		"$PNG_DIR" . "$PNG6",
-		"$PNG_DIR" . "$PNG7",
-		"$PNG_DIR" . "$PNG8",
-		"$PNG_DIR" . "$PNG9");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z",
-			"$PNG_DIR" . "$PNG4z",
-			"$PNG_DIR" . "$PNG5z",
-			"$PNG_DIR" . "$PNG6z",
-			"$PNG_DIR" . "$PNG7z",
-			"$PNG_DIR" . "$PNG8z",
-			"$PNG_DIR" . "$PNG9z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$SQUID_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $SQUID_RRD: $err\n") if $err;
-		my $str;
-		my $line1;
-		my $line2;
-		my $line3;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		for($n = 0; $n < scalar(@SQUID_GRAPH_1); $n++) {
-			$line2 .= sprintf("%6d", $n + 1);
-			$str .= "------";
-		}
-		$line3 .= $str;
-		$i = length($str);
-		$line1 .= sprintf(" %${i}s", "Statistics graph 1");
-		undef($str);
-		$line2 .= " ";
-		$line3 .= "-";
-		for($n = 0; $n < scalar(@SQUID_GRAPH_2); $n++) {
-			$line2 .= sprintf("%6d", $n + 1);
-			$str .= "------";
-		}
-		$line3 .= $str;
-		$i = length($str);
-		$line1 .= sprintf(" %${i}s", "Statistics graph 2");
-		$line1 .= "                                              Overall I/O";
-		$line2 .= "  cHTTPr cHTTPh sHTTPr  sFTPr sOther Abortr SwpFcl Unlnkr";
-		$line3 .= "---------------------------------------------------------";
-		$line1 .= "     Memory usage (MB)";
-		$line2 .= "   Alloct   InUse  %  ";
-		$line3 .= "----------------------";
-		$line1 .= "      Storage usage (MB)";
-		$line2 .= "    Alloct    InUse  %  ";
-		$line3 .= "------------------------";
-		$line1 .= "        IP Cache";
-		$line2 .= "  Reqs Hits Miss";
-		$line3 .= "----------------";
-		$line1 .= "    Network Protocols";
-		$line2 .= "  HTTP  FTP Goph WAIS";
-		$line3 .= "---------------------";
-		$line1 .= "  Client Traffic";
-		$line2 .= "    Input Output";
-		$line3 .= "----------------";
-		$line1 .= "  Server Traffic";
-		$line2 .= "    Input Output";
-		$line3 .= "----------------";
-		print("    $line1\n");
-		print("Time $line2\n");
-		print("-----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my @g1;
-		my @g2;
-		my $n2;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			undef($line1);
-			undef(@row);
-			(@g1) = @$line[0..scalar(@SQUID_GRAPH_1) - 1];
-			for($n2 = 0; $n2 < scalar(@SQUID_GRAPH_1); $n2++) {
-				push(@row, $g1[$n2]);
-				$line1 .= "%5d ";
-			}
-			(@g2) = @$line[9..9 + scalar(@SQUID_GRAPH_2) - 1];
-			$line1 .= " ";
-			for($n2 = 0; $n2 < scalar(@SQUID_GRAPH_2); $n2++) {
-				push(@row, $g2[$n2]);
-				$line1 .= "%5d ";
-			}
-			$line1 .= " ";
-			push(@row, @$line[18..25]);
-			$line1 .= "%6d %6d %6d %6d %6d %6d %6d %6d ";
-			$line1 .= " ";
-			push(@row, @$line[27..28]);
-			push(@row, (@$line[28] * 100) / @$line[27]);
-			$line1 .= "%7d %7d %3.1f ";
-			$line1 .= " ";
-			push(@row, @$line[43..44]);
-			push(@row, (@$line[44] * 100) / @$line[43]);
-			$line1 .= "%8d %8d %3.1f ";
-			$line1 .= " ";
-			push(@row, @$line[32..34]);
-			$line1 .= "%4d %4d %4d ";
-			$line1 .= " ";
-			push(@row, @$line[37..40]);
-			$line1 .= "%4d %4d %4d %4d ";
-			$line1 .= " ";
-			push(@row, @$line[47..48]);
-			$line1 .= " %6d %6d ";
-			$line1 .= " ";
-			push(@row, @$line[50..51]);
-			$line1 .= " %6d %6d ";
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc  $line1\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($SQUID1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID1_LIMIT");
-	} else {
-		if($SQUID1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td valign='top' bgcolor='$title_bg_color'>\n");
-	}
-	for($n = 0, $i = 1; $n < 9; $n++, $i++) {
-		if($SQUID_GRAPH_1[$n]) {
-			$str = sprintf("%-34s", $SQUID_GRAPH_1[$n]);
-			$str = substr($str, 0, 23);
-			push(@DEF, "DEF:squid_g1_$i=$SQUID_RRD:squid_g1_$i:AVERAGE");
-			push(@tmp, "LINE1:squid_g1_$i$AC[$n]:$str");
-			push(@tmp, "GPRINT:squid_g1_$i:LAST:Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g1_$i:AVERAGE:  Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g1_$i:MIN:  Min\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g1_$i:MAX:  Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:squid_g1_$i$AC[$n]:$SQUID_GRAPH_1[$n]");
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_squid1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_squid1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID2_LIMIT");
-	} else {
-		if($SQUID2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@DEF);
-	for($n = 0, $i = 1; $n < 9; $n++, $i++) {
-		if($SQUID_GRAPH_2[$n]) {
-			$str = sprintf("%-34s", $SQUID_GRAPH_2[$n]);
-			$str = substr($str, 0, 23);
-			push(@DEF, "DEF:squid_g2_$i=$SQUID_RRD:squid_g2_$i:AVERAGE");
-			push(@tmp, "LINE1:squid_g2_$i$AC[$n]:$str");
-			push(@tmp, "GPRINT:squid_g2_$i:LAST:Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g2_$i:AVERAGE:  Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g2_$i:MIN:  Min\\: %6.1lf");
-			push(@tmp, "GPRINT:squid_g2_$i:MAX:  Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:squid_g2_$i$AC[$n]:$SQUID_GRAPH_2[$n]");
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_squid2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_squid2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID3_LIMIT");
-	} else {
-		if($SQUID3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@DEF);
-	push(@tmp, "LINE1:squid_rq_1$AC[0]:Client HTTP requests");
-	push(@tmp, "GPRINT:squid_rq_1:LAST:  Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_1:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_1:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_1:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_2$AC[1]:Client HTTP hits");
-	push(@tmp, "GPRINT:squid_rq_2:LAST:      Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_2:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_2:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_2:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_3$AC[2]:Server HTTP requests");
-	push(@tmp, "GPRINT:squid_rq_3:LAST:  Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_3:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_3:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_3:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_4$AC[3]:Server FTP requests");
-	push(@tmp, "GPRINT:squid_rq_4:LAST:   Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_4:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_4:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_4:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_5$AC[4]:Server Other requests");
-	push(@tmp, "GPRINT:squid_rq_5:LAST: Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_5:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_5:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_5:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_6$AC[5]:Aborted requests");
-	push(@tmp, "GPRINT:squid_rq_6:LAST:      Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_6:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_6:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_6:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_7$AC[6]:Swap files cleaned");
-	push(@tmp, "GPRINT:squid_rq_7:LAST:    Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_7:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_7:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_7:MAX:  Max\\: %6.1lf\\n");
-	push(@tmp, "LINE1:squid_rq_8$AC[7]:Unlink requests");
-	push(@tmp, "GPRINT:squid_rq_8:LAST:       Cur\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_8:AVERAGE:  Avg\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_8:MIN:  Min\\: %6.1lf");
-	push(@tmp, "GPRINT:squid_rq_8:MAX:  Max\\: %6.1lf\\n");
-	push(@tmpz, "LINE2:squid_rq_1$AC[0]:Client HTTP requests");
-	push(@tmpz, "LINE2:squid_rq_2$AC[1]:Client HTTP hits");
-	push(@tmpz, "LINE2:squid_rq_3$AC[2]:Server HTTP requests");
-	push(@tmpz, "LINE2:squid_rq_4$AC[3]:Server FTP requests");
-	push(@tmpz, "LINE2:squid_rq_5$AC[4]:Server Other requests");
-	push(@tmpz, "LINE2:squid_rq_6$AC[5]:Aborted requests");
-	push(@tmpz, "LINE2:squid_rq_7$AC[6]:Swap files cleaned");
-	push(@tmpz, "LINE2:squid_rq_8$AC[7]:Unlink requests");
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_squid3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		"DEF:squid_rq_1=$SQUID_RRD:squid_rq_1:AVERAGE",
-		"DEF:squid_rq_2=$SQUID_RRD:squid_rq_2:AVERAGE",
-		"DEF:squid_rq_3=$SQUID_RRD:squid_rq_3:AVERAGE",
-		"DEF:squid_rq_4=$SQUID_RRD:squid_rq_4:AVERAGE",
-		"DEF:squid_rq_5=$SQUID_RRD:squid_rq_5:AVERAGE",
-		"DEF:squid_rq_6=$SQUID_RRD:squid_rq_6:AVERAGE",
-		"DEF:squid_rq_7=$SQUID_RRD:squid_rq_7:AVERAGE",
-		"DEF:squid_rq_8=$SQUID_RRD:squid_rq_8:AVERAGE",
-		"DEF:squid_rq_9=$SQUID_RRD:squid_rq_9:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_squid3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:squid_rq_1=$SQUID_RRD:squid_rq_1:AVERAGE",
-			"DEF:squid_rq_2=$SQUID_RRD:squid_rq_2:AVERAGE",
-			"DEF:squid_rq_3=$SQUID_RRD:squid_rq_3:AVERAGE",
-			"DEF:squid_rq_4=$SQUID_RRD:squid_rq_4:AVERAGE",
-			"DEF:squid_rq_5=$SQUID_RRD:squid_rq_5:AVERAGE",
-			"DEF:squid_rq_6=$SQUID_RRD:squid_rq_6:AVERAGE",
-			"DEF:squid_rq_7=$SQUID_RRD:squid_rq_7:AVERAGE",
-			"DEF:squid_rq_8=$SQUID_RRD:squid_rq_8:AVERAGE",
-			"DEF:squid_rq_9=$SQUID_RRD:squid_rq_9:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($SQUID4_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID4_LIMIT");
-	} else {
-		if($SQUID4_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID4_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE1:m_alloc#EEEE44:Allocated");
-	push(@tmp, "GPRINT:m_alloc:LAST:            Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:m_inuse#44AAEE:In use");
-	push(@tmp, "LINE1:m_inuse#00AAEE:");
-	push(@tmp, "GPRINT:m_inuse:LAST:               Current\\: %7.1lf\\n");
-	push(@tmp, "GPRINT:m_perc:LAST:                          In use\\:   %5.1lf%%\\n");
-	push(@tmpz, "LINE2:m_alloc#EEEE44:Allocated");
-	push(@tmpz, "AREA:m_inuse#44AAEE:In use");
-	push(@tmpz, "LINE2:m_inuse#00AAEE:");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG4",
-		"--title=$rgraphs{_squid4}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Megabytes",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:squid_m_1=$SQUID_RRD:squid_m_1:AVERAGE",
-		"DEF:squid_m_2=$SQUID_RRD:squid_m_2:AVERAGE",
-		"CDEF:m_alloc=squid_m_1,1024,/",
-		"CDEF:m_inuse=squid_m_2,1024,/",
-		"CDEF:m_perc=squid_m_2,100,*,squid_m_1,/",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG4z",
-			"--title=$rgraphs{_squid4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Megabytes",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:squid_m_1=$SQUID_RRD:squid_m_1:AVERAGE",
-			"DEF:squid_m_2=$SQUID_RRD:squid_m_2:AVERAGE",
-			"CDEF:m_alloc=squid_m_1,1024,/",
-			"CDEF:m_inuse=squid_m_2,1024,/",
-			"CDEF:m_perc=squid_m_2,100,*,squid_m_1,/",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid4/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG4z . "\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG4 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID5_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID5_LIMIT");
-	} else {
-		if($SQUID5_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID5_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE1:s_alloc#EEEE44:Allocated");
-	push(@tmp, "GPRINT:s_alloc:LAST:            Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:s_inuse#44AAEE:In use");
-	push(@tmp, "GPRINT:s_inuse:LAST:               Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:s_inuse#00AAEE:");
-	push(@tmp, "GPRINT:s_perc:LAST:                          In use\\:   %5.1lf%%\\n");
-	push(@tmpz, "LINE2:s_alloc#EEEE44:Allocated");
-	push(@tmpz, "AREA:s_inuse#44AAEE:In use");
-	push(@tmpz, "LINE2:s_inuse#00AAEE:");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG5",
-		"--title=$rgraphs{_squid5}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Megabytes",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:squid_s_2=$SQUID_RRD:squid_s_2:AVERAGE",
-		"DEF:squid_s_3=$SQUID_RRD:squid_s_3:AVERAGE",
-		"CDEF:s_alloc=squid_s_2,1024,/",
-		"CDEF:s_inuse=squid_s_3,1024,/",
-		"CDEF:s_perc=squid_s_3,100,*,squid_s_2,/",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG5z",
-			"--title=$rgraphs{_squid5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Megabytes",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:squid_s_2=$SQUID_RRD:squid_s_2:AVERAGE",
-			"DEF:squid_s_3=$SQUID_RRD:squid_s_3:AVERAGE",
-			"CDEF:s_alloc=squid_s_2,1024,/",
-			"CDEF:s_inuse=squid_s_3,1024,/",
-			"CDEF:s_perc=squid_s_3,100,*,squid_s_2,/",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid5/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG5z . "\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG5 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID6_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID6_LIMIT");
-	} else {
-		if($SQUID6_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID6_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:ic_requests#44EEEE:Requests");
-	push(@tmp, "GPRINT:ic_requests:LAST:             Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:ic_hits#4444EE:Hits");
-	push(@tmp, "GPRINT:ic_hits:LAST:                 Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:ic_misses#EE44EE:Misses");
-	push(@tmp, "GPRINT:ic_misses:LAST:               Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:ic_requests#00EEEE");
-	push(@tmp, "LINE1:ic_hits#0000EE");
-	push(@tmp, "LINE1:ic_misses#EE00EE");
-	push(@tmpz, "AREA:ic_requests#44EEEE:Requests");
-	push(@tmpz, "AREA:ic_hits#4444EE:Hits");
-	push(@tmpz, "AREA:ic_misses#EE44EE:Misses");
-	push(@tmpz, "LINE1:ic_requests#00EEEE");
-	push(@tmpz, "LINE1:ic_hits#0000EE");
-	push(@tmpz, "LINE1:ic_misses#EE00EE");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG6",
-		"--title=$rgraphs{_squid6}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:ic_requests=$SQUID_RRD:squid_ic_1:AVERAGE",
-		"DEF:ic_hits=$SQUID_RRD:squid_ic_2:AVERAGE",
-		"DEF:ic_misses=$SQUID_RRD:squid_ic_3:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG6z",
-			"--title=$rgraphs{_squid6}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ic_requests=$SQUID_RRD:squid_ic_1:AVERAGE",
-			"DEF:ic_hits=$SQUID_RRD:squid_ic_2:AVERAGE",
-			"DEF:ic_misses=$SQUID_RRD:squid_ic_3:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid6/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG6z . "\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG6 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID7_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID7_LIMIT");
-	} else {
-		if($SQUID7_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID7_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:io_http#44EEEE:HTTP");
-	push(@tmp, "GPRINT:io_http:LAST:                 Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:io_ftp#4444EE:FTP");
-	push(@tmp, "GPRINT:io_ftp:LAST:                  Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:io_gopher#EE44EE:Gopher");
-	push(@tmp, "GPRINT:io_gopher:LAST:               Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:io_wais#EEEE44:WAIS");
-	push(@tmp, "GPRINT:io_wais:LAST:                 Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:io_http#00EEEE");
-	push(@tmp, "LINE1:io_ftp#0000EE");
-	push(@tmp, "LINE1:io_gopher#EE00EE");
-	push(@tmp, "LINE1:io_wais#EEEE00");
-	push(@tmpz, "AREA:io_http#44EEEE:HTTP");
-	push(@tmpz, "AREA:io_ftp#4444EE:FTP");
-	push(@tmpz, "AREA:io_gopher#EE44EE:Gopher");
-	push(@tmpz, "AREA:io_wais#EEEE44:WAIS");
-	push(@tmpz, "LINE1:io_http#44EEEE");
-	push(@tmpz, "LINE1:io_ftp#4444EE");
-	push(@tmpz, "LINE1:io_gopher#EE44EE");
-	push(@tmpz, "LINE1:io_wais#EEEE44");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG7",
-		"--title=$rgraphs{_squid7}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Reads/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:io_http=$SQUID_RRD:squid_io_1:AVERAGE",
-		"DEF:io_ftp=$SQUID_RRD:squid_io_2:AVERAGE",
-		"DEF:io_gopher=$SQUID_RRD:squid_io_3:AVERAGE",
-		"DEF:io_wais=$SQUID_RRD:squid_io_4:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG7: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG7z",
-			"--title=$rgraphs{_squid7}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Reads/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:io_http=$SQUID_RRD:squid_io_1:AVERAGE",
-			"DEF:io_ftp=$SQUID_RRD:squid_io_2:AVERAGE",
-			"DEF:io_gopher=$SQUID_RRD:squid_io_3:AVERAGE",
-			"DEF:io_wais=$SQUID_RRD:squid_io_4:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG7z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid7/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG7z . "\"><img src='" . $URL . $IMGS_DIR . $PNG7 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG7z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG7 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG7 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID8_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID8_LIMIT");
-	} else {
-		if($SQUID8_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID8_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:in#44EE44:Input");
-	push(@tmp, "AREA:out#4444EE:Output");
-	push(@tmp, "AREA:out#4444EE:");
-	push(@tmp, "AREA:in#44EE44:");
-	push(@tmp, "LINE1:out#0000EE");
-	push(@tmp, "LINE1:in#00EE00");
-	push(@tmpz, "AREA:in#44EE44:Input");
-	push(@tmpz, "AREA:out#4444EE:Output");
-	push(@tmpz, "AREA:out#4444EE:");
-	push(@tmpz, "AREA:in#44EE44:");
-	push(@tmpz, "LINE1:out#0000EE");
-	push(@tmpz, "LINE1:in#00EE00");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG8",
-		"--title=$rgraphs{_squid8}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=bytes/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:in=$SQUID_RRD:squid_tc_1:AVERAGE",
-		"DEF:out=$SQUID_RRD:squid_tc_2:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG8: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG8z",
-			"--title=$rgraphs{_squid8}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=bytes/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:in=$SQUID_RRD:squid_tc_1:AVERAGE",
-			"DEF:out=$SQUID_RRD:squid_tc_2:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG8z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid8/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG8z . "\"><img src='" . $URL . $IMGS_DIR . $PNG8 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG8z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG8 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG8 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($SQUID9_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$SQUID9_LIMIT");
-	} else {
-		if($SQUID9_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$SQUID9_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:in#44EE44:Input");
-	push(@tmp, "AREA:out#4444EE:Output");
-	push(@tmp, "AREA:out#4444EE:");
-	push(@tmp, "AREA:in#44EE44:");
-	push(@tmp, "LINE1:out#0000EE");
-	push(@tmp, "LINE1:in#00EE00");
-	push(@tmpz, "AREA:in#44EE44:Input");
-	push(@tmpz, "AREA:out#4444EE:Output");
-	push(@tmpz, "AREA:out#4444EE:");
-	push(@tmpz, "AREA:in#44EE44:");
-	push(@tmpz, "LINE1:out#0000EE");
-	push(@tmpz, "LINE1:in#00EE00");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG9",
-		"--title=$rgraphs{_squid9}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=bytes/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:in=$SQUID_RRD:squid_ts_1:AVERAGE",
-		"DEF:out=$SQUID_RRD:squid_ts_2:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG9: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG9z",
-			"--title=$rgraphs{_squid9}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=bytes/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:in=$SQUID_RRD:squid_ts_1:AVERAGE",
-			"DEF:out=$SQUID_RRD:squid_ts_2:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG9z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /squid9/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG9z . "\"><img src='" . $URL . $IMGS_DIR . $PNG9 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG9z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG9 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG9 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# NFSS graph
-# ----------------------------------------------------------------------------
-sub nfss {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my $i;
-	my @DEF;
-	my $n;
-	my $err;
-	my @AC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#963C74",
-		"#CCCCCC",
-	);
-	my @LC = (
-		"#FFA500",
-		"#00EEEE",
-		"#00EE00",
-		"#0000EE",
-		"#448844",
-		"#EE0000",
-		"#EE00EE",
-		"#EEEE00",
-		"#B4B444",
-		"#888888",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG4 = $u . $myself . "4." . $when . ".png";
-	my $PNG5 = $u . $myself . "5." . $when . ".png";
-	my $PNG6 = $u . $myself . "6." . $when . ".png";
-	my $PNG7 = $u . $myself . "7." . $when . ".png";
-	my $PNG8 = $u . $myself . "8." . $when . ".png";
-	my $PNG9 = $u . $myself . "9." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-	my $PNG4z = $u . $myself . "4z." . $when . ".png";
-	my $PNG5z = $u . $myself . "5z." . $when . ".png";
-	my $PNG6z = $u . $myself . "6z." . $when . ".png";
-	my $PNG7z = $u . $myself . "7z." . $when . ".png";
-	my $PNG8z = $u . $myself . "8z." . $when . ".png";
-	my $PNG9z = $u . $myself . "9z." . $when . ".png";
-
-	my @nfsv;
-	if($NFSS_VERSION eq "2") {
-		@nfsv = @nfsv2;
-	} elsif($NFSS_VERSION eq "4") {
-		@nfsv = @nfssv4;
-	} else {
-		@nfsv = @nfsv3;
-	}
-
-	$title = !$silent ? $title : "";
-	$title =~ s/NFS/NFS v$NFSS_VERSION/;
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3",
-		"$PNG_DIR" . "$PNG4",
-		"$PNG_DIR" . "$PNG5",
-		"$PNG_DIR" . "$PNG6",
-		"$PNG_DIR" . "$PNG7",
-		"$PNG_DIR" . "$PNG8",
-		"$PNG_DIR" . "$PNG9");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z",
-			"$PNG_DIR" . "$PNG4z",
-			"$PNG_DIR" . "$PNG5z",
-			"$PNG_DIR" . "$PNG6z",
-			"$PNG_DIR" . "$PNG7z",
-			"$PNG_DIR" . "$PNG8z",
-			"$PNG_DIR" . "$PNG9z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NFSS_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NFSS_RRD: $err\n") if $err;
-		my $str;
-		my $line1;
-		my $line2;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		foreach my $t (@nfsv) {
-			$str = sprintf("%12s ", $t);
-			$line1 .= $str;
-			$line2 .= "-------------";
-		}
-		$line1 .= sprintf("%12s %12s %12s ", "hits", "misses", "nocache");
-		$line2 .= "-------------" . "-------------" . "-------------";
-		$line1 .= sprintf("%12s %12s %12s %12s %12s ", "lookup", "anon", "ncachedir", "ncachedir", "stale");
-		$line2 .= "-------------" . "-------------" . "-------------" . "-------------" . "-------------";
-		$line1 .= sprintf("%12s %12s ", "read", "written");
-		$line2 .= "-------------" . "-------------";
-		$line1 .= sprintf("%12s %6s %6s %6s %6s %6s %6s %6s %6s %6s %6s ", "threads", "<10%", "<20%", "<30%", "<40%", "<50%", "<60%", "<70%", "<80%", "<90%", "<100%");
-		$line2 .= "-------------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------" . "-------";
-		$line1 .= sprintf("%12s %12s %12s %12s ", "packets", "udp", "tcp", "tcpconn");
-		$line2 .= "-------------" . "-------------" . "-------------" . "-------------";
-		$line1 .= sprintf("%12s %12s %12s %12s %12s ", "calls", "badcalls", "badauth", "badclnt", "xdrcall");
-		$line2 .= "-------------" . "-------------" . "-------------" . "-------------" . "-------------";
-		print("Time $line1\n");
-		print("-----$line2\n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my @nfs;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			undef($line1);
-			undef(@row);
-			(@nfs) = @$line[0..scalar(@nfsv) - 1];
-			for($n2 = 0; $n2 < scalar(@nfs);$n2++) {
-				push(@row, $nfs[$n2]);
-				$line1 .= "%12d ";
-			}
-			push(@row, @$line[50..52]);
-			$line1 .= "%12d %12d %12d ";
-			push(@row, @$line[55..59]);
-			$line1 .= "%12d %12d %12d %12d %12d ";
-			push(@row, @$line[60..61]);
-			$line1 .= "%12d %12d ";
-			push(@row, @$line[63..73]);
-			$line1 .= "%12d %6d %6d %6d %6d %6d %6d %6d %6d %6d %6d ";
-			push(@row, @$line[74..77]);
-			$line1 .= "%12d %12d %12d %12d ";
-			push(@row, @$line[79..83]);
-			$line1 .= "%12d %12d %12d %12d %12d ";
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc $line1\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($NFSS1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS1_LIMIT");
-	} else {
-		if($NFSS1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td valign='top' bgcolor='$title_bg_color'>\n");
-	}
-	for($n = 0; $n < 10; $n++) {
-		if(grep {$_ eq $NFSS_GRAPH_1[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSS_GRAPH_1[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSS_RRD:nfss_$i:AVERAGE");
-			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_1[$n]));
-			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_1[$n]));
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_nfss1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp,
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_nfss1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS2_LIMIT");
-	} else {
-		if($NFSS2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@DEF);
-	for($n = 0; $n < 10; $n++) {
-		if(grep {$_ eq $NFSS_GRAPH_2[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSS_GRAPH_2[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSS_RRD:nfss_$i:AVERAGE");
-			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_2[$n]));
-			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_2[$n]));
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_nfss2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_nfss2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS3_LIMIT");
-	} else {
-		if($NFSS3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@DEF);
-	for($n = 0; $n < 10; $n++) {
-		if(grep {$_ eq $NFSS_GRAPH_3[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSS_GRAPH_3[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSS_RRD:nfss_$i:AVERAGE");
-			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_3[$n]));
-			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSS_GRAPH_3[$n]));
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_nfss3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_nfss3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($NFSS4_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS4_LIMIT");
-	} else {
-		if($NFSS4_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS4_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:in#44EE44:Read");
-	push(@tmp, "AREA:out#4444EE:Written");
-	push(@tmp, "AREA:out#4444EE:");
-	push(@tmp, "AREA:in#44EE44:");
-	push(@tmp, "LINE1:out#0000EE");
-	push(@tmp, "LINE1:in#00EE00");
-	push(@tmpz, "AREA:in#44EE44:Read");
-	push(@tmpz, "AREA:out#4444EE:Written");
-	push(@tmpz, "AREA:out#4444EE:");
-	push(@tmpz, "AREA:in#44EE44:");
-	push(@tmpz, "LINE1:out#0000EE");
-	push(@tmpz, "LINE1:in#00EE00");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG4",
-		"--title=$rgraphs{_nfss4}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=bytes/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:in=$NFSS_RRD:nfss_io_1:AVERAGE",
-		"DEF:out=$NFSS_RRD:nfss_io_2:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG4z",
-			"--title=$rgraphs{_nfss4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=bytes/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:in=$NFSS_RRD:nfss_io_1:AVERAGE",
-			"DEF:out=$NFSS_RRD:nfss_io_2:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss4/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG4z . "\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG4 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS5_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS5_LIMIT");
-	} else {
-		if($NFSS5_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS5_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:udp#44EEEE:UDP");
-	push(@tmp, "GPRINT:udp:LAST:                  Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:tcp#4444EE:TCP");
-	push(@tmp, "GPRINT:tcp:LAST:                  Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:tcpconn#EE44EE:TCP Connections");
-	push(@tmp, "GPRINT:tcpconn:LAST:      Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:udp#00EEEE");
-	push(@tmp, "LINE1:tcp#0000EE");
-	push(@tmp, "LINE1:tcpconn#EE00EE");
-	push(@tmpz, "AREA:udp#44EEEE:UDP");
-	push(@tmpz, "AREA:tcp#4444EE:TCP");
-	push(@tmpz, "AREA:tcpconn#EE44EE:TCP Connections");
-	push(@tmpz, "LINE1:udp#00EEEE");
-	push(@tmpz, "LINE1:tcp#0000EE");
-	push(@tmpz, "LINE1:tcpconn#EE00EE");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG5",
-		"--title=$rgraphs{_nfss5}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:packets=$NFSS_RRD:nfss_net_1:AVERAGE",
-		"DEF:udp=$NFSS_RRD:nfss_net_2:AVERAGE",
-		"DEF:tcp=$NFSS_RRD:nfss_net_3:AVERAGE",
-		"DEF:tcpconn=$NFSS_RRD:nfss_net_4:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG5z",
-			"--title=$rgraphs{_nfss5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:packets=$NFSS_RRD:nfss_net_1:AVERAGE",
-			"DEF:udp=$NFSS_RRD:nfss_net_2:AVERAGE",
-			"DEF:tcp=$NFSS_RRD:nfss_net_3:AVERAGE",
-			"DEF:tcpconn=$NFSS_RRD:nfss_net_4:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss5/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG5z . "\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG5 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS6_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS6_LIMIT");
-	} else {
-		if($NFSS6_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS6_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE1:calls#FFA500:Calls");
-	push(@tmp, "GPRINT:calls:LAST:                Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:badcalls#44EEEE:Badcalls");
-	push(@tmp, "GPRINT:badcalls:LAST:             Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:badauth#44EE44:Badauth");
-	push(@tmp, "GPRINT:badauth:LAST:              Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:badclnt#EE4444:Badclnt");
-	push(@tmp, "GPRINT:badclnt:LAST:              Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:xdrcall#4444EE:XDRcall");
-	push(@tmp, "GPRINT:xdrcall:LAST:              Current\\: %7.1lf\\n");
-	push(@tmpz, "LINE1:calls#FFA500:Calls");
-	push(@tmpz, "LINE1:badcalls#44EEEE:Badcalls");
-	push(@tmpz, "LINE1:badauth#44EE44:Badauth");
-	push(@tmpz, "LINE1:badclnt#EE4444:Badclnt");
-	push(@tmpz, "LINE1:xdrcall#4444EE:XDRcall");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG6",
-		"--title=$rgraphs{_nfss6}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:calls=$NFSS_RRD:nfss_rpc_1:AVERAGE",
-		"DEF:badcalls=$NFSS_RRD:nfss_rpc_2:AVERAGE",
-		"DEF:badauth=$NFSS_RRD:nfss_rpc_3:AVERAGE",
-		"DEF:badclnt=$NFSS_RRD:nfss_rpc_4:AVERAGE",
-		"DEF:xdrcall=$NFSS_RRD:nfss_rpc_4:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG6z",
-			"--title=$rgraphs{_nfss6}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:calls=$NFSS_RRD:nfss_rpc_1:AVERAGE",
-			"DEF:badcalls=$NFSS_RRD:nfss_rpc_2:AVERAGE",
-			"DEF:badauth=$NFSS_RRD:nfss_rpc_3:AVERAGE",
-			"DEF:badclnt=$NFSS_RRD:nfss_rpc_4:AVERAGE",
-			"DEF:xdrcall=$NFSS_RRD:nfss_rpc_4:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss6/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG6z . "\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG6 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS7_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS7_LIMIT");
-	} else {
-		if($NFSS7_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS7_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-#	push(@tmp, "LINE1:threads#444444:Threads usage");
-#	push(@tmp, "GPRINT:threads:LAST:        Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:th1#33FF00:<10%\\g");
-	push(@tmp, "GPRINT:th1:LAST:\\: %7.1lf        ");
-	push(@tmp, "LINE1:th2#FFCC00:< 60%\\g");
-	push(@tmp, "GPRINT:th2:LAST:\\: %7.1lf\\n");
-	push(@tmp, "LINE1:th3#66FF00:<20%\\g");
-	push(@tmp, "GPRINT:th3:LAST:\\: %7.1lf        ");
-	push(@tmp, "LINE1:th4#FF9900:< 70%\\g");
-	push(@tmp, "GPRINT:th4:LAST:\\: %7.1lf\\n");
-	push(@tmp, "LINE1:th5#99FF00:<30%\\g");
-	push(@tmp, "GPRINT:th5:LAST:\\: %7.1lf        ");
-	push(@tmp, "LINE1:th6#FF6600:< 80%\\g");
-	push(@tmp, "GPRINT:th6:LAST:\\: %7.1lf\\n");
-	push(@tmp, "LINE1:th7#CCFF00:<40%\\g");
-	push(@tmp, "GPRINT:th7:LAST:\\: %7.1lf        ");
-	push(@tmp, "LINE1:th8#FF3300:< 90%\\g");
-	push(@tmp, "GPRINT:th8:LAST:\\: %7.1lf\\n");
-	push(@tmp, "LINE1:th9#FFFF00:<50%\\g");
-	push(@tmp, "GPRINT:th9:LAST:\\: %7.1lf        ");
-	push(@tmp, "LINE1:th10#FF0000:<100%\\g");
-	push(@tmp, "GPRINT:th10:LAST:\\: %7.1lf\\n");
-#	push(@tmpz, "LINE1:threads#444444:Threads usage");
-	push(@tmpz, "LINE1:th1#33FF00:<10%");
-	push(@tmpz, "LINE1:th3#66FF00:<20%");
-	push(@tmpz, "LINE1:th5#99FF00:<30%");
-	push(@tmpz, "LINE1:th7#CCFF00:<40%");
-	push(@tmpz, "LINE1:th9#FFFF00:<50%");
-	push(@tmpz, "LINE1:th2#FFCC00:<60%");
-	push(@tmpz, "LINE1:th4#FF9900:<70%");
-	push(@tmpz, "LINE1:th6#FF6600:<80%");
-	push(@tmpz, "LINE1:th8#FF3300:<90%");
-	push(@tmpz, "LINE1:th10#FF0000:<100%");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG7",
-		"--title=$rgraphs{_nfss7}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:threads=$NFSS_RRD:nfss_th_0:AVERAGE",
-		"DEF:th1=$NFSS_RRD:nfss_th_1:AVERAGE",
-		"DEF:th2=$NFSS_RRD:nfss_th_2:AVERAGE",
-		"DEF:th3=$NFSS_RRD:nfss_th_3:AVERAGE",
-		"DEF:th4=$NFSS_RRD:nfss_th_4:AVERAGE",
-		"DEF:th5=$NFSS_RRD:nfss_th_5:AVERAGE",
-		"DEF:th6=$NFSS_RRD:nfss_th_6:AVERAGE",
-		"DEF:th7=$NFSS_RRD:nfss_th_7:AVERAGE",
-		"DEF:th8=$NFSS_RRD:nfss_th_8:AVERAGE",
-		"DEF:th9=$NFSS_RRD:nfss_th_9:AVERAGE",
-		"DEF:th10=$NFSS_RRD:nfss_th_10:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG7: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG7z",
-			"--title=$rgraphs{_nfss7}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:threads=$NFSS_RRD:nfss_th_0:AVERAGE",
-			"DEF:th1=$NFSS_RRD:nfss_th_1:AVERAGE",
-			"DEF:th2=$NFSS_RRD:nfss_th_2:AVERAGE",
-			"DEF:th3=$NFSS_RRD:nfss_th_3:AVERAGE",
-			"DEF:th4=$NFSS_RRD:nfss_th_4:AVERAGE",
-			"DEF:th5=$NFSS_RRD:nfss_th_5:AVERAGE",
-			"DEF:th6=$NFSS_RRD:nfss_th_6:AVERAGE",
-			"DEF:th7=$NFSS_RRD:nfss_th_7:AVERAGE",
-			"DEF:th8=$NFSS_RRD:nfss_th_8:AVERAGE",
-			"DEF:th9=$NFSS_RRD:nfss_th_9:AVERAGE",
-			"DEF:th10=$NFSS_RRD:nfss_th_10:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG7z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss7/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG7z . "\"><img src='" . $URL . $IMGS_DIR . $PNG7 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG7z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG7 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG7 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS8_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS8_LIMIT");
-	} else {
-		if($NFSS8_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS8_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:hits#44EEEE:Hits");
-	push(@tmp, "GPRINT:hits:LAST:                 Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:misses#4444EE:Misses");
-	push(@tmp, "GPRINT:misses:LAST:               Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:nocache#EEEE44:Nocache");
-	push(@tmp, "GPRINT:nocache:LAST:              Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:hits#00EEEE");
-	push(@tmp, "LINE1:misses#0000EE");
-	push(@tmp, "LINE1:nocache#EEEE44");
-	push(@tmpz, "AREA:hits#44EEEE:Hits");
-	push(@tmpz, "AREA:misses#4444EE:Misses");
-	push(@tmpz, "AREA:nocache#EEEE44:Nocache");
-	push(@tmpz, "LINE1:hits#00EEEE");
-	push(@tmpz, "LINE1:misses#0000EE");
-	push(@tmpz, "LINE1:nocache#EEEE44");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG8",
-		"--title=$rgraphs{_nfss8}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:hits=$NFSS_RRD:nfss_rc_1:AVERAGE",
-		"DEF:misses=$NFSS_RRD:nfss_rc_2:AVERAGE",
-		"DEF:nocache=$NFSS_RRD:nfss_rc_3:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG8: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG8z",
-			"--title=$rgraphs{_nfss8}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:hits=$NFSS_RRD:nfss_rc_1:AVERAGE",
-			"DEF:misses=$NFSS_RRD:nfss_rc_2:AVERAGE",
-			"DEF:nocache=$NFSS_RRD:nfss_rc_3:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG8z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss8/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG8z . "\"><img src='" . $URL . $IMGS_DIR . $PNG8 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG8z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG8 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG8 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSS9_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSS9_LIMIT");
-	} else {
-		if($NFSS9_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSS9_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "LINE1:lookup#FFA500:Lookups");
-	push(@tmp, "GPRINT:lookup:LAST:              Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:anon#44EE44:Anonymous lockups");
-	push(@tmp, "GPRINT:anon:LAST:    Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:ncachedir1#44EEEE:Ncachedir");
-	push(@tmp, "GPRINT:ncachedir1:LAST:            Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:ncachedir2#4444EE:Ncachedir");
-	push(@tmp, "GPRINT:ncachedir2:LAST:            Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:stale#EE4444:Stale");
-	push(@tmp, "GPRINT:stale:LAST:                Current\\: %7.1lf\\n");
-	push(@tmpz, "LINE1:lookup#FFA500:Lookup");
-	push(@tmpz, "LINE1:anon#44EE44:Anonymous");
-	push(@tmpz, "LINE1:ncachedir1#44EEEE:Ncachedir");
-	push(@tmpz, "LINE1:ncachedir2#4444EE:Ncachedir");
-	push(@tmpz, "LINE1:stale#EE4444:Stale");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG9",
-		"--title=$rgraphs{_nfss9}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Values/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:lookup=$NFSS_RRD:nfss_fh_1:AVERAGE",
-		"DEF:anon=$NFSS_RRD:nfss_fh_2:AVERAGE",
-		"DEF:ncachedir1=$NFSS_RRD:nfss_fh_3:AVERAGE",
-		"DEF:ncachedir2=$NFSS_RRD:nfss_fh_4:AVERAGE",
-		"DEF:stale=$NFSS_RRD:nfss_fh_4:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG9: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG9z",
-			"--title=$rgraphs{_nfss9}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Values/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:lookup=$NFSS_RRD:nfss_fh_1:AVERAGE",
-			"DEF:anon=$NFSS_RRD:nfss_fh_2:AVERAGE",
-			"DEF:ncachedir1=$NFSS_RRD:nfss_fh_3:AVERAGE",
-			"DEF:ncachedir2=$NFSS_RRD:nfss_fh_4:AVERAGE",
-			"DEF:stale=$NFSS_RRD:nfss_fh_4:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG9z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfss9/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG9z . "\"><img src='" . $URL . $IMGS_DIR . $PNG9 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG9z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG9 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG9 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# NFSC graph
-# ----------------------------------------------------------------------------
-sub nfsc {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @tmp;
-	my @tmpz;
-	my @tmp1;
-	my @tmp2;
-	my @tmp1z;
-	my @tmp2z;
-	my $i;
-	my @DEF;
-	my $n;
-	my $err;
-	my @AC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#963C74",
-		"#CCCCCC",
-	);
-	my @LC = (
-		"#FFA500",
-		"#00EEEE",
-		"#00EE00",
-		"#0000EE",
-		"#448844",
-		"#EE0000",
-		"#EE00EE",
-		"#EEEE00",
-		"#B4B444",
-		"#888888",
-	);
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG4 = $u . $myself . "4." . $when . ".png";
-	my $PNG5 = $u . $myself . "5." . $when . ".png";
-	my $PNG6 = $u . $myself . "6." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-	my $PNG4z = $u . $myself . "4z." . $when . ".png";
-	my $PNG5z = $u . $myself . "5z." . $when . ".png";
-	my $PNG6z = $u . $myself . "6z." . $when . ".png";
-
-	my @nfsv;
-	if($NFSC_VERSION eq "2") {
-		@nfsv = @nfsv2;
-	} elsif($NFSC_VERSION eq "4") {
-		@nfsv = @nfscv4;
-	} else {
-		@nfsv = @nfsv3;
-	}
-
-	$title = !$silent ? $title : "";
-	$title =~ s/NFS/NFS v$NFSC_VERSION/;
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3",
-		"$PNG_DIR" . "$PNG4",
-		"$PNG_DIR" . "$PNG5",
-		"$PNG_DIR" . "$PNG6");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z",
-			"$PNG_DIR" . "$PNG4z",
-			"$PNG_DIR" . "$PNG5z",
-			"$PNG_DIR" . "$PNG6z");
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NFSC_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NFSC_RRD: $err\n") if $err;
-		my $str;
-		my $line1;
-		my $line2;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		foreach my $t (@nfsv) {
-			$str = sprintf("%12s ", $t);
-			$line1 .= $str;
-			$line2 .= "-------------";
-		}
-		$line1 .= sprintf("%12s %12s %12s", "calls", "retrans", "authrefrsh");
-		$line2 .= "-------------" . "-------------" . "-------------";
-		print("Time $line1\n");
-		print("-----$line2\n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my @nfs;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			undef($line1);
-			undef(@row);
-			(@nfs) = @$line[0..scalar(@nfsv) - 1];
-			for($n2 = 0; $n2 < scalar(@nfs);$n2++) {
-				push(@row, $nfs[$n2]);
-				$line1 .= "%12d ";
-			}
-			push(@row, @$line[50..52]);
-			$line1 .= "%12d %12d %12d ";
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc $line1\n", $time, @row);
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-	if($NFSC1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC1_LIMIT");
-	} else {
-		if($NFSC1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td valign='top' bgcolor='$title_bg_color'>\n");
-	}
-	for($n = 0; $n < 10; $n++) {
-		if(grep {$_ eq $NFSC_GRAPH_1[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSC_GRAPH_1[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSC_RRD:nfsc_$i:AVERAGE");
-			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_1[$n]));
-			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_1[$n]));
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_nfsc1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp,
-		"COMMENT: \\n");
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_nfsc1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSC2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC2_LIMIT");
-	} else {
-		if($NFSC2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@DEF);
-	for($n = 0; $n < 10; $n++) {
-		if(grep {$_ eq $NFSC_GRAPH_2[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSC_GRAPH_2[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSC_RRD:nfsc_$i:AVERAGE");
-			push(@tmp, "LINE1:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_2[$n]));
-			push(@tmp, "GPRINT:nfs_$i:LAST:    Cur\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:AVERAGE:    Avg\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MIN:    Min\\: %6.1lf");
-			push(@tmp, "GPRINT:nfs_$i:MAX:    Max\\: %6.1lf\\n");
-			push(@tmpz, "LINE2:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_2[$n]));
-		} else {
-			push(@tmp, "COMMENT: \\n");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_nfsc2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_nfsc2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($NFSC3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC3_LIMIT");
-	} else {
-		if($NFSC3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@tmp1);
-	undef(@tmp2);
-	undef(@tmp1z);
-	undef(@tmp2z);
-	undef(@DEF);
-	for($n = 0; $n < 4; $n++) {
-		if(grep {$_ eq $NFSC_GRAPH_3[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSC_GRAPH_3[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSC_RRD:nfsc_$i:AVERAGE");
-			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_3[$n]));
-			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
-			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
-			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_3[$n]));
-			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
-		} else {
-			push(@tmp1, "COMMENT: \\n");
-		}
-	}
-	@tmp = (@tmp1, @tmp2);
-	@tmpz = (@tmp1z, @tmp2z);
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG3",
-		"--title=$rgraphs{_nfsc3}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG3z",
-			"--title=$rgraphs{_nfsc3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc3/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSC4_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC4_LIMIT");
-	} else {
-		if($NFSC4_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC4_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@tmp1);
-	undef(@tmp2);
-	undef(@tmp1z);
-	undef(@tmp2z);
-	undef(@DEF);
-	for($n = 0; $n < 4; $n++) {
-		if(grep {$_ eq $NFSC_GRAPH_4[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSC_GRAPH_4[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSC_RRD:nfsc_$i:AVERAGE");
-			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_4[$n]));
-			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
-			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
-			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_4[$n]));
-			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
-		} else {
-			push(@tmp1, "COMMENT: \\n");
-		}
-	}
-	@tmp = (@tmp1, @tmp2);
-	@tmpz = (@tmp1z, @tmp2z);
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG4",
-		"--title=$rgraphs{_nfsc4}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG4: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG4z",
-			"--title=$rgraphs{_nfsc4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG4z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc4/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG4z . "\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG4z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG4 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG4 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSC5_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC5_LIMIT");
-	} else {
-		if($NFSC5_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC5_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	undef(@tmp1);
-	undef(@tmp2);
-	undef(@tmp1z);
-	undef(@tmp2z);
-	undef(@DEF);
-	for($n = 0; $n < 4; $n++) {
-		if(grep {$_ eq $NFSC_GRAPH_5[$n]} @nfsv) {
-			($i) = grep { $nfsv[$_] eq $NFSC_GRAPH_5[$n] } 0..$#nfsv;
-			push(@DEF, "DEF:nfs_$i=$NFSC_RRD:nfsc_$i:AVERAGE");
-			push(@tmp1, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_5[$n]));
-			push(@tmp1, "GPRINT:nfs_$i:LAST:         Current\\: %6.1lf\\n");
-			push(@tmp2, "LINE1:nfs_$i$LC[$n]");
-			push(@tmp1z, "AREA:nfs_$i$AC[$n]:" . sprintf("%-12s", $NFSC_GRAPH_5[$n]));
-			push(@tmp2z, "LINE1:nfs_$i$LC[$n]");
-		} else {
-			push(@tmp1, "COMMENT: \\n");
-		}
-	}
-	@tmp = (@tmp1, @tmp2);
-	@tmpz = (@tmp1z, @tmp2z);
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG5",
-		"--title=$rgraphs{_nfsc5}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		@DEF,
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG5: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG5z",
-			"--title=$rgraphs{_nfsc5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@DEF,
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG5z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc5/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG5z . "\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG5z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG5 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG5 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($NFSC6_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$NFSC6_LIMIT");
-	} else {
-		if($NFSC6_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$NFSC6_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	undef(@tmp);
-	undef(@tmpz);
-	push(@tmp, "AREA:calls#44EEEE:Calls");
-	push(@tmp, "GPRINT:calls:LAST:                Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:retrans#EEEE44:Retransmissions");
-	push(@tmp, "GPRINT:retrans:LAST:      Current\\: %7.1lf\\n");
-	push(@tmp, "AREA:authref#EE4444:Auth Refresh");
-	push(@tmp, "GPRINT:authref:LAST:         Current\\: %7.1lf\\n");
-	push(@tmp, "LINE1:calls#00EEEE");
-	push(@tmp, "LINE1:retrans#EEEE00");
-	push(@tmp, "LINE1:authref#EE0000");
-	push(@tmpz, "AREA:calls#44EEEE:Calls");
-	push(@tmpz, "AREA:retrans#EEEE44:Retransmissions");
-	push(@tmpz, "AREA:authref#EE4444:Auth Refresh");
-	push(@tmpz, "LINE1:calls#00EEEE");
-	push(@tmpz, "LINE1:retrans#EEEE00");
-	push(@tmpz, "LINE1:authref#EE0000");
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-		@tmp = @tmpz;
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-		push(@tmp, "COMMENT: \\n");
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG6",
-		"--title=$rgraphs{_nfsc6}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Requests/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		"DEF:calls=$NFSC_RRD:nfsc_rpc_1:AVERAGE",
-		"DEF:retrans=$NFSC_RRD:nfsc_rpc_2:AVERAGE",
-		"DEF:authref=$NFSC_RRD:nfsc_rpc_3:AVERAGE",
-		@tmp);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG6: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG6z",
-			"--title=$rgraphs{_nfsc6}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:calls=$NFSC_RRD:nfsc_rpc_1:AVERAGE",
-			"DEF:retrans=$NFSC_RRD:nfsc_rpc_2:AVERAGE",
-			"DEF:authref=$NFSC_RRD:nfsc_rpc_3:AVERAGE",
-			@tmpz);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG6z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /nfsc6/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG6z . "\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG6z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG6 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG6 . "'>\n");
-		}
-	}
-
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# BIND graph
-# ----------------------------------------------------------------------------
-sub bind {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $e;
-	my $n;
-	my $str;
-	my $err;
-	my @LC = (
-		"#FFA500",
-		"#4444EE",
-		"#EEEE44",
-		"#44EEEE",
-		"#EE44EE",
-		"#888888",
-		"#5F04B4",
-		"#44EE44",
-		"#448844",
-		"#EE4444",
-		"#444444",
-		"#E29136",
-		"#CCCCCC",
-		"#AEB404",
-		"#8A2908",
-		"#8C7000",
-		"#DDAE8C",
-		"#037C8C",
-		"#48D4D4",
-		"#9048D4",
-	);
-
-	if($IFACE_MODE eq "text") {
-		my $line0;
-		my $line1;
-		my $line2;
-		my $line3;
-		my $n2;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$BIND_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $BIND_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		$line0 = "                                                                                                                                                $rgraphs{_bind1}                                                                                                                                                $rgraphs{_bind2}                                                                                                                                                                                                                                                                                                          $rgraphs{_bind3}                                                                                                                                                                                                                                                                                                  $rgraphs{_bind4}                                                                                                                                      $rgraphs{_bind5}                                           $rgraphs{_bind6}                     $rgraphs{_bind7}";
-		for($n = 0; $n < scalar(@BIND_URL_LIST); $n++) {
-			$line1 .= $line0;
-			$line3 .= "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------";
-			$n2 = 0;
-			foreach my $i (@BIND_IN_QUERIES_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%7s", substr($_, 0, 7));
-					$line2 .= sprintf(" %7s", $str);
-					$n2++;
-				}
-			}
-			for(; $n2 < 20; $n2++) {
-				$str = sprintf("%7s", substr($_, 0, 7));
-				$line2 .= sprintf(" %7s", $str);
-			}
-
-			$n2 = 0;
-			foreach my $i (@BIND_OUT_QUERIES_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%7s", substr($_, 0, 7));
-					$line2 .= sprintf(" %7s", $str);
-					$n2++;
-				}
-			}
-			for(; $n2 < 20; $n2++) {
-				$str = sprintf("%7s", substr($_, 0, 7));
-				$line2 .= sprintf(" %7s", $str);
-			}
-
-			$n2 = 0;
-			foreach my $i (@BIND_SERVER_STATS_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%15s", substr($_, 0, 15));
-					$line2 .= sprintf(" %15s", $str);
-					$n2++;
-				}
-			}
-			for(; $n2 < 20; $n2++) {
-				$str = sprintf("%15s", substr($_, 0, 15));
-				$line2 .= sprintf(" %15s", $str);
-			}
-
-			$n2 = 0;
-			foreach my $i (@BIND_RESOLVER_STATS_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%15s", substr($_, 0, 15));
-					$line2 .= sprintf(" %15s", $str);
-					$n2++;
-				}
-			}
-			for(; $n2 < 20; $n2++) {
-				$str = sprintf("%15s", substr($_, 0, 15));
-				$line2 .= sprintf(" %15s", $str);
-			}
-
-			$n2 = 0;
-			foreach my $i (@BIND_CACHE_RRSETS_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%7s", substr($_, 0, 7));
-					$line2 .= sprintf(" %7s", $str);
-					$n2++;
-				}
-			}
-			for(; $n2 < 20; $n2++) {
-				$str = sprintf("%7s", substr($_, 0, 7));
-				$line2 .= sprintf(" %7s", $str);
-			}
-
-			foreach ("TotalUse", "InUse", "BlockSize", "ContxtSize", "Lost") {
-				$str = sprintf("%10s", substr($_, 0, 10));
-				$line2 .= sprintf(" %10s", $str);
-			}
-
-			foreach ("WorkerThds", "DefQuantum", "TasksRunng") {
-				$str = sprintf("%10s", substr($_, 0, 10));
-				$line2 .= sprintf(" %10s", $str);
-			}
-
-			$i = length($line0);
-			printf(sprintf("%${i}s", sprintf("BIND server: %s", $BIND_URL_LIST[$n])));
-		}
-		print("\n");
-		print("    $line1\n");
-		print("Time$line2 \n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			$from = 1;
-			printf(" %2d$tc ", $time);
-			for($n2 = 0; $n2 < scalar(@BIND_URL_LIST); $n2++) {
-				# inq
-				$from += $n2 * 95;
-				$to = $from + 20;
-				@row = @$line[$from..$to];
-				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
-				# ouq
-				$from = $to;
-				$to = $from + 20;
-				@row = @$line[$from..$to];
-				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
-				# ss
-				$from = $to;
-				$to = $from + 20;
-				@row = @$line[$from..$to];
-				printf("%15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d ", @row);
-				# rs
-				$from = $to;
-				$to = $from + 20;
-				@row = @$line[$from..$to];
-				printf("%15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d %15d ", @row);
-				# crr
-				$from = $to;
-				$to = $from + 20;
-				@row = @$line[$from..$to];
-				printf("%7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d %7d ", @row);
-				# mem
-				$from = $to;
-				$to = $from + 8;
-				@row = @$line[$from..$to];
-				printf("%10d %10d %10d %10d %10d ", @row);
-				# tsk
-				$from = $to;
-				$to = $from + 6;
-				@row = @$line[$from..$to];
-				printf("%10d %10d %10d ", @row);
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@BIND_URL_LIST); $n++) {
-		for($n2 = 1; $n2 <= 7; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $host (@BIND_URL_LIST) {
-		if($e) {
-			print("   <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($BIND1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$BIND1_LIMIT");
-		} else {
-			if($BIND1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$BIND1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		my $i = $BIND_IN_QUERIES_LIST[$e];
-		for($n = 0; $n < scalar(@$i); $n += 2) {
-			$str = sprintf("%-8s", substr(@$i[$n], 0, 8));
-			push(@tmp, "LINE1:inq" . $n . $LC[$n] . ":$str");
-			push(@tmp, "GPRINT:inq" . $n . ":LAST: Current\\:%5.1lf       ");
-			push(@tmpz, "LINE2:inq" . $n . $LC[$n] . ":$str");
-			$str = sprintf("%-8s", substr(@$i[$n + 1], 0, 8));
-			push(@tmp, "LINE1:inq" . ($n + 1) . $LC[$n + 1] . ":$str");
-			push(@tmp, "GPRINT:inq" . ($n + 1) . ":LAST: Current\\:%5.1lf\\n");
-			push(@tmpz, "LINE2:inq" . ($n + 1) . $LC[$n + 1] . ":$str");
-		}
-		for(; $n < 20; $n += 2) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7]",
-			"--title=$rgraphs{_bind1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Queries/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:inq0=$BIND_RRD:bind" . $e . "_inq01:AVERAGE",
-			"DEF:inq1=$BIND_RRD:bind" . $e . "_inq02:AVERAGE",
-			"DEF:inq2=$BIND_RRD:bind" . $e . "_inq03:AVERAGE",
-			"DEF:inq3=$BIND_RRD:bind" . $e . "_inq04:AVERAGE",
-			"DEF:inq4=$BIND_RRD:bind" . $e . "_inq05:AVERAGE",
-			"DEF:inq5=$BIND_RRD:bind" . $e . "_inq06:AVERAGE",
-			"DEF:inq6=$BIND_RRD:bind" . $e . "_inq07:AVERAGE",
-			"DEF:inq7=$BIND_RRD:bind" . $e . "_inq08:AVERAGE",
-			"DEF:inq8=$BIND_RRD:bind" . $e . "_inq09:AVERAGE",
-			"DEF:inq9=$BIND_RRD:bind" . $e . "_inq10:AVERAGE",
-			"DEF:inq10=$BIND_RRD:bind" . $e . "_inq11:AVERAGE",
-			"DEF:inq11=$BIND_RRD:bind" . $e . "_inq12:AVERAGE",
-			"DEF:inq12=$BIND_RRD:bind" . $e . "_inq13:AVERAGE",
-			"DEF:inq13=$BIND_RRD:bind" . $e . "_inq14:AVERAGE",
-			"DEF:inq14=$BIND_RRD:bind" . $e . "_inq15:AVERAGE",
-			"DEF:inq15=$BIND_RRD:bind" . $e . "_inq16:AVERAGE",
-			"DEF:inq16=$BIND_RRD:bind" . $e . "_inq17:AVERAGE",
-			"DEF:inq17=$BIND_RRD:bind" . $e . "_inq18:AVERAGE",
-			"DEF:inq18=$BIND_RRD:bind" . $e . "_inq19:AVERAGE",
-			"DEF:inq19=$BIND_RRD:bind" . $e . "_inq20:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7]",
-				"--title=$rgraphs{_bind1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Queries/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:inq0=$BIND_RRD:bind" . $e . "_inq01:AVERAGE",
-				"DEF:inq1=$BIND_RRD:bind" . $e . "_inq02:AVERAGE",
-				"DEF:inq2=$BIND_RRD:bind" . $e . "_inq03:AVERAGE",
-				"DEF:inq3=$BIND_RRD:bind" . $e . "_inq04:AVERAGE",
-				"DEF:inq4=$BIND_RRD:bind" . $e . "_inq05:AVERAGE",
-				"DEF:inq5=$BIND_RRD:bind" . $e . "_inq06:AVERAGE",
-				"DEF:inq6=$BIND_RRD:bind" . $e . "_inq07:AVERAGE",
-				"DEF:inq7=$BIND_RRD:bind" . $e . "_inq08:AVERAGE",
-				"DEF:inq8=$BIND_RRD:bind" . $e . "_inq09:AVERAGE",
-				"DEF:inq9=$BIND_RRD:bind" . $e . "_inq10:AVERAGE",
-				"DEF:inq10=$BIND_RRD:bind" . $e . "_inq11:AVERAGE",
-				"DEF:inq11=$BIND_RRD:bind" . $e . "_inq12:AVERAGE",
-				"DEF:inq12=$BIND_RRD:bind" . $e . "_inq13:AVERAGE",
-				"DEF:inq13=$BIND_RRD:bind" . $e . "_inq14:AVERAGE",
-				"DEF:inq14=$BIND_RRD:bind" . $e . "_inq15:AVERAGE",
-				"DEF:inq15=$BIND_RRD:bind" . $e . "_inq16:AVERAGE",
-				"DEF:inq16=$BIND_RRD:bind" . $e . "_inq17:AVERAGE",
-				"DEF:inq17=$BIND_RRD:bind" . $e . "_inq18:AVERAGE",
-				"DEF:inq18=$BIND_RRD:bind" . $e . "_inq19:AVERAGE",
-				"DEF:inq19=$BIND_RRD:bind" . $e . "_inq20:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind1/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-		}
-
-		undef(@riglim);
-		if($BIND2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$BIND2_LIMIT");
-		} else {
-			if($BIND2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$BIND2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		$i = $BIND_OUT_QUERIES_LIST[$e];
-		for($n = 0; $n < scalar(@$i); $n += 2) {
-			$str = sprintf("%-8s", substr(@$i[$n], 0, 8));
-			push(@tmp, "LINE1:ouq" . $n . $LC[$n] . ":$str");
-			push(@tmp, "GPRINT:ouq" . $n . ":LAST: Current\\:%5.1lf       ");
-			push(@tmpz, "LINE2:ouq" . $n . $LC[$n] . ":$str");
-			$str = sprintf("%-8s", substr(@$i[$n + 1], 0, 8));
-			push(@tmp, "LINE1:ouq" . ($n + 1) . $LC[$n + 1] . ":$str");
-			push(@tmp, "GPRINT:ouq" . ($n + 1) . ":LAST: Current\\:%5.1lf\\n");
-			push(@tmpz, "LINE2:ouq" . ($n + 1) . $LC[$n + 1] . ":$str");
-		}
-		for(; $n < 20; $n += 2) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 1]",
-			"--title=$rgraphs{_bind2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Queries/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ouq0=$BIND_RRD:bind" . $e . "_ouq01:AVERAGE",
-			"DEF:ouq1=$BIND_RRD:bind" . $e . "_ouq02:AVERAGE",
-			"DEF:ouq2=$BIND_RRD:bind" . $e . "_ouq03:AVERAGE",
-			"DEF:ouq3=$BIND_RRD:bind" . $e . "_ouq04:AVERAGE",
-			"DEF:ouq4=$BIND_RRD:bind" . $e . "_ouq05:AVERAGE",
-			"DEF:ouq5=$BIND_RRD:bind" . $e . "_ouq06:AVERAGE",
-			"DEF:ouq6=$BIND_RRD:bind" . $e . "_ouq07:AVERAGE",
-			"DEF:ouq7=$BIND_RRD:bind" . $e . "_ouq08:AVERAGE",
-			"DEF:ouq8=$BIND_RRD:bind" . $e . "_ouq09:AVERAGE",
-			"DEF:ouq9=$BIND_RRD:bind" . $e . "_ouq10:AVERAGE",
-			"DEF:ouq10=$BIND_RRD:bind" . $e . "_ouq11:AVERAGE",
-			"DEF:ouq11=$BIND_RRD:bind" . $e . "_ouq12:AVERAGE",
-			"DEF:ouq12=$BIND_RRD:bind" . $e . "_ouq13:AVERAGE",
-			"DEF:ouq13=$BIND_RRD:bind" . $e . "_ouq14:AVERAGE",
-			"DEF:ouq14=$BIND_RRD:bind" . $e . "_ouq15:AVERAGE",
-			"DEF:ouq15=$BIND_RRD:bind" . $e . "_ouq16:AVERAGE",
-			"DEF:ouq16=$BIND_RRD:bind" . $e . "_ouq17:AVERAGE",
-			"DEF:ouq17=$BIND_RRD:bind" . $e . "_ouq18:AVERAGE",
-			"DEF:ouq18=$BIND_RRD:bind" . $e . "_ouq19:AVERAGE",
-			"DEF:ouq19=$BIND_RRD:bind" . $e . "_ouq20:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 1]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 1]",
-				"--title=$rgraphs{_bind2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Queries/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:ouq0=$BIND_RRD:bind" . $e . "_ouq01:AVERAGE",
-				"DEF:ouq1=$BIND_RRD:bind" . $e . "_ouq02:AVERAGE",
-				"DEF:ouq2=$BIND_RRD:bind" . $e . "_ouq03:AVERAGE",
-				"DEF:ouq3=$BIND_RRD:bind" . $e . "_ouq04:AVERAGE",
-				"DEF:ouq4=$BIND_RRD:bind" . $e . "_ouq05:AVERAGE",
-				"DEF:ouq5=$BIND_RRD:bind" . $e . "_ouq06:AVERAGE",
-				"DEF:ouq6=$BIND_RRD:bind" . $e . "_ouq07:AVERAGE",
-				"DEF:ouq7=$BIND_RRD:bind" . $e . "_ouq08:AVERAGE",
-				"DEF:ouq8=$BIND_RRD:bind" . $e . "_ouq09:AVERAGE",
-				"DEF:ouq9=$BIND_RRD:bind" . $e . "_ouq10:AVERAGE",
-				"DEF:ouq10=$BIND_RRD:bind" . $e . "_ouq11:AVERAGE",
-				"DEF:ouq11=$BIND_RRD:bind" . $e . "_ouq12:AVERAGE",
-				"DEF:ouq12=$BIND_RRD:bind" . $e . "_ouq13:AVERAGE",
-				"DEF:ouq13=$BIND_RRD:bind" . $e . "_ouq14:AVERAGE",
-				"DEF:ouq14=$BIND_RRD:bind" . $e . "_ouq15:AVERAGE",
-				"DEF:ouq15=$BIND_RRD:bind" . $e . "_ouq16:AVERAGE",
-				"DEF:ouq16=$BIND_RRD:bind" . $e . "_ouq17:AVERAGE",
-				"DEF:ouq17=$BIND_RRD:bind" . $e . "_ouq18:AVERAGE",
-				"DEF:ouq18=$BIND_RRD:bind" . $e . "_ouq19:AVERAGE",
-				"DEF:ouq19=$BIND_RRD:bind" . $e . "_ouq20:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 1]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 1] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($BIND3_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$BIND3_LIMIT");
-		} else {
-			if($BIND3_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$BIND3_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		$i = $BIND_SERVER_STATS_LIST[$e];
-		for($n = 0; $n < scalar(@$i); $n += 2) {
-			$str = sprintf("%-14s", substr(@$i[$n], 0, 14));
-			push(@tmp, "LINE1:ss" . $n . $LC[$n] . ":$str");
-			push(@tmp, "GPRINT:ss" . $n . ":LAST:Cur\\:%5.1lf     ");
-			push(@tmpz, "LINE2:ss" . $n . $LC[$n] . ":$str");
-			$str = sprintf("%-14s", substr(@$i[$n + 1], 0, 14));
-			push(@tmp, "LINE1:ss" . ($n + 1) . $LC[$n + 1] . ":$str");
-			push(@tmp, "GPRINT:ss" . ($n + 1) . ":LAST:Cur\\:%5.1lf\\n");
-			push(@tmpz, "LINE2:ss" . ($n + 1) . $LC[$n + 1] . ":$str");
-		}
-		for(; $n < 20; $n += 2) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 2]",
-			"--title=$rgraphs{_bind3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ss0=$BIND_RRD:bind" . $e . "_ss01:AVERAGE",
-			"DEF:ss1=$BIND_RRD:bind" . $e . "_ss02:AVERAGE",
-			"DEF:ss2=$BIND_RRD:bind" . $e . "_ss03:AVERAGE",
-			"DEF:ss3=$BIND_RRD:bind" . $e . "_ss04:AVERAGE",
-			"DEF:ss4=$BIND_RRD:bind" . $e . "_ss05:AVERAGE",
-			"DEF:ss5=$BIND_RRD:bind" . $e . "_ss06:AVERAGE",
-			"DEF:ss6=$BIND_RRD:bind" . $e . "_ss07:AVERAGE",
-			"DEF:ss7=$BIND_RRD:bind" . $e . "_ss08:AVERAGE",
-			"DEF:ss8=$BIND_RRD:bind" . $e . "_ss09:AVERAGE",
-			"DEF:ss9=$BIND_RRD:bind" . $e . "_ss10:AVERAGE",
-			"DEF:ss10=$BIND_RRD:bind" . $e . "_ss11:AVERAGE",
-			"DEF:ss11=$BIND_RRD:bind" . $e . "_ss12:AVERAGE",
-			"DEF:ss12=$BIND_RRD:bind" . $e . "_ss13:AVERAGE",
-			"DEF:ss13=$BIND_RRD:bind" . $e . "_ss14:AVERAGE",
-			"DEF:ss14=$BIND_RRD:bind" . $e . "_ss15:AVERAGE",
-			"DEF:ss15=$BIND_RRD:bind" . $e . "_ss16:AVERAGE",
-			"DEF:ss16=$BIND_RRD:bind" . $e . "_ss17:AVERAGE",
-			"DEF:ss17=$BIND_RRD:bind" . $e . "_ss18:AVERAGE",
-			"DEF:ss18=$BIND_RRD:bind" . $e . "_ss19:AVERAGE",
-			"DEF:ss19=$BIND_RRD:bind" . $e . "_ss20:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 2]",
-				"--title=$rgraphs{_bind3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Requests/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:ss0=$BIND_RRD:bind" . $e . "_ss01:AVERAGE",
-				"DEF:ss1=$BIND_RRD:bind" . $e . "_ss02:AVERAGE",
-				"DEF:ss2=$BIND_RRD:bind" . $e . "_ss03:AVERAGE",
-				"DEF:ss3=$BIND_RRD:bind" . $e . "_ss04:AVERAGE",
-				"DEF:ss4=$BIND_RRD:bind" . $e . "_ss05:AVERAGE",
-				"DEF:ss5=$BIND_RRD:bind" . $e . "_ss06:AVERAGE",
-				"DEF:ss6=$BIND_RRD:bind" . $e . "_ss07:AVERAGE",
-				"DEF:ss7=$BIND_RRD:bind" . $e . "_ss08:AVERAGE",
-				"DEF:ss8=$BIND_RRD:bind" . $e . "_ss09:AVERAGE",
-				"DEF:ss9=$BIND_RRD:bind" . $e . "_ss10:AVERAGE",
-				"DEF:ss10=$BIND_RRD:bind" . $e . "_ss11:AVERAGE",
-				"DEF:ss11=$BIND_RRD:bind" . $e . "_ss12:AVERAGE",
-				"DEF:ss12=$BIND_RRD:bind" . $e . "_ss13:AVERAGE",
-				"DEF:ss13=$BIND_RRD:bind" . $e . "_ss14:AVERAGE",
-				"DEF:ss14=$BIND_RRD:bind" . $e . "_ss15:AVERAGE",
-				"DEF:ss15=$BIND_RRD:bind" . $e . "_ss16:AVERAGE",
-				"DEF:ss16=$BIND_RRD:bind" . $e . "_ss17:AVERAGE",
-				"DEF:ss17=$BIND_RRD:bind" . $e . "_ss18:AVERAGE",
-				"DEF:ss18=$BIND_RRD:bind" . $e . "_ss19:AVERAGE",
-				"DEF:ss19=$BIND_RRD:bind" . $e . "_ss20:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 2]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind3/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 2] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-		}
-
-		undef(@riglim);
-		if($BIND4_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$BIND4_LIMIT");
-		} else {
-			if($BIND4_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$BIND4_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		$i = $BIND_RESOLVER_STATS_LIST[$e];
-		for($n = 0; $n < scalar(@$i); $n += 2) {
-			$str = sprintf("%-14s", substr(@$i[$n], 0, 14));
-			push(@tmp, "LINE1:rs" . $n . $LC[$n] . ":$str");
-			push(@tmp, "GPRINT:rs" . $n . ":LAST:Cur\\:%5.1lf     ");
-			push(@tmpz, "LINE2:rs" . $n . $LC[$n] . ":$str");
-			$str = sprintf("%-14s", substr(@$i[$n + 1], 0, 14));
-			push(@tmp, "LINE1:rs" . ($n + 1) . $LC[$n + 1] . ":$str");
-			push(@tmp, "GPRINT:rs" . ($n + 1) . ":LAST:Cur\\:%5.1lf\\n");
-			push(@tmpz, "LINE2:rs" . ($n + 1) . $LC[$n + 1] . ":$str");
-		}
-		for(; $n < 20; $n += 2) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 3]",
-			"--title=$rgraphs{_bind4}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Requests/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:rs0=$BIND_RRD:bind" . $e . "_rs01:AVERAGE",
-			"DEF:rs1=$BIND_RRD:bind" . $e . "_rs02:AVERAGE",
-			"DEF:rs2=$BIND_RRD:bind" . $e . "_rs03:AVERAGE",
-			"DEF:rs3=$BIND_RRD:bind" . $e . "_rs04:AVERAGE",
-			"DEF:rs4=$BIND_RRD:bind" . $e . "_rs05:AVERAGE",
-			"DEF:rs5=$BIND_RRD:bind" . $e . "_rs06:AVERAGE",
-			"DEF:rs6=$BIND_RRD:bind" . $e . "_rs07:AVERAGE",
-			"DEF:rs7=$BIND_RRD:bind" . $e . "_rs08:AVERAGE",
-			"DEF:rs8=$BIND_RRD:bind" . $e . "_rs09:AVERAGE",
-			"DEF:rs9=$BIND_RRD:bind" . $e . "_rs10:AVERAGE",
-			"DEF:rs10=$BIND_RRD:bind" . $e . "_rs11:AVERAGE",
-			"DEF:rs11=$BIND_RRD:bind" . $e . "_rs12:AVERAGE",
-			"DEF:rs12=$BIND_RRD:bind" . $e . "_rs13:AVERAGE",
-			"DEF:rs13=$BIND_RRD:bind" . $e . "_rs14:AVERAGE",
-			"DEF:rs14=$BIND_RRD:bind" . $e . "_rs15:AVERAGE",
-			"DEF:rs15=$BIND_RRD:bind" . $e . "_rs16:AVERAGE",
-			"DEF:rs16=$BIND_RRD:bind" . $e . "_rs17:AVERAGE",
-			"DEF:rs17=$BIND_RRD:bind" . $e . "_rs18:AVERAGE",
-			"DEF:rs18=$BIND_RRD:bind" . $e . "_rs19:AVERAGE",
-			"DEF:rs19=$BIND_RRD:bind" . $e . "_rs20:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 3]",
-				"--title=$rgraphs{_bind4}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Requests/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:rs0=$BIND_RRD:bind" . $e . "_rs01:AVERAGE",
-				"DEF:rs1=$BIND_RRD:bind" . $e . "_rs02:AVERAGE",
-				"DEF:rs2=$BIND_RRD:bind" . $e . "_rs03:AVERAGE",
-				"DEF:rs3=$BIND_RRD:bind" . $e . "_rs04:AVERAGE",
-				"DEF:rs4=$BIND_RRD:bind" . $e . "_rs05:AVERAGE",
-				"DEF:rs5=$BIND_RRD:bind" . $e . "_rs06:AVERAGE",
-				"DEF:rs6=$BIND_RRD:bind" . $e . "_rs07:AVERAGE",
-				"DEF:rs7=$BIND_RRD:bind" . $e . "_rs08:AVERAGE",
-				"DEF:rs8=$BIND_RRD:bind" . $e . "_rs09:AVERAGE",
-				"DEF:rs9=$BIND_RRD:bind" . $e . "_rs10:AVERAGE",
-				"DEF:rs10=$BIND_RRD:bind" . $e . "_rs11:AVERAGE",
-				"DEF:rs11=$BIND_RRD:bind" . $e . "_rs12:AVERAGE",
-				"DEF:rs12=$BIND_RRD:bind" . $e . "_rs13:AVERAGE",
-				"DEF:rs13=$BIND_RRD:bind" . $e . "_rs14:AVERAGE",
-				"DEF:rs14=$BIND_RRD:bind" . $e . "_rs15:AVERAGE",
-				"DEF:rs15=$BIND_RRD:bind" . $e . "_rs16:AVERAGE",
-				"DEF:rs16=$BIND_RRD:bind" . $e . "_rs17:AVERAGE",
-				"DEF:rs17=$BIND_RRD:bind" . $e . "_rs18:AVERAGE",
-				"DEF:rs18=$BIND_RRD:bind" . $e . "_rs19:AVERAGE",
-				"DEF:rs19=$BIND_RRD:bind" . $e . "_rs20:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 3]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind4/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 3] . "'>\n");
-			}
-		}
-
-		undef(@riglim);
-		if($BIND5_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$BIND5_LIMIT");
-		} else {
-			if($BIND5_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$BIND5_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		$i = $BIND_CACHE_RRSETS_LIST[$e];
-		for($n = 0; $n < scalar(@$i); $n += 2) {
-			$str = sprintf("%-8s", substr(@$i[$n], 0, 8));
-			push(@tmp, "LINE1:crr" . $n . $LC[$n] . ":$str");
-			push(@tmp, "GPRINT:crr" . $n . ":LAST:  Cur\\:%8.1lf       ");
-			push(@tmpz, "LINE2:crr" . $n . $LC[$n] . ":$str");
-			$str = sprintf("%-8s", substr(@$i[$n + 1], 0, 8));
-			push(@tmp, "LINE1:crr" . ($n + 1) . $LC[$n + 1] . ":$str");
-			push(@tmp, "GPRINT:crr" . ($n + 1) . ":LAST: Cur\\:%8.1lf\\n");
-			push(@tmpz, "LINE2:crr" . ($n + 1) . $LC[$n + 1] . ":$str");
-		}
-		for(; $n < 20; $n += 2) {
-			push(@tmp, "COMMENT: \\n");
-		}
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 4]",
-			"--title=$rgraphs{_bind5}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=RRsets",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:crr0=$BIND_RRD:bind" . $e . "_crr01:AVERAGE",
-			"DEF:crr1=$BIND_RRD:bind" . $e . "_crr02:AVERAGE",
-			"DEF:crr2=$BIND_RRD:bind" . $e . "_crr03:AVERAGE",
-			"DEF:crr3=$BIND_RRD:bind" . $e . "_crr04:AVERAGE",
-			"DEF:crr4=$BIND_RRD:bind" . $e . "_crr05:AVERAGE",
-			"DEF:crr5=$BIND_RRD:bind" . $e . "_crr06:AVERAGE",
-			"DEF:crr6=$BIND_RRD:bind" . $e . "_crr07:AVERAGE",
-			"DEF:crr7=$BIND_RRD:bind" . $e . "_crr08:AVERAGE",
-			"DEF:crr8=$BIND_RRD:bind" . $e . "_crr09:AVERAGE",
-			"DEF:crr9=$BIND_RRD:bind" . $e . "_crr10:AVERAGE",
-			"DEF:crr10=$BIND_RRD:bind" . $e . "_crr11:AVERAGE",
-			"DEF:crr11=$BIND_RRD:bind" . $e . "_crr12:AVERAGE",
-			"DEF:crr12=$BIND_RRD:bind" . $e . "_crr13:AVERAGE",
-			"DEF:crr13=$BIND_RRD:bind" . $e . "_crr14:AVERAGE",
-			"DEF:crr14=$BIND_RRD:bind" . $e . "_crr15:AVERAGE",
-			"DEF:crr15=$BIND_RRD:bind" . $e . "_crr16:AVERAGE",
-			"DEF:crr16=$BIND_RRD:bind" . $e . "_crr17:AVERAGE",
-			"DEF:crr17=$BIND_RRD:bind" . $e . "_crr18:AVERAGE",
-			"DEF:crr18=$BIND_RRD:bind" . $e . "_crr19:AVERAGE",
-			"DEF:crr19=$BIND_RRD:bind" . $e . "_crr20:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 4]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 4]",
-				"--title=$rgraphs{_bind5}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=RRsets",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:crr0=$BIND_RRD:bind" . $e . "_crr01:AVERAGE",
-				"DEF:crr1=$BIND_RRD:bind" . $e . "_crr02:AVERAGE",
-				"DEF:crr2=$BIND_RRD:bind" . $e . "_crr03:AVERAGE",
-				"DEF:crr3=$BIND_RRD:bind" . $e . "_crr04:AVERAGE",
-				"DEF:crr4=$BIND_RRD:bind" . $e . "_crr05:AVERAGE",
-				"DEF:crr5=$BIND_RRD:bind" . $e . "_crr06:AVERAGE",
-				"DEF:crr6=$BIND_RRD:bind" . $e . "_crr07:AVERAGE",
-				"DEF:crr7=$BIND_RRD:bind" . $e . "_crr08:AVERAGE",
-				"DEF:crr8=$BIND_RRD:bind" . $e . "_crr09:AVERAGE",
-				"DEF:crr9=$BIND_RRD:bind" . $e . "_crr10:AVERAGE",
-				"DEF:crr10=$BIND_RRD:bind" . $e . "_crr11:AVERAGE",
-				"DEF:crr11=$BIND_RRD:bind" . $e . "_crr12:AVERAGE",
-				"DEF:crr12=$BIND_RRD:bind" . $e . "_crr13:AVERAGE",
-				"DEF:crr13=$BIND_RRD:bind" . $e . "_crr14:AVERAGE",
-				"DEF:crr14=$BIND_RRD:bind" . $e . "_crr15:AVERAGE",
-				"DEF:crr15=$BIND_RRD:bind" . $e . "_crr16:AVERAGE",
-				"DEF:crr16=$BIND_RRD:bind" . $e . "_crr17:AVERAGE",
-				"DEF:crr17=$BIND_RRD:bind" . $e . "_crr18:AVERAGE",
-				"DEF:crr18=$BIND_RRD:bind" . $e . "_crr19:AVERAGE",
-				"DEF:crr19=$BIND_RRD:bind" . $e . "_crr20:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 4]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind5/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 4] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 4] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 4] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 4] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 4] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE1:mem_tu#EEEE44:TotalUse");
-		push(@tmp, "GPRINT:mem_tu_mb" . ":LAST: Cur\\:%6.1lf MB    ");
-		push(@tmpz, "LINE2:mem_tu#EEEE44:TotalUse");
-		push(@tmp, "LINE1:mem_iu#4444EE:InUse");
-		push(@tmp, "GPRINT:mem_iu_mb" . ":LAST:      Cur\\:%5.1lf MB\\n");
-		push(@tmpz, "LINE2:mem_iu#4444EE:InUse");
-		push(@tmp, "LINE1:mem_bs#44EEEE:BlockSize");
-		push(@tmp, "GPRINT:mem_bs_mb" . ":LAST:Cur\\:%6.1lf MB    ");
-		push(@tmpz, "LINE2:mem_bs#44EEEE:BlockSize");
-		push(@tmp, "LINE1:mem_cs#EE44EE:ContextSize");
-		push(@tmp, "GPRINT:mem_cs_mb" . ":LAST:Cur\\:%5.1lf MB\\n");
-		push(@tmpz, "LINE2:mem_cs#EE44EE:ContextSize");
-		push(@tmp, "LINE1:mem_l#EE4444:Lost");
-		push(@tmp, "GPRINT:mem_l_mb" . ":LAST:     Cur\\:%6.1lf MB\\n");
-		push(@tmpz, "LINE2:mem_l#EE4444:Lost");
-		if($title) {
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium2});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 5]",
-			"--title=$rgraphs{_bind6}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=bytes",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:mem_tu=$BIND_RRD:bind" . $e . "_mem_totaluse:AVERAGE",
-			"DEF:mem_iu=$BIND_RRD:bind" . $e . "_mem_inuse:AVERAGE",
-			"DEF:mem_bs=$BIND_RRD:bind" . $e . "_mem_blksize:AVERAGE",
-			"DEF:mem_cs=$BIND_RRD:bind" . $e . "_mem_ctxtsize:AVERAGE",
-			"DEF:mem_l=$BIND_RRD:bind" . $e . "_mem_lost:AVERAGE",
-			"CDEF:mem_tu_mb=mem_tu,1024,/,1024,/",
-			"CDEF:mem_iu_mb=mem_iu,1024,/,1024,/",
-			"CDEF:mem_bs_mb=mem_bs,1024,/,1024,/",
-			"CDEF:mem_cs_mb=mem_cs,1024,/,1024,/",
-			"CDEF:mem_l_mb=mem_l,1024,/,1024,/",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 5]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 5]",
-				"--title=$rgraphs{_bind6}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=bytes",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:mem_tu=$BIND_RRD:bind" . $e . "_mem_totaluse:AVERAGE",
-				"DEF:mem_iu=$BIND_RRD:bind" . $e . "_mem_inuse:AVERAGE",
-				"DEF:mem_bs=$BIND_RRD:bind" . $e . "_mem_blksize:AVERAGE",
-				"DEF:mem_cs=$BIND_RRD:bind" . $e . "_mem_ctxtsize:AVERAGE",
-				"DEF:mem_l=$BIND_RRD:bind" . $e . "_mem_lost:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 5]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind6/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 5] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 5] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 5] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 5] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 5] . "'>\n");
-			}
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE1:tsk_dq#EEEE44:Default Quantum");
-		push(@tmp, "GPRINT:tsk_dq" . ":LAST:        Current\\:%4.0lf\\n");
-		push(@tmpz, "LINE2:tsk_dq#EEEE44:Default Quantum");
-		push(@tmp, "LINE1:tsk_wt#4444EE:Worker Threads");
-		push(@tmp, "GPRINT:tsk_wt" . ":LAST:         Current\\:%4.0lf\\n");
-		push(@tmpz, "LINE2:tsk_wt#4444EE:Worker Threads");
-		push(@tmp, "LINE1:tsk_tr#44EEEE:Tasks Running");
-		push(@tmp, "GPRINT:tsk_tr" . ":LAST:          Current\\:%4.0lf\\n");
-		push(@tmpz, "LINE2:tsk_tr#44EEEE:Tasks Running");
-		($width, $height) = split('x', $GRAPH_SIZE{medium2});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 7 + 6]",
-			"--title=$rgraphs{_bind7}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Tasks",
-			"--width=$width",
-			"--height=$height",
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:tsk_wt=$BIND_RRD:bind" . $e . "_tsk_workthrds:AVERAGE",
-			"DEF:tsk_dq=$BIND_RRD:bind" . $e . "_tsk_defquantm:AVERAGE",
-			"DEF:tsk_tr=$BIND_RRD:bind" . $e . "_tsk_tasksrun:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 7 + 6]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 7 + 6]",
-				"--title=$rgraphs{_bind7}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Tasks",
-				"--width=$width",
-				"--height=$height",
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:tsk_wt=$BIND_RRD:bind" . $e . "_tsk_workthrds:AVERAGE",
-				"DEF:tsk_dq=$BIND_RRD:bind" . $e . "_tsk_defquantm:AVERAGE",
-				"DEF:tsk_tr=$BIND_RRD:bind" . $e . "_tsk_tasksrun:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 7 + 6]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /bind7/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 6] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 6] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 7 + 6] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 6] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 7 + 6] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b>&nbsp;&nbsp;<a href='" . $host . "' style='{color: $title_fg_color}'>$host</a><b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# NTP graph
-# ----------------------------------------------------------------------------
-sub ntp {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $e;
-	my $e2;
-	my $n;
-	my $n2;
-	my $str;
-	my $err;
-	my @AC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#B4B444",
-		"#444444",
-	);
-
-	$title = !$silent ? $title : "";
-
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$NTP_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $NTP_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < scalar(@NTP_HOST_LIST); $n++) {
-			$line1 = "                                  ";
-			$line2 .= "     Delay   Offset   Jitter   Str";
-			$line3 .= "----------------------------------";
-			foreach my $i (@NTP_CODE_LIST[$n]) {
-				foreach(@$i) {
-					$line1 .= "     ";
-					$line2 .= sprintf(" %4s", $_);
-					$line3 .= "-----";
-				}
-			}
-			if($line1) {
-				$i = length($line1);
-				printf(sprintf("%${i}s", sprintf("NTP Server: %s", $NTP_HOST_LIST[$n])));
-			}
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $n3;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < scalar(@NTP_HOST_LIST); $n2++) {
-				undef(@row);
-				$from = $n2 * 14;
-				$to = $from + 4;
-				push(@row, @$line[$from..$to]);
-				printf("  %8.3f %8.3f %8.3f   %2d ", @row);
-				foreach my $i (@NTP_CODE_LIST[$n2]) {
-					for($n3 = 0; $n3 < scalar(@$i); $n3++) {
-						$from = $n2 * 14 + 4 + $n3;
-						my ($c) = @$line[$from];
-						printf(" %4d", $c);
-					}
-				}
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@NTP_HOST_LIST); $n++) {
-		for($n2 = 1; $n2 <= 3; $n2++) {
-			$str = $u . $myself . $n . $n2 . "." . $when . ".png";
-			push(@PNG, $str);
-			unlink("$PNG_DIR" . $str);
-			if($ENABLE_ZOOM eq "Y") {
-				$str = $u . $myself . $n . $n2 . "z." . $when . ".png";
-				push(@PNGz, $str);
-				unlink("$PNG_DIR" . $str);
-			}
-		}
-	}
-
-	$e = 0;
-	foreach my $host (@NTP_HOST_LIST) {
-		if($e) {
-			print("   <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($NTP1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$NTP1_LIMIT");
-		} else {
-			if($NTP1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$NTP1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE2:ntp" . $e . "_del#4444EE:Delay");
-		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":LAST:     Current\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":AVERAGE:    Average\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":MIN:    Min\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_del" . ":MAX:    Max\\:%6.3lf\\n");
-		push(@tmp, "LINE2:ntp" . $e . "_off#44EEEE:Offset");
-		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":LAST:    Current\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":AVERAGE:    Average\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":MIN:    Min\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_off" . ":MAX:    Max\\:%6.3lf\\n");
-		push(@tmp, "LINE2:ntp" . $e . "_jit#EE4444:Jitter");
-		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":LAST:    Current\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":AVERAGE:    Average\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":MIN:    Min\\:%6.3lf");
-		push(@tmp, "GPRINT:ntp" . $e . "_jit" . ":MAX:    Max\\:%6.3lf\\n");
-		push(@tmpz, "LINE2:ntp" . $e . "_del#4444EE:Delay");
-		push(@tmpz, "LINE2:ntp" . $e . "_off#44EEEE:Offset");
-		push(@tmpz, "LINE2:ntp" . $e . "_jit#EE4444:Jitter");
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 3]",
-			"--title=$rgraphs{_ntp1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Seconds",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			@VERSION12,
-			@graph_colors,
-			"DEF:ntp" . $e . "_del=$NTP_RRD:ntp" . $e . "_del:AVERAGE",
-			"DEF:ntp" . $e . "_off=$NTP_RRD:ntp" . $e . "_off:AVERAGE",
-			"DEF:ntp" . $e . "_jit=$NTP_RRD:ntp" . $e . "_jit:AVERAGE",
-			"COMMENT: \\n",
-			@tmp,
-			"COMMENT: \\n",
-			"COMMENT: \\n",);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 3]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 3]",
-				"--title=$rgraphs{_ntp1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Seconds",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				@VERSION12,
-				@graph_colors,
-				"DEF:ntp" . $e . "_del=$NTP_RRD:ntp" . $e . "_del:AVERAGE",
-				"DEF:ntp" . $e . "_off=$NTP_RRD:ntp" . $e . "_off:AVERAGE",
-				"DEF:ntp" . $e . "_jit=$NTP_RRD:ntp" . $e . "_jit:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 3]: $err\n") if $err;
-		}
-		$e2 = $e + 1;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-		}
-
-		undef(@riglim);
-		if($NTP2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$NTP2_LIMIT");
-		} else {
-			if($NTP2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$NTP2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		push(@tmp, "LINE2:ntp" . $e . "_str#44EEEE:Stratum");
-		push(@tmp, "GPRINT:ntp" . $e . "_str" . ":LAST:              Current\\:%2.0lf\\n");
-		push(@tmpz, "LINE2:ntp" . $e . "_str#44EEEE:Stratum");
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . $PNG[$e * 3 + 1],
-			"--title=$rgraphs{_ntp2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Level",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ntp" . $e . "_str=$NTP_RRD:ntp" . $e . "_str:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 3 + 1] . ": $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . $PNGz[$e * 3 + 1],
-				"--title=$rgraphs{_ntp2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Level",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:ntp" . $e . "_str=$NTP_RRD:ntp" . $e . "_str:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 3 + 1] . ": $err\n") if $err;
-		}
-		$e2 = $e + 2;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 1] . "'>\n");
-			}
-		}
-
-		undef(@tmp);
-		undef(@tmpz);
-		$i = @NTP_CODE_LIST[$e];
-		for($n = 0; $n < 10; $n++) {
-			if(@$i[$n]) {
-				$str = sprintf("%-4s", @$i[$n]);
-				push(@tmp, "LINE2:ntp" . $e . "_c" . sprintf("%02d", ($n + 1)) . $AC[$n] . ":$str");
-				push(@tmp, "COMMENT:   \\g");
-				push(@tmpz, "LINE2:ntp" . $e . "_c" . sprintf("%02d", ($n + 1)) . $AC[$n] . ":$str");
-				if(!(($n + 1) % 5)) {
-					push(@tmp, ("COMMENT: \\n"));
-				}
-			}
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{small});
-		if($silent =~ /imagetag/) {
-			($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-			($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-			@tmp = @tmpz;
-		}
-		RRDs::graph("$PNG_DIR" . $PNG[$e * 3 + 2],
-			"--title=$rgraphs{_ntp3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Hits",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			"DEF:ntp" . $e . "_c01=$NTP_RRD:ntp" . $e . "_c01:AVERAGE",
-			"DEF:ntp" . $e . "_c02=$NTP_RRD:ntp" . $e . "_c02:AVERAGE",
-			"DEF:ntp" . $e . "_c03=$NTP_RRD:ntp" . $e . "_c03:AVERAGE",
-			"DEF:ntp" . $e . "_c04=$NTP_RRD:ntp" . $e . "_c04:AVERAGE",
-			"DEF:ntp" . $e . "_c05=$NTP_RRD:ntp" . $e . "_c05:AVERAGE",
-			"DEF:ntp" . $e . "_c06=$NTP_RRD:ntp" . $e . "_c06:AVERAGE",
-			"DEF:ntp" . $e . "_c07=$NTP_RRD:ntp" . $e . "_c07:AVERAGE",
-			"DEF:ntp" . $e . "_c08=$NTP_RRD:ntp" . $e . "_c08:AVERAGE",
-			"DEF:ntp" . $e . "_c09=$NTP_RRD:ntp" . $e . "_c09:AVERAGE",
-			"DEF:ntp" . $e . "_c10=$NTP_RRD:ntp" . $e . "_c10:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 3 + 2] . ": $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . $PNGz[$e * 3 + 2],
-				"--title=$rgraphs{_ntp3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Hits",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:ntp" . $e . "_c01=$NTP_RRD:ntp" . $e . "_c01:AVERAGE",
-				"DEF:ntp" . $e . "_c02=$NTP_RRD:ntp" . $e . "_c02:AVERAGE",
-				"DEF:ntp" . $e . "_c03=$NTP_RRD:ntp" . $e . "_c03:AVERAGE",
-				"DEF:ntp" . $e . "_c04=$NTP_RRD:ntp" . $e . "_c04:AVERAGE",
-				"DEF:ntp" . $e . "_c05=$NTP_RRD:ntp" . $e . "_c05:AVERAGE",
-				"DEF:ntp" . $e . "_c06=$NTP_RRD:ntp" . $e . "_c06:AVERAGE",
-				"DEF:ntp" . $e . "_c07=$NTP_RRD:ntp" . $e . "_c07:AVERAGE",
-				"DEF:ntp" . $e . "_c08=$NTP_RRD:ntp" . $e . "_c08:AVERAGE",
-				"DEF:ntp" . $e . "_c09=$NTP_RRD:ntp" . $e . "_c09:AVERAGE",
-				"DEF:ntp" . $e . "_c10=$NTP_RRD:ntp" . $e . "_c10:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 3 + 2] . ": $err\n") if $err;
-		}
-		$e2 = $e + 3;
-		if($title || ($silent =~ /imagetag/ && $graph =~ /ntp$e2/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 3 + 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 3 + 2] . "'>\n");
-			}
-		}
-
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-	
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b style='{color: $title_fg_color}'>&nbsp;&nbsp;$host<b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# FAIL2BAN graph
-# ----------------------------------------------------------------------------
-sub fail2ban {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $n;
-	my $str;
-	my $err;
-	my @LC = (
-		"#4444EE",
-		"#EEEE44",
-		"#44EEEE",
-		"#EE44EE",
-		"#888888",
-		"#E29136",
-		"#44EE44",
-		"#448844",
-		"#EE4444",
-	);
-
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$FAIL2BAN_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $FAIL2BAN_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < scalar(@FAIL2BAN_LIST); $n++) {
-			$line1 = "";
-			foreach my $i (@FAIL2BAN_LIST[$n]) {
-				foreach(@$i) {
-					$str = sprintf("%20s", substr($_, 0, 20));
-					$line1 .= "                     ";
-					$line2 .= sprintf(" %20s", $str);
-					$line3 .= "---------------------";
-				}
-			}
-			if($line1) {
-				$i = length($line1);
-				printf(sprintf("%${i}s", sprintf("%s", $FAIL2BAN_DESC[$n])));
-			}
-		}
-		print("\n");
-		print("Time$line2\n");
-		print("----$line3 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $n3;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc ", $time);
-			for($n2 = 0; $n2 < scalar(@FAIL2BAN_LIST); $n2++) {
-				foreach my $i (@FAIL2BAN_LIST[$n2]) {
-					for($n3 = 0; $n3 < scalar(@$i); $n3++) {
-						$from = $n2 * 9 + $n3;
-						$to = $from + 1;
-						my ($j) = @$line[$from..$to];
-						@row = ($j);
-						printf("%20d ", @row);
-					}
-				}
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@FAIL2BAN_LIST); $n++) {
-		$str = $u . $myself . $n . "." . $when . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		if($ENABLE_ZOOM eq "Y") {
-			$str = $u . $myself . $n . "z." . $when . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-		}
-	}
-
-	if($FAIL2BAN_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$FAIL2BAN_LIMIT");
-	} else {
-		if($FAIL2BAN_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$FAIL2BAN_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	$n = 0;
-	while($n < scalar(@FAIL2BAN_LIST)) {
-		if($title) {
-			if($n == 0) {
-				graph_header($title, $FAIL2BAN_PER_ROW);
-			}
-			print("    <tr>\n");
-		}
-		for($n2 = 0; $n2 < $FAIL2BAN_PER_ROW; $n2++) {
-			last unless $n < scalar(@FAIL2BAN_LIST);
-			if($title) {
-				print("    <td bgcolor='" . $title_bg_color . "'>\n");
-			}
-			undef(@tmp);
-			undef(@tmpz);
-			foreach my $i ($FAIL2BAN_LIST[$n]) {
-				my $e = 0;
-				foreach(@$i) {
-					$str = sprintf("%-25s", substr($_, 0, 25));
-					push(@tmp, "LINE1:j" . ($e + 1) . $LC[$e] . ":$str");
-					push(@tmp, "GPRINT:j" . ($e + 1) . ":LAST: Cur\\:%2.0lf\\g");
-					push(@tmp, "GPRINT:j" . ($e + 1) . ":AVERAGE:   Avg\\:%2.0lf\\g");
-					push(@tmp, "GPRINT:j" . ($e + 1) . ":MIN:   Min\\:%2.0lf\\g");
-					push(@tmp, "GPRINT:j" . ($e + 1) . ":MAX:   Max\\:%2.0lf\\n");
-					push(@tmpz, "LINE2:j" . ($e + 1) . $LC[$e] . ":$str");
-					$e++;
-				}
-				for($e = scalar(@$i); $e < 9; $e++) {
-					push(@tmp, "COMMENT: \\n");
-				}
-			}
-			($width, $height) = split('x', $GRAPH_SIZE{medium});
-			$str = substr($FAIL2BAN_DESC[$n2], 0, 25);
-			RRDs::graph("$PNG_DIR" . "$PNG[$n]",
-				"--title=$str  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=bans/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				"DEF:j1=$FAIL2BAN_RRD:fail2ban" . $n . "_j1:AVERAGE",
-				"DEF:j2=$FAIL2BAN_RRD:fail2ban" . $n . "_j2:AVERAGE",
-				"DEF:j3=$FAIL2BAN_RRD:fail2ban" . $n . "_j3:AVERAGE",
-				"DEF:j4=$FAIL2BAN_RRD:fail2ban" . $n . "_j4:AVERAGE",
-				"DEF:j5=$FAIL2BAN_RRD:fail2ban" . $n . "_j5:AVERAGE",
-				"DEF:j6=$FAIL2BAN_RRD:fail2ban" . $n . "_j6:AVERAGE",
-				"DEF:j7=$FAIL2BAN_RRD:fail2ban" . $n . "_j7:AVERAGE",
-				"DEF:j8=$FAIL2BAN_RRD:fail2ban" . $n . "_j8:AVERAGE",
-				"DEF:j9=$FAIL2BAN_RRD:fail2ban" . $n . "_j9:AVERAGE",
-				@tmp);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
-			if($ENABLE_ZOOM eq "Y") {
-				($width, $height) = split('x', $GRAPH_SIZE{zoom});
-				RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
-					"--title=$str  ($nwhen$twhen)",
-					"--start=-$nwhen$twhen",
-					"--imgformat=PNG",
-					"--vertical-label=bans/s",
-					"--width=$width",
-					"--height=$height",
-					@riglim,
-					"--lower-limit=0",
-					@VERSION12,
-					@VERSION12_small,
-					@graph_colors,
-					"DEF:j1=$FAIL2BAN_RRD:fail2ban" . $n . "_j1:AVERAGE",
-					"DEF:j2=$FAIL2BAN_RRD:fail2ban" . $n . "_j2:AVERAGE",
-					"DEF:j3=$FAIL2BAN_RRD:fail2ban" . $n . "_j3:AVERAGE",
-					"DEF:j4=$FAIL2BAN_RRD:fail2ban" . $n . "_j4:AVERAGE",
-					"DEF:j5=$FAIL2BAN_RRD:fail2ban" . $n . "_j5:AVERAGE",
-					"DEF:j6=$FAIL2BAN_RRD:fail2ban" . $n . "_j6:AVERAGE",
-					"DEF:j7=$FAIL2BAN_RRD:fail2ban" . $n . "_j7:AVERAGE",
-					"DEF:j8=$FAIL2BAN_RRD:fail2ban" . $n . "_j8:AVERAGE",
-					"DEF:j9=$FAIL2BAN_RRD:fail2ban" . $n . "_j9:AVERAGE",
-					@tmpz);
-				$err = RRDs::error;
-				print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
-			}
-			if($title || ($silent =~ /imagetag/ && $graph =~ /fail2ban$n/)) {
-				if($ENABLE_ZOOM eq "Y") {
-					if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-						print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$n] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-					else {
-						print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-				} else {
-					print("      <img src='" . $URL . $IMGS_DIR . $PNG[$n] . "'>\n");
-				}
-			}
-			if($title) {
-				print("    </td>\n");
-			}
-			$n++;
-		}
-		if($title) {
-			print("    </tr>\n");
-		}
-	}
-	if($title) {
-		graph_footer();
-	}
-	return 1;
-}
-
-# ICECAST graph
-# ----------------------------------------------------------------------------
-sub icecast {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my $e;
-	my $n;
-	my $str;
-	my $stack;
-	my $err;
-	my @AC = (
-		"#FFA500",
-		"#44EEEE",
-		"#44EE44",
-		"#4444EE",
-		"#448844",
-		"#EE4444",
-		"#EE44EE",
-		"#EEEE44",
-		"#444444",
-	);
-	my @LC = (
-		"#FFA500",
-		"#00EEEE",
-		"#00EE00",
-		"#0000EE",
-		"#448844",
-		"#EE0000",
-		"#EE00EE",
-		"#EEEE00",
-		"#444444",
-	);
-
-	$title = !$silent ? $title : "";
-
-	if($IFACE_MODE eq "text") {
-		my $line1;
-		my $line2;
-		my $line3;
-		my $line4;
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$ICECAST_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $ICECAST_RRD: $err\n") if $err;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("    ");
-		for($n = 0; $n < scalar(@ICECAST_URL_LIST); $n++) {
-			$line1 = "  ";
-			$line2 .= "  ";
-			$line3 .= "  ";
-			$line4 .= "--";
-			foreach my $i (@ICECAST_MP_LIST[$n]) {
-				foreach(@$i) {
-					$line1 .= "           ";
-					$line2 .= sprintf(" %10s", $_);
-					$line3 .= "  List BitR";
-					$line4 .= "-----------";
-				}
-			}
-			if($line1) {
-				$i = length($line1);
-				printf(sprintf("%${i}s", sprintf("Icecast Server %2d", $n)));
-			}
-		}
-		print("\n");
-		print("    $line2");
-		print("\n");
-		print("Time$line3\n");
-		print("----$line4 \n");
-		my $line;
-		my @row;
-		my $time;
-		my $n2;
-		my $n3;
-		my $from;
-		my $to;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc", $time);
-			for($n2 = 0; $n2 < scalar(@ICECAST_URL_LIST); $n2++) {
-				print("  ");
-				foreach my $i (@ICECAST_MP_LIST[$n2]) {
-					for($n3 = 0; $n3 < scalar(@$i); $n3++) {
-						$from = $n2 * 36 + ($n3 * 4);
-						$to = $from + 4;
-						my ($l, $b, undef, undef) = @$line[$from..$to];
-						@row = ($l, $b);
-						printf("  %4d %4d", @row);
-					}
-				}
-			}
-			print("\n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	for($n = 0; $n < scalar(@ICECAST_URL_LIST); $n++) {
-		$str = $u . $myself . $n . "1." . $when . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		$str = $u . $myself . $n . "2." . $when . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		if($ENABLE_ZOOM eq "Y") {
-			$str = $u . $myself . $n . "1z." . $when . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-			$str = $u . $myself . $n . "2z." . $when . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-		}
-	}
-
-	$e = 0;
-	foreach my $url (@ICECAST_URL_LIST) {
-		if($e) {
-			print("   <br>\n");
-		}
-		if($title) {
-			graph_header($title, 2);
-		}
-		undef(@riglim);
-		if($ICECAST1_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$ICECAST1_LIMIT");
-		} else {
-			if($ICECAST1_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$ICECAST1_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		foreach my $i (@ICECAST_MP_LIST[$e]) {
-			for($n = 0; $n < scalar(@$i); $n++) {
-				$str = sprintf("%-15s", substr(@$i[$n], 0, 15));
-				if($ICECAST_GRAPH_MODE eq "S") {
-					$stack = ":STACK";
-				}
-				push(@tmp, "AREA:ice" . $e . "_mp$n" . $AC[$n] . ":$str" . $stack);
-				push(@tmpz, "AREA:ice" . $e . "_mp$n" . $AC[$n] . ":@$i[$n]" . $stack);
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":LAST: Cur\\:%4.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":AVERAGE: Avg\\:%4.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MIN: Min\\:%4.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MAX: Max\\:%4.0lf\\n");
-			}
-		}
-		if($ICECAST_GRAPH_MODE ne "S") {
-			foreach my $i (@ICECAST_MP_LIST[$e]) {
-				for($n = 0; $n < scalar(@$i); $n++) {
-					push(@tmp, "LINE1:ice" . $e . "_mp$n" . $LC[$n]);
-					push(@tmpz, "LINE2:ice" . $e . "_mp$n" . $LC[$n]);
-				}
-			}
-		}
-
-		if($title) {
-			print("    <tr>\n");
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . "$PNG[$e * 2]",
-			"--title=$rgraphs{_icecast1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Listeners",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:ice" . $e . "_mp0=$ICECAST_RRD:icecast" . $e . "_mp0_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp1=$ICECAST_RRD:icecast" . $e . "_mp1_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp2=$ICECAST_RRD:icecast" . $e . "_mp2_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp3=$ICECAST_RRD:icecast" . $e . "_mp3_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp4=$ICECAST_RRD:icecast" . $e . "_mp4_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp5=$ICECAST_RRD:icecast" . $e . "_mp5_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp6=$ICECAST_RRD:icecast" . $e . "_mp6_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp7=$ICECAST_RRD:icecast" . $e . "_mp7_ls:AVERAGE",
-			"DEF:ice" . $e . "_mp8=$ICECAST_RRD:icecast" . $e . "_mp8_ls:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$e * 2]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$e * 2]",
-				"--title=$rgraphs{_icecast1}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Listeners",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:ice" . $e . "_mp0=$ICECAST_RRD:icecast" . $e . "_mp0_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp1=$ICECAST_RRD:icecast" . $e . "_mp1_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp2=$ICECAST_RRD:icecast" . $e . "_mp2_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp3=$ICECAST_RRD:icecast" . $e . "_mp3_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp4=$ICECAST_RRD:icecast" . $e . "_mp4_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp5=$ICECAST_RRD:icecast" . $e . "_mp5_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp6=$ICECAST_RRD:icecast" . $e . "_mp6_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp7=$ICECAST_RRD:icecast" . $e . "_mp7_ls:AVERAGE",
-				"DEF:ice" . $e . "_mp8=$ICECAST_RRD:icecast" . $e . "_mp8_ls:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$e * 2]: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /icecast$e/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 2] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 2] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 2] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 2] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 2] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-		}
-
-		undef(@riglim);
-		if($ICECAST2_RIGID eq 1) {
-			push(@riglim, "--upper-limit=$ICECAST2_LIMIT");
-		} else {
-			if($ICECAST2_RIGID eq 2) {
-				push(@riglim, "--upper-limit=$ICECAST2_LIMIT");
-				push(@riglim, "--rigid");
-			}
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		foreach my $i (@ICECAST_MP_LIST[$e]) {
-			for($n = 0; $n < scalar(@$i); $n++) {
-				$str = sprintf("%-15s", @$i[$n]);
-				push(@tmp, "LINE1:ice" . $e . "_mp$n" . $LC[$n] . ":$str");
-				push(@tmpz, "LINE2:ice" . $e . "_mp$n" . $LC[$n] . ":@$i[$n]");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":LAST: Cur\\:%3.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":AVERAGE:  Avg\\:%3.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MIN:  Min\\:%3.0lf");
-				push(@tmp, "GPRINT:ice" . $e . "_mp$n" . ":MAX:  Max\\:%3.0lf\\n");
-			}
-		}
-
-		if($title) {
-			print("    <td bgcolor='" . $title_bg_color . "'>\n");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{medium});
-		RRDs::graph("$PNG_DIR" . $PNG[$e * 2 + 1],
-			"--title=$rgraphs{_icecast2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Bitrate",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:ice" . $e . "_mp0=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp1=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp2=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp3=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp4=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp5=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp6=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp7=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			"DEF:ice" . $e . "_mp8=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . $PNG[$e * 2 + 1] . ": $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . $PNGz[$e * 2 + 1],
-				"--title=$rgraphs{_icecast2}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Bitrate",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:ice" . $e . "_mp0=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp1=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp2=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp3=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp4=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp5=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp6=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp7=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				"DEF:ice" . $e . "_mp8=$ICECAST_RRD:icecast" . $e . "_mp0_br:AVERAGE",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . $PNGz[$e * 2 + 1] . ": $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /icecast$e/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$e * 2 + 1] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 2 + 1] . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$e * 2 + 1] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$e * 2 + 1] . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG[$e * 2 + 1] . "'>\n");
-			}
-		}
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-	
-			print("    <tr>\n");
-			print "      <td bgcolor='$title_bg_color' colspan='2'>\n";
-			print "       <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
-			print "       <font size='-1'>\n";
-			print "        <b>&nbsp;&nbsp;<a href='" . $url . "' style='{color: $title_fg_color}'>$url</a><b>\n";
-			print "       </font></font>\n";
-			print "      </td>\n";
-			print("    </tr>\n");
-			graph_footer();
-		}
-		$e++;
-	}
-	return 1;
-}
-
-# INT graph
-# ----------------------------------------------------------------------------
-sub int {
-	my ($myself, $title) = @_;
-
-	my $width;
-	my $height;
-	my @riglim;
-	my $n;
-	my $err;
-
-	my @INT;
-	my @NAME;
-	my @DEF1;
-	my @AREA1;
-	my @LINE1;
-	my @DEF2;
-	my @AREA2;
-	my @LINE2;
-	my @DEF3;
-	my @AREA3;
-	my @LINE3;
-	my $n1;
-	my $n2;
-	my $n3;
-	my @ACOLOR1 =  ("#FFA500",
-			"#44EEEE",
-			"#CCCCCC",
-			"#B4B444",
-			"#4444EE",
-			"#44EE44",
-			"#EEEE44",
-			"#444444",
-			"#EE44EE",
-			"#EE4444",
-			"#448844",
-			"#BB44EE",
-			"#D3D701",
-			"#E29136",
-			"#DDAE8C",
-			"#F29967",
-			"#996952",
-			"#EB6C75",
-			"#B84F6B",
-			"#963C74",
-			"#A68BBC",
-			"#597AB7",
-			"#8CB4CE",
-			"#63BEE0",
-			"#3CB5B0",
-			"#7EB97C",
-			"#94C36B",
-			"#884632",
-
-			"#CD5C5C",
-			"#F08080",
-			"#FA8072",
-			"#E9967A",
-			"#FFA07A",
-			"#DC143C",
-			"#B22222",
-			"#8B0000",
-			"#FFC0CB",
-			"#FF69B4",
-			"#FF1493",
-			"#C71585",
-			"#DB7093",
-			"#FFA07A",
-			"#FF7F50",
-			"#FF6347",
-			"#FF4500",
-			"#FF8C00",
-			"#FFD700",
-			"#FFFFE0",
-			"#FFFACD",
-			"#FFEFD5",
-			"#FFE4B5",
-			"#FFDAB9",
-			"#EEE8AA",
-			"#F0E68C",
-			"#BDB76B",
-			"#E6E6FA",
-			"#D8BFD8",
-			"#DDA0DD",
-			"#EE82EE",
-			"#DA70D6",
-			"#BA55D3",
-			"#9370DB",
-			"#9966CC",
-			"#8A2BE2",
-			"#9400D3",
-			"#9932CC",
-			"#8B008B",
-			"#4B0082",
-			"#6A5ACD",
-			"#483D8B",
-			"#7B68EE",
-			"#ADFF2F",
-			"#7FFF00",
-			"#32CD32",
-			"#98FB98",
-			"#90EE90",
-			"#00FA9A",
-			"#00FF7F",
-			"#3CB371",
-			"#2E8B57",
-			"#228B22",
-			"#9ACD32",
-			"#6B8E23",
-			"#808000",
-			"#556B2F",
-			"#66CDAA",
-			"#8FBC8F",
-			"#20B2AA",
-			"#008B8B",
-			"#007070",
-			"#E0FFFF",
-			"#AFEEEE",
-			"#7FFFD4",
-			"#40E0D0",
-			"#48D1CC",
-			"#00CED1",
-			"#5F9EA0",
-			"#4682B4",
-			"#B0C4DE",
-			"#B0E0E6",
-			"#ADD8E6",
-			"#87CEEB",
-			"#00BFFF",
-			"#1E90FF",
-			"#6495ED",
-			"#7B68EE",
-			"#4169E1",
-			"#191970",
-			"#FFF8DC",
-			"#FFEBCD",
-			"#FFDEAD",
-			"#F5DEB3",
-			"#DEB887",
-			"#D2B48C",
-			"#BC8F8F",
-			"#F4A460",
-			"#DAA520",
-			"#B8860B",
-			"#CD853F",
-			"#D2691E",
-			"#8B4513",
-			"#A0522D",
-			"#A52A2A",
-			"#800000",
-			"#FFFAFA",
-			"#F0FFF0",
-			"#F0F8FF",
-			"#F5F5F5",
-			"#FDF5E6",
-			"#F5F5DC",
-			"#FAEBD7",
-			"#FFE4E1",
-			"#DCDCDC",
-			"#696969",
-			"#A9A9A9",
-			"#708090",
-			"#2F4F4F",
-			"#000066",
-			"#006633",
-			"#660033",
-			"#66FFCC",
-			"#990066",
-			"#996633",
-			"#99CCCC",
-			"#CC3366",
-			"#CC6633",
-			"#CC6699",
-			"#CC9933",
-			"#CC9999",
-			"#CCCC33",
-			"#CCCC99",
-			"#CCFF99",
-			"#FF0099",
-			"#FF6666",
-			"#FF9999",
-			"#FFCC99",
-			"#FFFF99");
-
-	my @LCOLOR1 =  ("#DDA500",
-			"#00EEEE",
-			"#888888",
-			"#B4B400",
-			"#0000EE",
-			"#00EE00",
-			"#EEEE00",
-			"#444444",
-			"#EE00EE",
-			"#EE0000",
-			"#008800",
-			"#BB00EE",
-			"#C8D200",
-			"#DB6612",
-			"#CE8248",
-			"#EB6A39",
-			"#8F4C30",
-			"#E20045",
-			"#B50C51",
-			"#7B0059",
-			"#684894",
-			"#125AA3",
-			"#518FBA",
-			"#00AADA",
-			"#009790",
-			"#359B52",
-			"#56AB27",
-			"#782F1E",
-
-			"#CD5C5C",
-			"#F08080",
-			"#FA8072",
-			"#E9967A",
-			"#FFA07A",
-			"#DC143C",
-			"#B22222",
-			"#8B0000",
-			"#FFC0CB",
-			"#FF69B4",
-			"#FF1493",
-			"#C71585",
-			"#DB7093",
-			"#FFA07A",
-			"#FF7F50",
-			"#FF6347",
-			"#FF4500",
-			"#FF8C00",
-			"#FFD700",
-			"#FFFFE0",
-			"#FFFACD",
-			"#FFEFD5",
-			"#FFE4B5",
-			"#FFDAB9",
-			"#EEE8AA",
-			"#F0E68C",
-			"#BDB76B",
-			"#E6E6FA",
-			"#D8BFD8",
-			"#DDA0DD",
-			"#EE82EE",
-			"#DA70D6",
-			"#BA55D3",
-			"#9370DB",
-			"#9966CC",
-			"#8A2BE2",
-			"#9400D3",
-			"#9932CC",
-			"#8B008B",
-			"#4B0082",
-			"#6A5ACD",
-			"#483D8B",
-			"#7B68EE",
-			"#ADFF2F",
-			"#7FFF00",
-			"#32CD32",
-			"#98FB98",
-			"#90EE90",
-			"#00FA9A",
-			"#00FF7F",
-			"#3CB371",
-			"#2E8B57",
-			"#228B22",
-			"#9ACD32",
-			"#6B8E23",
-			"#808000",
-			"#556B2F",
-			"#66CDAA",
-			"#8FBC8F",
-			"#20B2AA",
-			"#008B8B",
-			"#007070",
-			"#E0FFFF",
-			"#AFEEEE",
-			"#7FFFD4",
-			"#40E0D0",
-			"#48D1CC",
-			"#00CED1",
-			"#5F9EA0",
-			"#4682B4",
-			"#B0C4DE",
-			"#B0E0E6",
-			"#ADD8E6",
-			"#87CEEB",
-			"#00BFFF",
-			"#1E90FF",
-			"#6495ED",
-			"#7B68EE",
-			"#4169E1",
-			"#191970",
-			"#FFF8DC",
-			"#FFEBCD",
-			"#FFDEAD",
-			"#F5DEB3",
-			"#DEB887",
-			"#D2B48C",
-			"#BC8F8F",
-			"#F4A460",
-			"#DAA520",
-			"#B8860B",
-			"#CD853F",
-			"#D2691E",
-			"#8B4513",
-			"#A0522D",
-			"#A52A2A",
-			"#800000",
-			"#FFFAFA",
-			"#F0FFF0",
-			"#F0F8FF",
-			"#F5F5F5",
-			"#FDF5E6",
-			"#F5F5DC",
-			"#FAEBD7",
-			"#FFE4E1",
-			"#DCDCDC",
-			"#696969",
-			"#A9A9A9",
-			"#708090",
-			"#2F4F4F",
-			"#000066",
-			"#006633",
-			"#660033",
-			"#66FFCC",
-			"#990066",
-			"#996633",
-			"#99CCCC",
-			"#CC3366",
-			"#CC6633",
-			"#CC6699",
-			"#CC9933",
-			"#CC9999",
-			"#CCCC33",
-			"#CCCC99",
-			"#CCFF99",
-			"#FF0099",
-			"#FF6666",
-			"#FF9999",
-			"#FFCC99",
-			"#FFFF99");
-
-	my @ACOLOR2 =  ("#44EEEE",
-			"#4444EE",
-			"#44EE44",
-			"#EE44EE",
-			"#EE4444",
-			"#EEEE44");
-	my @LCOLOR2 =  ("#00EEEE",
-			"#0000EE",
-			"#00EE00",
-			"#EE00EE",
-			"#EE0000",
-			"#EEEE00");
-
-	my @ACOLOR3 =  ("#44EE44",
-			"#4444EE",
-			"#44EEEE",
-			"#EE4444",
-			"#EE44EE",
-			"#EEEE44");
-	my @LCOLOR3 =  ("#00EE00",
-			"#0000EE",
-			"#00EEEE",
-			"#EE0000",
-			"#EE00EE",
-			"#EEEE00");
-
-	my $PNG1 = $u . $myself . "1." . $when . ".png";
-	my $PNG2 = $u . $myself . "2." . $when . ".png";
-	my $PNG3 = $u . $myself . "3." . $when . ".png";
-	my $PNG1z = $u . $myself . "1z." . $when . ".png";
-	my $PNG2z = $u . $myself . "2z." . $when . ".png";
-	my $PNG3z = $u . $myself . "3z." . $when . ".png";
-
-	$title = !$silent ? $title : "";
-
-	unlink ("$PNG_DIR" . "$PNG1",
-		"$PNG_DIR" . "$PNG2",
-		"$PNG_DIR" . "$PNG3");
-	if($ENABLE_ZOOM eq "Y") {
-		unlink ("$PNG_DIR" . "$PNG1z",
-			"$PNG_DIR" . "$PNG2z",
-			"$PNG_DIR" . "$PNG3z");
-	}
-
-	if($os eq "Linux") {
-		open(IN, "/proc/interrupts");
-		my $timer_pos = 0;
-		my $i8042_pos = 0;
-		my $good_pos = 0;
-		my $num;
-		my $name;
-		while(<IN>) {
-			if(/Dynamic-irq/) {
-				next;
-			}
-			if(/[0-9]:/) {
-				# Assuming int 0 will be only for timer
-				if(/\s+0:/ || /^256:/) {
-					$timer_pos = index($_, "timer", 0);
-				}
-				# Assuming int 1 will be only for i8042
-				if(/\s+1:/) {
-					$i8042_pos = index($_, "i8042", 0);
-				}
-				$timer_pos = $timer_pos == 0 ? 999 : $timer_pos;
-				$i8042_pos = $i8042_pos == -1 ? 0 : $i8042_pos;
-				$good_pos = $timer_pos > $i8042_pos ? $i8042_pos : $timer_pos;
-				$good_pos = $good_pos ? $good_pos : $timer_pos;
-				$num = unpack("A4", $_);
-				undef($name);
-				if(length($_) >= $good_pos) {
-					$name = substr($_, $good_pos);
-					$name = defined($name) ? $name : "";
-				}
-				chomp($num, $name);
-				$name =~ s/^\s+//;
-				$num =~ s/^\s+//;
-				$num =~ s/:.*//;
-				$n = $num;
-				$num = $num > 255 ? $num % 256 : $num;
-				$INT[$num] = defined($INT[$num]) ? $INT[$num] . "," : "";
-				$NAME[$num] = defined($NAME[$num]) ? $NAME[$num] . ", " : "";
-				$INT[$num] .= $n;
-				$NAME[$num] .= $name;
-			}
-		}
-		close(IN);
-	} elsif ($os eq "FreeBSD" || $os eq "OpenBSD") {
-		open(IN, "vmstat -i | sort |");
-		my @allfields;
-		my $num;
-		my $name;
-		while(<IN>) {
-			if(/^\D{3}\d+/) {
-				@allfields = split(' ', $_);
-				$num = $allfields[0];
-				$name = "";
-				for($n = 1; $n <= $#allfields - 2; $n++) {
-					$name .= $allfields[$n] . " ";
-				}
-				$num =~ s/^\D{3}//;
-				$num =~ s/://;
-				$name =~ s/\s+$//;
-
-				# only the first timer (cpu0) is covered
-				if($name eq "timer") {
-					if($num != 0) {
-						next;
-					}
-				}
-
-				$n = $num;
-				$num = $num > 255 ? $num % 256 : $num;
-				$INT[$num] = defined($INT[$num]) ? $INT[$num] . "," : "";
-				$NAME[$num] = defined($NAME[$num]) ? $NAME[$num] . ", " : "";
-				$INT[$num] .= $n;
-				$NAME[$num] .= $name;
-			}
-		}
-		close(IN);
-
-		chomp(@NAME);
-		# strip all blank spaces at the end of the strings
-		for($n = 0; $n < 256; $n++) {
-			if(defined($NAME[$n])) {
-				$NAME[$n] =~ s/\s+$//;
-			}
-		}
-	}
-
-	if($IFACE_MODE eq "text") {
-		if($title) {
-			graph_header($title, 2);
-			print("    <tr>\n");
-			print("    <td bgcolor='$title_bg_color'>\n");
-		}
-		my (undef, undef, undef, $data) = RRDs::fetch("$INT_RRD",
-			"--start=-$nwhen$twhen",
-			"AVERAGE",
-			"-r $res");
-		$err = RRDs::error;
-		print("ERROR: while fetching $INT_RRD: $err\n") if $err;
-		my $line1;
-		print("    <pre style='font-size: 12px; color: $fg_color';>\n");
-		print("Time   ");
-		for($n = 0; $n < 256; $n++) {
-			if(defined($INT[$n])) {
-				printf(" %8s", $INT[$n]);
-				$line1 .= "---------";
-			}
-		}
-		print(" \n");
-		print("-------$line1\n");
-		my $line;
-		my @row;
-		my $time;
-		for($n = 0, $time = $tb; $n < ($tb * $ts); $n++) {
-			$line = @$data[$n];
-			@row = @$line;
-			$time = $time - (1 / $ts);
-			printf(" %2d$tc   ", $time);
-			for($n2 = 0; $n2 < 256; $n2++) {
-				if(defined($INT[$n2])) {
-					printf(" %8d", $row[$n2]);
-				}
-			}
-			print(" \n");
-		}
-		print("    </pre>\n");
-		if($title) {
-			print("    </td>\n");
-			print("    </tr>\n");
-			graph_footer();
-		}
-		return 1;
-	}
-
-	if($title) {
-		graph_header($title, 2);
-	}
-
-	my $i;
-	for($n = 0, $n1 = 0, $n2 = 0, $n3 = 0; $n < 256; $n++) {
-		if(defined($NAME[$n])) {
-			# We need to escape colons to support RRDtool v1.2+
-			if($RRDs::VERSION > 1.2) {
-				$NAME[$n] =~ s/:/\\:/g;
-			}
-		}
-		if(defined($INT[$n])) {
-			if(index($INT[$n], ",", 0) < 0) {
-				$i = $INT[$n];
-			} else {
-				($i) = split(',', $INT[$n]);
-			}
-			if($i < 3 || $NAME[$n] =~ /timer/) {
-				push(@DEF2, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
-				push(@AREA2, ("AREA:int" . $n . $ACOLOR2[$n2] . ":(" . $INT[$n] . ")" . $NAME[$n]));
-				push(@LINE2, ("LINE1:int" . $n . $LCOLOR2[$n2]));
-				$n2++;
-			} elsif($i < 6 || $NAME[$n] =~ /^xen/) {
-				push(@DEF3, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
-				push(@AREA3, ("AREA:int" . $n . $ACOLOR3[$n3] . ":(" . $INT[$n] . ")" . $NAME[$n]));
-				push(@LINE3, ("LINE1:int" . $n . $LCOLOR3[$n3]));
-				$n3++;
-			} else {
-				push(@DEF1, ("DEF:int" . $n . "=" . $INT_RRD . ":int_" . $n . ":AVERAGE"));
-				push(@AREA1, ("AREA:int" . $n . $ACOLOR1[$n1] . ":(" . $INT[$n] . ")" . $NAME[$n]));
-				push(@LINE1, ("LINE1:int" . $n . $LCOLOR1[$n1]));
-				$n1++;
-				if(!($n1 % 3)) {
-					push(@AREA1, ("COMMENT: \\n"));
-				}
-			}
-		}
-	}
-	push(@AREA1, ("COMMENT: \\n"));
-	if($INT1_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$INT1_LIMIT");
-	} else {
-		if($INT1_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$INT1_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	if($title) {
-		print("    <tr>\n");
-		print("    <td bgcolor='$title_bg_color'>\n");
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{main});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG1",
-		"--title=$rgraphs{_int1}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Ticks/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@graph_colors,
-		@DEF1,
-		@AREA1,
-		@LINE1);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG1: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG1z",
-			"--title=$rgraphs{_int1}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Ticks/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			@DEF1,
-			@AREA1,
-			@LINE1);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG1z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /int1/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG1z . "\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG1z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG1 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG1 . "'>\n");
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    <td valign='top' bgcolor='" . $title_bg_color . "'>\n");
-	}
-
-	undef(@riglim);
-	if($INT2_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$INT2_LIMIT");
-	} else {
-		if($INT2_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$INT2_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-	}
-	RRDs::graph("$PNG_DIR" . "$PNG2",
-		"--title=$rgraphs{_int2}  ($nwhen$twhen)",
-		"--start=-$nwhen$twhen",
-		"--imgformat=PNG",
-		"--vertical-label=Ticks/s",
-		"--width=$width",
-		"--height=$height",
-		@riglim,
-		"--lower-limit=0",
-		@VERSION12,
-		@VERSION12_small,
-		@graph_colors,
-		@DEF2,
-		@AREA2,
-		@LINE2);
-	$err = RRDs::error;
-	print("ERROR: while graphing $PNG_DIR" . "$PNG2: $err\n") if $err;
-	if($ENABLE_ZOOM eq "Y") {
-		($width, $height) = split('x', $GRAPH_SIZE{zoom});
-		RRDs::graph("$PNG_DIR" . "$PNG2z",
-			"--title=$rgraphs{_int2}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Ticks/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@DEF2,
-			@AREA2,
-			@LINE2);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG2z: $err\n") if $err;
-	}
-	if($title || ($silent =~ /imagetag/ && $graph =~ /int2/)) {
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNG2z . "\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG2z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG2 . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG2 . "'>\n");
-		}
-	}
-
-	undef(@riglim);
-	if($INT3_RIGID eq 1) {
-		push(@riglim, "--upper-limit=$INT3_LIMIT");
-	} else {
-		if($INT3_RIGID eq 2) {
-			push(@riglim, "--upper-limit=$INT3_LIMIT");
-			push(@riglim, "--rigid");
-		}
-	}
-	($width, $height) = split('x', $GRAPH_SIZE{small});
-	if($silent =~ /imagetag/) {
-		($width, $height) = split('x', $GRAPH_SIZE{remote}) if $silent eq "imagetag";
-		($width, $height) = split('x', $GRAPH_SIZE{main}) if $silent eq "imagetagbig";
-	}
-	if(@DEF3 && @AREA3 && @LINE3) {
-		RRDs::graph("$PNG_DIR" . "$PNG3",
-			"--title=$rgraphs{_int3}  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=Ticks/s",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@VERSION12_small,
-			@graph_colors,
-			@DEF3,
-			@AREA3,
-			@LINE3);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG3: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNG3z",
-				"--title=$rgraphs{_int3}  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=Ticks/s",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@VERSION12_small,
-				@graph_colors,
-				@DEF3,
-				@AREA3,
-				@LINE3);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNG3z: $err\n") if $err;
-		}
-		if($title || ($silent =~ /imagetag/ && $graph =~ /int3/)) {
-			if($ENABLE_ZOOM eq "Y") {
-				if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-					print("      <a href=\"" . $URL . $IMGS_DIR . $PNG3z . "\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-				else {
-					print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNG3z . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG3 . "' border='0'></a>\n");
-				}
-			} else {
-				print("      <img src='" . $URL . $IMGS_DIR . $PNG3 . "'>\n");
-			}
-		}
-	}
-	if($title) {
-		print("    </td>\n");
-		print("    </tr>\n");
-		graph_footer();
-	}
-	return 1;
-}
-
-# Multihost
-# ----------------------------------------------------------------------------
 sub multihost {
+	my ($config, $colors, $cgi) = @_;
+
 	my $n;
 	my $n2;
-	my $m;
-	my $m2;
-	my $gnum;
-	my @HOST;
-	my @URL;
-	my @TEMP_LIST;
+	my @host;
+	my @url;
+	my $multihost = $config->{multihost};
 
-	if($val =~ m/group[0-9]*/) {
-		$gnum = substr($val, 5, length($val));
-		@TEMP_LIST = split(':', $REMOTEGROUP_LIST[2 * $gnum + 1]);
-		$gnum = scalar(@TEMP_LIST);
-		$gnum = scalar(@REMOTEHOST_LIST);
-		for($m = 0; $m < scalar(@TEMP_LIST); $m += 1) {
-			for($m2 = 0; $m2 < scalar(@REMOTEHOST_LIST); $m2 += 2) {
-				if($TEMP_LIST[$m] eq $REMOTEHOST_LIST[$m2]) {
-					push(@HOST, $REMOTEHOST_LIST[$m2]);
-					push(@URL, $REMOTEHOST_LIST[$m2 + 1]);
+	if($cgi->{val} =~ m/group(\d*)/) {
+		my @remotegroup_desc;
+
+		# all groups
+		if($cgi->{val} eq "group") {
+			my @remotegroup_list = split(',', $multihost->{remotegroup_list});
+			for($n = 0; $n < scalar(@remotegroup_list); $n++) {
+				scalar(my @tmp = split(',', $multihost->{remotegroup_desc}->{$n}));
+				for($n2 = 0; $n2 < scalar(@tmp); $n2++) {
+					push(@remotegroup_desc, trim($tmp[$n2]));
+				}
+			}
+		}
+
+		# specific group
+		if($cgi->{val} =~ m/group(\d+)/) {
+			my $gnum = int($1);
+			@remotegroup_desc = split(',', $multihost->{remotegroup_desc}->{$gnum});
+		}
+
+		my @remotehost_list = split(',', $multihost->{remotehost_list});
+		for($n = 0; $n < scalar(@remotegroup_desc); $n++) {
+			my $h = trim($remotegroup_desc[$n]);
+			for($n2 = 0; $n2 < scalar(@remotehost_list); $n2++) {
+				my $h2 = trim($remotehost_list[$n2]);
+				if($h eq $h2) {
+					push(@host, $h);
+					push(@url, $multihost->{remotehost_url}->{$n2});
 				}
 			}
 		}
 	} else {
-		for($n = 0; $n < scalar(@REMOTEHOST_LIST); $n += 2) {
-			push(@HOST, $REMOTEHOST_LIST[$n]);
-			push(@URL, $REMOTEHOST_LIST[$n + 1]);
+		my @remotehost_list = split(',', $multihost->{remotehost_list});
+		for($n = 0; $n < scalar(@remotehost_list); $n++) {
+			push(@host, trim($remotehost_list[$n]));
+			push(@url, $multihost->{remotehost_url}->{$n});
 		}
 	}
 
-	$MULTIHOST_IMGS_PER_ROW = 1 unless $MULTIHOST_IMGS_PER_ROW > 1;
-	$graph = ($graph eq "all" || $graph =~ m/group\[0-9]*/) ? "_system1" : $graph;
+	$multihost->{imgs_per_row} = 1 unless $multihost->{imgs_per_row} > 1;
+	my $graph = ($cgi->{graph} eq "all" || $cgi->{graph} =~ m/group\[0-9]*/) ? "_system1" : $cgi->{graph};
 
-	if($val eq "all" || $val =~ m/group[0-9]*/) {
-		for($n = 0; $n < scalar(@HOST); $n += $MULTIHOST_IMGS_PER_ROW) {
-			print "<table cellspacing='5' cellpadding='0' width='1' bgcolor='$graph_bg_color' border='1'>\n";
+	if($cgi->{val} eq "all" || $cgi->{val} =~ m/group[0-9]*/) {
+		for($n = 0; $n < scalar(@host); $n += $multihost->{imgs_per_row}) {
+			print "<table cellspacing='5' cellpadding='0' width='1' bgcolor='$colors->{graph_bg_color}' border='1'>\n";
 			print " <tr>\n";
-			for($n2 = 0; $n2 < $MULTIHOST_IMGS_PER_ROW; $n2++) {
-				if($n < scalar(@HOST)) {
-					print "  <td bgcolor='$title_bg_color'>\n";
-					print "   <font face='Verdana, sans-serif' color='$fg_color'>\n";
-					print "   <b>&nbsp;&nbsp;" . $HOST[$n] . "<b>\n";
+			for($n2 = 0; $n2 < $multihost->{imgs_per_row}; $n2++) {
+				if($n < scalar(@host)) {
+					print "  <td bgcolor='$colors->{title_bg_color}'>\n";
+					print "   <font face='Verdana, sans-serif' color='$colors->{fg_color}'>\n";
+					print "   <b>&nbsp;&nbsp;" . $host[$n] . "<b>\n";
 					print "   </font>\n";
 					print "  </td>\n";
 				}
@@ -13348,10 +105,10 @@ sub multihost {
 			}
 			print " </tr>\n";
 			print " <tr>\n";
-			for($n2 = 0, $n = $n - $MULTIHOST_IMGS_PER_ROW; $n2 < $MULTIHOST_IMGS_PER_ROW; $n2++) {
-				if($n < scalar(@HOST)) {
-					print "  <td bgcolor='$title_bg_color' style='vertical-align: top; height: 10%; width: 10%;'>\n";
-					print "   <iframe src=$URL[$n]$BASE_CGI/monitorix.cgi?mode=localhost&when=$when&graph=$graph&color=$color&silent=imagetag height=201 width=397 frameborder=0 marginwidth=0 marginheight=0 scrolling=no></iframe>\n";
+			for($n2 = 0, $n = $n - $multihost->{imgs_per_row}; $n2 < $multihost->{imgs_per_row}; $n2++) {
+				if($n < scalar(@host)) {
+					print "  <td bgcolor='$colors->{title_bg_color}' style='vertical-align: top; height: 10%; width: 10%;'>\n";
+					print "   <iframe src=$url[$n]$config->{base_cgi}/monitorix.cgi?mode=localhost&when=$cgi->{when}&graph=$graph&color=$cgi->{color}&silent=imagetag height=201 width=397 frameborder=0 marginwidth=0 marginheight=0 scrolling=no></iframe>\n";
 					print "  </td>\n";
 
 				}
@@ -13359,44 +116,44 @@ sub multihost {
 			}
 			print " </tr>\n";
 			print " <tr>\n";
-			for($n2 = 0, $n = $n - $MULTIHOST_IMGS_PER_ROW; $n2 < $MULTIHOST_IMGS_PER_ROW; $n2++) {
-				if($n < scalar(@HOST)) {
-				if($MULTIHOST_FOOTER) {
-					print "  <td bgcolor='$title_bg_color'>\n";
-					print "   <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
+			for($n2 = 0, $n = $n - $multihost->{imgs_per_row}; $n2 < $multihost->{imgs_per_row}; $n2++) {
+				if($n < scalar(@host)) {
+				if(lc($multihost->{footer_url}) eq "y") {
+					print "  <td bgcolor='$colors->{title_bg_color}'>\n";
+					print "   <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
 					print "   <font size='-1'>\n";
-					print "    <b>&nbsp;&nbsp;<a href='" . $URL[$n] . $BASE_URL . "/' style='{color: $title_fg_color}'>$URL[$n]</a><b>\n";
+					print "    <b>&nbsp;&nbsp;<a href='" . $url[$n] . $config->{base_url} . "/' style='{color: " . $colors->{title_fg_color} . "}'>$url[$n]</a><b>\n";
 					print "   </font></font>\n";
 					print "  </td>\n";
 				}
 				}
 				$n++;
 			}
-			$n = $n - $MULTIHOST_IMGS_PER_ROW;
+			$n = $n - $multihost->{imgs_per_row};
 			print " </tr>\n";
 			print "</table>\n";
 			print "<br>\n";
 		}
 	} else {
-		print "  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$graph_bg_color' border='1'>\n";
+		print "  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$colors->{graph_bg_color}' border='1'>\n";
 		print "   <tr>\n";
-		print "    <td bgcolor='$title_bg_color'>\n";
-		print "    <font face='Verdana, sans-serif' color='$fg_color'>\n";
-		print "    <b>&nbsp;&nbsp;" . $HOST[$val] . "<b>\n";
+		print "    <td bgcolor='$colors->{title_bg_color}'>\n";
+		print "    <font face='Verdana, sans-serif' color='$colors->{fg_color}'>\n";
+		print "    <b>&nbsp;&nbsp;" . $host[$cgi->{val}] . "<b>\n";
 		print "    </font>\n";
 		print "    </td>\n";
 		print "   </tr>\n";
 		print "   <tr>\n";
-		print "    <td bgcolor='$title_bg_color' style='vertical-align: top; height: 10%; width: 10%;'>\n";
-		print "     <iframe src=$URL[$val]$BASE_CGI/monitorix.cgi?mode=localhost&when=$when&graph=$graph&color=$color&silent=imagetagbig height=249 width=545 frameborder=0 marginwidth=0 marginheight=0 scrolling=no></iframe>\n";
+		print "    <td bgcolor='$colors->{title_bg_color}' style='vertical-align: top; height: 10%; width: 10%;'>\n";
+		print "     <iframe src=$url[$cgi->{val}]$config->{base_cgi}/monitorix.cgi?mode=localhost&when=$cgi->{when}&graph=$graph&color=$cgi->{color}&silent=imagetagbig height=249 width=545 frameborder=0 marginwidth=0 marginheight=0 scrolling=no></iframe>\n";
 		print "    </td>\n";
 		print "   </tr>\n";
 		print "   <tr>\n";
-		if($MULTIHOST_FOOTER) {
-			print "   <td bgcolor='$title_bg_color'>\n";
-			print "    <font face='Verdana, sans-serif' color='$title_fg_color'>\n";
+		if(lc($multihost->{footer_url}) eq "y") {
+			print "   <td bgcolor='$colors->{title_bg_color}'>\n";
+			print "    <font face='Verdana, sans-serif' color='$colors->{title_fg_color}'>\n";
 			print "    <font size='-1'>\n";
-			print "    <b>&nbsp;&nbsp;<a href='" . $URL[$val] . "/monitorix/' style='{color: $title_fg_color}'>$URL[$val]</a><b>\n";
+			print "    <b>&nbsp;&nbsp;<a href='" . $url[$cgi->{val}] . "/monitorix/' style='{color: " . $colors->{title_fg_color} . "}'>$url[$cgi->{val}]</a><b>\n";
 			print "    </font></font>\n";
 			print "   </td>\n";
 		}
@@ -13406,252 +163,13 @@ sub multihost {
 	}
 }
 
-sub pc {
-	my $width;
-	my $height;
-	my @riglim;
-	my @PNG;
-	my @PNGz;
-	my @tmp;
-	my @tmpz;
-	my @CDEF;
-	my $T = "B";
-	my $vlabel = "bytes/s";
-	my $n;
-	my $n2;
-	my $str;
-	my $err;
-
-	for($n = 0; $n < $PC_MAX; $n++) {
-		$str = $u . "pc" . $n . ".$when" . ".png";
-		push(@PNG, $str);
-		unlink("$PNG_DIR" . $str);
-		if($ENABLE_ZOOM eq "Y") {
-			$str = $u . "pc" . $n . "z.$when" . ".png";
-			push(@PNGz, $str);
-			unlink("$PNG_DIR" . $str);
-		}
-	}
-	if($PC_RIGID eq 1) {
-		$riglim[0] = "--upper-limit=$PC_LIMIT";
-	} else {
-		if($PC_RIGID eq 2) {
-			$riglim[0] = "--upper-limit=$PC_LIMIT";
-			$riglim[1] = "--rigid";
-		}
-	}
-
-	if($NETSTATS_IN_BPS eq "Y") {
-		$T = "b";
-		$vlabel = "bits/s";
-	}
-	$PC_IMGS_PER_ROW = 1 unless $PC_IMGS_PER_ROW > 1;
-	if($val eq "all") {
-		print("  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$graph_bg_color' border='1'>\n");
-		print("  <tr>\n");
-		print("  <td bgcolor='$title_bg_color' colspan='" . $PC_IMGS_PER_ROW  . "'>\n");
-		print("  <font face='Verdana, sans-serif' color='$title_fg_color'>\n");
-		print("    <b>&nbsp;&nbsp;Internet traffic and usage<b>\n");
-		print("  </font>\n");
-		print("  </td>\n");
-		print("  </tr>\n");
-		$n = 0;
-		while($n < $PC_MAX) {
-			last unless $PC_LIST[$n];
-			print("  <tr>\n");
-			for($n2 = 0; $n2 < $PC_IMGS_PER_ROW; $n2++) {
-				last unless ($n < $PC_MAX && $n < scalar(@PC_LIST));
-				print("  <td bgcolor='$title_bg_color'>\n");
-				undef(@tmp);
-				undef(@tmpz);
-				undef(@CDEF);
-				push(@tmp, "AREA:B_in#44EE44:Input");
-				push(@tmp, "AREA:B_out#4444EE:Output");
-				push(@tmp, "AREA:B_out#4444EE:");
-				push(@tmp, "AREA:B_in#44EE44:");
-				push(@tmp, "LINE1:B_out#0000EE");
-				push(@tmp, "LINE1:B_in#00EE00");
-				push(@tmpz, "AREA:B_in#44EE44:Input");
-				push(@tmpz, "AREA:B_out#4444EE:Output");
-				push(@tmpz, "AREA:B_out#4444EE:");
-				push(@tmpz, "AREA:B_in#44EE44:");
-				push(@tmpz, "LINE1:B_out#0000EE");
-				push(@tmpz, "LINE1:B_in#00EE00");
-				if($NETSTATS_IN_BPS eq "Y") {
-					push(@CDEF, "CDEF:B_in=in,8,*");
-					push(@CDEF, "CDEF:B_out=out,8,*");
-				} else {
-					push(@CDEF, "CDEF:B_in=in");
-					push(@CDEF, "CDEF:B_out=out");
-				}
-				($width, $height) = split('x', $GRAPH_SIZE{remote});
-				RRDs::graph("$PNG_DIR" . "$PNG[$n]",
-					"--title=$PC_LIST[$n] traffic  ($nwhen$twhen)",
-					"--start=-$nwhen$twhen",
-					"--imgformat=PNG",
-					"--vertical-label=$vlabel",
-					"--width=$width",
-					"--height=$height",
-					@riglim,
-					"--lower-limit=0",
-					@VERSION12,
-					@VERSION12_small,
-					@graph_colors,
-					"DEF:in=$PC_RRD:pc" . $n . "_in:AVERAGE",
-					"DEF:out=$PC_RRD:pc" . $n . "_out:AVERAGE",
-					@CDEF,
-					@tmp);
-				$err = RRDs::error;
-				print("ERROR: while graphing $PNG_DIR" . "$PNG[$n]: $err\n") if $err;
-				if($ENABLE_ZOOM eq "Y") {
-					($width, $height) = split('x', $GRAPH_SIZE{zoom});
-					RRDs::graph("$PNG_DIR" . "$PNGz[$n]",
-						"--title=$PC_LIST[$n] traffic  ($nwhen$twhen)",
-						"--start=-$nwhen$twhen",
-						"--imgformat=PNG",
-						"--vertical-label=$vlabel",
-						"--width=$width",
-						"--height=$height",
-						@riglim,
-						"--lower-limit=0",
-						@VERSION12,
-						@VERSION12_small,
-						@graph_colors,
-						"DEF:in=$PC_RRD:pc" . $n . "_in:AVERAGE",
-						"DEF:out=$PC_RRD:pc" . $n . "_out:AVERAGE",
-						@CDEF,
-						@tmpz);
-					$err = RRDs::error;
-					print("ERROR: while graphing $PNG_DIR" . "$PNGz[$n]: $err\n") if $err;
-				}
-				if($ENABLE_ZOOM eq "Y") {
-					if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-						print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$n] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-					else {
-						print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$n] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$n] . "' border='0'></a>\n");
-					}
-				} else {
-					print("      <img src='" . $URL . $IMGS_DIR . $PNG[$n] . "'>\n");
-				}
-				print("  </td>\n");
-				$n++;
-			}
-			print("  </tr>\n");
-		}
-		print "  </table>\n";
-	} else {
-		return unless $PC_LIST[$val];
-		if(!$silent) {
-			print("  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$graph_bg_color' border='1'>\n");
-			print("  <tr>\n");
-			print("  <td bgcolor='$title_bg_color' colspan='1'>\n");
-			print("  <font face='Verdana, sans-serif' color='$title_fg_color'>\n");
-			print("    <b>&nbsp;&nbsp;Internet traffic and usage<b>\n");
-			print("  </font>\n");
-			print("  </td>\n");
-			print("  </tr>\n");
-			print("  <tr>\n");
-			print("  <td bgcolor='$title_bg_color'>\n");
-		}
-		undef(@tmp);
-		undef(@tmpz);
-		undef(@CDEF);
-		push(@tmp, "AREA:B_in#44EE44:K$T/s Input");
-		push(@tmp, "GPRINT:K_in:LAST:     Current\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:AVERAGE: Average\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:MIN:    Min\\: %5.0lf");
-		push(@tmp, "GPRINT:K_in:MAX:    Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:B_out#4444EE:K$T/s Output");
-		push(@tmp, "GPRINT:K_out:LAST:    Current\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:AVERAGE: Average\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:MIN:    Min\\: %5.0lf");
-		push(@tmp, "GPRINT:K_out:MAX:    Max\\: %5.0lf\\n");
-		push(@tmp, "AREA:B_out#4444EE:");
-		push(@tmp, "AREA:B_in#44EE44:");
-		push(@tmp, "LINE1:B_out#0000EE");
-		push(@tmp, "LINE1:B_in#00EE00");
-		push(@tmpz, "AREA:B_in#44EE44:Input");
-		push(@tmpz, "AREA:B_out#4444EE:Output");
-		push(@tmpz, "AREA:B_out#4444EE:");
-		push(@tmpz, "AREA:B_in#44EE44:");
-		push(@tmpz, "LINE1:B_out#0000EE");
-		push(@tmpz, "LINE1:B_in#00EE00");
-		if($NETSTATS_IN_BPS eq "Y") {
-			push(@CDEF, "CDEF:B_in=in,8,*");
-			push(@CDEF, "CDEF:B_out=out,8,*");
-		} else {
-			push(@CDEF, "CDEF:B_in=in");
-			push(@CDEF, "CDEF:B_out=out");
-		}
-		($width, $height) = split('x', $GRAPH_SIZE{main});
-		RRDs::graph("$PNG_DIR" . "$PNG[$val]",
-			"--title=$PC_LIST[$val] traffic  ($nwhen$twhen)",
-			"--start=-$nwhen$twhen",
-			"--imgformat=PNG",
-			"--vertical-label=$vlabel",
-			"--width=$width",
-			"--height=$height",
-			@riglim,
-			"--lower-limit=0",
-			@VERSION12,
-			@graph_colors,
-			"DEF:in=$PC_RRD:pc" . $val . "_in:AVERAGE",
-			"DEF:out=$PC_RRD:pc" . $val . "_out:AVERAGE",
-			@CDEF,
-			"CDEF:K_in=B_in,1024,/",
-			"CDEF:K_out=B_out,1024,/",
-			@tmp);
-		$err = RRDs::error;
-		print("ERROR: while graphing $PNG_DIR" . "$PNG[$val]: $err\n") if $err;
-		if($ENABLE_ZOOM eq "Y") {
-			($width, $height) = split('x', $GRAPH_SIZE{zoom});
-			RRDs::graph("$PNG_DIR" . "$PNGz[$val]",
-				"--title=$PC_LIST[$val] traffic  ($nwhen$twhen)",
-				"--start=-$nwhen$twhen",
-				"--imgformat=PNG",
-				"--vertical-label=$vlabel",
-				"--width=$width",
-				"--height=$height",
-				@riglim,
-				"--lower-limit=0",
-				@VERSION12,
-				@graph_colors,
-				"DEF:in=$PC_RRD:pc" . $val . "_in:AVERAGE",
-				"DEF:out=$PC_RRD:pc" . $val . "_out:AVERAGE",
-				@CDEF,
-				"CDEF:K_in=B_in,1024,/",
-				"CDEF:K_out=B_out,1024,/",
-				@tmpz);
-			$err = RRDs::error;
-			print("ERROR: while graphing $PNG_DIR" . "$PNGz[$val]: $err\n") if $err;
-		}
-		if($ENABLE_ZOOM eq "Y") {
-			if($DISABLE_JAVASCRIPT_VOID eq "Y") {
-				print("      <a href=\"" . $URL . $IMGS_DIR . $PNGz[$val] . "\"><img src='" . $URL . $IMGS_DIR . $PNG[$val] . "' border='0'></a>\n");
-			}
-			else {
-				print("      <a href=\"javascript:void(window.open('" . $URL . $IMGS_DIR . $PNGz[$val] . "','','width=" . ($width + 115) . ",height=" . ($height + 100) . ",scrollbars=0,resizable=0'))\"><img src='" . $URL . $IMGS_DIR . $PNG[$val] . "' border='0'></a>\n");
-			}
-		} else {
-			print("      <img src='" . $URL . $IMGS_DIR . $PNG[$val] . "'>\n");
-		}
-		if(!$silent) {
-			print("  </td>\n");
-			print "  </td>\n";
-			print "  </tr>\n";
-			print "  </table>\n";
-		}
-	}
-}
-
 sub graph_header {
 	my ($title, $colspan) = @_;
 	print("\n");
-	print("  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$graph_bg_color' border='1'>\n");
+	print("  <table cellspacing='5' cellpadding='0' width='1' bgcolor='$colors{graph_bg_color}' border='1'>\n");
 	print("    <tr>\n");
-	print("      <td bgcolor='$title_bg_color' colspan='$colspan'>\n");
-	print("        <font face='Verdana, sans-serif' color='$title_fg_color'>\n");
+	print("      <td bgcolor='$colors{title_bg_color}' colspan='$colspan'>\n");
+	print("        <font face='Verdana, sans-serif' color='$colors{title_fg_color}'>\n");
 	print("          <b>&nbsp;&nbsp;$title<b>\n");
 	print("        </font>\n");
 	print("      </td>\n");
@@ -13665,86 +183,237 @@ sub graph_footer {
 
 # MAIN
 # ----------------------------------------------------------------------------
+open(IN, "< monitorix.conf.path");
+my $config_path = <IN>;
+chomp($config_path);
+close(IN);
+
+if(! -f $config_path) {
+	print(<< "EOF");
+Content-Type: text/plain
+
+FATAL: Monitorix is unable to continue!
+=======================================
+
+File 'monitorix.conf.path' not found.
+
+Please make sure that 'base_dir' option is correctly configured and that
+this CGI is located in the 'base_dir'/cgi-bin/ directory.
+
+And don't forget to restart Monitorix for the changes to take effect.
+EOF
+	die "FATAL: File 'monitorix.conf.path' not found!";
+}
+
+my $conf = new Config::General(
+	-ConfigFile => $config_path,
+);
+%config = $conf->getall;
+
+$config{url} = $ENV{HTTPS} ? "https://" . $ENV{HTTP_HOST} : "http://" . $ENV{HTTP_HOST};
+$config{hostname} = $ENV{SERVER_NAME};
+if(!($config{hostname})) {	# called from the command line
+	$config{hostname} = "127.0.0.1";
+	$config{url} = "http://127.0.0.1";
+}
+$config{url} .= $config{base_url} . "/";
+
+# get the current OS and kernel version
+my $release;
+($config{os}, undef, $release) = uname();
+my ($major, $minor) = split('\.', $release);
+$config{kernel} = $major . "." . $minor;
+
+our $mode = defined(param('mode')) ? param('mode') : '';
+our $graph = param('graph');
+our $when = param('when');
+our $color = param('color');
+our $val = defined(param('val')) ? param('val') : '';
+our $silent = defined(param('silent')) ? param('silent') : '';
+if($mode ne "localhost") {
+	($mode, $val)  = split(/\./, $mode);
+}
+
 print("Content-Type: text/html\n");
 print("\n");
+
+# default white theme colors
+$colors{graph_colors} = ();
+$colors{warning_color} = "--color=CANVAS#880000";
+$colors{bg_color} = "#FFFFFF";
+$colors{fg_color} = "#000000";
+$colors{title_bg_color} = "#777777";
+$colors{title_fg_color} = "#CCCC00";
+$colors{graph_bg_color} = "#CCCCCC";
+
+if($color) {
+	if($color eq "black") {
+		push(@{$colors{graph_colors}}, "--color=CANVAS#" . $config{$color}->{canvas});
+		push(@{$colors{graph_colors}}, "--color=BACK#" . $config{$color}->{back});
+		push(@{$colors{graph_colors}}, "--color=FONT#" . $config{$color}->{font});
+		push(@{$colors{graph_colors}}, "--color=MGRID#" . $config{$color}->{mgrid});
+		push(@{$colors{graph_colors}}, "--color=GRID#" . $config{$color}->{grid});
+		push(@{$colors{graph_colors}}, "--color=FRAME#" . $config{$color}->{frame});
+		push(@{$colors{graph_colors}}, "--color=ARROW#" . $config{$color}->{arrow});
+		push(@{$colors{graph_colors}}, "--color=SHADEA#" . $config{$color}->{shadea});
+		push(@{$colors{graph_colors}}, "--color=SHADEB#" . $config{$color}->{shadeb});
+		push(@{$colors{graph_colors}}, "--color=AXIS#" . $config{$color}->{axis}) if defined($config{$color}->{axis});
+		$colors{bg_color} = $config{$color}->{main_bg};
+		$colors{fg_color} = $config{$color}->{main_fg};
+		$colors{title_bg_color} = $config{$color}->{title_bg};
+		$colors{title_fg_color} = $config{$color}->{title_fg};
+		$colors{graph_bg_color} = $config{$color}->{graph_bg};
+	}
+}
+
+($tf{twhen}) = ($when =~ m/(hour|day|week|month|year)$/);
+($tf{nwhen} = $when) =~ s/$tf{twhen}// unless !$tf{twhen};
+$tf{nwhen} = 1 unless $tf{nwhen};
+$tf{twhen} = "day" unless $tf{twhen};
+$tf{when} = $tf{nwhen} . $tf{twhen};
+
+# toggle this to 1 if you want to maintain old (2.3-) Monitorix with Multihost
+if($config{backwards_compat_old_multihost}) {
+	$tf{when} = $tf{twhen};
+}
+
+our ($res, $tc, $tb, $ts);
+if($tf{twhen} eq "day") {
+	($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (3600, 'h', 24, 1);
+}
+if($tf{twhen} eq "week") {
+	($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (108000, 'd', 7, 1);
+}
+if($tf{twhen} eq "month") {
+	($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (216000, 'd', 30, 1);
+}
+if($tf{twhen} eq "year") {
+	($tf{res}, $tf{tc}, $tf{tb}, $tf{ts}) = (5184000, 'd', 365, 1);
+}
+
+
+if($RRDs::VERSION > 1.2) {
+	push(@version12, "--slope-mode");
+	push(@version12, "--font=LEGEND:7:");
+	push(@version12, "--font=TITLE:9:");
+	push(@version12, "--font=UNIT:8:");
+	if($RRDs::VERSION >= 1.3) {
+		push(@version12, "--font=DEFAULT:0:Mono");
+	}
+	if($tf{twhen} eq "day") {
+		push(@version12, "--x-grid=HOUR:1:HOUR:6:HOUR:6:0:%R");
+	}
+	push(@version12_small, "--font=TITLE:8:");
+	push(@version12_small, "--font=UNIT:7:");
+	if($RRDs::VERSION >= 1.3) {
+		push(@version12_small, "--font=DEFAULT:0:Mono");
+	}
+}
+
+
 if(!$silent) {
 	my $title;
 	my $str;
 
 	print("<html>\n");
 	print("  <head>\n");
-	print("    <title>$TITLE</title>\n");
-	print("    <link rel='shortcut icon' href='" . $FAVICON . "'>\n");
-	if($REFRESH_RATE) {
-		print("    <meta http-equiv='Refresh' content='" . $REFRESH_RATE . "'>\n");
+	print("    <title>$config{title}</title>\n");
+	print("    <link rel='shortcut icon' href='" . $config{base_url} . "/" . $config{favicon} . "'>\n");
+	if($config{refresh_rate}) {
+		print("    <meta http-equiv='Refresh' content='" . $config{refresh_rate} . "'>\n");
 	}
 	print("  </head>\n");
-	print("  <body bgcolor='" . $bg_color . "' vlink='#888888' link='#888888'>\n");
+	print("  <body bgcolor='" . $colors{bg_color} . "' vlink='#888888' link='#888888'>\n");
 	print("  <center>\n");
-	print("  <table cellspacing='5' cellpadding='0' bgcolor='" . $graph_bg_color . "' border='1'>\n");
+	print("  <table cellspacing='5' cellpadding='0' bgcolor='" . $colors{graph_bg_color} . "' border='1'>\n");
 	print("  <tr>\n");
+
 	if(($val ne "all" || $val ne "group") && $mode ne "multihost") {
-		print("  <td bgcolor='" . $title_bg_color . "'>\n");
-		print("  <font face='Verdana, sans-serif' color='" . $title_fg_color . "'>\n");
+		print("  <td bgcolor='" . $colors{title_bg_color} . "'>\n");
+		print("  <font face='Verdana, sans-serif' color='" . $colors{title_fg_color} . "'>\n");
 		print("    <font size='5'><b>&nbsp;&nbsp;Host:&nbsp;<b></font>\n");
 		print("  </font>\n");
 		print("  </td>\n");
 	}
-	if($val =~ m/group[0-9]+/) {
-		my $gnum = substr($val, 5, length($val));
-		my $gname = $REMOTEGROUP_LIST[2 * $gnum];
-		print("  <td bgcolor='" . $title_bg_color . "'>\n");
-		print("  <font face='Verdana, sans-serif' color='" . $title_fg_color . "'>\n");
+
+	if($val =~ m/group(\d+)/) {
+		my $gnum = $1;
+		my $gname = (split(',', $config{multihost}->{remotegroup_list}))[$gnum];
+		$gname = trim($gname);
+		print("  <td bgcolor='" . $colors{title_bg_color} . "'>\n");
+		print("  <font face='Verdana, sans-serif' color='" . $colors{title_fg_color} . "'>\n");
 		print("    <font size='5'><b>&nbsp;&nbsp;$gname&nbsp;<b></font>\n");
 		print("  </font>\n");
 		print("  </td>\n");
 	}
-	print("  <td bgcolor='" . $bg_color . "'>\n");
-	print("  <font face='Verdana, sans-serif' color='" . $fg_color . "'>\n");
+
+	print("  <td bgcolor='" . $colors{bg_color} . "'>\n");
+	print("  <font face='Verdana, sans-serif' color='" . $colors{fg_color} . "'>\n");
 	if($mode eq "localhost" || $mode eq "pc") {
-		$title = $HOSTNAME;
+		$title = $config{hostname};
 	} elsif($mode eq "multihost") {
 		$graph = $graph eq "all" ? "_system1" : $graph;
 		if(substr($graph, 0, 4) eq "_net") {
 			$str = "_net" . substr($graph, 5, 1);
-			$title = $rgraphs{$str};
+			$title = $config{graphs}->{$str};
 		} elsif(substr($graph, 0, 5) eq "_port") {
 			$str = substr($graph, 0, 5);
-			$n = substr($graph, 5, 1);
-			$title = $rgraphs{$str};
-			$title .= " " . $PORT_LIST[$n];
-			$title .= " (" . $PORT_NAME[$n] . ")";
+			my $p = substr($graph, 5, 1);
+			$title = $config{graphs}->{$str};
+			$p = (split(',', $config{port_list}))[$p];
+			$title .= " " . trim($p);
+			$p = (split(',', $config{port_desc}->{$p}))[0];
+			$title .= " (" . trim($p) . ")";
 		} else {
-			$title = $rgraphs{$graph};
+			$title = $config{graphs}->{$graph};
 		}
 	}
 	$title =~ s/ /&nbsp;/g;
 	print("    <font size='5'><b>&nbsp;&nbsp;$title&nbsp;&nbsp;</b></font>\n");
 	print("  </font>\n");
 	print("  </td>\n");
-		print("  <td bgcolor='" . $title_bg_color . "'>\n");
-		print("  <font face='Verdana, sans-serif' color='" . $title_fg_color . "'>\n");
-		print("    <font size='5'><b>&nbsp;&nbsp;last&nbsp;$twhen&nbsp;&nbsp;<b></font>\n");
+		print("  <td bgcolor='" . $colors{title_bg_color} . "'>\n");
+		print("  <font face='Verdana, sans-serif' color='" . $colors{title_fg_color} . "'>\n");
+		print("    <font size='5'><b>&nbsp;&nbsp;last&nbsp;$tf{twhen}&nbsp;&nbsp;<b></font>\n");
 		print("  </font>\n");
 		print("  </td>\n");
 	print("  </tr>\n");
 	print("  </table>\n");
-	print("  <font face='Verdana, sans-serif' color='" . $fg_color . "'>\n");
+	print("  <font face='Verdana, sans-serif' color='" . $colors{fg_color} . "'>\n");
 	print("    <h4><font color='#888888'>" . strftime("%a %b %e %H:%M:%S %Z %Y", localtime) . "</font></h4>\n");
 }
 
+
+$cgi{colors} = \%colors;
+$cgi{tf} = \%tf;
+$cgi{version12} = \@version12;
+$cgi{version12_small} = \@version12_small;
+$cgi{graph} = $graph;
+$cgi{when} = $when;
+$cgi{color} = $color;
+$cgi{val} = $val;
+$cgi{silent} = $silent;
+
 if($mode eq "localhost") {
-	foreach my $g (@GRAPH_NAME) {
-		if($GRAPH_ENABLE{$g} eq "Y") {
+	foreach (split(',', $config{graph_name})) {
+		my $g = trim($_);
+		if(lc($config{graph_enable}->{$g}) eq "y") {
+			my $cgi = $g . "_cgi";
+
+			eval "use $g qw(" . $cgi . ")";
+			if($@) {
+				print(STDERR "WARNING: unable to find module '$g'\n");
+				next;
+			}
+
 			if($graph eq "all" || $graph =~ /_$g/) {
-				if(eval {&$g($g, $GRAPH_TITLE{$g});}) {
-					print("  <br>\n");
-				}
+				no strict "refs";
+				&$cgi($g, \%config, \%cgi);
 			}
 		}
 	}
 } elsif($mode eq "multihost") {
-	multihost();
+	multihost(\%config, \%colors, \%cgi);
 } elsif($mode eq "pc") {
 	pc();
 }
@@ -13754,13 +423,13 @@ if(!$silent) {
 	print("  </font>\n");
 	print("  </center>\n");
 	print("  <p>\n");
-	print("  <a href='http://www.monitorix.org'><img src='" . $URL . "logo_bot.png' border='0'></a>\n");
+	print("  <a href='http://www.monitorix.org'><img src='" . $config{url} . "logo_bot.png' border='0'></a>\n");
 	print("  <br>\n");
-	print("  <font face='Verdana, sans-serif' color='" . $fg_color . "' size='-2'>\n");
-	print("Copyright &copy; 2005-2012 Jordi Sanfeliu\n");
+	print("  <font face='Verdana, sans-serif' color='" . $colors{fg_color} . "' size='-2'>\n");
+	print("Copyright &copy; 2005-2013 Jordi Sanfeliu\n");
 	print("  </font>\n");
 	print("  </body>\n");
 	print("</html>\n");
 }
 
-exit(0);
+0;
diff --git a/monitorix.conf b/monitorix.conf
index 09f1eb8..3c09222 100644
--- a/monitorix.conf
+++ b/monitorix.conf
@@ -1,1022 +1,605 @@
-#!/usr/bin/perl
-#
 # Monitorix - configuration file
-# Copyright (C) 2005-2012 by Jordi Sanfeliu <jordi@fibranet.cat>
 #
-# Please be careful when touching this file taking special attention to
-# not break some Perl basic syntax.
-#
-# See monitorix.conf(5) manpage for a detailed information of each option.
+# See monitorix.conf(5) manpage for a detailed description of each option.
 #
 
-use strict;
+title = Place a title here
+hostname =
+theme_color = black
+refresh_rate = 150
+iface_mode = graph
+enable_zoom = y
+netstats_in_bps = n
+disable_javascript_void = n
 
-our $TITLE = "Place a Title Here";
-our $HOSTNAME = "";
-our $THEME_COLOR = "black";
-our $REFRESH_RATE = "150";
-our $IFACE_MODE = "graph";
-our $ENABLE_ZOOM = "Y";
-our $NETSTATS_IN_BPS = "N";
-our $DISABLE_JAVASCRIPT_VOID = "N";
-
-our $BASE_DIR = "/usr/share/monitorix/";
-our $BASE_LIB = "/var/lib/monitorix/";
-our $BASE_URL = "/monitorix";
-our $BASE_CGI = "/monitorix-cgi";
+base_dir = /usr/share/monitorix3/
+base_lib = /var/lib/monitorix3/
+base_url = /monitorix3
+base_cgi = /monitorix-cgi3
 
 
 # Log files pathnames
 # -----------------------------------------------------------------------------
-our $LOG_FILE = "/var/log/monitorix";
-our $SECURE_LOG = "/var/log/secure";
-our $MAIL_LOG = "/var/log/maillog";
-our $MILTER_GL = "/var/milter-greylist/greylist.db";
-our $IMAP_LOG = "/var/log/imap";
-our $HYLAFAX_LOG = "/var/spool/hylafax/etc/xferfaxlog";
-our $CUPS_LOG = "/var/log/cups/page_log";
-our $FAIL2BAN_LOG = "/var/log/fail2ban.log";
-our $SPAMASSASSIN_LOG = "/var/log/maillog";
-our $CLAMAV_LOG = "/var/log/clamav/clamav.log";
-our $CG_LOGDIR = "/var/CommuniGate/SystemLogs/";
-our $SQUID_LOG = "/var/log/squid/access.log";
+log_file	= /var/log/monitorix3
+secure_log	= /var/log/secure
+mail_log	= /var/log/maillog
+milter_gl	= /var/milter-greylist/greylist.db
+imap_log	= /var/log/imap
+hylafax_log	= /var/spool/hylafax/etc/xferfaxlog
+cups_log	= /var/log/cups/page_log
+fail2ban_log	= /var/log/fail2ban.log
+spamassassin_log	= /var/log/maillog
+clamav_log	= /var/log/clamav/clamav.log
+cg_logdir	= /var/CommuniGate/SystemLogs/
+squid_log	= /var/log/squid/access.log
 
-our $IMAP_DATE_LOG_FORMAT = "%b %d";
+imap_date_log_format = %b %d
 
 
 # Alert capabilities
 # -----------------------------------------------------------------------------
-our $ENABLE_ALERTS = "N";
-our $ALERT_LOADAVG_TIMEINTVL = "3600";
-our $ALERT_LOADAVG_THRESHOLD = "5.0";
-our $ALERT_LOADAVG_SCRIPT = "/path/to/script.sh";
+enable_alerts = n
+alert_loadavg_timeintvl = 3600
+alert_loadavg_threshold = 5.0
+alert_loadavg_script = /path/to/script.sh
 
-our $ALERT_ROOTFS_TIMEINTVL = "3600";
-our $ALERT_ROOTFS_THRESHOLD = "100";
-our $ALERT_ROOTFS_SCRIPT = "/path/to/script.sh";
+alert_rootfs_timeintvl = 3600
+alert_rootfs_threshold = 100
+alert_rootfs_script = /path/to/script.sh
 
 
 # Graphs (de)activation
 # -----------------------------------------------------------------------------
-our %GRAPH_ENABLE = (
-	"system"	=> "Y",
-	"kern"		=> "Y",
-	"proc"		=> "Y",
-	"hptemp"	=> "N",
-	"lmsens"	=> "N",
-	"nvidia"	=> "N",
-	"disk"		=> "N",
-	"fs"		=> "Y",
-	"net"		=> "Y",
-	"serv"		=> "Y",
-	"mail"		=> "N",
-	"port"		=> "Y",
-	"user"		=> "Y",
-	"apache"	=> "N",
-	"nginx"		=> "N",
-	"lighttpd"	=> "N",
-	"mysql"		=> "N",
-	"squid"		=> "N",
-	"nfss"		=> "N",
-	"nfsc"		=> "N",
-	"bind"		=> "N",
-	"ntp"		=> "N",
-	"fail2ban"	=> "N",
-	"icecast"	=> "N",
-	"int"		=> "Y",
-);
+<graph_enable>
+	system		= y
+	kern		= y
+	proc		= y
+	hptemp		= n
+	lmsens		= n
+	nvidia		= n
+	disk		= n
+	fs		= y
+	net		= y
+	serv		= y
+	mail		= n
+	port		= y
+	user		= y
+	apache		= n
+	nginx		= n
+	lighttpd	= n
+	mysql		= n
+	squid		= n
+	nfss		= n
+	nfsc		= n
+	bind		= n
+	ntp		= n
+	fail2ban	= n
+	icecast		= n
+	int		= y
+	pc		= n
+</graph_enable>
 
 
 # SYSTEM graph
 # -----------------------------------------------------------------------------
-our $SYSTEM1_RIGID = "1";
-our $SYSTEM1_LIMIT = "1";
-our $SYSTEM2_RIGID = "0";
-our $SYSTEM2_LIMIT = "100";
+<system>
+	rigid = 1, 0
+	limit = 1, 100
+</system>
 
 
-# KERNEL graph
+# KERN graph
 # -----------------------------------------------------------------------------
-our $KERN_GRAPH_MODE = "R";
-our $KERN1_RIGID = "2";
-our $KERN1_LIMIT = "100";
-our %KERN_DATA = (
-	"user"	=> "Y",
-	"nice"	=> "Y",
-	"sys"	=> "Y",
-	"iow"	=> "Y",
-	"irq"	=> "Y",
-	"sirq"	=> "Y",
-	"steal"	=> "Y",
-	"guest"	=> "Y",
-);
+<kern>
+	graph_mode = r
+	rigid = 2
+	limit = 100
+	<list>
+		user	= y
+		nice	= y
+		sys	= y
+		iow	= y
+		irq	= y
+		sirq	= y
+		steal	= y
+		guest	= y
+	</list>
+</kern>
 
 
 # PROC graph
 # -----------------------------------------------------------------------------
-our $PROC_MAX = "4";
-our $PROC_PER_ROW = "2";
-our $PROC_SIZE = "medium";
-our $PROC_DATA = "Y";
-our $PROC_RIGID = "2";
-our $PROC_LIMIT = "100";
+<proc>
+	max = 4
+	graphs_per_row = 2
+	size = medium
+	data = y
+	rigid = 2
+	limit = 100
+</proc>
 
 
 # HPTEMP graph
 # -----------------------------------------------------------------------------
-our @HPTEMP_1 = (
-	"2",
-	"3",
-);
-our @HPTEMP_2 = (
-	"1",
-	"6",
-);
-our @HPTEMP_3 = (
-	"16",
-	"18",
-	"19",
-	"20",
-	"21",
-	"22",
-);
+<hptemp>
+	<list>
+		0 = 2, 3
+		1 = 1, 6
+		2 = 16, 18, 19, 20, 21, 22
+	</list>
+</hptemp>
 
 
 # LMSENS graph
 # -----------------------------------------------------------------------------
-our %SENSORS_LIST = (
-	"CORE0"  => "Core 0",
-	"CORE1"  => "Core 1",
-	"MB0"    => "M/B Temp",
-	"CPU0"   => "CPU Temp",
-	"FAN0"   => "fan1",
-	"FAN1"   => "fan2",
-	"FAN2"   => "fan3",
-	"VOLT0"  => "VCore 1",
-	"VOLT1"  => "VCore 2",
-	"VOLT2"  => "\\+3.3V",
-	"VOLT3"  => "\\+5V",
-	"VOLT4"  => "\\+12V",
-	"VOLT5"  => "\\-12V",
-	"VOLT6"  => "\\-5V",
-	"VOLT7"  => "Battery",
-	"GPU0"   => "nvidia",
-);
+<lmsens>
+	<list>
+		core0	= Core 0
+		core1	= Core 1
+		mb0	= M/B Temp
+		cpu0	= CPU Temp
+		fan0	= fan1
+		fan1	= fan2
+		fan2	= fan3
+		volt0	= VCore 1
+		volt1	= VCore 2
+		volt2	= \+3.3V
+		volt3	= \+5V
+		volt4	= \+12V
+		volt5	= \-12V
+		volt6	= \-5V
+		volt7	= Battery
+		gpu0	= nvidia
+	</list>
+</lmsens>
 
 
 # NVIDIA graph
 # -----------------------------------------------------------------------------
-our $NVIDIA_MAX = 1;
+<nvidia>
+	max = 1
+</nvidia>
 
 
 # DISK graph
 # -----------------------------------------------------------------------------
-our @DISK_LIST = (
-	[
-		"/dev/sda",
-		"/dev/sdb",
-		"/dev/sdc",
-	],
-);
+<disk>
+	<list>
+		0 = /dev/sda, /dev/sdb, /dev/sdc
+	</list>
+</disk>
 
 
 # FS graph
 # -----------------------------------------------------------------------------
-our @FS_LIST = (
-	[
-		"/",
-		"swap",
-		"/boot",
-	],
-);
-our %FS_DESC = (
-);
-our %FS_DEV = (
-);
-our $FS2_RIGID = "0";
-our $FS2_LIMIT = "1000";
-our $FS3_RIGID = "0";
-our $FS3_LIMIT = "1000";
+<fs>
+	<list>
+		0 = /, swap, /boot
+	</list>
+	<desc>
+		/	= rootfs
+		/boot	= boot
+	</desc>
+	<devmap>
+	</devmap>
+	rigid = 2, 0, 0
+	limit = 100, 1000, 1000
+</fs>
 
 
 # NET graph
 # -----------------------------------------------------------------------------
-our @NET_LIST = (
-	"eth0",
-);
-our @NET_DESC = (
-	"FastEthernet LAN",
-);
-our @NET_RIGID = (
-	"0",
-);
-our @NET_LIMIT = (
-	"10000000",
-);
-our $NET_GATEWAY = "eth0";
+<net>
+	list = eth0
+	<desc>
+		eth0 = FastEthernet LAN, 0, 10000000
+	</desc>
+	gateway = eth0
+	rigid = 0, 0, 0
+	limit = 1000, 1000, 1000
+</net>
 
 
 # SERV graph
 # -----------------------------------------------------------------------------
-our $SERV_MODE = "I";
-our $SERV1_RIGID = "0";
-our $SERV1_LIMIT = "1000";
-our $SERV2_RIGID = "0";
-our $SERV2_LIMIT = "1000";
-our $SERV3_RIGID = "0";
-our $SERV3_LIMIT = "1000";
+<serv>
+	mode = i
+	rigid = 0, 0, 0
+	limit = 1000, 1000, 1000
+</serv>
 
 
 # MAIL graph
 # -----------------------------------------------------------------------------
-our $MAIL_MTA = "sendmail";
-our $MAIL_GREYLIST = "milter-greylist";
-our $MAIL1_RIGID = "0";
-our $MAIL1_LIMIT = "1";
-our $MAIL2_RIGID = "0";
-our $MAIL2_LIMIT = "1000";
-our $MAIL3_RIGID = "0";
-our $MAIL3_LIMIT = "1000";
-our $MAIL4_RIGID = "0";
-our $MAIL4_LIMIT = "1000";
-our $MAIL5_RIGID = "0";
-our $MAIL5_LIMIT = "1000";
+<mail>
+	mta = sendmail
+	greylist = milter-greylist
+	rigid = 0, 0, 0, 0, 0
+	limit = 1, 1000, 1000, 1000, 1000
+</mail>
 
 
 # PORT graph
 # -----------------------------------------------------------------------------
-our $PORT_MAX = "9";
-our $PORT_RULE = "24000";
-our @PORT_LIST = (
-	"25",
-	"21",
-	"80",
-	"22",
-	"110",
-	"139",
-	"3306",
-	"53",
-	"143",
-);
-our @PORT_NAME = (
-	"SMTP",
-	"FTP",
-	"HTTP",
-	"SSH",
-	"POP3",
-	"NETBIOS",
-	"MYSQL",
-	"DNS",
-	"IMAP",
-);
-our @PORT_PROT = (
-	"tcp",
-	"tcp",
-	"tcp",
-	"tcp",
-	"tcp",
-	"tcp",
-	"tcp",
-	"udp",
-	"tcp",
-);
-our @PORT_RIGID = (
-	"0",
-	"0",
-	"0",
-	"0",
-	"0",
-	"0",
-	"0",
-	"0",
-	"0",
-);
-our @PORT_LIMIT = (
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-	"1000",
-);
+<port>
+	max = 9
+	rule = 24000
+	list = 25, 21, 80, 22, 110, 139, 3306, 53, 143
+	<desc>
+		25	= SMTP,    tcp, 0, 1000
+		21	= FTP,     tcp, 0, 1000
+		80	= HTTP,    tcp, 0, 1000
+		22	= SSH,     tcp, 0, 1000
+		110	= POP3,    tcp, 0, 1000
+		139	= NETBIOS, tcp, 0, 1000
+		3306	= MYSQL,   tcp, 0, 1000
+		53	= DNS,     udp, 0, 1000
+		143	= IMAP,    tcp, 0, 1000
+	</desc>
+	graphs_per_row = 3
+</port>
 
 
 # USER graph
 # -----------------------------------------------------------------------------
-our $USER1_RIGID = "0";
-our $USER1_LIMIT = "100";
-our $USER2_RIGID = "0";
-our $USER2_LIMIT = "100";
-our $USER3_RIGID = "0";
-our $USER3_LIMIT = "100";
+<user>
+	rigid = 0, 0, 0
+	limit = 1000, 1000, 1000
+</user>
 
 
 # APACHE graph
 # -----------------------------------------------------------------------------
-our @APACHE_LIST = (
-	"http://localhost/",
-);
-our $APACHE1_RIGID = "0";
-our $APACHE1_LIMIT = "100";
-our $APACHE2_RIGID = "2";
-our $APACHE2_LIMIT = "100";
-our $APACHE3_RIGID = "0";
-our $APACHE3_LIMIT = "100";
+<apache>
+	list = http://localhost/
+	rigid = 0, 2, 0
+	limit = 100, 100, 100
+</apache>
 
 
 # NGINX graph
 # -----------------------------------------------------------------------------
-our $NGINX_PORT = "80";
-our $NGINX_RULE = "24100";
-our $NGINX1_RIGID = "0";
-our $NGINX1_LIMIT = "100";
-our $NGINX2_RIGID = "0";
-our $NGINX2_LIMIT = "100";
-our $NGINX3_RIGID = "0";
-our $NGINX3_LIMIT = "100";
+<nginx>
+	port = 80
+	rule = 24100
+	rigid = 0, 0, 0
+	limit = 100, 100, 100
+</nginx>
 
 
 # LIGHTTPD graph
 # -----------------------------------------------------------------------------
-our @LIGHTTPD_LIST = (
-	"http://localhost/",
-);
-our $LIGHTTPD1_RIGID = "0";
-our $LIGHTTPD1_LIMIT = "100";
-our $LIGHTTPD2_RIGID = "0";
-our $LIGHTTPD2_LIMIT = "100";
-our $LIGHTTPD3_RIGID = "0";
-our $LIGHTTPD3_LIMIT = "100";
+<lighttpd>
+	list = http://localhost/
+	rigid = 0, 0, 0
+	limit = 100, 100, 100
+</lighttpd>
 
 
 # MYSQL graph
 # -----------------------------------------------------------------------------
-our $MYSQL_CONN_TYPE = "Host";
-our @MYSQL_HOST_LIST = (
-	"localhost",
-);
-our @MYSQL_PORT_LIST = (
-	"3306",
-);
-our @MYSQL_USER_LIST = (
-	"",
-);
-our @MYSQL_PASS_LIST = (
-	"",
-);
-our @MYSQL_SOCK_LIST = (
-	"/var/lib/mysql/mysql.sock",
-);
-our $MYSQL1_RIGID = "0";
-our $MYSQL1_LIMIT = "100";
-our $MYSQL2_RIGID = "2";
-our $MYSQL2_LIMIT = "100";
-our $MYSQL3_RIGID = "0";
-our $MYSQL3_LIMIT = "100";
-our $MYSQL4_RIGID = "0";
-our $MYSQL4_LIMIT = "100";
-our $MYSQL5_RIGID = "0";
-our $MYSQL5_LIMIT = "100";
-our $MYSQL6_RIGID = "0";
-our $MYSQL6_LIMIT = "100";
+<mysql>
+	conn_type = host
+	list = localhost
+#	list = /var/lib/mysql/mysql.sock
+	<desc>
+		localhost = 3306, user, secret
+	</desc>
+	rigid = 0, 2, 0, 0, 0, 0
+	limit = 100, 100, 100, 100, 100, 100
+</mysql>
 
 
 # SQUID graph
 # -----------------------------------------------------------------------------
-our $SQUID_CMD = "squidclient -h 127.0.0.1";
-our @SQUID_GRAPH_1 = (
-	"TCP_MISS",
-	"TCP_DENIED",
-	"TCP_REFRESH_HIT",
-	"TCP_IMS_HIT",
-	"TCP_HIT",
-	"TCP_REFRESH_MISS",
-	"TCP_MEM_HIT",
-	"TCP_NEGATIVE_HIT",
-	"TCP_CLIENT_REFRESH_MISS",
-);
-our @SQUID_GRAPH_2 = (
-	"200",
-	"403",
-	"304",
-	"204",
-	"302",
-	"000",
-	"404",
-	"301",
-	"206",
-);
-our $SQUID1_RIGID = "0";
-our $SQUID1_LIMIT = "100";
-our $SQUID2_RIGID = "0";
-our $SQUID2_LIMIT = "100";
-our $SQUID3_RIGID = "0";
-our $SQUID3_LIMIT = "100";
-our $SQUID4_RIGID = "0";
-our $SQUID4_LIMIT = "100";
-our $SQUID5_RIGID = "0";
-our $SQUID5_LIMIT = "100";
-our $SQUID6_RIGID = "0";
-our $SQUID6_LIMIT = "100";
-our $SQUID7_RIGID = "0";
-our $SQUID7_LIMIT = "100";
-our $SQUID8_RIGID = "0";
-our $SQUID8_LIMIT = "100";
-our $SQUID9_RIGID = "0";
-our $SQUID9_LIMIT = "100";
+<squid>
+	cmd = squidclient -h 127.0.0.1
+	graph_0 = TCP_MISS, TCP_DENIED, TCP_REFRESH_HIT, TCP_IMS_HIT, TCP_HIT, TCP_REFRESH_MISS, TCP_MEM_HIT, TCP_NEGATIVE_HIT, TCP_CLIENT_REFRESH_MISS
+	graph_1 = 200, 403, 304, 204, 302, 000, 404, 301, 206
+	rigid = 0, 0, 0, 0, 0, 0, 0, 0, 0
+	limit = 100, 100, 100, 100, 100, 100, 100, 100, 100
+</squid>
 
 
 # NFSS graph
 # -----------------------------------------------------------------------------
-our $NFSS_VERSION = "3";
-our @NFSS_GRAPH_1 = (
-	"readlink",
-	"create",
-	"mkdir",
-	"symlink",
-	"rmdir",
-	"remove",
-	"rename",
-	"link",
-	"readdir",
-);
-our @NFSS_GRAPH_2 = (
-	"mknod",
-	"readdirplus",
-	"fsstat",
-	"fsinfo",
-	"pathconf",
-	"access",
-	"lookup",
-	"commit",
-	"null",
-);
-our @NFSS_GRAPH_3 = (
-	"read",
-	"write",
-	"getattr",
-	"setattr",
-);
-our $NFSS1_RIGID = "0";
-our $NFSS1_LIMIT = "100";
-our $NFSS2_RIGID = "0";
-our $NFSS2_LIMIT = "100";
-our $NFSS3_RIGID = "0";
-our $NFSS3_LIMIT = "100";
-our $NFSS4_RIGID = "0";
-our $NFSS4_LIMIT = "100";
-our $NFSS5_RIGID = "0";
-our $NFSS5_LIMIT = "100";
-our $NFSS6_RIGID = "0";
-our $NFSS6_LIMIT = "100";
-our $NFSS7_RIGID = "0";
-our $NFSS7_LIMIT = "100";
-our $NFSS8_RIGID = "0";
-our $NFSS8_LIMIT = "100";
-our $NFSS9_RIGID = "0";
-our $NFSS9_LIMIT = "100";
+<nfss>
+	version = 3
+	graph_0 = readlink, create, mkdir, symlink, rmdir, remove, rename, link, readdir
+	graph_1 = mknod, readdirplus, fsstat, fsinfo, pathconf, access, lookup, commit, null
+	graph_2 = read, write, getattr, setattr
+	rigid = 0, 0, 0, 0, 0, 0, 0, 0, 0
+	limit = 100, 100, 100, 100, 100, 100, 100, 100, 100
+</nfss>
 
 
 # NFSC graph
 # -----------------------------------------------------------------------------
-our $NFSC_VERSION = "3";
-our @NFSC_GRAPH_1 = (
-	"readlink",
-	"create",
-	"mkdir",
-	"symlink",
-	"rmdir",
-	"remove",
-	"rename",
-	"link",
-	"readdir",
-);
-our @NFSC_GRAPH_2 = (
-	"mknod",
-	"readdirplus",
-	"fsstat",
-	"fsinfo",
-	"pathconf",
-);
-our @NFSC_GRAPH_3 = (
-	"read",
-	"write",
-);
-our @NFSC_GRAPH_4 = (
-	"getattr",
-	"setattr",
-);
-our @NFSC_GRAPH_5 = (
-	"access",
-	"lookup",
-	"commit",
-	"null",
-);
-our $NFSC1_RIGID = "0";
-our $NFSC1_LIMIT = "100";
-our $NFSC2_RIGID = "0";
-our $NFSC2_LIMIT = "100";
-our $NFSC3_RIGID = "0";
-our $NFSC3_LIMIT = "100";
-our $NFSC4_RIGID = "0";
-our $NFSC4_LIMIT = "100";
-our $NFSC5_RIGID = "0";
-our $NFSC5_LIMIT = "100";
-our $NFSC6_RIGID = "0";
-our $NFSC6_LIMIT = "100";
+<nfsc>
+	version = 3
+	graph_0 = readlink, create, mkdir, symlink, rmdir, remove, rename, link, readdir
+	graph_1 = mknod, readdirplus, fsstat, fsinfo, pathconf
+	graph_2 = read, write
+	graph_3 = getattr, setattr
+	graph_4 = access, lookup, commit, null
+	rigid = 0, 0, 0, 0, 0, 0
+	limit = 100, 100, 100, 100, 100, 100
+</nfsc>
 
 
 # BIND graph
 # -----------------------------------------------------------------------------
-our @BIND_URL_LIST = (
-	"http://localhost:8053/",
-);
-our @BIND_IN_QUERIES_LIST = (
-	[
-		"A",
-		"AAAA",
-		"ANY",
-		"DS",
-		"MX",
-		"NS",
-		"PTR",
-		"SOA",
-		"SRV",
-		"TXT",
-		"NAPTR",
-		"A6",
-		"CNAME",
-		"SPF",
-		"KEY",
-		"DNSKEY",
-		"HINFO",
-		"WKS",
-		"PX",
-		"NSAP",
-	],
-);
-our @BIND_OUT_QUERIES_LIST = (
-	[
-		"A",
-		"AAAA",
-		"ANY",
-		"DS",
-		"MX",
-		"NS",
-		"PTR",
-		"SOA",
-		"SRV",
-		"TXT",
-		"NAPTR",
-		"A6",
-		"CNAME",
-		"SPF",
-		"KEY",
-		"DNSKEY",
-		"HINFO",
-		"WKS",
-		"PX",
-		"NSAP",
-	],
-);
-our @BIND_SERVER_STATS_LIST = (
-	[
-		"Requestv4",
-		"Requestv6",
-		"ReqEdns0",
-		"ReqBadEDNSVer",
-		"ReqTSIG",
-		"ReqSIG0",
-		"ReqBadSIG",
-		"ReqTCP",
-		"Response",
-		"QrySuccess",
-		"QryAuthAns",
-		"QryNoauthAns",
-		"QryReferral",
-		"QryNxrrset",
-		"QrySERVFAIL",
-		"QryNXDOMAIN",
-		"QryRecursion",
-		"QryDuplicate",
-		"QryDropped",
-		"QryFailure",
-	],
-);
-our @BIND_RESOLVER_STATS_LIST = (
-	[
-		"Queryv4",
-		"Queryv6",
-		"Responsev4",
-		"Responsev6",
-		"NXDOMAIN",
-		"SERVFAIL",
-		"FORMERR",
-		"OtherError",
-		"EDNS0Fail",
-		"Truncated",
-		"Lame",
-		"Retry",
-		"QueryTimeout",
-		"GlueFetchv4",
-		"GlueFetchv6",
-		"GlueFetchv4Fail",
-		"GlueFetchv6Fail",
-		"ValAttempt",
-		"ValOk",
-		"ValNegOk",
-	],
-);
-our @BIND_CACHE_RRSETS_LIST = (
-	[
-		"A",
-		"!A",
-		"AAAA",
-		"!AAAA",
-		"DLV",
-		"!DLV",
-		"DS",
-		"!DS",
-		"MX",
-		"NS",
-		"CNAME",
-		"!CNAME",
-		"SOA",
-		"!SOA",
-		"!ANY",
-		"PTR",
-		"RRSIG",
-		"NSEC",
-		"DNSKEY",
-		"NXDOMAIN",
-	],
-);
-our $BIND1_RIGID = "0";
-our $BIND1_LIMIT = "100";
-our $BIND2_RIGID = "0";
-our $BIND2_LIMIT = "100";
-our $BIND3_RIGID = "0";
-our $BIND3_LIMIT = "100";
-our $BIND4_RIGID = "0";
-our $BIND4_LIMIT = "100";
-our $BIND5_RIGID = "0";
-our $BIND5_LIMIT = "100";
+<bind>
+	list = http://localhost:8053/
+	<in_queries_list>
+		http://localhost:8053/ = A, AAAA, ANY, DS, MX, NS, PTR, SOA, SRV, TXT, NAPTR, A6, CNAME, SPF, KEY, DNSKEY, HINFO, WKS, PX, NSAP
+	</in_queries_list>
+	<out_queries_list>
+		http://localhost:8053/ = A, AAAA, ANY, DS, MX, NS, PTR, SOA, SRV, TXT, NAPTR, A6, CNAME, SPF, KEY, DNSKEY, HINFO, WKS, PX, NSAP
+	</out_queries_list>
+	<server_stats_list>
+		http://localhost:8053/ = Requestv4, Requestv6, ReqEdns0, ReqBadEDNSVer, ReqTSIG, ReqSIG0, ReqBadSIG, ReqTCP, Response, QrySuccess, QryAuthAns, QryNoauthAns, QryReferral, QryNxrrset, QrySERVFAIL, QryNXDOMAIN, QryRecursion, QryDuplicate, QryDropped, QryFailure
+	</server_stats_list>
+	<resolver_stats_list>
+		http://localhost:8053/ = Queryv4, Queryv6, Responsev4, Responsev6, NXDOMAIN, SERVFAIL, FORMERR, OtherError, EDNS0Fail, Truncated, Lame, Retry, QueryTimeout, GlueFetchv4, GlueFetchv6, GlueFetchv4Fail, GlueFetchv6Fail, ValAttempt, ValOk, ValNegOk
+	</resolver_stats_list>
+	<cache_rrsets_list>
+		http://localhost:8053/ = A, !A, AAAA, !AAAA, DLV, !DLV, DS, !DS, MX, NS, CNAME, !CNAME, SOA, !SOA, !ANY, PTR, RRSIG, NSEC, DNSKEY, NXDOMAIN
+	</cache_rrsets_list>
+	rigid = 0, 0, 0, 0, 0, 0, 0, 0
+	limit = 100, 100, 100, 100, 100, 100, 100, 100
+</bind>
 
 
 # NTP graph
 # -----------------------------------------------------------------------------
-our @NTP_HOST_LIST = (
-	"localhost",
-);
-our @NTP_CODE_LIST = (
-	[
-		"AUTH",
-		"AUTO",
-		"CRYP",
-		"DENY",
-		"GPS",
-		"INIT",
-		"NKEY",
-		"RATE",
-		"RMOT",
-		"RSTR",
-	],
-);
-our $NTP1_RIGID = "0";
-our $NTP1_LIMIT = "100";
-our $NTP2_RIGID = "0";
-our $NTP2_LIMIT = "100";
+<ntp>
+	list = localhost
+	<desc>
+		localhost = AUTH, AUTO, CRYP, DENY, GPS, INIT, NKEY, RATE, RMOT, RSTR
+	</desc>
+	rigid = 0, 0, 0
+	limit = 100, 100, 100
+</ntp>
 
 
 # FAIL2BAN graph
 # -----------------------------------------------------------------------------
-our $FAIL2BAN_PER_ROW = "2";
-our @FAIL2BAN_LIST = (
-	[
-		"[apache]",
-		"[apache-mod-security]",
-		"[apache-overflows]",
-		"[courierauth]",
-		"[ssh]",
-		"[pam-generic]",
-		"[php-url-fopen]",
-		"[vsftpd]",
-	],
-	[
-		"[apache-imdbphp]",
-		"[apache-evasive]",
-		"[apache-badbots]",
-		"[apache-robots-txt]",
-		"[communigate]",
-		"[named-refused-udp]",
-		"[named-refused-tcp]",
-		"[trac-ticketspam]",
-	],
-);
-our @FAIL2BAN_DESC = (
-	"Security",
-	"Overload / Abuse",
-);
-our $FAIL2BAN_RIGID = "0";
-our $FAIL2BAN_LIMIT = "100";
+<fail2ban>
+	graphs_per_row = 2
+	list = Security, Overload / Abuse
+	<desc>
+		0 = [apache], [apache-mod-security], [apache-overflows], [courierauth], [ssh], [pam-generic], [php-url-fopen], [vsftpd]
+		1 = [apache-imdbphp], [apache-evasive], [apache-badbots], [apache-robots-txt], [communigate], [named-refused-udp], [named-refused-tcp], [trac-ticketspam]
+	</desc>
+	rigid = 0
+	limit = 100
+</fail2ban>
 
 
 # ICECAST graph
 # -----------------------------------------------------------------------------
-our @ICECAST_URL_LIST = (
-	"http://localhost:8000/status.xsl",
-);
-our @ICECAST_MP_LIST = (
-	[
-		"stream1",
-		"stream2",
-		"stream3",
-	],
-);
-our $ICECAST_GRAPH_MODE = "R";
-our $ICECAST1_RIGID = "0";
-our $ICECAST1_LIMIT = "100";
-our $ICECAST2_RIGID = "0";
-our $ICECAST2_LIMIT = "100";
+<icecast>
+	list = http://localhost:8000/status.xsl
+	<desc>
+		http://localhost:8000/status.xsl = stream1, stream2, stream3
+	</desc>
+	graph_mode = r
+	rigid = 0, 0
+	limit = 100, 100
+</icecast>
 
 
 # INT graph
 # -----------------------------------------------------------------------------
-our $INT1_RIGID = "0";
-our $INT1_LIMIT = "100";
-our $INT2_RIGID = "0";
-our $INT2_LIMIT = "100";
-our $INT3_RIGID = "0";
-our $INT3_LIMIT = "100";
-
-
-# Multihost
-# -----------------------------------------------------------------------------
-our $MULTIHOST = "N";
-our $MULTIHOST_FOOTER = "Y";
-our $MULTIHOST_IMGS_PER_ROW = "2";
-our @REMOTEHOST_LIST = (
-	"server 1",	"http://www.example.com",
-	"server 2",	"http://10.0.0.1",
-	"server 3",	"http://192.168.0.100:8080",
-);
-our $GROUPS = "N";
-our @REMOTEGROUP_LIST = (
-	"My Group", "server 2:server 3",
-);
+<int>
+	rigid = 0, 0, 0
+	limit = 100, 100, 100
+</int>
 
 
 # PC LAN Internet traffic accounting
 # -----------------------------------------------------------------------------
-our $PC_LAN = "N";
-our $PC_MAX = "10";
-our $PC_RIGID = "0";
-our $PC_LIMIT = "1000";
-our $PC_IMGS_PER_ROW = "2";
-our @PC_LIST = (
-	"pc101",
-	"pc102",
-	"pc103",
-	"pc104",
-);
-our @PC_IP = (
-	"192.168.1.101/32",
-	"192.168.1.102/32",
-	"192.168.1.103/32",
-	"192.168.1.104/32",
-);
-our $PC_ENABLE_MONTHLY_REPORTS = "N";
-our $PC_REPORT_LANG = "en";
-our $PC_DEFAULT_MAIL = "root\@localhost";
-our @PC_REPORT_MAIL = (
-	"ace\@example.com",
-	"gene\@example.com",
-	"paul\@example.com",
-	"peter\@example.com",
-);
+pc_max = 10
+pc_rigid = 0
+pc_limit = 1000
+pc_imgs_per_row = 2
+pc_enable_monthly_reports = n
+pc_report_lang = en
+pc_default_mail = root@localhost
+pc_list = pc101, pc102, pc103, pc104
+<pc_ip>
+	0 = 192.168.1.101/32, ace@example.com
+	1 = 192.168.1.102/32, gene@example.com
+	2 = 192.168.1.103/32, paul@example.com
+	3 = 192.168.1.104/32, peter@example.com
+</pc_ip>
+
+
+# Multihost
+# -----------------------------------------------------------------------------
+<multihost>
+	enabled = n
+	footer_url = y
+	imgs_per_row = 2
+	remotehost_list = server 1, server 2, server 3
+	<remotehost_url>
+		0 = http://www.example.com
+		1 = http://10.0.0.1
+		2 = http://192.168.0.100:8080
+	</remotehost_url>
+	groups = n
+	remotegroup_list = My Group
+	<remotegroup_desc>
+		0 = server 2, server 3
+	</remotegroup_desc>
+</multihost>
 
 
 # ========================================================================
 # ======  Probably you don't need to touch anything below this line ======
 # ========================================================================
 
-# Black theme
-our %BLACK = (
-	"canvas"	=> "#000000",
-	"back"		=> "#101010",
-	"font"		=> "#C0C0C0",
-	"mgrid"		=> "#80C080",
-	"grid"		=> "#808020",
-	"frame"		=> "#808080",
-	"arrow"		=> "#FFFFFF",
-	"shadea"	=> "#404040",
-	"shadeb"	=> "#404040",
-	"axis"		=> "#101010",
-	"main_bg"	=> "#000000",
-	"main_fg"	=> "#FFFFFF",
-	"title_bg"	=> "#333333",
-	"title_fg"	=> "#888800",
-	"graph_bg"	=> "#888888",
-);
+theme = black
+timeout = 15
 
-our %GRAPH_SIZE = (
-	"main"		=> "450x150",
-	"medium"	=> "325x150",
-	"medium2"	=> "325x70",
-	"small"		=> "200x66",
-	"mini"		=> "183x66",
-	"tiny"		=> "110x40",
-	"zoom"		=> "800x300",
-	"remote"	=> "300x100",
-);
+imgs_dir = imgs/
+usage_dir = usage/
+report_dir = reports/
+favicon = /monitorixico.png
 
-our @GRAPH_NAME = (
-	"system",
-	"kern",
-	"proc",
-	"hptemp",
-	"lmsens",
-	"nvidia",
-	"disk",
-	"fs",
-	"net",
-	"serv",
-	"mail",
-	"port",
-	"user",
-	"apache",
-	"nginx",
-	"lighttpd",
-	"mysql",
-	"squid",
-	"nfss",
-	"nfsc",
-	"bind",
-	"ntp",
-	"fail2ban",
-	"icecast",
-	"int",
-);
+<black>
+	canvas		= 000000
+	back		= 101010
+	font		= C0C0C0
+	mgrid		= 80C080
+	grid		= 808020
+	frame		= 808080
+	arrow		= FFFFFF
+	shadea		= 404040
+	shadeb		= 404040
+	axis		= 101010
+	main_bg		= 000000
+	main_fg		= FFFFFF
+	title_bg	= 333333
+	title_fg	= 888800
+	graph_bg	= 888888
+</black>
 
-our %GRAPH_TITLE = (
-	"system"	=> "System load average and usage",
-	"kern"		=> "Global kernel usage",
-	"proc"		=> "Kernel usage per processor",
-	"hptemp"	=> "HP ProLiant System Health",
-	"lmsens"	=> "LM-Sensors and GPU temperatures",
-	"nvidia"	=> "NVIDIA temperatures and usage",
-	"disk"		=> "Disk drive temperatures and health",
-	"fs"		=> "Filesystem usage and I/O activity",
-	"net"		=> "Network traffic and usage",
-	"serv"		=> "System services demand",
-	"mail"		=> "Mail statistics",
-	"port"		=> "Network port traffic",
-	"user"		=> "Users using the system",
-	"apache"	=> "Apache statistics",
-	"nginx"		=> "Nginx statistics",
-	"lighttpd"	=> "Lighttpd statistics",
-	"mysql"		=> "MySQL statistics",
-	"squid"		=> "Squid statistics",
-	"nfss"		=> "NFS server statistics",
-	"nfsc"		=> "NFS client statistics",
-	"bind"		=> "BIND statistics",
-	"ntp"		=> "NTP statistics",
-	"fail2ban"	=> "Fail2ban statistics",
-	"icecast"	=> "Icecast Streaming Media Server",
-	"int"		=> "Devices interrupt activity",
-);
+<graph_size>
+	main	= 450x150
+	medium	= 325x150
+	medium2	= 325x70
+	small	= 200x66
+	mini	= 183x66
+	tiny	= 110x40
+	zoom	= 800x300
+	remote	= 300x100
+</graph_size>
 
-our %GRAPHS = (
-	"System load"			=> "_system1",
-	"Active processes"		=> "_system2",
-	"Memory allocation"		=> "_system3",
-	"Kernel usage"			=> "_kern1",
-	"Context switches and forks"	=> "_kern2",
-	"VFS usage"			=> "_kern3",
-	"Processor"			=> "_proc",
-	"Temperatures 1"		=> "_hptemp1",
-	"Temperatures 2"		=> "_hptemp2",
-	"Temperatures 3"		=> "_hptemp3",
-	"Core temperatures" 		=> "_lmsens1",
-	"Voltages" 			=> "_lmsens2",
-	"MB and CPU temperatures"	=> "_lmsens3",
-	"Fan speeds"			=> "_lmsens4",
-	"GPU temperatures"		=> "_lmsens5",
-	"NVIDIA temperatures"		=> "_nvidia1",
-	"CPU usage"			=> "_nvidia2",
-	"Memory usage"			=> "_nvidia3",
-	"Disk drives temperatures"	=> "_disk1",
-	"Reallocated sector count"	=> "_disk2",
-	"Current pending sector"	=> "_disk3",
-	"Filesystems usage"		=> "_fs1",
-	"Disk I/O activity"		=> "_fs2",
-	"Time spent in I/O activity"	=> "_fs3",
-	"Network traffic"		=> "_net1",
-	"Network packets"		=> "_net2",
-	"Network errors"		=> "_net3",
-	"System services demand" 	=> "_serv1",
-	"IMAP and POP3 services"	=> "_serv2",
-	"SMTP service"			=> "_serv3",
-	"Mail statistics"		=> "_mail1",
-	"Network traffic"		=> "_mail2",
-	"Mails in queue"		=> "_mail3",
-	"Queue size"			=> "_mail4",
-	"Greylisting"			=> "_mail5",
-	"Port"				=> "_port",
-	"Users logged in"		=> "_user1",
-	"Samba users"			=> "_user2",
-	"Netatalk users"		=> "_user3",
-	"Apache workers"		=> "_apache1",
-	"Apache CPU usage"		=> "_apache2",
-	"Apache requests"		=> "_apache3",
-	"Nginx connections"		=> "_nginx1",
-	"Nginx requests"		=> "_nginx2",
-	"Nginx traffic"			=> "_nginx3",
-	"Lighttpd workers"		=> "_lighttpd1",
-	"Lighttpd traffic"		=> "_lighttpd2",
-	"Lighttpd requests"		=> "_lighttpd3",
-	"MySQL query types"		=> "_mysql1",
-	"MySQL overall stats"		=> "_mysql2",
-	"Table saturation and MyISAM"	=> "_mysql3",
-	"MySQL queries"			=> "_mysql4",
-	"MySQL connections"		=> "_mysql5",
-	"MySQL traffic"			=> "_mysql6",
-	"Squid statistics 1"		=> "_squid1",
-	"Squid statistics 2"		=> "_squid2",
-	"Overall I/O"			=> "_squid3",
-	"Memory usage"			=> "_squid4",
-	"Store directory stats"		=> "_squid5",
-	"IP cache stats"		=> "_squid6",
-	"Network protocols usage"	=> "_squid7",
-	"Client traffic"		=> "_squid8",
-	"Server traffic"		=> "_squid9",
-	"NFS server stats 1"		=> "_nfss1",
-	"NFS server stats 2"		=> "_nfss2",
-	"NFS server stats 3"		=> "_nfss3",
-	"Overall I/O"			=> "_nfss4",
-	"Network layer"			=> "_nfss5",
-	"RPC"				=> "_nfss6",
-	"Thread utilization"		=> "_nfss7",
-	"Read cache"			=> "_nfss8",
-	"File handle cache"		=> "_nfss9",
-	"NFS client stats 1"		=> "_nfsc1",
-	"NFS client stats 2"		=> "_nfsc2",
-	"NFS client stats 3"		=> "_nfsc3",
-	"NFS client stats 4"		=> "_nfsc4",
-	"NFS client stats 5"		=> "_nfsc5",
-	"RPC client stats"		=> "_nfsc6",
-	"Incoming queries"		=> "_bind1",
-	"Outgoing queries (_default)"	=> "_bind2",
-	"Name server statistics"	=> "_bind3",
-	"Resolver statistics (_default)"	=> "_bind4",
-	"Cache DB RRsets (_default)"	=> "_bind5",
-	"Memory usage"			=> "_bind6",
-	"Task manager"			=> "_bind7",
-	"NTP timing stats"		=> "_ntp1",
-	"Stratum level"			=> "_ntp2",
-	"Codes"				=> "_ntp3",
-	"Fail2ban jails"		=> "_fail2ban",
-	"Current Listeners"		=> "_icecast1",
-	"Bitrate"			=> "_icecast2",
-	"Interrupt activity"		=> "_int1",
-	"Core activity"			=> "_int2",
-	"Interrupt activity"		=> "_int3",
-);
+graph_name = system, kern, proc, hptemp, lmsens, nvidia, disk, fs, net, serv, mail, port, user, apache, nginx, lighttpd, mysql, squid, nfss, nfsc, bind, ntp, fail2ban, icecast, int
 
-our $TIMEOUT = 15;
+<graph_title>
+	system		= System load average and usage
+	kern		= Global kernel usage
+	proc		= Kernel usage per processor
+	hptemp		= HP ProLiant System Health
+	lmsens		= LM-Sensors and GPU temperatures
+	nvidia		= NVIDIA temperatures and usage
+	disk		= Disk drive temperatures and health
+	fs		= Filesystem usage and I/O activity
+	net		= Network traffic and usage
+	serv		= System services demand
+	mail		= Mail statistics
+	port		= Network port traffic
+	user		= Users using the system
+	apache		= Apache statistics
+	nginx		= Nginx statistics
+	lighttpd	= Lighttpd statistics
+	mysql		= MySQL statistics
+	squid		= Squid statistics
+	nfss		= NFS server statistics
+	nfsc		= NFS client statistics
+	bind		= BIND statistics
+	ntp		= NTP statistics
+	fail2ban	= Fail2ban statistics
+	icecast		= Icecast Streaming Media Server
+	int		= Devices interrupt activity
+</graph_title>
 
-our $IMGS_DIR = "imgs/";
-our $USAGE_DIR = $BASE_LIB . "usage/";
-our $REPORT_DIR = $BASE_LIB . "reports/";
-our $PNG_DIR = $BASE_DIR . $IMGS_DIR;
-our $FAVICON = $BASE_URL . "/monitorixico.png";
-
-our $SYSTEM_RRD = $BASE_LIB . "system.rrd";
-our $KERN_RRD = $BASE_LIB . "kern.rrd";
-our $PROC_RRD = $BASE_LIB . "proc.rrd";
-our $HPTEMP_RRD = $BASE_LIB . "hptemp.rrd";
-our $LMSENS_RRD = $BASE_LIB . "lmsens.rrd";
-our $NVIDIA_RRD = $BASE_LIB . "nvidia.rrd";
-our $DISK_RRD = $BASE_LIB . "disk.rrd";
-our $FS_RRD = $BASE_LIB . "fs.rrd";
-our $NET_RRD = $BASE_LIB . "net.rrd";
-our $SERV_RRD = $BASE_LIB . "serv.rrd";
-our $MAIL_RRD = $BASE_LIB . "mail.rrd";
-our $PORT_RRD = $BASE_LIB . "port.rrd";
-our $USER_RRD = $BASE_LIB . "user.rrd";
-our $APACHE_RRD = $BASE_LIB . "apache.rrd";
-our $NGINX_RRD = $BASE_LIB . "nginx.rrd";
-our $LIGHTTPD_RRD = $BASE_LIB . "lighttpd.rrd";
-our $MYSQL_RRD = $BASE_LIB . "mysql.rrd";
-our $SQUID_RRD = $BASE_LIB . "squid.rrd";
-our $NFSS_RRD = $BASE_LIB . "nfss.rrd";
-our $NFSC_RRD = $BASE_LIB . "nfsc.rrd";
-our $BIND_RRD = $BASE_LIB . "bind.rrd";
-our $NTP_RRD = $BASE_LIB . "ntp.rrd";
-our $FAIL2BAN_RRD = $BASE_LIB . "fail2ban.rrd";
-our $ICECAST_RRD = $BASE_LIB . "icecast.rrd";
-our $INT_RRD = $BASE_LIB . "int.rrd";
-our $PC_RRD = $BASE_LIB . "pc.rrd";
+<graphs>
+	_system1	= System load
+	_system2	= Active processes
+	_system3	= Memory allocation
+	_kern1		= Kernel usage
+	_kern2		= Context switches and forks
+	_kern3		= VFS usage
+	_proc		= Processor
+	_hptemp1	= Temperatures 1
+	_hptemp2	= Temperatures 2
+	_hptemp3	= Temperatures 3
+	_lmsens1	= Core temperatures
+	_lmsens2	= Voltages
+	_lmsens3	= MB and CPU temperatures
+	_lmsens4	= Fan speeds
+	_lmsens5	= GPU temperatures
+	_nvidia1	= NVIDIA temperatures
+	_nvidia2	= CPU usage
+	_nvidia3	= Memory usage
+	_disk1		= Disk drives temperatures
+	_disk2		= Reallocated sector count
+	_disk3		= Current pending sector
+	_fs1		= Filesystems usage
+	_fs2		= Disk I/O activity
+	_fs3		= Time spent in I/O activity
+	_net1		= Network traffic
+	_net2		= Network packets
+	_net3		= Network errors
+	_serv1		= System services demand
+	_serv2		= IMAP and POP3 services
+	_serv3		= SMTP service
+	_mail1		= Mail statistics
+	_mail2		= Network traffic
+	_mail3		= Mails in queue
+	_mail4		= Queue size
+	_mail5		= Greylisting
+	_port		= Port
+	_user1		= Users logged in
+	_user2		= Samba users
+	_user3		= Netatalk users
+	_apache1	= Apache workers
+	_apache2	= Apache CPU usage
+	_apache3	= Apache requests
+	_nginx1		= Nginx connections
+	_nginx2		= Nginx requests
+	_nginx3		= Nginx traffic
+	_lighttpd1	= Lighttpd workers
+	_lighttpd2	= Lighttpd traffic
+	_lighttpd3	= Lighttpd requests
+	_mysql1		= MySQL query types
+	_mysql2		= MySQL overall stats
+	_mysql3		= Table saturation and MyISAM
+	_mysql4		= MySQL queries
+	_mysql5		= MySQL connections
+	_mysql6		= MySQL traffic
+	_squid1		= Squid statistics 1
+	_squid2		= Squid statistics 2
+	_squid3		= Overall I/O
+	_squid4		= Memory usage
+	_squid5		= Store directory stats
+	_squid6		= IP cache stats
+	_squid7		= Network protocols usage
+	_squid8		= Client traffic
+	_squid9		= Server traffic
+	_nfss1		= NFS server stats 1
+	_nfss2		= NFS server stats 2
+	_nfss3		= NFS server stats 3
+	_nfss4		= Overall I/O
+	_nfss5		= Network layer
+	_nfss6		= RPC
+	_nfss7		= Thread utilization
+	_nfss8		= Read cache
+	_nfss9		= File handle cache
+	_nfsc1		= NFS client stats 1
+	_nfsc2		= NFS client stats 2
+	_nfsc3		= NFS client stats 3
+	_nfsc4		= NFS client stats 4
+	_nfsc5		= NFS client stats 5
+	_nfsc6		= RPC client stats
+	_bind1		= Incoming queries
+	_bind2		= Outgoing queries (_default)
+	_bind3		= Name server statistics
+	_bind4		= Resolver statistics (_default)
+	_bind5		= Cache DB RRsets (_default)
+	_bind6		= Memory usage
+	_bind7		= Task manager
+	_ntp1		= NTP timing stats
+	_ntp2		= Stratum level
+	_ntp3		= Codes
+	_fail2ban	= Fail2ban jails
+	_icecast1	= Current Listeners
+	_icecast2	= Bitrate
+	_int1		= Interrupt activity
+	_int2		= Core activity
+	_int3		= Interrupt activity
+</graphs>