ispman/lib/ISPMan DomainMan.pm,1.75,1.76

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

Modified Files:
	DomainMan.pm 
Log Message:
perltidy

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- DomainMan.pm	26 Jun 2004 11:23:58 -0000	1.75
+++ DomainMan.pm	26 Jun 2004 11:34:58 -0000	1.76
@@ -103,7 +103,6 @@
 
 $VERSION = '0.01';
 
-
 sub addDomainDNSProcess {
     my $self = shift;
     my ( $domain, $process, $param ) = @_;
@@ -149,8 +148,8 @@
     }
 }
 
-
 ##############################################################
+
 =item B<addDomain> ($r)
 
 $r is CGI.pm object passed from the CGI.
@@ -205,9 +204,13 @@
 
     # find reseller if clientId is set
     if ( $r->param("ispmanClientId") ) {
-        $r->param( "ispmanResellerId",
+        $r->param(
+            "ispmanResellerId",
             $self->getClientAttributeById(
-              $r->param("ispmanClientId"),"ispmanResellerId" ) );
+                $r->param("ispmanClientId"),
+                "ispmanResellerId"
+            )
+        );
     }
 
     # set reseller/client ids (from reseller/client session)
@@ -236,17 +239,17 @@
     };
 
     # load all needed templates
-    for $ou ( @{ $ou->{$r->param("ispmanDomainType")} } ) {
+    for $ou ( @{ $ou->{ $r->param("ispmanDomainType") } } ) {
         $self->addDataFromLdif( "templates/domain.$ou.ldif.template", $r );
     }
 
     # create default a-record for mail
     if (   $r->param("createArecordForMail")
-        && $r->param("ispmanDomainDefaultMailDropHost") ) 
+        && $r->param("ispmanDomainDefaultMailDropHost") )
     {
-        $self->log_event(
-                         "createArecordForMail=" .
-                         $r->param("createArecordForMail") . "\n" );
+        $self->log_event( "createArecordForMail="
+              . $r->param("createArecordForMail")
+              . "\n" );
 
         $self->newDNSRecord( $r->param("ispmanDomain"),
             "aRecord", "mail",
@@ -254,15 +257,15 @@
     }
 
     # create default vhost for domain
-    if ( $r->param("createVhost") &&
-         $r->param("ispmanDomainDefaultWebHost") ) 
+    if (   $r->param("createVhost")
+        && $r->param("ispmanDomainDefaultWebHost") )
     {
         $self->log_event( "createVhost=" . $r->param("createVhost") . "\n" );
         my $q = new CGI(
             {
                 'ispmanVhostName' => 'www',
                 'ispmanDomain'    => $domain,
-                'webHost'         => [$r->param("ispmanDomainDefaultWebHost")]
+                'webHost'         => [ $r->param("ispmanDomainDefaultWebHost") ]
             }
         );
         $self->addVhost($q);
@@ -320,7 +323,7 @@
 
     print $self->refreshSignal( $r->param("ispmanDomain") );
     print "Domain ", $r->param("ispmanDomain"), " was added\n";
-    
+
 }
 
 sub checkDomainType {
@@ -558,8 +561,9 @@
 
         $data->{'objectClass'} = $self->{'Config'}{'ispmanDomainObjectclasses'};
 
-        if ( $r->param("ispmanDomainLocked") &&
-             $r->param("ispmanDomainLocked") eq "on" ) {
+        if (   $r->param("ispmanDomainLocked")
+            && $r->param("ispmanDomainLocked") eq "on" )
+        {
             $data->{'ispmanDomainLockedBy'} = $self->{'REMOTE_USER'};
             $data->{'ispmanDomainLocked'}   = "true";
         }



-------------------------------------------------------
This SF.Net email sponsored by Black Hat Briefings & Training.
Attend Black Hat Briefings & Training, Las Vegas July 24-29 - 
digital self defense, top technical experts, no vendor pitches, 
unmatched networking opportunities. Visit www.blackhat.com