HostGroup.pm

=begin
Begin-Doc
Name: MST::HostGroup
Type: module
Description: NIS hostgroup maintenance
End-Doc
=cut

package MST::HostGroup;
require Exporter;
use strict;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

@ISA    = qw(Exporter);
@EXPORT = qw(
    HostGroup_Exists
    HostGroup_ExistsPrefix
    HostGroup_ExistsMulti
    HostGroup_List
    HostGroup_List_WithPrefix
    HostGroup_List_WithPrefixMulti
    HostGroup_List_Changed
    HostGroup_List_Changed_WithPrefix
    HostGroup_List_Changed_WithPrefixMulti
    HostGroup_Create
    HostGroup_Delete
    HostGroup_AddMemberComputersByUserID
    HostGroup_AddMemberComputersByDN
    HostGroup_DeleteMemberComputersByUserID
    HostGroup_DeleteMemberComputersByDN
    HostGroup_MemberComputers
    HostGroup_MemberComputersMulti
    HostGroup_MemberComputersDN
    HostGroup_MemberComputersDNMulti
    HostGroup_MemberOf
    HostGroup_MemberOfMulti
    HostGroup_GetDescription
    HostGroup_GetDescriptionMulti
    HostGroup_SetDescription
    HostGroup_GetNotes
    HostGroup_GetNotesMulti
    HostGroup_SetNotes
);

use Local::UsageLogger;
use Local::SimpleRPC;

use MST::Env;

our $ADMIN_RPC;

# Begin-Doc
# Name: _NIS_syslog
# Type: function
# Access: internal
# Description: wrapper around syslog function to allow it to be ignored on windows
# End-Doc
sub _NIS_syslog {
    my @args = @_;

    # Allow code to function on windows
    eval "use Sys::Syslog";
    eval { syslog(@args); };
}

# Begin-Doc
# Name: HostGroup_SimpleRPC
# Type: function