* Remove sitecontact references. I'm not sure it is the right place

    for it, and we can reintroduce it if it proves to be a good idea.

1 files changed, 0 insertions, 22 deletions

diff --git a/SiteSummary.pm b/SiteSummary.pm
index bd3107e..9094c13 100644
--- a/SiteSummary.pm
+++ b/SiteSummary.pm
@@ -12,7 +12,6 @@ our @EXPORT  = qw(
                   get_filepath_current
                   get_site
                   get_sitegroup
-                  get_sitecontact
                   get_linux_kernel_ver 
                   );
 
@@ -61,27 +60,6 @@ sub get_sitegroup {
 }
 
 #
-# Return list with the mail addresses listed in sitecontact.
-#
-sub get_sitecontact {
-    my $hostid = shift;
-    my $path = get_filepath_current($hostid, "/siteinfo/sitecontact");
-    my @addr = ();
-    if (open (FILE, $path)) {
-        while(<FILE>) {
-            chomp;
-            s/\#.+$//;
-            next if (/^\s*$/);
-            push(@addr, split(/,\s*/, $_));
-        }
-        close(FILE);
-        return @addr;
-    } else {
-        return undef;
-    }
-}
-
-#
 # Return Linux kernel version for the machines using Linux.
 #
 sub get_linux_kernel_ver {