diff options
Diffstat (limited to 'sitesummary-nodes')
-rwxr-xr-x | sitesummary-nodes | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/sitesummary-nodes b/sitesummary-nodes index 77c0f8b..f05d4f7 100755 --- a/sitesummary-nodes +++ b/sitesummary-nodes @@ -54,37 +54,6 @@ sub print_list { } } -sub is_pkg_installed { - my ($hostid, $pkgname) = @_; - # Check debian/dpkg-l for 'ii *pkgname ' - my $path = get_filepath_current($hostid, "/debian/dpkg-l"); - if (open (my $fh, $path)) { - while(<$fh>) { - if (m/^ii *$pkgname /) { - close($fh); - return 1 - } - } - close($fh); - } - return undef; -} - -sub get_default_route { - my $hostid = shift; - my $path = get_filepath_current($hostid, "/system/route-n"); - if (open(my $fh, $path)) { - while (<$fh>) { - if (m/^0.0.0.0\s+(\S+)\s+/) { - close($fh); - return $1; - } - } - close($fh); - } - return undef; -} - # Get an IP address, try to resolve it in DNS , and return the IP # address if no DNS reverse entry was found. sub get_dnsnameorip { @@ -107,12 +76,6 @@ sub is_nagios_client { is_pkg_installed($hostid, "nagios3"); } -sub is_laptop { - my $hostid = shift; - my $path = get_filepath_current($hostid, "/system/laptop"); - return -e $path; -} - sub print_munin_list { for my $hostname (sort keys %hostnames) { next unless (is_munin_client($hostnames{$hostname})); |