@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb012 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
v-mt
/
tools
/
Path :
Upload File :
New :
File
Dir
/homepage/v-mt/tools/remove-object
#!/usr/bin/perl -w use strict; use lib 'lib'; 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;