package MyArchive
@ISA = qw()

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

sub DESTROY
my $this = shift;

sub MakePasswordedZIP
my ($this, $OutputPath, $BaseDir, $pInputPaths, $passwd, $option, $App) = @_;
return undef if(@$pInputPaths == 0);
return undef;
return undef;
return undef;
return undef;
return undef if($ret != 0);
return $OutputPath;

sub BurstZIP
my ($this, $InputPath, $BaseDir, $option, $App) = @_;
return undef;
return undef;
return undef;
return undef if($ret != 0);
return @lines;
return \@lines;

sub MakeZIP
my ($this, $OutputPath, $BaseDir, $pFiles) = @_;
return (undef, "Archive file [$OutputPath] could not been saved.");
return ($OutputPath, $ret, "") if(-f $OutputPath);
return (undef, 1, "Archive file [$OutputPath] could not been created");

sub MakePDF
my ($this, $OutputPath, $pFiles, $pdftkpath) = @_;
return (undef, 2, "Can not open [$cmd]");
return (undef, 2, "Can not open [$cmd]");
return ($OutputPath, 0, "", $str) if(-f $OutputPath);
return (undef, 1, "Archive file [$OutputPath] could not been created", $str);