Package: nagiosgrapher
Version: 1.7.1-4
Severity: normal

Dear Maintainer,

I drew custom graphs having some pages.
Nagiosgrapher ignored "page" option.

Another point, "page:" dropdown lists were not sorted.
I wish those lists to be sorted.


-- System Information:
Debian Release: 7.2
  APT prefers stable
  APT policy: (990, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.18-164.el5 (SMP w/2 CPU cores)
Locale: LANG=ja_JP.EUC-JP, LC_CTYPE=ja_JP.EUC-JP (charmap=EUC-JP)
Shell: /bin/sh linked to /bin/dash

Versions of packages nagiosgrapher depends on:
ii  libc6                              2.13-33
ii  libcalendar-simple-perl            1.21-1
ii  libgd-gd2-perl                     1:2.46-3+b1
ii  librrds-perl                       1.4.7-2
ii  liburi-perl                        1.60-1
ii  nagios-images                      0.7
ii  nagios3                            3.4.1-3
ii  perlmagick [libimage-magick-perl]  8:6.7.7.10-5+deb7u2
ii  rrdtool                            1.4.7-2
ii  ttf-dejavu                         2.33-3
ii  ucf                                3.0025+nmu3

nagiosgrapher recommends no packages.

Versions of packages nagiosgrapher suggests:
ii  netcat                       1.10-40
ii  netcat-traditional [netcat]  1.10-40

-- Configuration Files:
/etc/logrotate.d/nagiosgrapher changed [not included]

-- no debconf information
--- /usr/share/perl5/NagiosGrapher/HTML.pm.orig	2013-10-30 11:04:51.000000000 +0900
+++ /usr/share/perl5/NagiosGrapher/HTML.pm	2013-11-01 09:00:49.000000000 +0900
@@ -1062,6 +1062,7 @@
 	qString = appendToQString(qString, 'width');
 	qString = appendToQString(qString, 'height');
 	qString = appendToQString(qString, 'type');
+	qString = appendToQString(qString, 'act_page');
 	qString = appendToQString(qString, 'title', 0, reloadPage);
 	qString = appendToQString(qString, 'start', parseInt(start));
 	qString = appendToQString(qString, 'end', parseInt(end));
--- /usr/share/perl5/NagiosGrapher/HTML.pm.orig	2013-10-30 11:04:51.000000000 +0900
+++ /usr/share/perl5/NagiosGrapher/HTML.pm	2013-11-01 09:00:49.000000000 +0900
@@ -557,7 +557,8 @@
   if (keys (%page_hash) > 1) {
 
     my $page_act = $self->Param('page_act');
-    $page_act=[keys(%page_hash)]->[1] unless ($page_act);
+    my @page_list = sort keys(%page_hash);
+    $page_act=$page_list[1] unless ($page_act);
     $page_act=undef if ($page_act eq '-ALL');
 
     $self->Param('page_act', $page_act);
@@ -566,7 +567,7 @@
       $self->Q->popup_menu(
         -name		=> 'page_act',
         -default	=> $page_act,
-        -values		=> [keys(%page_hash)],
+        -values		=> [@page_list],
         -labels		=> \%page_hash,
         -style		=> 'width: 287px; background-color: #fc8888;',
         -onchange	=> 'this.form.submit();'

Reply via email to