2年間ほど、データ通信用として使っていたWillcomのPHSの解約手続きを行った。 W-ZERO3 Ad[es]を使っていて、半年ほど前には子供の土日のお出かけ用として、 カード差し替えでnicoを中古買いしたりしたけど、やっぱり利用頻度が低いし、 データ通信も長時間使わなければ、au携帯+bluetooth でひとまず足りる。

色々と通信費を見直すとなると、最近 MacBook の利用頻度も高まり、これに合わせて au の携帯を解約して iPhone 3GS(softbank) に乗り換えるのもいいなぁ…と思ったり。 でも、W63CA機種変(2008/12月)からまだ１年だし早計か…

e-mobile の Pocket Wifi

データ通信と割り切るなら、e-mobile の Pocket Wifi(D25HW) にも魅かれる。 e-mobile 通信を利用し、Wi-Fi ルータ機能がついていて、6000円で 通信料金も(スーパーライトデータ)で 1400～5380円/月。 Wi-Fiルータだから、DSやPSPなども普通に繋がるらしい。

問題はサービスエリア。サービス開始当初の都心だけというのも解消され、2009年11月で、 あとほんのちょっとの距離まできている…

相変わらず自宅に届くSPAMが多い。 SPAMの多くは.procmailにて、フィルタリングをしており、spammassassinによる効果が大きい。 フィルタ除去をかいくぐったメールを見ると、 ディプロマミル系が多い。 んで、手作業で追記したルールで消しているメールもあるため、受信メールの全体像を知りたくって、 LOGを残すようにした。

数日間で188件ののうち、mail.go.ne.jp(8),docomo.ne.jp(7),excite.co.jp(6)が、 繰り返し送ってきているもの。その他 129件が初見ドメインからの迷惑メール。 届いたメールの88%が初見では、procmail の手作業で削除するように記述するのが、 アホみたいに思えてくる。

数日間の分析の結果

試しに、ドメインから geoiplookup を使って、所属する国を調べてみた。 ".com"からのSPAMが多いので、アメリカの57は実際の国の判断は、難しい。 しかし、SPAM落ちしているメールでロシア語が多かった思いがあるので、 ".com"に分類されている可能性が高いとしても、意外と少ないとの感想。

     57 GeoIP Country Edition: US, United States
13 GeoIP Country Edition: DE, Germany
12 GeoIP Country Edition: JP, Japan
        (まともなメールも含むので、しかたない)
7 GeoIP Country Edition: GB, United Kingdom
4 GeoIP Country Edition: FR, France
4 GeoIP Country Edition: CN, China
4 GeoIP Country Edition: CA, Canada
3 GeoIP Country Edition: IT, Italy
2 GeoIP Country Edition: SG, Singapore
2 GeoIP Country Edition: RU, Russian Federation
2 GeoIP Country Edition: IN, India
2 GeoIP Country Edition: CH, Switzerland

猫に学位

ついでにディプローマミルを調べたら、「猫に学位」という記事を発見。 猫好きの歪んだ先入観で見ると、コルビー君は頭がよさそうに見える…

出先での自宅サーバ内のデータ確認などの目的で、 ルータWZR-HP-G300NHのVPN(PPTP)の設定を行った。

しかしながら、職場より実験すると、VPNの接続にタイムアウトする。 よくよく調べてみると、ルータでVPNを走らせているから、 PPTPのパケット(port=1723)は、ルータが横取りしなくては いけないはずなのに、DMZの設定が優先され、DMZ内部のサーバに 届いている。ファームウェアのバグと思われ、質問などを行ったが、 検索したら、2chの書き込みにそれっぽい記述をみつける。

この結果、ちょっと不安ながらも、αバージョンのファームウェア 公開にて、対応が可能みたい。
http://code.zqwoo.jp/

ということで、ファームを更新して実験するが、 相変わらず、port=1723 がDMZ内部に届いている…. 意味ないじゃん…

ひとまず、バッファロー提供の質問サイトにて、上記ネタを掲載しておいた。 DMZを使わずにポート変換を使えば…との話もあるが、様々なサーバ系を試しているから、 ポート変換だとサービスの数だけ登録の必要があるので、非現実的なんだが…

スケジュールの管理は、最近は携帯やGoogle Calendarと同期できるようにしてあるので、便利なんだけど、チラホラと書き込んだはずのイベントが消えている。 よくよく考えていると、デスクトップとノートで同時にLightningを開いていて、 それぞれでスケジュールを追加する時に、書き込まれるタイミングによって 1つの.icsに別のタイミングで書き込まれることで、消えてしまうみたい。

時々、ファイルがロックされるのか、iCalがReadonly になるのも不便だけど、 無秩序に別々にLightningを起動するとこうなってしまうのね。 書き込み時にマージしてくれるといいんだろうけど…

ということで、自分なりのルールで、スケジュール追加の前後にマメに「更新」、 をするしかないな…

出先から自宅サーバにアクセスするためのsshのバックドアを、 携帯からアクセス許可をしない限り拒絶するように設置する。 特設ポート番号でinetd経由で"sshd -i" を起動する様に設置したんだけど、 どうも接続が拒絶される。

/etc/hosts.allow にて、本来の22番ポートは、職場からの接続以外を拒絶するように してあるが、特設ポート用のallowが書いてあるんだけど、"sshd -i"にて起動する時にも 22番ポート用のallowを読んでいるみたい。 しかたがないので、iptables にてフィルタをかけるように設定し、 hosts.allow は"ssh: ALL: allow"にて設定する。

その前に、自宅ルータで特設ポートを以前に別サーバ宛のsshに使っていたので、 つながらないというオチもあったんだけど…

子供部屋のエアコンを購入して、今日は工事日だった。 保証書も揃ったことで、エコポイントの必要書類が揃った。

http://eco-points.jp/にて、 住所氏名購入店舗、製品番号、製造番号を入力し、申請書類を作成する。 これに、購入時のレシート(原本)と、製品保証書(コピー)を糊づけして、 郵送する。ただ、書類にはレシートと保証書コピーを、 重ならないように糊づけと書いてあるけど、 A4用紙になぜかB5サイズ印刷されて、 どこをどうやったら重ならない様に糊付けしろってんだよぉ～♪

ポイントの利用

ポイントは、カタログギフトや地域産品などにできるんだけど、 ひとまずJCB商品券に交換。 Edyなどの電子マネーにもできるみたいだけど、肝心の店で使えないと困るので、 商品券が無難だろう。

Net::Google::Calendarモジュールが便利そうだったので、 iCalendar(.ics)のファイルを Google Calendar にアップロードするプログラムを、 Perl で書いてみた。 今までは、Java で書かれたGCalDaemonを使っていたけど、カスタマイズもしづらかった。

繰り返しイベントについては、未対応のまま。 本当は同期させたいけど、Google側のEventのIDはURL形式で、iCal と互換性がない。 だから、アップロードの度に、一旦全イベントをチマチマ消しているのが、美しくない。 かといって、iCal と Google Calendar の ID の対応表をいちいち更新するのも面倒だし。

• iCalendar2GoogleCalendar.pl

get_eventsとdelete_entryの使い方

# Google Calendar の登録情報
$url = 'http://www.google.com/'
.'calendar/feeds/XXXX%40gmail.com/'
.'private-XXXXXXXXXXX/basic' ;
$user = 'XXXX@gmail.com';
$pass = 'PPPPPPPP';
$calname = Jcode->new( 'NNNN' )->utf8 ;
my $cal = Net::Google::Calendar->new( url => $url );
# $cal->{_ua}->env_proxy;               # (2)
$cal->login($user, $pass) or die $@;    # (3)
# 指定されたカレンダーを選ぶ
my $dest_cal ;
foreach my $c ( $cal->get_calendars ) {
$dest_cal = $c if ( $c->title eq '<カレンダーの名前>' ) ;
}
if ( $dest_cal ) {
# 登録されていたイベントを全部消す
$cal->set_calendar( $dest_cal ) ;
my $start_index = 1 ;
my $max_results = 20 ;
my @ev ;
while( 1 ) {
# 指定件数しかイベントを返さないので少しづつ消す
@ev = $cal->get_events(
start-index => $start_index ,
max-results => $max_results ) ;
last if ( @ev == 0 ) ;
foreach my $e ( @ev ) {
$cal->delete_entry( $e ) ;
}
$start_index += @ev ;
}
}