source: gsdl/tags/start/gsdl/perllib/arcinfo.pm@ 18481

# This module stores information about the archives. At the moment
# this information just consists of the file name (relative to the
# directory the archives information file is in) and its OID.

# This module assumes there is a one to one correspondance between
# a file in the archives directory and an OID.


package arcinfo;

sub new {
    my ($class) = @_;
    my $self = {'info'=>{}};

    return bless $self, $class;
}

sub load_info {
    my $self = shift (@_);
    my ($filename) = @_;

    $self->{'info'} = {};

    if (-e $filename) {
    open (INFILE, $filename) || 
        die "arcinfo::load_info couldn't read $filename\n";

    my ($line, @line);
    while (defined ($line = <INFILE>)) {
        $line =~ s/\cM|\cJ//g; # remove end-of-line characters
        @line = split ("\t", $line); # filename, 
        if (scalar(@line) >= 2) {
        $self->add_info ($line[0], $line[1]);
        }
    }

    close (INFILE);
    }
}

sub save_info {
    my $self = shift (@_);
    my ($filename) = @_;

    my ($OID);

    open (OUTFILE, ">$filename") || 
    die "arcinfo::save_info couldn't write $filename\n";

    foreach $OID (keys(%{$self->{'info'}})) {
    my $info = $self->get_info($OID);
    if (defined $info) {
        print OUTFILE "$OID\t", join("\t", @$info), "\n";
    }
    }
    
    close (OUTFILE);
}

sub add_info {
    my $self = shift (@_);
    my ($OID, $doc_file) = @_;

    $self->{'info'}->{$OID} = [$doc_file];
}

# returns a list of the form [[OID, doc_file], ...]
sub get_OID_list {
    my $self = shift (@_);

    my ($OID);
    my @list = ();

    foreach $OID (sort(keys(%{$self->{'info'}}))) {
    push (@list, [$OID, $self->{'info'}->{$OID}->[0]]);
    }

    return \@list;
}

# returns a list of the form [[doc_file, OID], ...]
sub get_file_list {
    my $self = shift (@_);

    my ($OID);
    my @list = ();

    foreach $OID (sort(keys(%{$self->{'info'}}))) {
    push (@list, [$self->{'info'}->{$OID}->[0], $OID]);
    }

    return \@list;
}


# returns a list of the form [doc_file]
sub get_info {
    my $self = shift (@_);
    my ($OID) = @_;

    if (defined $self->{'info'}->{$OID}) {
    return $self->{'info'}->{$OID};
    }

    return undef;
}


1;