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 ? "" : $!);

Reply via email to