ispman/lib/ISPMan DomainMan.pm,1.78,1.79

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9519/lib/ISPMan

Modified Files:
	DomainMan.pm 
Log Message:
adjustments for UserMan API change

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- DomainMan.pm	26 Jun 2004 22:44:28 -0000	1.78
+++ DomainMan.pm	15 Jul 2004 07:43:49 -0000	1.79
@@ -228,15 +228,15 @@
     }
 
     # assign new uidnumber/gidnumber
-    $r->param("uidnumber",$self->getUid());
-    $r->param("gidnumber",$self->getGid());
+    $r->param( "uidnumber", $self->getUid() );
+    $r->param( "gidnumber", $self->getGid() );
 
     # load common domain template
     $self->addDataFromLdif( "templates/domain.common.ldif.template", $r );
 
     # which templates are needed for what domain types
     my $ou = {
-        'primary' => ["dnszone","posixGroup"],
+        'primary' => [ "dnszone", "posixGroup" ],
         'slave'   => ["posixGroup"],
         'nodns'   => ["posixGroup"],
         'replica' => [],
@@ -420,8 +420,7 @@
     return if $self->getReplicasOfDomain($domain);
 
     #Lets be a BOFH and Delete All users MuhhahhhAAAAhaahaa
-    my $users =
-      $self->getUsers( join ",", ( "ou=users", $self->makeDomainDN($domain) ) );
+    my $users = $self->getUsers($domain);
 
     for ( keys %$users ) {
         $self->killUser( $users->{$_} );



-------------------------------------------------------
This SF.Net email is sponsored by BEA Weblogic Workshop
FREE Java Enterprise J2EE developer tools!
Get your free copy of BEA WebLogic Workshop 8.1 today.
http://ads.osdn.com/?ad_id=4721&alloc_id=10040&op=click