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 );

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

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

alfasado

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

alfasado

tags:
    function:
        GetEpoc: sub{return time}

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

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

alfasado

name: ImportCheck
id:   ImportCheck
version: 0.1
config_settings:
    EntryPathCustomFieldBasename:
        default: orig_entry_path
    PagePathCustomFieldBasename:
        default: orig_page_path
callbacks:
    cms_post_import.entry: >

alfasado

package MAUS::Callbacks;
use strict;

sub _data_api_pre_save_entry {
    my ( $cb, $app, $obj, $original ) = @_;
    my $entry = $app->param( 'entry' );
    $entry = MT::DataAPI::Format::JSON::unserialize( $entry );
    if ( $entry->{ 'convert_breaks' } ) {
        $obj->convert_breaks( lc( $entry->{ 'convert_breaks' } ) );
    }

alfasado

id: MAUS
name: MAUS
key: maus
description: <__trans phrase="Set text format to Markdown(Post by MAUS).">
version: 0.1
author_name: Alfasado Inc.
author_link: http://alfasado.net/
l10n_class: MAUS::L10N
callbacks:
    data_api_pre_save.entry: $maus::MAUS::Callbacks::_data_api_pre_save_entry