CVS: ispman/lib/ISPMan DomainMan.pm,1.48,1.49

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1:/tmp/cvs-serv22540

Modified Files:
	DomainMan.pm 
Log Message:
 remove all spaces from domain name. Apparently it is possible to add a domain with spaces. Why didnt aanyone catch this yet? 

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -r1.48 -r1.49
*** DomainMan.pm	4 Jun 2003 21:02:58 -0000	1.48
--- DomainMan.pm	4 Sep 2003 22:54:08 -0000	1.49
***************
*** 115,119 ****
     my $domaintype=lc($r->param("ispmanDomainType"));
     my $domain=lc($r->param("ispmanDomain"));
!    
     
     if ($self->{'session'}) {
--- 115,126 ----
     my $domaintype=lc($r->param("ispmanDomainType"));
     my $domain=lc($r->param("ispmanDomain"));
!    $domain=~s/\s//g; # remove all spaces
!    # reset $r->param("ispmanDomain")
!    $r->param("ispmanDomain", $domain);
!    # reset $r->param("domain") for backword compatibility.
!    $r->param("domain", $domain);
! 
! 
! 
     
     if ($self->{'session'}) {



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf