← Back to branch summary

~ubuntu-branches/debian/squeeze/movabletype-opensource/squeeze

« back to all changes in this revision

Viewing changes to extras/examples/plugins/mirror/lib/Mirror.pm

  • Committer: Bazaar Package Importer
  • Author(s): Dominic Hargreaves
  • Date: 2008-06-13 23:28:40 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20080613232840-ya4jfxv1jgl45a3d
Tags: 4.2~rc2-1
* New upstream release candidate
* Update Standards-Version (no changes)
* Ensure that schema upgrade message is always seen

Show diffs side-by-side

added added

removed removed

Lines of Context:
extras/examples/plugins/mirror/lib/Mirror.pm
1
 
# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
2
 
# This program is distributed under the terms of the
3
 
# GNU General Public License, version 2.
4
 
#
5
 
# $Id: Mirror.pm 1174 2008-01-08 21:02:50Z bchoate $
6
 
 
7
 
package Mirror;
8
 
 
9
 
use strict;
10
 
 
11
 
use MT::App;
12
 
@Mirror::ISA = qw(MT::App);
13
 
 
14
 
sub init {
15
 
    my $app = shift;
16
 
    $app->SUPER::init(@_) or return;
17
 
 
18
 
    $app->add_methods( show_config => \&show_config );
19
 
    $app->{default_mode} = 'show_config';
20
 
    $app->{requires_login} = 1;
21
 
 
22
 
    $app;
23
 
}
24
 
 
25
 
sub show_config {
26
 
    my $app = shift;
27
 
    $app->build_page('mirror.tmpl', {var => 'Zaphod'});
28
 
}
29
 
 
30
 
1;
31