alfasado

name: GetListFiles
id:   GetListFiles
version: 0.1
applications:
    cms:
        methods:
            get_listfiles:  >
                sub {
                    my $app = shift;
                    if (! $app->user->is_superuser ) {

alfasado

name: Garbage Cleaner
id:   GarbageCleaner
version: 0.1
callbacks:
    MT::FileInfo::post_remove: >
        sub {
                my ( $cb, $obj ) = @_;
                my $path = $obj->file_path;
                require MT::FileMgr;
                my $fmgr = MT::FileMgr->new( 'Local' )

alfasado

tags:
    function:
        GetEpoc: sub{return time}

alfasado

<?php
class RewriteArchiver extends MTPlugin {
    var $registry = array(
        'config_settings' => array(
            'RewriteArchiverRewriteTo' => array( 'default' => '/archiver.html' ),
        ),
        'callbacks' => array(
            'post_init' => 'rewrite_archiver',
        ),
    );

alfasado

<?php
class HttpHttpsTransfer extends MTPlugin {
    var $registry = array(
        'config_settings' => array(
            'HttpHttpsTransferPathBegin' => array( 'default' => '/entry_form/' ),
        ),
        'callbacks' => array(
            'post_init' => 'post_init',
        ),
    );

alfasado

#!/usr/bin/perl
package MT::Tool::RebuildFile;
use strict;
use warnings;
use File::Spec;
use FindBin;
use lib map File::Spec->catdir( $FindBin::Bin, File::Spec->updir, $_ ), qw/lib extlib/;
use base qw( MT::Tool );
use MT::Util qw( log_time );
sub usage { '--file /path/to/file or  or --template_id n' }

alfasado

#!/usr/bin/perl
package MT::Tool::SpeedRebuild;
use strict;
use warnings;
use File::Spec;
use FindBin;
use lib map File::Spec->catdir( $FindBin::Bin, File::Spec->updir, $_ ), qw/lib extlib/;
use base qw( MT::Tool );
use MT::FileMgr;
use MT::Util qw( log_time );