_ [つくる] 働け俺。ネットで遊ばなくなるスクリプト

余りにも俺が働かないので、よく行く&時間を食いまくるサイトへ行けなくした。

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy qw/copy move/;
my $ifh;
my $ofh;
my $ifile = "/etc/hosts";
my $ofile = $ifile."_";
my $msg="";

open $ifh, '<', $ifile or die "Cannot open '$ifile': $!";
open $ofh, '>', $ofile or die "Cannot open '$ofile': $!";

while (my $l = <$ifh>) {
	if($l=~/^0\.0\.0\.0/){
		$l=~s/^0\.0\.0\.0/#0.0.0.0/;
		$msg="play free and forever!";
	}elsif($l=~/^#0\.0\.0\.0/){
		$l=~s/^#0\.0\.0\.0/0.0.0.0/;
		$msg="work harder and harder, or die.";
        }
	print $ofh $l;
}

close($ofh);
close($ifh);

copy $ofile, $ifile or die "Copy failed : $!";

print $msg, "\n";

自分の時間を食べてしまうサイトを/etc/hostsに書く。

0.0.0.0 mixi.jp
0.0.0.0 facebook.com
0.0.0.0 twitter.com
0.0.0.0 slashdot.jp
0.0.0.0 www.yahoo.co.jp

この後スクリプトをrootで実行すると/etc/hostsの先頭に#がつく。

#0.0.0.0 mixi.jp
#0.0.0.0 facebook.com
#0.0.0.0 twitter.com
#0.0.0.0 slashdot.jp
#0.0.0.0 www.yahoo.co.jp

もう一回やると#が取れる。suとかsudoしないと動かないので適度に面倒でよいかと。
#perl-suidってのは消えるらしいですね

1つ気づいたが、こんなもの作ったり記事書いたりしてるから余計働かないのではないだろうか。

_ [IS03] 無線ルータ

http://blog.livedoor.jp/oya_g_7/archives/51326871.htmlをやった。電池が怖い。 やっぱりWiMAX入るべきか。でも10月末でIS03の縛りが切れるのでそこでWiMAX携帯買うか？

_ [etc][ubuntu] Shotwellが写真を自動で日付フォルダに仕分けしてくれないのだ

Shotwellは外部メディアというかUSBにぶっ刺したリムーバブルメディアしかフォトフォルダの日付ディレクトリに仕分けしてくれんことが判明。

NFS先とかCIFS先とかローカルディスクだとファイルのある場所をそのまま覚えこむ。コピーしますかとか聞いてきとるやろが。はいって押してるやんけ

_ [Windows] Windowsと縁切った

切ってない。(ゲストOSだけ)
DellMini9のXPがとろくなってきたので入れなおそうと思ったら3.11のショックでXPのCDを捨てていた。（冗談ではない。断捨離熱が上昇して捨てまくった)そこで考えた挙句ubuntu11.10を入れて嫁をubunter(造語)にした。2GBメモリ、32GBのSSDでもなんとかなるもんだな。
ブラウザは元からFirefoxだったので、メールの移行（元からThunderbirdだったから楽)したら普通に使っとる。切り方と自動updateだけ教えた。Officeは元からない。LibreOfficeで生きろと。しかし年賀状が問題だ。データだけある。
俺もWindows7のデュアルブートやめて、ubuntu上のVirtualBoxにWindows7入れた。
動く。今のとこ困ってない。会計ソフトも動くだろう。