diff options
| author | Petter Reinholdtsen <pere@hungry.com> | 2007-10-12 17:26:49 +0000 |
|---|---|---|
| committer | Petter Reinholdtsen <pere@hungry.com> | 2007-10-12 17:26:49 +0000 |
| commit | f98f9e310682cd77180ef49e5fda0994d973336e (patch) | |
| tree | dac9403cd49066d4bcc58fdeef88bce1c50281cf /SiteSummary.pm | |
| parent | d39cfeb90a670a5a7006602e56cd26501ad1343d (diff) | |
| download | sitesummary-f98f9e310682cd77180ef49e5fda0994d973336e.tar.gz sitesummary-f98f9e310682cd77180ef49e5fda0994d973336e.tar.bz2 sitesummary-f98f9e310682cd77180ef49e5fda0994d973336e.tar.xz | |
* UNRELEASED
* Add get_hostclass() to the SiteSummary perl module API.
* Add host class summary to the default list of web reports.
Diffstat (limited to 'SiteSummary.pm')
| -rw-r--r-- | SiteSummary.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/SiteSummary.pm b/SiteSummary.pm index fec7b09..b6b449a 100644 --- a/SiteSummary.pm +++ b/SiteSummary.pm @@ -10,6 +10,7 @@ our @ISA = qw(Exporter); our @EXPORT = qw( for_all_hosts get_filepath_current + get_hostclass get_site get_sitegroup get_hostname @@ -66,6 +67,14 @@ sub get_sitegroup { } # +# Return the hostclass string +# +sub get_hostclass { + my $hostid = shift; + return get_file_string($hostid, "/siteinfo/hostclass"); +} + +# # Return the hostname string # sub get_hostname { |