File: remove-object

package info (click to toggle)
movabletype-opensource 4.2.3-1%2Blenny3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 21,268 kB
  • ctags: 15,862
  • sloc: perl: 178,892; php: 26,178; sh: 161; makefile: 82
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;