#!/usr/bin/perl -w
use strict;
$| = 1;

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

use MT;

my $num = shift or die "usage $0: num";

my $mt = MT->new( Config => $MT_DIR . 'mt.cfg', Directory => $MT_DIR )
    or die MT->errstr;

$mt->rebuild(
    BlogID => 1,
    Limit => $num,
    EntryCallback => sub { -t && print $_[0]->title, "\n" },
) or die $mt->errstr;

exit;