package MyApplication2
@ISA = qw()

sub BEGIN

sub AUTOLOAD
my $this = shift;

sub PermitDebugPrint
return $PermitDebugPrint;

sub GetApplication
sub GetApplication { return 
return shift;

sub Application
sub Application    { return 
return shift;

sub App
sub App            { return 
return shift;

sub SetAppName
sub SetAppName     { my ($this,$p) = 
return $this->{'AppName'} = $p;

sub GetDocument
return shift->{'Document'};

sub Document
return shift->GetDocument();

sub Doc
return shift->GetDocument();

sub GetIniFile
return shift->{'IniFile'};
return shift->IniFile();

sub Ini
return shift->IniFile();

sub Args
return shift->{'Args'};

sub CGIForm
return shift->{'CGIForm'};

sub MainWindow
return shift->{'MainWindow'};

sub mw
return shift->{'MainWindow'};

sub Usage
return shift->Args()->Usage();

sub WorkDir
return shift->{'WorkDir'};

sub Debug
return shift->{'Debug'};

sub SetDebug
my ($this, $f) = @_;
return $this->{Debug} = 1;
return $this->{Debug}++;
return $this->{Debug}--;

sub DoConfirm
return shift->{DoConfirm};

sub PrintLevel
return shift->{PrintLevel};

sub stdio
return shift->{stdio};

sub set
my ($this, $key, $val) = @_;
return $this->{$key} = $val;

sub get
my ($this, $key, $defval) = @_;
return $this->{$key} if(defined $this->{$key});
return $defval;

sub DeleteHTMLFlag
return shift->{DeleteHTMLFlag};

sub SetDeleteHTMLFlag
sub SetDeleteHTMLFlag  { my ($this,$f)=
return shift->{DeleteHTMLFlag} = $f;

sub RegLF
return shift->{RegLF};

sub LF
return shift->{LF};

sub SetLF
my ($this, $LF) = @_;
return $LF;

sub Space
return shift->{'Space'};

sub SetSpace
my ($this, $Space) = @_;
return $Space;

sub DirectorySeparator
return shift->{'DirectorySeparator'};

sub OS
return shift->{'OS'};

sub AppName
return shift->{'AppName'};

sub Program
my ($this) = @_;
return $this->{Program};

sub SetProgram
sub SetProgram       { my ($this,$p) = 
return $this->{'Program'}     = $p;

sub ProgramPath
return shift->{'ProgramPath'};

sub SetProgramPath
sub SetProgramPath   { my ($this,$p) = 
return $this->{'ProgramPath'} = $p;

sub Version
return shift->{'Version'};

sub SetVersion
sub SetVersion       { my ($this,$p) = 
return $this->{'Version'} = $p;

sub AppTitle
return shift->{'Title'};

sub GetTitle
return shift->{'Title'};

sub Title
return shift->{'Title'};

sub SetTitle
sub SetTitle         { my ($this,$p) = 
return $this->{'Title'}   = $p;

sub PrintCharCode
return shift->{'PrintCharCode'};

sub SetPrintCharCode
my ($this, $c, $SourceCharCode) = @_;
return -1;
return $c;

sub SetSourceCharCode
my ($this, $SourceCharCode) = @_;

sub SourceCharCode
return shift->{SourceCharCode};

sub OSCharCode
return shift->{'OSCharCode'};

sub SetOSCharCode
sub SetOSCharCode         { my($this,$c)=
return $this->{'OSCharCode'}=$c;

sub ProgramCharCode
return shift->{'ProgramCharCode'};

sub SetProgramCharCode
sub SetProgramCharCode    { my($this,$c)=
return $this->{'ProrgramCharCode'}=$c;

sub PerlCharCode
return shift->{'PerlCharCode'};

sub SetPerlCharCode
sub SetPerlCharCode       { my($this,$c)=
return $this->{'PerlCharCode'}=$c;

sub FileSystemCharCode
return shift->{'FileSystemCharCode'};

sub SetFileSystemCharCode
sub SetFileSystemCharCode { my($this,$c)=
return $this->{'FileSystemCharCode'}=$c;

sub FileCharCode
return shift->{'FileCharCode'};

sub SetFileCharCode
sub SetFileCharCode       { my($this,$c)=
return $this->{'FileCharCode'}=$c;

sub SQLCharCode
return shift->{'SQLCharCoderCode'};

sub SetSQLCharCode
sub SetSQLCharCode        { my($this,$c)=
return $this->{'SQLCharCode'}=$c;

sub WebCharCode
return shift->{'WebCharCode'};

sub SetWebCharCode
my ($this, $c) = @_;
return $this->{'WebCharCode'};

sub WebCharSet
my ($App) = @_;
return $App->{'WebCharSet'};

sub SetWebCharSet
my ($this, $c) = @_;
return $this->{'WebCharSet'} = $c;

sub GetWebCharSetByCharCode
my ($WebCharCode) = @_;
return "iso-2022-jp" if($WebCharCode =~ /^jis$/i);
return "euc-jp"      if($WebCharCode =~ /^euc$/i);
return "iso-8859-1"  if($WebCharCode =~ /^en$/i);
return "x-$WebCharCode";

sub GetWebCharSet
my ($Language, $WebCharCode) = @_;
return "iso-8859-1"  if($Language =~ /English/i);
return "iso-2022-jp" if($WebCharCode =~ /^jis$/i);
return "euc-jp"      if($WebCharCode =~ /^euc$/i);
return "iso-8859-1"  if($WebCharCode =~ /^en$/i);
return "x-$WebCharCode";

sub BEGIN

sub new
my ($module, @args) = @_;
return $this;

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub Initialize
my ($this) = @_;
return -1;
return 1;

sub MainLoop
my ($this) = @_;

sub Title
return shift->{Title};

sub SetTitle
sub SetTitle { my($App,$t)=
return $App->{Title}=$t;

sub StartTime
return shift->{'StartTime'};

sub StartDate
return shift->{'StartDate'};

sub RemoteIPAddress
return shift->{'RemoteIPAddress'};

sub SetCGIForm
sub SetCGIForm { my ($this,$form)=
return $this->{'CGIForm'} = $form;

sub AddArgument
my ($this, $arg, $explanation, $defval) = @_;

sub GetFileNameArray
my ($this) = @_;
return @$files;

sub GetArgFileName
my ($this, $idx) = @_;
return $files->[$idx];

sub GetGetArg
my ($this, $key, $defvalue, $StopFlag) = @_;
return undef unless(defined $key);
return $str if(defined $str);
return $str if(defined $str);
return $str if(defined $str);
return $defvalue;

sub GetArgHash
my ($this) = @_;
return $this->Args()->GetArgHash();

sub ReadArgs
my ($this, $StopFlag, $CheckAllowedArgs, $WebCharCode) = @_;
return undef if(!$ret);
return %Arg;

sub AddIniFileVariable
my ($this, $KeyTree, $VarName, $DefVal) = @_;
return unless($VarName);
return unless($section);

sub ReadSetting
my ($this) = @_;
return;
return;
return;
return unless($pHash);
return 1;

sub SaveSetting
my ($this) = @_;
return unless($IniFile);
return unless($pHash);
return 1;

sub OpenIniFile
my ($this, $ProgramPath, $CreateIniFile) = @_;
return $ret;

sub ConnectDocument
my ($this, $doc) = @_;

sub SpeculateProgramPath
my ($this, $path, $BaseDir) = @_;
return $this->SetProgramPath($ProgramPath);

sub SetWorkDir
my ($this, $path) = @_;
return $this->{'WorkDir'} = $path if(-d $path);
return $this->{'WorkDir'} = Deps::MakePath($drive, $directory);

sub SetOutputMode
my ($this, $mode) = @_;
return $this->{OutputMode} = $mode;

sub OutputMode
return shift->{OutputMode};

sub InitPrint
sub InitPrint { my($this,@a)=
return $this->InitHTML(@a);

sub InitHTML
my ($this, $s, $WebCharSet, $CSS) = @_;

sub EndPrint
return shift->EndHTML();

sub EndHTML
my ($this, $s, $WebCharSet) = @_;

sub H1
my ($this, $s) = @_;

sub H2
my ($this, $s) = @_;

sub H3
my ($this, $s) = @_;

sub H4
my ($this, $s) = @_;

sub H5
my ($this, $s) = @_;

sub H6
my ($this, $s) = @_;

sub P
my ($this, $s) = @_;

sub BR
my ($this, $s) = @_;

sub HR
my ($this) = @_;

sub CheckBlankString
my ($this, $s, $message) = @_;
return 1 if(defined $s and $s ne '');
return 0;

sub PrintRawHTML
my ($this, $s) = @_;

sub PrintWithHTMLTag
my ($this, $tag, $s) = @_;
my ($this, @args) = @_;
return $this->print2(0, @args);

sub print
my ($this, @args) = @_;
return $this->print2(1, @args);
return $this->print2(0, @args);

sub print2
my ($this, $ConvertHTML, @args) = @_;
return $this->{'stdio'}->print(@args) if($this->{'stdio'});
return print(@args);

sub printf
my ($this, @args) = @_;
return $this->{'stdio'}->printf(@args) if($this->{'stdio'});
return printf(@args);

sub DebugPrint
my ($this, @args) = @_;
return if(!$PermitDebugPrint);
return $this->print(@args) if($this->{'Debug'});
return '';

sub ConfigureIniFileVariables
my ($this) = @_;
return 1;

sub SetLanguage
my ($App, $l) = @_;
return $App->{Language} if(!defined $l or $l eq '');
return $App->{Language} = $l;

sub Language
my ($App) = @_;
return $App->{Language};

sub LanguageCode
my ($App) = @_;
return 'Invalid Language' if(!defined $c or $c eq '');
return $c;

sub PrintWithReplaced
my ($App, $file, $target, @array) = @_;
return Utils::PrintWithReplaced($file, $target, @array);

sub PrintWithReplacedForHTML
my ($App, $file, $target, @array) = @_;
return Utils::PrintWithReplaced($file, $target, @array);

sub BuildDateString
my ($App, $d) = @_;
return Utils::BuildDateString($d, $App->Language());