diff options
Diffstat (limited to 'sysutils/munin-master')
-rw-r--r-- | sysutils/munin-master/Makefile | 7 | ||||
-rw-r--r-- | sysutils/munin-master/files/patch-bug1251 | 155 |
2 files changed, 1 insertions, 161 deletions
diff --git a/sysutils/munin-master/Makefile b/sysutils/munin-master/Makefile index 7cda0ddbf9d4..48a726390294 100644 --- a/sysutils/munin-master/Makefile +++ b/sysutils/munin-master/Makefile @@ -1,13 +1,8 @@ -# New ports collection makefile for: munin-master -# Date created: 25 Januar 2004 -# Whom: Lupe Christoph <lupe@lupe-christoph.de> -# +# Created by: Lupe Christoph <lupe@lupe-christoph.de> # $FreeBSD$ -# PORTNAME= munin PORTVERSION= ${MUNIN_VERSION} -PORTREVISION= 1 CATEGORIES= sysutils perl5 MASTER_SITES= ${MUNIN_SITES} PKGNAMESUFFIX= -master diff --git a/sysutils/munin-master/files/patch-bug1251 b/sysutils/munin-master/files/patch-bug1251 deleted file mode 100644 index c831972e0e53..000000000000 --- a/sysutils/munin-master/files/patch-bug1251 +++ /dev/null @@ -1,155 +0,0 @@ -diff --git a/master/_bin/munin-cgi-graph.in b/master/_bin/munin-cgi-graph.in -index dec4aa2..bcfbe90 100755 ---- master/_bin/munin-cgi-graph.in -+++ master/_bin/munin-cgi-graph.in -@@ -90,7 +90,7 @@ while (new CGI::Fast) { - my $pinpoint = undef; - my $path = $ENV{PATH_INFO} || ""; - -- INFO "Request path is $path"; -+ DEBUG "Request path is $path"; - - # The full URL looks like this: - # Case 1: -@@ -133,7 +133,7 @@ while (new CGI::Fast) { - my ($dom, $host, $serv, $scale) = - $path =~ m#^/(.*)/([^/]+)/([\w-]+)-([\w=,]+)\.png#; ## avoid bug in vim - -- INFO "asked for ($dom, $host, $serv, $scale)"; -+ DEBUG "asked for ($dom, $host, $serv, $scale)"; - - if ($scale =~ /pinpoint=(\d+),(\d+)/) { - $pinpoint = [ $1, $2, ]; -diff --git a/master/_bin/munin-graph.in b/master/_bin/munin-graph.in -index fb47333..b8fc0d0 100755 ---- master/_bin/munin-graph.in -+++ master/_bin/munin-graph.in -@@ -84,7 +84,7 @@ my $nb_request_max = 0; - my $graph_fh = new IO::File($config->{dbdir} . "/graphs"); - while (my $path = <$graph_fh>) { - my $pinpoint = undef; -- INFO "Request path is $path"; -+ DEBUG "Request path is $path"; - - # The full URL looks like this: - # Case 1: -@@ -126,7 +126,7 @@ while (my $path = <$graph_fh>) { - my ($dom, $host, $serv, $scale) = - $path =~ m#^/(.*)/([^/]+)/(\w+)-([\w=,]+)\.png#; ## avoid bug in vim - -- INFO "asked for ($dom, $host, $serv, $scale)"; -+ DEBUG "asked for ($dom, $host, $serv, $scale)"; - - if ($scale =~ /pinpoint=(\d+),(\d+)/) { - $pinpoint = [ $1, $2, ]; -@@ -159,15 +159,8 @@ while (my $path = <$graph_fh>) { - } - - # Now send it: headers -- INFO "X-Munin-Request: $nb_request/$nb_request_max"; -+ DEBUG "X-Munin-Request: $nb_request/$nb_request_max"; - -- my $headers = get_headers_for_file($filename, $graph_ttl); -- foreach my $header_name (keys %$headers) { -- INFO "$header_name: $headers->{$header_name}"; -- } -- -- # ... and graph data -- # send_graph_data($filename); - } continue { - $nb_request++; - if ($nb_request_max && $nb_request > $nb_request_max) { -@@ -179,27 +172,6 @@ while (my $path = <$graph_fh>) { - - exit 0; - -- --sub get_headers_for_file { -- my ($filename, $graph_ttl) = @_; -- -- # At this time the file exists and should be served -- my @stats = stat ($filename); -- my $mtime_epoch = $stats[9]; -- my $last_modified = get_w3c_date_from_epoch($mtime_epoch); -- -- # "Expires" has to use last modified time as base: -- my $graph_next_expires = $mtime_epoch - ($mtime_epoch % $graph_ttl) + $graph_ttl; -- my $expires = get_w3c_date_from_epoch($graph_next_expires); -- -- return { -- "Expires" => $expires, -- "Last-Modified" => $last_modified, -- "Content-Length" => $stats[7], -- }; --} -- -- - sub get_w3c_date_from_epoch { - my($epoch) = @_; - return strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime($epoch)); -diff --git a/master/lib/Munin/Master/GraphOld.pm b/master/lib/Munin/Master/GraphOld.pm -index 004484d..d2fe3fd 100644 ---- master/lib/Munin/Master/GraphOld.pm -+++ master/lib/Munin/Master/GraphOld.pm -@@ -1350,7 +1350,7 @@ sub process_service { - for my $time (keys %times) { - next unless ($draw{$time}); - my $picfilename = get_picture_filename($service, $time); -- INFO "[INFO] Looking into drawing $picfilename"; -+ DEBUG "[DEBUG] Looking into drawing $picfilename"; - (my $picdirname = $picfilename) =~ s/\/[^\/]+$//; - - DEBUG "[DEBUG] Picture filename: $picfilename"; -diff --git a/master/lib/Munin/Master/HTMLConfig.pm b/master/lib/Munin/Master/HTMLConfig.pm -index dfa8b70..bbccffa 100644 ---- master/lib/Munin/Master/HTMLConfig.pm -+++ master/lib/Munin/Master/HTMLConfig.pm -@@ -473,7 +473,7 @@ sub generate_service_templates { - } - } - -- if ($config->{'graph_strategy'} eq "cgi") { -+ if (munin_get($config, "graph_strategy", "cron") eq "cgi") { - map { $srv{$_} = $config->{'cgiurl_graph'} . "/" . $imgs{$_} } keys %imgs; - } else { - map { $srv{$_} = $root_path . "/" . $imgs{$_} } keys %imgs; -@@ -500,7 +500,7 @@ sub generate_service_templates { - for my $scale (@times) { - # Don't try to find the size if cgi is enabled, - # otherwise old data might pollute -- next if ($config->{'graph_strategy'} eq "cgi"); -+ next if (munin_get($config, "graph_strategy", "cron") eq "cgi"); - if (my ($w, $h) - = get_png_size(munin_get_picture_filename($service, $scale))) { - $srv{"img" . $scale . "width"} = $w; -@@ -512,7 +512,7 @@ sub generate_service_templates { - $srv{imgweeksum} = "$srv{node}-week-sum.png"; - $srv{imgyearsum} = "$srv{node}-year-sum.png"; - for my $scale (["week", "year"]) { -- next if ($config->{'graph_strategy'} eq "cgi"); -+ next if (munin_get($config, "graph_strategy", "cron") eq "cgi"); - if (my ($w, $h) - = get_png_size(munin_get_picture_filename($service, $scale, 1))) - { -diff --git a/master/lib/Munin/Master/Logger.pm b/master/lib/Munin/Master/Logger.pm -index f2f05ca..580357c 100644 ---- master/lib/Munin/Master/Logger.pm -+++ master/lib/Munin/Master/Logger.pm -@@ -90,7 +90,7 @@ sub logger_open_stderr { - $logopened = 1; - } - -- get_logger('')->info("Opened log file"); -+ get_logger('')->debug("Opened log file"); - - # Get perl warnings into the log files - $SIG{__WARN__} = \&_warn_catcher; -@@ -117,7 +117,7 @@ sub logger_open { - $logopened = 1; - } - -- get_logger('')->info("Opened log file"); -+ get_logger('')->debug("Opened log file"); - - # Get perl warnings into the log files - $SIG{__WARN__} = \&_warn_catcher; |