File Coverage

blib/lib/Samba/LDAP/Machine.pm

Criterion	Covered	Total	%
statement	21	49	42.8
branch	0	6	0.0
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	31	68	45.5

package Samba::LDAP::Machine;

# Returned by Perl::MinimumVersion 0.11
require 5.006;

use warnings;
use strict;
use Carp qw(carp croak);
use Readonly;
use Regexp::DefaultFlags;
use Crypt::SmbHash;
use base qw(Samba::LDAP::Base);

our $VERSION = '0.05';

#
# Add Log::Log4perl to all our classes!!!!
#

# Our usage messages
Readonly my $ADD_POSIX_MACHINE_USAGE =>
        'Usage: add_posix_machine(
               host => \'linux1\', uid => \'1015\', gid => \'1015\', );';

#========================================================================
#                         -- PUBLIC METHODS --
#========================================================================

#------------------------------------------------------------------------
# add_posix_machine()
#
# Add a workstation to the Directory
#------------------------------------------------------------------------

sub add_posix_machine {
    my $self = shift;
    my %machine_args = (
        time_to_wait => 0,
        @_,    # argument pair list goes here
    );

    my $host = $machine_args{host};
    my $uid  = $machine_args{uid};
    my $gid  = $machine_args{gid};
    my $wait = $machine_args{time_to_wait};

    # Required arguments
    my @required_args = ( $host, $uid, $gid );
    croak $ADD_POSIX_MACHINE_USAGE
        if any {!defined $_} @required_args;

    my $ldap = Samba::LDAP->new();
    $ldap = $ldap->connect_ldap_master();

    my $add = $ldap->add ( "uid=$host,$self->{computersdn}",
                                  attr => [
                                           'objectclass' => ['top', 'person',
'organizationalPerson', 'inetOrgPerson', 'posixAccount'],
                                           'cn'   => "$host",
                                           'sn'   => "$host",
                                           'uid'   => "$host",
                                           'uidNumber'   => "$uid",
                                           'gidNumber'   => "$gid",
                                           'homeDirectory'   => '/dev/null',
                                           'loginShell'   => '/bin/false',
                                           'description'   => 'Computer',
                                           'gecos'   => 'Computer',
                                          ]
                                );

    $add->code && warn "failed to add entry: ", $add->error ;

    # take the session down
    $add->unbind;

    sleep($wait);
    return 1;
}

#------------------------------------------------------------------------
# add_samba_machine( $host, $uid )
#
# Add a workstation to the Domain
#------------------------------------------------------------------------

sub add_samba_machine {
    my $self = shift;
    my $host = shift;
    my $uid  = shift;

    my $sambaSID = 2 * $uid + 1000;
    my ($name) = $host =~ s/.$//s;

    my ($lmpassword,$ntpassword) = ntlmgen $name;

    my $ldap = Samba::LDAP->new();
    $ldap = $ldap->connect_ldap_master();

    my $modify = $ldap->modify ( "uid=$host,$self->{computersdn}",
                                        changes => [
                                                    replace => [objectClass => ['inetOrgPerson', 'posixAccount', 'sambaSAMAccount']],
                                                    add => [sambaPwdLastSet => '0'],
                                                    add => [sambaLogonTime => '0'],
                                                    add => [sambaLogoffTime => '2147483647'],
                                                    add => [sambaKickoffTime => '2147483647'],
                                                    add => [sambaPwdCanChange => '0'],
                                                    add => [sambaPwdMustChange => '0'],
                                                    add => [sambaAcctFlags => '[W          ]'],
                                                    add => [sambaLMPassword => "$lmpassword"],
                                                    add => [sambaNTPassword => "$ntpassword"],
                                                    add => [sambaSID => "$self->{SID}-$sambaSID"],
                                                    add => [sambaPrimaryGroupSID => "$self->{SID}-0"]
                                                   ]
                                      );

    $modify->code && die "failed to add entry: ", $modify->error ;

    return 1;
}

#------------------------------------------------------------------------
# add_samba_machine_smbpasswd()
#
# Set the workstations password
#------------------------------------------------------------------------

sub add_samba_machine_smbpasswd {
    my $self = shift;
}

1;    # Magic true value required at end of module

__END__