package HTML
@ISA = qw()

sub GetUploadFileContent
my ($App, $pUploadFile, $pAllowTypes, $pAllowExtensions) = @_;
return;
return undef;
return undef;
return $content;

sub DownloadFile
my ($App, $path, $filename) = @_;
return;
return 1;

sub ShowURL
my ($URL, $Second, $Target, $CharSet) = @_;
return 1;

sub GetIPAddress
return $ENV{'REMOTE_ADDR'};

sub QPEncode
my ($string) = (@_);
return $string;

sub QPDecode
my ($string) = (@_);
return $string;

sub URLEncode
my ($s) = (@_);
return $s;

sub URLDecode
my ($s2) = (@_);
return $s2;

sub Base64DecodeSub
    local ($_) = 

sub Base64Decode2
my ($str) = (@_);
return $str;

sub Base64Decode
return decode_base64($_[0]);

sub Base64Encode
return encode_base64($_[0]);

sub PrintHTMLHeader
	my($CharSet) = (

sub InitHTML
	my($WebTitle, $CharSet, $LinkTarget, $CSS) = (

sub EndHTML

sub RecoverHTMLChar
my ($s, $charset) = @_;
return $s;

sub ConvertHTMLSpecialCharacters
my ($s, $ConvMiddot) = @_;
return $_[0];

sub ConvertHTMLSpecialCharactersMinimum
my ($s, $ConvMiddot) = @_;
return $_[0];

sub ConvertToHTMLString
my ($s) = @_;
return $s;

sub GetHTMLParagraph
my ($str) = (@_);
return ($line, $paragraph, $content);

sub DequoteXML
my ($str,$DoDecode) = (@_);
return $_[0] = $str;

sub getCookie

sub setCookie
return($tmp);

sub clearCookie
return($tmp);

sub MyGetCookie

sub ConvertHTMLToFullURL
my ($Content, $SourceURL, $Debug) = (@_);
return $_[0] = $ConvContent;

sub ConvertURLtoFullURL
my ($linkurl, $url) = (@_);
return $linkurl if($linkurl =~ /:\/\//i);
return $convurl;

sub GetURLwithoutFilePath
my ($url) = @_;
return 1 if($url =~ /$CGIFiles/i or $url =~ /[\?\&]/);
return $ret;
return $ret;

sub DownloadFromURL
my ($url) = @_;
return -1;
return $Content;

sub ExtractHTMLBody
my ($Content) = @_;
return $1;

sub ReplaceHTMLBodyOnly
my ($str, $source, $target) = @_;
return $str;

sub InvalidateHTMLTags
my ($input, $DoUpdate) = @_;
return $input;

sub GetSafeURL
my $url = @_;
return '' if($url =~ m|[^;
return '' if(not $allowed);
return $url;

sub CheckSecureFileName
my $fname = @_;
return 0 if($fname =~ <\.\./>);
return 0 if($fname =~ /\0/);
return 1;