Move some generic functions to the sitesummary perl library.

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}));