Munin contributed plugins

	# sanity check

	next unless m/^([\d\w\.\-_]+\s){5}([\d\w\.\-_]+$)/;       # escaped "." and "-"

	# sitename to munin fieldname

	my $vpm=clean_fieldname($vhost);

	$temp{$vpm}{'label'}=$vhost;

	$temp{$vpm}{'label'}=~s/www\.//;

	# count all requests

	$temp{$vpm}{'requests'}++;

         # average bytes

         $temp{$vpm}{'avg_bytes'}=$temp{$vpm}{'bytes'}/$temp{$vpm}{'requests'} || 0 if ($bytes);

	}

	# count by status / error code

	$temp{$vpm}{"status"}{$status}++ if $status;

};

sub periodic_write {

        $share->lock(LOCK_EX);

        # get data (may be updated by other loggers too)

        my %old=eval{%{thaw($share->fetch)}};             # using eval to suppress thaw error on empty string at the first run