masaki

#!/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

masaki

#!/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

masaki

cpanm -Llocal --scandeps --save-dists=dpan --installdeps .

masaki

#!/bin/sh

if [ -f perlbrew/perl ]; then
  perlbrew use `cat perlbrew/perl`
fi

if [ -f carton.lock ]; then
  if [ -d local/cache ]; then
    carton install --cached --deployment
  else

masaki

#!/usr/bin/env perl

use strict;
use warnings;
use Plack::Request;
use HTTP::Status qw(:constants status_message);
use JSON qw(from_json);
use LWP::UserAgent;

sub to_psgi_res {

masaki

#!/usr/bin/env perl

use strict;
use warnings;
use String::CamelCase qw(decamelize);
use Getopt::Long;
use List::MoreUtils qw(uniq);

GetOptions('a|app=s', \my $app);

masaki

#!/usr/bin/env ruby

require 'rubygems'
require 'capybara'
require 'capybara/dsl'

Capybara.run_server = false
Capybara.default_driver = :selenium

include Capybara::DSL

masaki

RC_FILE=$HOME/.bashrc

echo "insecure" >> $HOME/.curlrc

ruby -e "$(curl -fksSL https://raw.github.com/mxcl/homebrew/master/Library/Contributions/install_homebrew.rb)"
curl -fksSL install.perlbrew.pl | bash
curl -fksSL get.rvm.io | bash -s stable

echo "source $HOME/perl5/perlbrew/etc/bashrc"           >> $RC_FILE
echo "source $HOME/.rvm/scripts/rvm"                    >> $RC_FILE

masaki

mkdir -p demoCA/newcerts
touch demoCA/index.txt
echo "01" >> demoCA/serial
openssl req -new -x509 -keyout cakey.pem -out cacert.pem -days 36000
openssl rsa -in cakey.pem -out cakey.pem
openssl req -new -keyout server-key.pem -out server-req.pem -days 36000
openssl rsa -in server-key.pem -out server-key.pem   
openssl ca -policy policy_anything -in server-req.pem -cert cacert.pem -keyfile cakey.pem -out server-cert.pem -days 36000

masaki

$ cpanm Net::SSLeay IO::Socket::SSL Test::SharedFork Test::TCP
Net::SSLeay is up to date. (1.48)
IO::Socket::SSL is up to date. (1.76)
Test::SharedFork is up to date. (0.20)
Test::TCP is up to date. (1.16)