diff options
Diffstat (limited to 'SiteSummary.pm')
-rw-r--r-- | SiteSummary.pm | 22 |
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 { |