package Common2
@ISA = qw()

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

sub DESTROY
my $this = shift;

sub ModuleName
my ($this) = @_;
return $this->{ModuleName} if($this->{ModuleName});
return ref($this);

sub ReadKeyedArgs
my ($this, @args)= @_;

sub GetApplication
return shift->{'Application'};

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

sub App
return shift->{'Application'};

sub SetApplication
sub SetApplication { my ($this,$app)=
return $this->{'Application'} = $app;

sub GetDocument
return shift->App()->Doc();

sub Document
return shift->App()->Doc();

sub Doc
return shift->App()->Doc();

sub GetIniFile
return shift->App()->Ini();

sub IniFile
return shift->App()->Ini();

sub Ini
return shift->App()->Ini();

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

sub CGIForm
return shift->App()->CGIForm();

sub FilePath
return shift->App()->Doc()->FilePath();

sub SetFilePath
sub SetFilePath    { my ($this,$p)=
return $this->Doc()->SetFilePath($p);

sub WorkDir
return shift->App()->{'WorkDir'};

sub SetWorkDir
sub SetWorkDir     { my ($this,$path)=
return $this->App()->SetWorkDir($path);

sub Debug
my ($this) = @_;
return $this->App()->{Debug} if($this->App());
return $this->{Debug};

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

sub DoConfirm
return shift->App()->DoConfirm();

sub PrintLevel
return shift->App()->PrintLevel();

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

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

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

sub stdio
return shift->App()->stdio();

sub printf
my ($this, @args) =@_;
return $this->App()->printf(@args) if($this->App());
return printf(@args);

sub print
my ($this, @args) =@_;
return $this->App()->print(@args) if($this->App());
return print(@args);

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

sub set
sub set         { my ($this,$key,$val)   =
return shift->App()->set($key,$val);

sub get
sub get         { my ($this,$key,$defval)=
return shift->App()->get($key,$defval);

sub GetGetArg
sub GetGetArg   { my ($this,$key,$val)   =
return shift->App()->GetGetArg($key,$val);

sub ReadSetting
return shift->App()->ReadSetting();

sub SaveSetting
return shift->App()->SaveSetting();

sub LF
return shift->App()->LF();

sub DirectorySeparator
return shift->App()->DirectorySeparator();

sub OS
return shift->App()->OS();

sub AppName
return shift->App()->AppName();

sub Program
return shift->App()->Program();

sub GetProgram
return shift->App()->Program();

sub SetProgram
sub SetProgram  { my($this,$p)=
return $this->App()->SetProgram($p);

sub ProgramPath
return shift->App()->ProgramPath();

sub SetProgramPath
sub SetProgramPath { my ($this,$p) = 
return $this->App()->SetProgramPath($p);

sub Version
return shift->App()->Version();

sub SetVersion
sub SetVersion  { my ($this,$v) = 
return $this->App()->SetVersion($v);

sub AppTitle
return shift->App()->Title();

sub GetTitle
return shift->App()->Title();

sub Title
return shift->App()->Title();

sub SetTitle
my ($this, $title) = @_;
return $this->title($this->Title()) unless($title);
return $this->title($this->App()->SetTitle($title));

sub OSCharCode
return shift->App()->OSCharCode();

sub FileSystemCharCode
return shift->App()->FileSystemCharCode();

sub FileCharCode
return shift->App()->FileCharCode();

sub PerlCharCode
return shift->App()->PerlCharCode();

sub SQLCharCode
return shift->App()->SQLCharCoderCode();

sub WebCharCode
return shift->App()->WebCharCode();

sub WebCharSet
return shift->App()->WebCharSet();

sub DBMName
return shift->App()->{DBMName};

sub SQLServer
return shift->App()->{DBServer};

sub SQLUser
return shift->App()->{DBUser};

sub SQLPassword
return shift->App()->{DBPassword};

sub DBName
return shift->App()->{DBName};

sub TableName
return shift->App()->{TableName};