#!/usr/bin/env perl
#
# Monitorix - A lightweight system monitoring tool.
#
# Copyright (C) 2005-2012 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.
#

no strict "vars";
no warnings "once";
use CGI qw/:standard/;
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);
}

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 $n;
	my $n2;
	my $m;
	my $m2;
	my $gnum;
	my @HOST;
	my @URL;
	my @TEMP_LIST;

	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]);
				}
			}
		}
	} else {
		for($n = 0; $n < scalar(@REMOTEHOST_LIST); $n += 2) {
			push(@HOST, $REMOTEHOST_LIST[$n]);
			push(@URL, $REMOTEHOST_LIST[$n + 1]);
		}
	}

	$MULTIHOST_IMGS_PER_ROW = 1 unless $MULTIHOST_IMGS_PER_ROW > 1;
	$graph = ($graph eq "all" || $graph =~ m/group\[0-9]*/) ? "_system1" : $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";
			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";
					print "   </font>\n";
					print "  </td>\n";
				}
				$n++;
			}
			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";
					print "  </td>\n";

				}
				$n++;
			}
			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";
					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 "   </font></font>\n";
					print "  </td>\n";
				}
				}
				$n++;
			}
			$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 "   <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 "    </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>\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";
			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 "    </font></font>\n";
			print "   </td>\n";
		}
		print "   </tr>\n";
		print "  </table>\n";
		print "  <br>\n";
	}
}

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("    <tr>\n");
	print("      <td bgcolor='$title_bg_color' colspan='$colspan'>\n");
	print("        <font face='Verdana, sans-serif' color='$title_fg_color'>\n");
	print("          <b>&nbsp;&nbsp;$title<b>\n");
	print("        </font>\n");
	print("      </td>\n");
	print("    </tr>\n");
}

sub graph_footer {
	print("  </table>\n");
}


# MAIN
# ----------------------------------------------------------------------------
print("Content-Type: text/html\n");
print("\n");
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("  </head>\n");
	print("  <body bgcolor='" . $bg_color . "' vlink='#888888' link='#888888'>\n");
	print("  <center>\n");
	print("  <table cellspacing='5' cellpadding='0' bgcolor='" . $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("    <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");
		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");
	if($mode eq "localhost" || $mode eq "pc") {
		$title = $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};
		} 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] . ")";
		} else {
			$title = $rgraphs{$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("  </font>\n");
		print("  </td>\n");
	print("  </tr>\n");
	print("  </table>\n");
	print("  <font face='Verdana, sans-serif' color='" . $fg_color . "'>\n");
	print("    <h4><font color='#888888'>" . strftime("%a %b %e %H:%M:%S %Z %Y", localtime) . "</font></h4>\n");
}

if($mode eq "localhost") {
	foreach my $g (@GRAPH_NAME) {
		if($GRAPH_ENABLE{$g} eq "Y") {
			if($graph eq "all" || $graph =~ /_$g/) {
				if(eval {&$g($g, $GRAPH_TITLE{$g});}) {
					print("  <br>\n");
				}
			}
		}
	}
} elsif($mode eq "multihost") {
	multihost();
} elsif($mode eq "pc") {
	pc();
}

if(!$silent) {
	print("\n");
	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("  <br>\n");
	print("  <font face='Verdana, sans-serif' color='" . $fg_color . "' size='-2'>\n");
	print("Copyright &copy; 2005-2012 Jordi Sanfeliu\n");
	print("  </font>\n");
	print("  </body>\n");
	print("</html>\n");
}

exit(0);