Package: munin Version: 1.2.0-1 Severity: normal Tags: patch
The problem with munin package is because of the port variable (default is 4949) which is hardcoded in /usr/share/munin/munin-update. My patch is attached. It also can be found here: http://www.tonev.net/patches/munin-port-patch.diff This probably should be fixed in the next release. Plamen Tonev -- System Information: Debian Release: 3.1 APT prefers testing APT policy: (500, 'testing') Architecture: i386 (i686) Kernel: Linux 2.4.21 Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968) Versions of packages munin depends on: pn libdigest-md5-perl Not found. ii libhtml-template-perl 2.6-2 HTML::Template : A module for usin ii librrds-perl 1.0.49-1 Time-series data storage and displ pn libtime-hires-perl Not found. ii perl [libstorable-perl] 5.8.4-6 Larry Wall's Practical Extraction ii perl-modules 5.8.4-6 Core Perl modules -- no debconf information
*** munin-update Tue Feb 22 14:25:21 2005 --- munin-update.diff Tue Feb 22 14:25:21 2005 *************** *** 174,179 **** --- 174,181 ---- my $update_time= Time::HiRes::time; my $do_fork = 1; my $do_version = 0; + my $port = 4949; + my $dport; my $timeout = 180; my $cli_do_fork; my $cli_timeout; *************** *** 245,250 **** --- 247,261 ---- } # CLI parameters override the configuration file. + if (exists $config->{'port'}) + { + $dport = $config->{'port'}; + } + elsif (defined $port) + { + $dport = $port; + } + if (defined $cli_timeout) { $timeout = $cli_timeout; *************** *** 642,648 **** { $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:". ($node->{port} || $config->{domain}->{$domain}->{port} || ! $config->{port} || "4949"), 'LocalAddr' => &munin_get ($config, "local_address", undef, $domain, $node), 'Proto' => "tcp", "Timeout" => $timeout); } --- 653,659 ---- { $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:". ($node->{port} || $config->{domain}->{$domain}->{port} || ! $config->{port} || $dport), 'LocalAddr' => &munin_get ($config, "local_address", undef, $domain, $node), 'Proto' => "tcp", "Timeout" => $timeout); } *************** *** 650,656 **** { $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:". ($node->{port} || $config->{domain}->{$domain}->{port} || ! $config->{port} || "4949"), 'Proto' => "tcp", "Timeout" => $timeout); } my $err = ($socket ? "" : $!); --- 661,667 ---- { $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:". ($node->{port} || $config->{domain}->{$domain}->{port} || ! $config->{port} || $dport), 'Proto' => "tcp", "Timeout" => $timeout); } my $err = ($socket ? "" : $!);