Metacat

	my $dt = DateTime->now;

	$dt->subtract( hours => $orgExpiration );

    my $filter = "(createTimestamp <= " . $expirationDate . ")";

    debug("Clearing expired accounts with filter: " . $filter);

    my @attrs = [ 'uid', 'o', 'ou', 'cn', 'mail', 'telephoneNumber', 'title' ];

    	$ldap->start_tls( verify => 'none');

        $ldap->bind( version => 3, dn => $ldapUsername, password => $ldapPassword ); 

		$mesg = $ldap->search (

			filter => $filter,

			attrs => \@attrs,

		);

    	$ldap->unbind;   # take down session

    }

}

sub fullTemplate {