Skip to content

Instantly share code, notes, and snippets.

View usualoma's full-sized avatar
🏠
Working from home

Taku Amano usualoma

🏠
Working from home
View GitHub Profile
name: P-M-Auth-Basic
version: 1.00
plack_middlewares:
- name: Auth::Basic
options:
- key: authenticator
handler: |
sub {
my($username, $password, $env) = @_;
import sys,re
print(re.sub('1(.)|0.?|(\d)',lambda m:m.group(1)or m.group(2)and '.一二三四五六七八九'[int(m.group(2))],'%s千%s百%s十%s'%tuple('%04d'%int(sys.argv[1]))))
$><<('%d千%d百%d十%d'%('%04d'%$*).chars).gsub(/1(.)|0.?|(\d)/){$2?'.一二三四五六七八九'[eval$2]:$1}
puts ('%d千%d百%d十%d'%('%04d'%$*).split('')).gsub(/1(.)|0.?|(\d)/){$1or$2&&'.一二三四五六七八九'[$2.to_i]}
puts ('%d千%d百%d十%d'%('%04d'%$*).split('')).gsub(/1(.)|0.?|(\d)/){$1||'一二三四五六七八九'[$2?$2.to_i-1:'']}
package MT::Plguin::StackTrace;
# Some code delivered from Plack::Middleware::StackTrace
use warnings;
use strict;
our $StackTraceClass = "Devel::StackTrace";
# Optional since it needs PadWalker
@usualoma
usualoma / movabletype.service
Created August 22, 2012 04:48
movable type config file for systemd
[Unit]
Description=Movable Type
After=syslog.target
After=network.target
After=mysqld.service
[Service]
User=movabletype
Group=movabletype
@usualoma
usualoma / movabletype.conf
Created August 22, 2012 04:44
movable type config file for upstart
description "Movable Type"
start on runlevel [2345] or mysql
stop on runlevel [!2345]
respawn
respawn limit 2 5
env PLACK_ENV=deployment
env MT_HOME=/home/movabletype/public_html/movabletype
require 'spec_helper'
require_relative '../../app'
describe :index do
before(:all) do
@app = Sinatra::Application.new!
end
let(:template_name) { example.full_description.sub(/ .*/, '').to_sym }
let(:vars) { {} }
package tainavi;
import java.util.ArrayList;
import java.util.regex.Matcher;
import java.util.regex.Pattern;
public class PlugIn_RecRD_BR610 extends PlugIn_RecRD_BZ700 implements HDDRecorder {
// 種族の特性
@Override