#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use DBIx::FileStore;

main();

sub Usage {
    "fdbslurp: slurp file into filestore. NOT IMPLEMENTED!\n" .
    "  Example:         fdbslurp /fdb/dest < filename\n" .
    "  is the same as:  fdbput --local filename /fdb/dest\n";
}

sub main {
    $|++;
    # fdbslurp: slurps file(s) from stdin into the DB
    
    #GetOptions() || die Usage();
    #
    my $filestore = new DBIx::FileStore();

    die Usage();    # NOTE: NOT IMPLEMENTED

    # CODE HERE
}

=pod
            
=head1 NAME     
            
fdbslurp - Slurp from stdin into the DBIx::FileStore filestore. Not implemented.
                    
=head1 SYNOPSIS     
                
% fdbslurp filename.txt < SOMEFILE.txt

or

% echo "HI THERE" | fdbslurp filename.txt

Note that this script is not implemented yet.

=head1 DESCRIPTION 

Slurp from stdin into the L<DBIx::FileStore> filestore. Not implemented.

=head1 AUTHOR

Josh Rabinowitz <joshr>
    
=head1 SEE ALSO
    
L<DBIx::FileStore>, L<fdbcat>,  L<fdbget>, L<fdbls>, L<fdbmv>,  L<fdbput>,  
L<fdbrm>,  L<fdbstat>
    
=cut