ispman/lib/ISPMan DomainMan.pm,1.72,1.73

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

Modified Files:
	DomainMan.pm 
Log Message:
fixes some more warnings about "uninitialized value"

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- DomainMan.pm	20 Jun 2004 14:24:24 -0000	1.72
+++ DomainMan.pm	20 Jun 2004 19:04:42 -0000	1.73
@@ -238,19 +238,22 @@
     $self->addDomain($r);
 
     # create default a-record for mail
-    $self->log_event(
-        "createArecordForMail=" . $r->param("createArecordForMail") . "\n" );
     if (   $r->param("createArecordForMail")
-        && $r->param("ispmanDomainDefaultMailDropHost") )
+        && $r->param("ispmanDomainDefaultMailDropHost") ) 
     {
+        $self->log_event(
+                         "createArecordForMail=" . $r->param("createArecordForMail") . "\n" );
+
         $self->newDNSRecord( $r->param("ispmanDomain"),
             "aRecord", "mail",
             $self->getHostIp( $r->param("ispmanDomainDefaultMailDropHost") ) );
     }
 
     # create default vhost for domain
-    $self->log_event( "createVhost=" . $r->param("createVhost") . "\n" );
-    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',



-------------------------------------------------------
This SF.Net email is sponsored by The 2004 JavaOne(SM) Conference
Learn from the experts at JavaOne(SM), Sun's Worldwide Java Developer
Conference, June 28 - July 1 at the Moscone Center in San Francisco, CA
REGISTER AND SAVE! http://java.sun.com/javaone/sf Priority Code NWMGYKND