package mycgi

sub ChangeCRLF
my ($s, $target) = @_;
return $s;

sub AddComma3
my $s = @_;
return $s;

sub round
my ($num, $decimals) = @_;

sub ceil
my ($num, $decimals) = @_;

sub CheckURI
my $uri = @_;
return 1 if $uri =~ /^$pattern$/o;
return 0;

sub CheckHTTPURL
my $http = @_;
return 1if $http =~ /^$pattern$/;
return 0;

sub CheckFTPURL
my $ftp = @_;
return 1if $ftp =~ /^$ftp_URL_regex$/;
return 0;

sub CheckEMailAddress
my $email = @_;
return 1 if $email =~ /^$mailbox$/o;
return 0;

sub CheckEMailAddrSpec
my $email = @_;
return 1 if($email =~ /^$mail_regex$/o);
return 0;

sub crypt
my ($str) = @_;
return $ostr;

sub IsAllowedIPAddress
my ($IPAddress, @allowed) = @_;
return 1 if($IPAddress =~ /$exp/i);
return 0;

sub PrintHTMLHeader
	my($CharSet) = (

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

sub EndHTML

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

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

sub GetIPAddress
	my($ip) = (
return $ip;

sub IsJapanese
	my($str) = (
return 1;
return 0;

sub MySQLQuote
	my($str,$mysqlcharcode) = (
return $str;

sub RegExpQuote
	my($str) = (
return $str;

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

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

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

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

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

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

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

sub Base64DecodeSub

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

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

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

sub ConvertDirectorySeparator
my ($path, $src, $target, $DoTerminate) = (@_);
return $_[0];
return $_[0];

sub MakePath
my ($dir, $fname, $separator, $DoTerminate) = (@_);
return $dir;

sub ReduceDirectory
my ($dir) = (@_);
return $_[0] = $dir;

sub CreateDirecotry
my ($dir, $dirsep) = @_;
return;

sub MakeRelativePath
my ($SourceURL, $ParentURL, $Separator) = (@_);
return $RelPath;

sub CopyFile
my ($infile, $outfile) = (@_);
return -1;
return -2;

sub DelSpace
my ($s) = @_;
return $_[0] = $s;

sub DelQuote
my ($s) = @_;
return $_[0];

sub PrintWithReplaced
my $narg = @_;
my @a = @_;

sub PrintStringWithReplaced
my $narg = @_;
my @a = @_;

sub ConvertString
my $narg = @_;
my @a = @_;
return $_[0] = $str;

sub IsValidPassword
my ($password) = (@_);
return 1;
return 0;

sub IsValidEMailAddress
my ($email) = (@_);
return 1;
return 0;

sub BuildDateString
my ($time) = (@_);
return $str;

sub GetFileSize
return $size;

sub GetWriteDate
return $mtime;

sub OpenDB
my ($DBServer, $DBUser, $DBPassword, $DBName) = @_;
return 0;
return 0;
return ($db,$sth);

sub CloseDB
my ($db, $sth) = @_;

sub DBExecute
my ($db, $sth, $command) = @_;
return ($sth,$ret);

sub getCookie

sub setCookie
return($tmp);

sub clearCookie
return($tmp);

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 ReadFile
my $fname = @_;
return -1;
return $str;

sub ReadFixedColumnFile
my $fname = @_;
return -1;
return $str;

sub PrintWithTab1
my @list = @_;

sub PrintWithTab1
my @list = @_;

sub SplitToFixedStrs
my $s = @_;
return @list;

sub ExtractByParentheses
my $str = @_;
return $ret;

sub CheckCreditCardNumber
	$_ = shift 
	map { $x += $_ } 

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

sub GetOSName

sub PrintConfig

sub InvalidateHTMLTags
my ($input) = @_;
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;
return;