ispman/lib/ISPMan ApacheMan.pm,1.51,1.52

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

Modified Files:
	ApacheMan.pm 
Log Message:
fixed bug: vhosts with vhostIpAddress="ip:port" had wrong A-record generated


Index: ApacheMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/ApacheMan.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- ApacheMan.pm	14 Feb 2004 19:39:06 -0000	1.51
+++ ApacheMan.pm	15 Feb 2004 21:24:42 -0000	1.52
@@ -263,6 +263,7 @@
    my $ispmanVhostName=$r->param("ispmanVhostName");
    $ispmanVhostName=lc($ispmanVhostName);
    $ispmanVhostName=~s/[^a-zA-Z0-9\.-]//g;
+   my ($vhostIp,$vhostPort)=split ":", $r->param("ispmanVhostIpAddress");
    $r->param("ispmanVhostName", $ispmanVhostName);
    my $domain=$r->param("ispmanDomain");
    my $domain_info=$self->getDomainInfo($domain);
@@ -352,7 +353,7 @@
 	   # only single webhost is defined
 	   # (ispmanVhostIpAddress overrides webhost ip)
 	   my $ip=(($r->param("ispmanVhostIpAddress") eq "*") ? 
-		   $self->getHostIp(@$webhosts[0]) : $r->param("ispmanVhostIpAddress"));
+		   $self->getHostIp(@$webhosts[0]) : $vhostIp);
 	   $self->addVhostDNSRecord($r->param("ispmanDomain"),
 				    $r->param("ispmanVhostName"),
 				    $ip);



-------------------------------------------------------
SF.Net is sponsored by: Speed Start Your Linux Apps Now.
Build and deploy apps & Web services for Linux with
a free DVD software kit from IBM. Click Now!
http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click