mogdelete

#!/usr/bin/perl

=head1 NAME

mogdelete -- Delete keys from a MogileFS installation

=head1 SYNOPSIS

    $ mogdelete --trackers=host --domain=foo --key="/hello.jpg"

=head1 OPTIONS

=over

=item --trackers=host1:7001,host2:7001

Use these MogileFS trackers to negotiate with.

=item --domain=<domain>

Set the MogileFS domain to use.

=item --key="<key>"

A key to delete. Can be an arbitrary string.

=back

=head1 AUTHOR

Dormando E<lt>L<dormando@rydia.net>E<gt>

=head1 BUGS

Produces a slightly weird error if key does not exist.

=head1 LICENSE

Licensed for use and redistribution under the same terms as Perl itself.

=cut

use strict;
use warnings;

use lib './lib';
use MogileFS::Utils;

my $util = MogileFS::Utils->new;
my $usage = "--trackers=host --domain=foo --key='/hello.jpg'";
my $c = $util->getopts($usage, 'key=s');

my $mogc = $util->client;

$mogc->delete($c->{key});
if ($mogc->errcode) {
    print STDERR "Error deleting file: ", $mogc->errstr, "\n";
}