#!/usr/bin/perl -w
  
use strict;
use Carp;

local $| = 1;

my($MT_DIR);

BEGIN {
	if ($0 =~ m!(.*[/\\])!) {
		$MT_DIR = $1;
	} else {
		$MT_DIR = './';
	}
	unshift @INC, $MT_DIR . 'lib';
	unshift @INC, $MT_DIR . 'extlib';
	unshift @INC, $MT_DIR . 'plugins';
}

eval {
	require MT;
	my $app = MT->new( Config => $MT_DIR . 'mt.cfg', Directory => $MT_DIR )
or die MT->errstr;
	$app->init();
	local $SIG{__WARN__} = sub { $app->trace($_[0]) };

	print "Content-Type: text/html\n\n";

	# loop through each entry

	for my $entry(MT::Entry->load()){
		my $id = $entry->id;
		print "processing entry $id...";
		&MT::Plugin::Tags::pre_save_callback(undef, $entry);
		print "done!<br />\n";
	}

	print "all done!<br />\n<br />\n";
};
if ($@) {
    print "Content-Type: text/html\n\n";
    print "Got an error: $@";
}