Changeset 276 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm
- Timestamp:
- 07/26/09 02:30:11 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm
r198 r276 11 11 use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED ); 12 12 use Net::LDAP::Util qw( escape_filter_value ); 13 use LATMOS::Accounts::Log; 13 14 14 15 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; … … 75 76 } 76 77 my $msg = $base->ldap->add($entry); 77 warn $msg->errorif ($msg->code);78 $base->log(LA_ERR, "Cannot create group: %s", $msg->error) if ($msg->code); 78 79 return if ($msg->code); 79 80 if (! keys %delayed) { return 1 };
Note: See TracChangeset
for help on using the changeset viewer.