OONO Yoshitaka CLCL

## mojo_helper_commify.pl
helper commify => sub {
  my ($self, $string) = @_;
  1 while $string =~ s/^(-?\d+)(\d{3})/$1,$2/;
  $string;
};

## Shift_JIS_grep.sh
LANG=C grep -r -e `echo 'ﾋﾟｰﾁ'|iconv -tcp932`./

## pi.pl
#!/usr/bin/perl

# ストレージの利用率とかに使える単純円グラフのCSS Spliteを生成します。
# 出来上がりはごちら http://labo.dtpwiki.jp/pi/pi.png

use strict;
use warnings;
use File::Spec;
use FindBin;
use Image::Magick;

## modalScreen.js
/* jQueryで、ウェブブラウザの画面全体をグレーに覆う
  モーダルスクリーンを表示します。
  var s = new ModalScreen; // オブジェクト作成
  s.show(); // モーダルスクリーンに切り替え
  s.hide(); // モーダルからモードレスに戻す
*/
var ModalScreen = function() {
  this.div = $("<div>").css({
    position  : "absolute",
    background: "rgba(64, 64, 64, 0.9)",

## CentOS6-L2TP-IPsec.md

      
              1 file
            
          
              9 forks
            
          
              0 comments
            
          
              37 stars
            
          
                CLCL
                / CentOS6-L2TP-IPsec.md
            
            
              Last active
              September 26, 2022 18:21
            
              
                L2TP/IPsec（AndroidやiPhoneからのVPN接続）を経路を用意すべくVPSにL2TP/IPsecサーバを設置するとき、ネットにある情報だとなかなかつながらないから、標準環境としてAWSのCentOS 6.3 x86_64 Release Media(ami-3fe8603e)の起動直後から最短距離で設定する方法をまとめた。
              
          
    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

  
## adobeMMdel.pl
#!/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';

## centos6_mod_geoip.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              3 stars
            
          
                CLCL
                / centos6_mod_geoip.md
            
            
              Last active
              September 8, 2016 22:34
            
              
                CentOS 6で稼働しているdtpwiki.jpのWikiサイトに外国からのスパム書き込みが激しいので、GeoIPというIPアドレスから国を判別するApacheモジュールをインストールして、対応した。なお、mod_security使うと書き込み内容でBANすることができるのですが、あれけっこう設定がパラノイアなので、導入時にしっかりテストをする必要があるかな。
              
          
    CentOS 6のApacheで外国のspamロボットのアクセスを制限する

すべて root で作業しています。
GeoIPとmod_geoipのインストール

GeoIP関連パッケージはEPELにありますので、あらかじめEPELの設定をしたうえで、
# yum --enablerepo=epel install GeoIP mod_geoip

  
## ip2geo.pl
#!/usr/bin/perl

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

use strict;
use warnings;

my $dic = {
};

## limit_outgoing_packets(iptables).md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                CLCL
                / limit_outgoing_packets(iptables).md
            
            
              Last active
              December 31, 2015 17:09
            
              
                iptablesで150kbps/sの帯域制御（トラフィックシェーピング）回線をエミュレート
              
          
    サーバ側で外行きのパケットに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がじわじわ表示される昔のインターネット体験ができるのだけれども、そこで「昔のインターネットはみんなこうだったんだ」とか言ってしまうとおっさん認定されるので要注意だ。

  
## bom_check.sh
#!/bin/bash

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

CMDNAME=`basename $0`
	helper commify => sub {
	my ($self, $string) = @_;
	1 while $string =~ s/^(-?\d+)(\d{3})/$1,$2/;
	$string;
	};
	#!/usr/bin/perl

	# ストレージの利用率とかに使える単純円グラフのCSS Spliteを生成します。
	# 出来上がりはごちら http://labo.dtpwiki.jp/pi/pi.png

	use strict;
	use warnings;
	use File::Spec;
	use FindBin;
	use Image::Magick;
	/* jQueryで、ウェブブラウザの画面全体をグレーに覆う
	モーダルスクリーンを表示します。
	var s = new ModalScreen; // オブジェクト作成
	s.show(); // モーダルスクリーンに切り替え
	s.hide(); // モーダルからモードレスに戻す
	*/
	var ModalScreen = function() {
	this.div = $("<div>").css({
	position : "absolute",
	background: "rgba(64, 64, 64, 0.9)",
	#!/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';
	#!/usr/bin/perl

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

	use strict;
	use warnings;

	my $dic = {
	};
	#!/bin/bash

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

	CMDNAME=`basename $0`