Skip to content

Instantly share code, notes, and snippets.

Avatar

Alfasado Inc. alfasado

View GitHub Profile
View mt-plugin-get-list-files
name: GetListFiles
id: GetListFiles
version: 0.1
applications:
cms:
methods:
get_listfiles: >
sub {
my $app = shift;
if (! $app->user->is_superuser ) {
View mt-plugin-garbage-cleaner
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' )
View mt-plugin-get-epoc
tags:
function:
GetEpoc: sub{return time}
@alfasado
alfasado / mt-plugin-rewritearchiver.php
Last active Aug 29, 2015
mt/plugin/RewriteArchiver/php/config.php
View mt-plugin-rewritearchiver.php
<?php
class RewriteArchiver extends MTPlugin {
var $registry = array(
'config_settings' => array(
'RewriteArchiverRewriteTo' => array( 'default' => '/archiver.html' ),
),
'callbacks' => array(
'post_init' => 'rewrite_archiver',
),
);
@alfasado
alfasado / mt-plugin-http-https-transfer.php
Created Apr 2, 2014
mt/plugins/HttpHttpsTransfer/php/config.php
View mt-plugin-http-https-transfer.php
<?php
class HttpHttpsTransfer extends MTPlugin {
var $registry = array(
'config_settings' => array(
'HttpHttpsTransferPathBegin' => array( 'default' => '/entry_form/' ),
),
'callbacks' => array(
'post_init' => 'post_init',
),
);
@alfasado
alfasado / mt-tool-rebuild-file
Created Feb 18, 2016
Run MT::Worker::Publish specify the file path or template_id.
View mt-tool-rebuild-file
#!/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
alfasado / mt-tool-speed-rebuild
Last active Apr 4, 2016
Alternative script of MT::Worker::Publish.
View mt-tool-speed-rebuild
#!/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 );