[Ispman-cvs] CVS: ispman-utils/lib http.lib,1.21.2.1,1.21.2.2

[Atif G. <ma...@us...>]

Update of /cvsroot/ispman/ispman-utils/lib
In directory usw-pr-cvs1:/tmp/cvs-serv25367

Modified Files:
      Tag: REL_0_8
	http.lib 
Log Message:
Bug fix. #519643 

Index: http.lib
===================================================================
RCS file: /cvsroot/ispman/ispman-utils/lib/http.lib,v
retrieving revision 1.21.2.1
retrieving revision 1.21.2.2
diff -C2 -r1.21.2.1 -r1.21.2.2
*** http.lib	24 Feb 2002 16:37:11 -0000	1.21.2.1
--- http.lib	27 Feb 2002 12:33:07 -0000	1.21.2.2
***************
*** 28,32 ****
  sub add_vhost{
  	my ($vhost, $domain)=@_;
! 	my $vhostInfo=$ispman->getVhostInfo($vhost, $domain);
  	#print Dumper($vhostInfo);
          
--- 28,34 ----
  sub add_vhost{
  	my ($vhost, $domain)=@_;
! 	next unless $vhost and $domain;
!         
!         my $vhostInfo=$ispman->getVhostInfo($vhost, $domain);
  	#print Dumper($vhostInfo);
          
***************
*** 160,163 ****
--- 162,166 ----
     for my $domain (keys %$vhostHash){
        for my $vh (keys %{$vhostHash->{$domain}}){
+         next unless $vh=~ /\S/;
          print "ACL for $vh\.$domain is $vhostHash->{$domain}{$vh}{'acls'}\n";;