oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a problem with the new tar methods.

Browse source
This commit is contained in:
JT Smith 2003-04-14 01:23:53 +00:00
parent 5680379cc4
commit ae49c3f95d
1 changed files with 42 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

48
lib/WebGUI/Node.pm
View file

@ -39,6 +39,7 @@ Package to manipulate WebGUI storage nodes. The nodes system is a two-tiered fil
$node->getPath; $node->getPath;
$node->getURL; $node->getURL;
$node->tar($filename); $node->tar($filename);
$node->untar($filename);
=head1 METHODS =head1 METHODS
@ -172,13 +173,13 @@ sub new {
=head2 tar ( filename [ , node1, node2 ] ) =head2 tar ( filename [ , node1, node2 ] )
Archives this node into a tar file. Archives this node into a tar file and then compresses it with a zlib algorithm.
=over =over
=item filename =item filename
The name of the tar file to be created. Should ideally end with ".tar". The name of the tar file to be created. Should ideally end with ".tar.gz".
=item node1 =item node1
@ -194,16 +195,51 @@ If you need a second level node to store the file, then specify it here.
sub tar { sub tar {
my $self = $_[0]; my $self = $_[0];
my $filename = $_[1] || $self->{_node1}."_".$self->{_node2}.".tar"; my $filename = $_[1] || $self->{_node1}."_".$self->{_node2}.".tar.gz";
my $node1 = $_[2] || "temp"; my $node1 = $_[2] || "temp";
my $node2 = $_[3]; my $node2 = $_[3];
chdir $self->getPath; chdir $self->getPath;
my $tar = Archive::Tar->new;
$tar->add_files($_[0]->getFiles);
my $temp = WebGUI::Node->new($node1,$node2); my $temp = WebGUI::Node->new($node1,$node2);
$tar->write($temp->getPath.$session{os}{slash}.$filename); $temp->create;
Archive::Tar->create_archive($temp->getPath.$session{os}{slash}.$filename,1,$_[0]->getFiles);
} }
#-------------------------------------------------------------------
=head2 untar ( filename [ , node1, node2 ] )
Unarchives a file into this node.
=over
=item filename
The name of the tar file to be untarred.
=item node1
The node where the tar file exists. Defaults to "temp".
=item node2
If the file exists in a sub-node, then specifiy it here.
=back
=cut
sub untar {
my $self = $_[0];
$self->create;
my $filename = $_[1];
my $node1 = $_[2] || "temp";
my $node2 = $_[3];
chdir $self->getPath;
my $temp = WebGUI::Node->new($node1,$node2);
Archive::Tar->extract_archive($temp->getPath.$session{os}{slash}.$filename,1);
}
1; 1;