root/trunk/tools/write-default-templates

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

use lib 'lib';
use MT;
use MT::Util qw( encode_html dirify );

my $mt = MT->new
    or die MT->errstr;

my $tmpl = do 'lib/MT/default-templates.pl';
print "<ul>\n";
for my $t (@$tmpl) {
    next if $t->{name} eq 'Stylesheet';
    printf qq(<li><a href="#%s">%s</a></li>\n), dirify($t->{name}), $t->{name};
}
print "</ul>\n\n";

print "\n<form>\n\n";
for my $t (@$tmpl) {
    next if $t->{name} eq 'Stylesheet';
    $t->{text} = $mt->translate_templatized($t->{text});
    printf <<HTML, dirify($t->{name}), $t->{name}, encode_html($t->{text});
<div class="template">
<a name="%s"><h4>%s</h4></a>
<textarea cols="60" name="text" rows="20" wrap="virtual">
%s
</textarea>
</div>
HTML
}

print "\n</form>\n";