#!/usr/bin/env perl
use warnings;
use strict;
use Getopt::Long;
use DBI;
use DBIx::FileStore;
# fdbmv: renames files in FileDB
main();
sub Usage {
"fdbmv [--verbose] from to: renames files stored in filedb\n";
}
sub main {
my $verbose = 0;
GetOptions(
"verbose" => \$verbose,
) || die Usage();
my $filestore = new DBIx::FileStore();
die ("fdbmv: pass from and to fdbnames\n" . Usage()) unless @ARGV == 2;
print "fdbmv: renaming $ARGV[0] to $ARGV[1]\n" if $verbose;
$filestore->rename_file( $ARGV[0], $ARGV[1] );
}
=pod
=head1 NAME
fdbmv - Rename files in DBIx::FileStore
=head1 SYNOPSIS
% fdbmv a.txt b.txt
renames a.txt to b.txt in the filestore
% fdbmv -v a.txt b.txt
renames a.txt to b.txt in the filestore, showing the rows
being renamed in the database.
See options below for more details.
=head1 DESCRIPTION
renames files in DBIx::Filestore
=head1 OPTIONS
=head2 --verbose or -v
Show rows that are being renamed.
=head1 AUTHOR
Josh Rabinowitz <joshr>
=head1 SEE ALSO
L<DBIx::FileStore>, L<fdbcat>, L<fdbls>, L<fdbput>, L<fdbrm>, L<fdbstat>, L<fdbtidy>
=cut