File: remove-object

package info (click to toggle)
movabletype-opensource 5.1.4%2Bdfsg-4%2Bdeb7u3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 32,996 kB
  • sloc: perl: 197,285; php: 62,405; sh: 166; xml: 117; makefile: 83; sql: 32
file content (16 lines) | stat: -rwxr-xr-x 382 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w
use strict;
use lib '/usr/share/movabletype/extlib';

use MT;
my $mt = MT->new or die MT->errstr;

my($class, $id) = @ARGV;
die "usage: $0 <object-class> <object-id>"
    unless $class && $id;
eval "use $class;";
die "Error loading '$class': $@" if $@;

my $obj = $class->load($id) or
    die "Load of object with ID $id failed: " . $class->errstr;
$obj->remove;