[smokeping-users] Perl error in Smokeping.pm

[Cherrington Stuart]

Hi,

I'm using Smokeping 2.3.0-1 on Debian Etch. We're currently only using
it to use the echoping utility to ping/graph SMTP latency. So far, my
graphs are empty, this may be down to a config issue which I'm going to
hunt down later, or it may be due to an error I'm getting in the
apache.log, it keeps erroring with:

[Mon Mar 10 14:42:21 2008] [error] [client ip.ip.ip.ip] [Mon Mar 10
14:42:21 2008] smokeping.cgi [client ip.ip.ip.ip]: Use of uninitialized
value in string eq at /usr/share/perl5/smokeping/Smokeping.pm line 631.

I've pasted the few lines here for people to check:

        my $hide;
        if ($tree->{$key}{__tree_link} and
$tree->{$key}{__tree_link}{menu}){
                $menu = $tree->{$key}{__tree_link}{menu};
                $title = $tree->{$key}{__tree_link}{title};
                next if $tree->{$key}{__tree_link}{hide} eq 'yes';
                } elsif ($tree->{$key}{menu}) {
                $menu = $tree->{$key}{menu};
                $title = $tree->{$key}{title};
                next if $tree->{$key}{hide} eq 'yes';
        };

I'm not a perl coder, so can anyone tell me what the issue is? This is
further complicated by the fact the system is production and I'm not
allowed to install anything other than approved Debian packages in the
stable/testing/volatile areas so I can't go to 2.3.3. I can of course
make a simple correction to one Perl Module ;-).

Thanks,

Stuart Cherrington
Unix Admin
Royal Holloway University.