Masaki Nakagawa masaki

## gist:1539896
cpanm -Llocal --scandeps --save-dists=dpan --installdeps .

## gist:1500022
#!/bin/sh

IKACHAN=http://example.com/ikachan

RESULT=`curl ${BUILD_URL}api/xml | perl -le '$_=<>;/<result>(.+?)</;printf "\x02\x0301,%02d%s\x0f",{A=>8,S=>3,F=>4}->{substr $1,0,1},$1'`
curl -F channel=\#jenkins -F message="Jenkins ($JOB_NAME): $RESULT - $BUILD_URL" $IKACHAN

## mqh_install.sh
#!/bin/sh

if [ `which perl` = "/usr/bin/perl" ]; then
    echo -n -e "\e[1;31mUSING SYSTEM PERL OK? [y/n]\e[m: "
    read ANSWER
    if [ "$ANSWER" != "y" ]; then
        exit 255
    fi
    PERL_CPANM_OPT="$PERL_CPANM_OPT --sudo"
fi

## dbi_sample.rb
require 'rubygems'
require 'dbi'
require 'pp'

dbh = DBI.connect('dbi:mysql:database=test;host=localhost', 'test', 'test')
pp dbh.select_one('SELECT VERSION()')

sth = dbh.prepare('SELECT * FROM mysql_casual WHERE name = ?')
sth.execute('ikasam_a')
while row = sth.fetch_hash do

## Makefile.PL
use inc::Module::Install;
use Module::Install::AuthorTests;
use Module::Install::Repository;
use Module::Install::ReadmePodFromPod;

name '[% dist %]';
license 'perl';
all_from 'lib/[% module_unix_path %].pm';

# requires '';

## .proverc.ci
-Ilib -It/lib
-MTest::Name::FromLine
--timer --verbose
--nocolor
--formatter=TAP::Formatter::JUnit
--recurse

## Descriptive.pm
package Test::More::Descriptive;

use strict;
use warnings;
use Exporter 'import';
use Test::More ();

BEGIN {
    *describe = *context = *it = \&Test::More::subtest;
}

## vmclone.sh
#!/bin/sh
# usage: vmclone.sh SOURCE TARGET

SOURCE_NAME=$1
TARGET_NAME=$2

VMSTORE=/vmfs/volumes/datastore1
VMID=`vim-cmd vmsvc/getallvms | awk '/'"$SOURCE_NAME"'/ {print $1;}'`

SOURCE_DIR=$VMSTORE/$SOURCE_NAME

## gist:1238005
# SEE: http://d.hatena.ne.jp/shim0mura/20110730/1312046133
# SEE: https://gist.github.com/1031961
# SEE: http://atrpms.net/documentation/install/

# 1. prepare
$ cat /etc/yum.repos.d/atrpms.repo
[atrpms-stable]
name=ATrpms RHEL5 stable
baseurl=http://dl.atrpms.net/el5-$basearch/atrpms/stable/
gpgkey=http://ATrpms.net/RPM-GPG-KEY.atrpms

## gist:1176646
$ sudo yum install freetype freetype-devel libpng libpng-devel # for PIL
$ sudo yum install python-setuptools fonts-japanese
$ sudo easy_install PIL funcparserlib
$ sudo easy_install http://pypi.python.org/packages/source/w/webcolors/webcolors-1.3.1.tar.gz
$ sudo easy_install blockdiag nwdiag actdiag seqdiag
	#!/bin/sh

	IKACHAN=http://example.com/ikachan

	RESULT=`curl ${BUILD_URL}api/xml \| perl -le '$_=<>;/<result>(.+?)</;printf "\x02\x0301,%02d%s\x0f",{A=>8,S=>3,F=>4}->{substr $1,0,1},$1'`
	curl -F channel=\#jenkins -F message="Jenkins ($JOB_NAME): $RESULT - $BUILD_URL" $IKACHAN
	#!/bin/sh

	if [ `which perl` = "/usr/bin/perl" ]; then
	echo -n -e "\e[1;31mUSING SYSTEM PERL OK? [y/n]\e[m: "
	read ANSWER
	if [ "$ANSWER" != "y" ]; then
	exit 255
	fi
	PERL_CPANM_OPT="$PERL_CPANM_OPT --sudo"
	fi
	require 'rubygems'
	require 'dbi'
	require 'pp'

	dbh = DBI.connect('dbi:mysql:database=test;host=localhost', 'test', 'test')
	pp dbh.select_one('SELECT VERSION()')

	sth = dbh.prepare('SELECT * FROM mysql_casual WHERE name = ?')
	sth.execute('ikasam_a')
	while row = sth.fetch_hash do
	use inc::Module::Install;
	use Module::Install::AuthorTests;
	use Module::Install::Repository;
	use Module::Install::ReadmePodFromPod;

	name '[% dist %]';
	license 'perl';
	all_from 'lib/[% module_unix_path %].pm';

	# requires '';
	-Ilib -It/lib
	-MTest::Name::FromLine
	--timer --verbose
	--nocolor
	--formatter=TAP::Formatter::JUnit
	--recurse
	package Test::More::Descriptive;

	use strict;
	use warnings;
	use Exporter 'import';
	use Test::More ();

	BEGIN {
	describe = context = *it = \&Test::More::subtest;
	}
	#!/bin/sh
	# usage: vmclone.sh SOURCE TARGET

	SOURCE_NAME=$1
	TARGET_NAME=$2

	VMSTORE=/vmfs/volumes/datastore1
	VMID=`vim-cmd vmsvc/getallvms \| awk '/'"$SOURCE_NAME"'/ {print $1;}'`

	SOURCE_DIR=$VMSTORE/$SOURCE_NAME
	# SEE: http://d.hatena.ne.jp/shim0mura/20110730/1312046133
	# SEE: https://gist.github.com/1031961
	# SEE: http://atrpms.net/documentation/install/

	# 1. prepare
	$ cat /etc/yum.repos.d/atrpms.repo
	[atrpms-stable]
	name=ATrpms RHEL5 stable
	baseurl=http://dl.atrpms.net/el5-$basearch/atrpms/stable/
	gpgkey=http://ATrpms.net/RPM-GPG-KEY.atrpms
	$ sudo yum install freetype freetype-devel libpng libpng-devel # for PIL
	$ sudo yum install python-setuptools fonts-japanese
	$ sudo easy_install PIL funcparserlib
	$ sudo easy_install http://pypi.python.org/packages/source/w/webcolors/webcolors-1.3.1.tar.gz
	$ sudo easy_install blockdiag nwdiag actdiag seqdiag