coolniikou

$ vi /var/www/html/mt52b/mt/mt.run
$ chmod 700 /var/www/html/mt52b/mt/mt.run
#!/bin/sh

CURDIR=`dirname $0`
cd $CURDIR
/usr/local/bin/starman \
-l 127.0.0.1:18520 \
--pid /var/www/html/mt52b/mt/pids/mt.pid \
/var/www/html/mt52b/mt/mt.psgi

coolniikou

[Unit]
Description=Movable Type
After=syslog.target
After=network.target
After=mysqld.service


[Service]
User=movabletype
Group=movabletype

coolniikou

#!/usr/bin/perl

# Author:   Kyo Nagashima <kyo@hail2u.net>, http://hail2u.net/
# License:  MIT license (http://opensource.org/licenses/mit-license.php)
# Modified: 2009-11-14T12:24:54+09:00
# Updated: xaicron (http://blog.livedoor.jp/xaicron/)

use strict;
use warnings;

coolniikou

<script src="js/jquery_1.6.4.min.js" type="text/javascript"></script>
<script src="js/jquery.cookie.js" type="text/javascript"></script>
function detect_device() {
	var user_agent = [
		'iPhone',
		'iPad',
		'iPod',
		'Android'
	];

coolniikou

#!/usr/bin/perl
use strict;
use warnings;
use Config::Pit;
use Getopt::Long;
use File::Slurp::Unicode qw(slurp);
use Text::Hatena;
use HTML::Entities;
use Data::Dumper;

coolniikou

package AccessRankingGA::Plugin;
use strict;
use base qw(MT::Plugin);
use MT;
use MT::Util qw( start_end_day epoch2ts format_ts trim );
use XML::Simple;
use JSON;
use Encode;
use File::Basename qw( basename );
use Data::Dumper;

coolniikou

var uri = document.getElementsByTagName('html')[0].innerHTML.match(/(http\:\/\/cdn\d.dl.pornhost.com.*?)\",/);var decode = RegExp.$1.replace(/%2F/g,"/").replace(/%3D/g,"=").replace(/%3F/g,"?").replace(/%26/g,"&");location.href=decode;

coolniikou

#!/usr/bin/perl
# this script is an implementation of http://textt.net/mapi/20101018201937

use strict;
use warnings;

use LWP::Simple;

my ($ustream_url, $file, $stop) = @ARGV;

coolniikou

*markdown-cheat-sheet.jax*	Markdown カンニングペーパー

    作者:       Kyo Nagashima <kyo@hail2u.net>
    バージョン: 0.04
    説明:       Markdown 記法のカンニングペーパーです。

1. 記法の例		|markdown-cheat-sheet-examples|
   1.1 段落		   |markdown-cheat-sheet-paragraph|
   1.2 改行		   |markdown-cheat-sheet-linebreak|
   1.3 テキストの強調	   |markdown-cheat-sheet-emphasis|

coolniikou

#!/usr/env/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw( fatalsToBrowser );
use DBI;

my $q = CGI->new;
my $database = 'gmappoint.db';
my $data_source = qq{dbi:SQLite:dbname=$database};