ispman/ispman-web/cgi-bin/tmpl/vhosts add.tmpl,1.18,1.19 edit_header.tmpl,1.8,1.9

Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24249/ispman-web/cgi-bin/tmpl/vhosts

Modified Files:
	add.tmpl edit_header.tmpl 
Log Message:
multi-port vhost patch
(use "vhost:port" for multiple vhost with same name but different ports)
fixes [ 987800 ] Port 80 is written to DNS zone


Index: add.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts/add.tmpl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- add.tmpl	1 May 2004 18:21:39 -0000	1.18
+++ add.tmpl	9 Jul 2004 22:19:13 -0000	1.19
@@ -44,9 +44,11 @@
 <perl>
    $substmap={	
        vhost => $r->param("ispmanVhostName"),
-       domain => $r->param("ispmanDomain")};
+       domain => $r->param("ispmanDomain")
+       };
+   ($vhost,$port) = split ":", $r->param("ispmanVhostName");
 
-   "Adding vhost: ".$r->param("ispmanVhostName").".".$r->param("ispmanDomain")
+   "Adding vhost: ".$vhost.".".$r->param("ispmanDomain").($port?":$port":"");
 </perl>
 <hr>
 

Index: edit_header.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts/edit_header.tmpl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- edit_header.tmpl	6 Jun 2004 16:22:47 -0000	1.8
+++ edit_header.tmpl	9 Jul 2004 22:19:13 -0000	1.9
@@ -13,7 +13,8 @@
 //-->
 </script>
 
-Editing vhost: <perl>join '.', ($ispman->{'vhost'}->{'ispmanVhostName'}, $ispman->{'vhost'}->{'ispmanDomain'})</perl>
+<perl>($vhost,$port)=split ":", $ispman->{'vhost'}->{'ispmanVhostName'}; ""</perl>
+Editing vhost: <perl>$vhost.".".$ispman->{'vhost'}->{'ispmanDomain'}.($port?":$port":"")</perl>
 (<b><perl>($ispman->{'vhost'}{'ispmanStatus'} eq "suspended")?"<font color=red>suspended</font>": "<font color=green>active</font>"</perl></b>)
 
 <br>



-------------------------------------------------------
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