view release on metacpan or  search on metacpan

bin/fdbget  view on Meta::CPAN

sub main {
    my $filestore = new DBIx::FileStore();
    my $localname = "";

    # fdbget: copies a file (or files) from the db
    GetOptions("localname=s" => \$localname ) || die Usage();
    $|++;

    die "fdbget: pass files to copy from DB\n" unless @ARGV;
    die "fdbget: can't use --local option with multiple files\n" if (@ARGV > 1 && $localname);

    for my $filename (@ARGV) {
        $filestore->read_from_db($localname || $filename, $filename); 
    }
}

__END__     

=pod
            

bin/fdbput  view on Meta::CPAN

    "  NOTE: currently will place dup files into the filestore!\n";
}

sub main {
    my $localname = "";
    GetOptions( "verbose!" => \$verbose,
                "localname=s" => \$localname ) || die Usage();
    my $filestore = new DBIx::FileStore();

    die "fdbput: pass files to copy into DB\n" unless @ARGV;
    die "fdbput: can't use --local option with multiple files\n" if (@ARGV > 1 && $localname);

    for my $filename (@ARGV) {
        print "fdbput: writing to filestore: $filename\n" if $verbose;
        my $file_to_read = $localname || $filename;
        unless(-e $file_to_read) {
            warn "fdbput: file doesn't exist on fs: $file_to_read\n" && next;
        } 
        eval { $filestore->write_to_db($file_to_read, $filename); }; 
        # read it from $localname if set, otherwise look in the same name they call it