#!/usr/bin/perl -w # Copyright 2001-2005 Six Apart. This code cannot be redistributed without # permission from www.movabletype.org. # # $Id: mt.cgi 10197 2005-03-09 00:27:57Z ezra $ use strict; my($MT_DIR); BEGIN { if ($0 =~ m!(.*[/\\])!) { $MT_DIR = $1; } else { $MT_DIR = './'; } unshift @INC, $MT_DIR . 'lib'; unshift @INC, $MT_DIR . 'extlib'; } eval { require MT::App::CMS; my $app = MT::App::CMS->new( Config => $MT_DIR . 'mt.cfg', Directory => $MT_DIR ) or die MT::App::CMS->errstr; local $SIG{__WARN__} = sub { $app->trace($_[0]) }; $app->run; }; if ($@) { print "Content-Type: text/html\n\n"; print "Got an error: $@"; }