# Copyright 2001-2005 Six Apart.# SCRiPTMAFiA 2005 - THE DiRTY HANDS ON YOUR SCRiPTS## $Id: Trackback.pm 10197 2005-03-09 00:27:57Z ezra $package MT::Trackback;use strict;use MT::Object;@MT::Trackback::ISA = qw( MT::Object );__PACKAGE__->install_properties({    columns => [        'id', 'blog_id', 'title', 'description', 'rss_file', 'url',        'entry_id', 'category_id', 'is_disabled', 'passphrase',    ],    indexes => {        blog_id => 1,        entry_id => 1,        category_id => 1,        created_on => 1,    },    audit => 1,    datasource => 'trackback',    primary_key => 'id',});sub remove {    my $tb = shift;    require MT::TBPing;    my @pings = MT::TBPing->load({ tb_id => $tb->id });    for my $ping (@pings) {        $ping->remove;    }    $tb->SUPER::remove;}1;