# Copyright 2004-2005 Six Apart.# SCRiPTMAFiA 2005 - THE DiRTY HANDS ON YOUR SCRiPTS## $Id: Mirror.pm 10734 2005-03-25 01:51:41Z bchoate $package Mirror;use strict;use MT::App;@Mirror::ISA = qw(MT::App);sub init {    my $app = shift;    $app->SUPER::init(@_) or return;    $app->add_methods( show_config => \&show_config );    $app->{default_mode} = 'show_config';    $app->{requires_login} = 1;    $app;}sub show_config {    my $app = shift;    $app->build_page('mirror.tmpl', {var => 'Zaphod'});}1;