CLCL

#!/usr/bin/env perl

# Raspberry Pi用Adafruit RGB-backlit LCD plateのPythonライブラリ
# https://github.com/adafruit/Adafruit-Raspberry-Pi-Python-Code/blob/e28539734dfbd6965395f0f0478ecad44ca0eaea/Adafruit_CharLCDPlate/Adafruit_CharLCDPlate.py
# から文字の表示とバックライトの変更の部分だけ最低限移植
# Perl用I2C/SMBusアクセスライブラリHiPiを使用
# http://raspberry.znix.com/p/install.html
#
# This is essentially a complete rewrite, but the calling syntax
# and constants are based on code from lrvick and LiquidCrystal.

CLCL

#!/usr/bin/env perl

# Raspberry Pi直結型 LED／ボタン／ブザーアドオンボード
# MS100A用Perlアクセスサンプル
# CPANのDevice::BCM2835 が必要で、それをインストールする
# には http://www.airspayce.com/mikem/bcm2835/ から
# bcm2835-1.xx.tar.gz をダウンロードしてビルドする必要が
# あるよ。これを実行するときはroot権限が必要だよ。
# Raspbian にplenv+cpanm+cartonでPerl 5.20.0入れた環境で
# テストしたよ。

CLCL

#/usr/env perl

# サイボウズガルーンのDBに潜って書き込みの時間帯の分布をみるよ。
# メンテナンス時間決めるときに書き込み少なさそうな時間を選んだりするのに使おう。

use strict;
use warnings;
use DBI;
use DateTime;
my $password = 'xxxxxxxx';

CLCL

/* JenkinsのCSS設定を変更 */

@import url('http://fonts.googleapis.com/css?family=Inconsolata');

/* フォントに Meiryoを使う */
body, table, form, input, td, th, p, textarea, select {
  font-family: Verdana, Meiryo, Helvetica, sans serif;
  /* JenkinsのCSSでp要素は 11px に指定されている */
}

CLCL

#!/bin/bash

##########################################################
#
# bom_check.sh : BOM付きファイルを検索してレポート
# findでbash依存の記述（$'\xef\xbb\xbf'）をしているので、bashでないと動かない
#
##########################################################

CMDNAME=`basename $0`

CLCL

サーバ側で外行きのパケットにiptablesでlimitつけてあげれば、細い回線のマネができる。 たとえばブラウザのプロキシをSquid:3128でつなげている場合、Squidがあるサーバで以下の通り。

iptables -I OUTPUT -p tcp -m tcp --sport 3128 -j REJECT
iptables -I OUTPUT -p tcp -m tcp --sport 3128 -m limit --limit 13/s --limit-burst 13 -j ACCEPT

OUTPUTチェーンに「-I」で挿入しているということはチェーンの頭に追加しているということなので、実質的には↑のコマンドで挿入されるルールは、OUTPUTチェーンのリスト内では順番が逆になっていることに注意。先にlimit付きの条件成立すればACCEPT（外に行ってよし）、成立しなければREJECTされる。

これで、13（通過できるパケット数/sec）×1500（MTU、単位はbyte）＝19500（bytes/sec）＝152.3kbps の回線がエミュレートできて、MVNO SIMであったり、JPEGがじわじわ表示される昔のインターネット体験ができるのだけれども、そこで「昔のインターネットはみんなこうだったんだ」とか言ってしまうとおっさん認定されるので要注意だ。

CLCL

#!/usr/bin/perl

# CentOS 6: yum --enablerepo=epel install geoip
# GeoIPのデータベース更新は自分で設置すること！

use strict;
use warnings;

my $dic = {
};

CLCL

CentOS 6のApacheで外国のspamロボットのアクセスを制限する

すべて root で作業しています。

GeoIPとmod_geoipのインストール

GeoIP関連パッケージはEPELにありますので、あらかじめEPELの設定をしたうえで、

# yum --enablerepo=epel install GeoIP mod_geoip

CLCL

#!/usr/bin/perl
 
use version; our $VERSION = qv('0.0.1');
use AnyEvent::Twitter::Stream;
use FindBin;
use File::Spec;
use Net::Twitter;
use utf8;
use YAML;
binmode STDOUT => ':utf8';

CLCL

CentOS 6でとにかくL2TP/IPsecサーバ

• AWSでEC2のインスタンスを借りる
• 今回は東京リージョンのCentOS 6.3 x86_64 Release MediaのAIM(ami-3fe8603e)でインスタンスを建てる
• Security Group: L2TP/IPsec（Inbound 22/TCP: SSH, 500/UDP: ISAKMP, 1701/UDP: L2TP, 4500/UDP: IPSec NAT Traversal）を許可
• ec2-54-249-173-214.ap-northeast-1.compute.amazonaws.com（グローバルIPアドレス：54.249.173.214）にrootでログイン

SELinuxを無効にする

[root@ip-10-132-164-105 ~]# setenforce 0