mogdelete

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5 mogdelete -- Delete keys from a MogileFS installation
   6
   7 =head1 SYNOPSIS
   8
   9     $ mogdelete --trackers=host --domain=foo --key="/hello.jpg"
  10
  11 =head1 OPTIONS
  12
  13 =over
  14
  15 =item --trackers=host1:7001,host2:7001
  16
  17 Use these MogileFS trackers to negotiate with.
  18
  19 =item --domain=<domain>
  20
  21 Set the MogileFS domain to use.
  22
  23 =item --key="<key>"
  24
  25 A key to delete. Can be an arbitrary string.
  26
  27 =back
  28
  29 =head1 AUTHOR
  30
  31 Dormando E<lt>L<dormando@rydia.net>E<gt>
  32
  33 =head1 BUGS
  34
  35 Produces a slightly weird error if key does not exist.
  36
  37 =head1 LICENSE
  38
  39 Licensed for use and redistribution under the same terms as Perl itself.
  40
  41 =cut
  42
  43 use strict;
  44 use warnings;
  45
  46 use lib './lib';
  47 use MogileFS::Utils;
  48
  49 my $util = MogileFS::Utils->new;
  50 my $usage = "--trackers=host --domain=foo --key='/hello.jpg'";
  51 my $c = $util->getopts($usage, 'key=s');
  52
  53 my $mogc = $util->client;
  54
  55 $mogc->delete($c->{key});
  56 if ($mogc->errcode) {
  57     die "Error deleting file: ", $mogc->errstr, "\n";
  58 }