Akira Sawada aklaswad

Peatix Inc.
Meguro, Japan, Universe
11:15 (UTC +09:00)
http://blog.aklaswad.com/

Recently created

Least recently created

Recently updated

Least recently updated

aklaswad / gist:863706

Created March 10, 2011 07:33

	tell application "System Events"
	try
	tell process "LimeChat"
	tell window 1
	set position to {-900, 150}
	set size to {900, 610}
	end tell
	end tell
	end try
	try

aklaswad / gist:844870

Created February 26, 2011 02:28

search with meta column

	#!/usr/bin/perl
	use strict;
	use warnings;
	use lib qw( lib extlib );
	use MT;
	MT->new;
	use Data::ObjectDriver;
	$Data::ObjectDriver::DEBUG = 1;

	MT->model('blog')->load(

aklaswad / gist:807368

Created February 2, 2011 07:30

Sample Response of list query

	{
	"error" : null,
	"result" : {
	"messages" : [],
	"count" : "158",
	"page" : "1",
	"page_max" : 4,
	"columns" : "id,title,author_name,category_id,authored_on,modified_on,comment_count,ping_count",
	"id" : "_allpass"
	"filters" : [

aklaswad / gist:666207

Created November 7, 2010 16:04

registry-test.t

	#!/usr/bin/perl
	# intro for MT::Component::registry()
	use strict;
	use warnings;
	use lib qw( lib extlib ../lib ../extlib);
	use utf8;
	use MT;
	use MT::Component;
	use Test::More;

aklaswad / gist:665949

Created November 7, 2010 03:46

	#!/usr/bin/perl
	# MT registry cookbook

	use strict;
	use warnings;
	use lib qw( lib extlib ../lib ../extlib);
	use utf8;
	use MT;
	use MT::Component;
	use Test::More;

aklaswad / gist:665236

Created November 6, 2010 06:29

	#!/usr/bin/perl
	# Sample for using MT registry
	use strict;
	use warnings;
	use lib qw( lib extlib );
	use MT;
	use MT::Component;
	use Data::Dumper;
	my $c1 = MT::Component->new;
	$c1->registry({

aklaswad / gist:576237

Created September 12, 2010 16:53

	### Movable Type content viewer
	use Plack::Builder;
	use lib qw( lib extlib );
	use Encode;
	use MT;
	use MT::FileMgr::Local;
	use MT::WeblogPublisher;
	my $mt = MT->new;
	my $pub = MT::WeblogPublisher->new;
	my $ContentTypes = {

aklaswad / gist:491673

Created July 27, 2010 03:25

	#!/usr/bin/perl
	## In sort method, generated sub routine can't access to the lexical variables
	## of outer scope...

	use strict;
	use warnings;

	sub my_sort ($$) {
	my ( $a, $b ) = @_;
	my $foo = 1;

aklaswad / gist:370790

Created April 19, 2010 06:10

	#!/usr/bin/perl

	package Sudoku;
	use strict;
	use warnings;

	sub new {
	my $pkg = shift;
	my $self = bless {}, $pkg;
	$self->load_puzzle(@_) if @_;

aklaswad / gist:269265

Created January 5, 2010 09:14

<mt:setvar name="mttags" value="mt:CommenterName":"mt:CommentBody":"mtApp:PageActions":"mt:IfNonEmpty":"mt:IncludeBlock":"mt:ArchiveList":"mt:AssetScoreAvg":"mt:CommentPreviewEmail":"mt:FolderHeader":"mt:PageNext":"mt:RemoteSignOutLink":"mt:IfCommentParent":"mt:HTTPContentType":"mt:PageAuthorLink":"mt:BlogLanguage":"mt:NotifyScript":"mt:SetVarBlock":"mt:WebsiteID":"mt:CommenterUserpicAsset":"mt:ArchivePrevious":"mt:EntryAuthorDisplayName":"mt:ArchiveTypeLabel":"mt:CommentScript":"mt:EntryCommentCount":"mt:SubCatIsFirst":"mt:AssetIfTagged":"mt:IfCommentsAccepted":"mt:PreviousLink":"mt:EntryKeywords":"mt:CommentPreviewBody":"mt:SetHashVar":"mt:EntryAdditionalCategories":"mt:AssetDescription":"mt:BlogParentWebsite":"mt:Authors":"mt:PageAuthorURL":"mt:BlogIfCommentsOpen":"mt:CGIPath":"mt:SubFolderRecurse":"mt:IfTypeKeyToken":"mt:AtomScript":"mt:SearchMaxResults":"mt:IfPingsAccepted":"mt:IfCurrentPage":"mt:IfMoreResults":"mt:NextLink":"mt:BlogCategoryCount":"mt:Folders":"mt:CategoryArchiveLink":"mt:PagePermalink":

Newer Older