[IPCop-cvs] CVS: ipcop/config/cfgroot header.pl,1.7.2.43,1.7.2.44

[Mark W. <ri...@us...>]

Update of /cvsroot/ipcop/ipcop/config/cfgroot
In directory sc8-pr-cvs1:/tmp/cvs-serv28492/config/cfgroot

Modified Files:
      Tag: IPCOP_v1
	header.pl 
Log Message:
Misc fixes

Index: header.pl
===================================================================
RCS file: /cvsroot/ipcop/ipcop/config/cfgroot/header.pl,v
retrieving revision 1.7.2.43
retrieving revision 1.7.2.44
diff -C2 -d -r1.7.2.43 -r1.7.2.44
*** header.pl	24 Apr 2003 07:45:08 -0000	1.7.2.43
--- header.pl	24 May 2003 11:37:12 -0000	1.7.2.44
***************
*** 757,758 ****
--- 757,770 ----
  	}
  }
+ 
+ sub cleanhtml
+ {
+ 	my $outstring =$_[0];
+ 	$outstring =~ tr/,/ /;
+ 	$outstring =~ tr/\'/'/;
+ 	$outstring =~ tr/\"/"/;
+ 	$outstring =~ tr/</&lt;/;
+ 	$outstring =~ tr/>/&gt;/;
+ 	$outstring =~ tr/&/&amp;/;
+ 	return $outstring;
+ }