source: trunk/soft/ObsData/ObsData/Archive.pm @ 9

# $Id$

package ObsData::Archive;

use strict;
use warnings;
use File::Copy;
use File::Temp qw/ tempfile /;
use ObsData::Archive::Compressed;
use ObsData::Archive::Tar;

sub new {
    my ($class, $archive, %options) = @_;
    my $beclass;

    my $o;
    
    foreach (keys %options) {
        $o->{$_} = $options{$_};
    }
    $o->{archive} = $archive;
    
    for ($archive) {
        /\.tar(\.[^\.]*)?$/ and do {
            $beclass = 'Tar';
            last;
        };
        /\.(gz|bz2|Z)$/ and do {
            $beclass = 'Compressed';
            last;
        };
    }
    
    if ($beclass) {
        my $obj;
        # eval("require $class\:\:$beclass;");
        eval("\$obj = $class\:\:$beclass->new(\$o);");
        return $obj;
    } else {
        bless($o, $class);
    }
}

sub DESTROY {
    my ($self) = @_;
}

sub ls {
    my ($self) = @_;
    my ($file) = $self->{archive} =~ m!^(?:.*/)?(.*)!;
    return $file;
}

sub extract {
    my ($self, $file, $dest) = @_;
    # the devel should specify the file he want
    # as the basic contains only 1 file... this does not matter

    my ($fh, $fname);
    
    if ($dest) {
        $fname = $dest;
        open($fh, '>', $dest) or return undef;
    } else {
        ($fh, $fname) = tempfile(
            DIR => $self->_tempdir,
            UNLINK => 1,
        ) or return undef;
    }
    
    if(!copy($self->{archive}, $fh)) {
        unlink($fname);
        return undef;
    }
    
    close($fh);
    $fname
}

### Private method

sub _tempdir {
    my ($self) = @_;
    $self->{tmpdir} || $ENV{TMPDIR}
}

1;

__END__

=HEAD1 Method

=item new

Create a new archive object

=item ls

list the content of the archive

=item extract

Extract a file from the archive and return the filename of extract file