Monthly Archives: 4月 2011

CentOS 5.5 Ruby on Rails 環境構築

 Red Hat系Linuxのパッケージ管理システムyumからインストールされたRubyはバージョンが古くRailsがインストール出来ないためソースからビルドしインストールした。
 しかし、ソースからビルドし直接インストールした場合、削除・アップデートが非常に困難なためソースから管理を行い易いrpmパッケージを作成しインストールする。

rpmパッケージを作成するためのコマンドcheckinstallのインストール
# rpm -ivh http://apt.sw.be/redhat/el5/en/i386/rpmforge/RPMS/checkinstall-1.6.0-3.el5.rf.i386.rpm

Rubyをソースからrpmパッケージを作成しインストールする

rubyのソースファイルをダウンロード
# wget ftp://ftp.ruby-lang.org/pub/ruby/1.8/ruby-1.8.7-p302.tar.bz2

展開
# bzip2 -dc | tar xvf ruby-1.8.7-p302.tar.bz2

展開されたruby-1.8.7-p302ディレクトリへ移動
# cd ruby-1.8.7-p302

Makefileを作成する
# ./configure –prefix=/usr

ビルドする
# make

rpmパッケージを作成する checkinstallの使い方は下記に記載
# checkinstall –fstrans=no

checkinstall 1.6.0, Copyright 2002 Felipe Eduardo Sanchez Diaz Duran
This software is released under the GNU GPL.

The package documentation directory ./doc-pak does not exist.
Should I create a default set of package docs? [y]: ← Enter

Preparing package documentation…OK

Please choose the packaging method you want to use.
Slackware [S], RPM [R] or Debian [D]? r ← Enter

Please write a description for the package.
End your description with an empty line or EOF.
>> ← Enter

**************************************
**** RPM package creation selected ***
**************************************

This package will be built according to these values:

1 – Summary: [ Package created with checkinstall 1.6.0 ]
2 – Name: [ ruby-1.8.7 ]
3 – Version: [ p302 ]
4 – Release: [ 1 ]
5 – License: [ GPL ]
6 – Group: [ Applications/System ]
7 – Architecture: [ x86_64 ]
8 – Source location: [ ruby-1.8.7-p302 ]
9 – Alternate source location: [ ]
10 – Requires: [ ]
11 – Provides: [ ruby-1.8.7 ]

Enter a number to change any of them or press ENTER to continue: ← Enter

rpmパッケージが作成されたディレクトリへ移動
# cd /usr/src/redhat/RPMS/x86_64

作成されたrpmパッケージでRubyをインストール
# rpm -ivh ruby-1.8.7-p302-1.x86_64.rpm

Rubyがインストールされたかを確認する
# ruby -v
ruby 1.8.7 (2010-08-16 patchlevel 302) [x86_64-linux]

Rubyのライブラリを管理するrubygemsをソースからrpmパッケージを作成しインストールする

rubygemsのソースファイルをダウンロード
# wget http://rubyforge.org/frs/download.php/74234/rubygems-1.5.2.tgz

展開
# tar zxvf rubygems-1.5.2.tgz

展開されたrubygems-1.5.2ディレクトリへ移動
# cd rubygems-1.5.2

rpmパッケージを作成する checkinstallの使い方は上記に記載
# checkinstall -R ruby setup.rb

rubygemsからRailsをインストール
# gem install rails –include-dependencies

Railsがインストールされているか確認する
# rails -v
Rails 3.0.7

Shuttle XS35 CentOS 5.5 インストール NICドライバ簡単インストール

インターネットで調べると皆必死にソースからmake installしてるサイトしか見当たらないので一応rpmパッケージもあるよと紹介しちゃいます。

とりあえずrpmをダウンロードしてきます。そして適当なUSBメモリーの直下に保存しましょう。
http://pkgs.org/download/centos-5-rhel-5/centos-rhel-x86_64/module-init-tools-3.3-0.pre3.1.60.el5_5.1.x86_64.rpm.html
http://pkgs.org/download/centos-5-rhel-5/elrepo-x86_64/kmod-jme-1.0.7.1-1.el5.elrepo.x86_64.rpm.html

そのままだとUSBメモリーをXS35に挿しても認識しないかと思いますので一応kudzuを起動しておきます。
# service kudzu start

毎回起動するのは面倒なので自動起動させちゃいます。
# chkconfig kudzu on

マウント先を作成します。
# mkdir /media/usb

マウントします。(私の環境では/dev/sdaとなってましたが各自合わせてください)
# mount /dev/sda /media/usb

マウント先に移動します。
# cd /media/usb

module-init-tools-3.3-0.pre3.1.60.el5_5.1.x86_64.rpmをインストールします。
# rpm -Uvh module-init-tools*.rpm

kmod-jme-1.0.7.1-1.el5.elrepo.x86_64.rpmをインストールします。
# rpm -Uvh kmod-jme*.rpm

毎回USBメモリーをマウントしてインストールするのは面倒なのでとりあえずrootディレクトリにコピーしておきます。
# cp module-init-tools*.rpm /root/
# cp kmod-jme*.rpm /root/

アンマウントするために戻りましょう。
# cd

USBをアンマウントして取り外します。
# umount /media/usb

これでドライバのインストールは完了しました。system-config-networkでもrebootでもお好きにどうぞ。

他のサイトのソースからビルドするやり方は一斉にパッケージをアップデートするとドライバが外れてNICが認識されなくなってしまうようですが上記のやり方ならそのような事はありませんでした。

参考
Shuttle XS35にCentOS5.5を導入して無音サーバ構築 (CentOS導入編)
Shuttle XS35買ってきたよ CentOSインストール
OpenVPN専用サーバ作成

Shuttle XS35 無音サーバ構築

Atomの省エネサーバを構築しバックアップサーバとして動かす為に色々調べていましたがXS35が今販売されている中で最も安くバランスがいいのではないかと考えたので購入してみました。

XS35は1万5千円ほど
HDD 500G 5400rpmが5千円ほど
DDR2 2G 800が3千円ほど
スリムマルチDVDドライブが3千円ほどで計2万6千円くらいでした

本当に音がしないのでいいのですが
これそのままCentOSをインストールしてもNICが認識されないのでドライバを自分で入れないと行けないようです。

Ruby製の出来そこないメールフォーム

とりあえずRubyの参考書を読みながらメールフォームを作成してみました。普段はPerlでオブジェクト指向なモジュールを使って色々書いてますが自分でクラスやメソッドを定義することなんてなかったので今回かなり手こずりました。
メールフォームを表示して受け取ったデータをSendmailに渡して送信するだけのメールフォームです。確認画面はおろかメールアドレスのチェックなんて一切しません。。。
実用的には全く役に立たないが、Rubyを勉強しようかな?って人には役に立たないかもしれない。。。。
うん。役に立たない。。。

mailform.yml (設定ファイル)

# サイトのタイトル
Title: Ruby製のメールフォーム
# 管理者のメールアドレス(お問い合わせ送信先)
To: mogumogu@gokugoku.oe
# メールの件名
Subject: Ruby製のメールフォーム

mailform.rb (メールフォームのindex)

#!/usr/bin/ruby -w

require 'contform.rb'
require 'viewform.rb'
require 'sendform.rb'
cont = Cont.new

puts cont.Output
exit

contform.rb (メールフォームの大元のクラス)

class Cont
	require 'cgi'
	require 'yaml'
	require 'kconv'

	# 変数Yamlに設定ファイルのパスを格納
	Yaml = 'mailform.yml'

	#インスタンス変数生成
	def initialize
		begin
			# YAML.load_fileメソッド呼び出し 設定内容をインスタンス変数に格納
			@yaml = YAML.load_file(Yaml)
		rescue
			# 例外発生時の処理(errorメソッドの呼び出し)
			error('YAMLファイルが読み込めませんでした。')
		end
		# 各種オブジェクトを設定を渡しながら生成する
		@cgi = CGI.new
		@view = View.new(@yaml)
		@send = Send.new(@yaml)
	end

	# フォーム画面表示
	def Output
		# 送信する
		if(@cgi['page'] == 'sendmail')
			puts "content-type:text/htmlnn"
			# メール送信
			@send.sendmail(@cgi['from'], @yaml['To'], nil, nil, @yaml['Subject'], @cgi['textdata'])
			# メール送信完了のメッセージを引数として返す
			return @view.Success
		else
		# フォームを表示する
			puts "content-type:text/htmlnn"
			return @view.TopPage
		end
	end

	# エラー出力
	def error(errstr)
		puts "content-type:text/htmlnn"
		puts <<-__END
		エラーが発生しました!
		#{errstr}
		__END
		exit
	end
end

viewform.rb (メールフォームのHTML関連表示クラス)

class View
	def initialize(yaml)
		@yaml = yaml
	end
	def TopPage
		# メールフォームの表示
		html = <<-__EOT
		<HTML>
				<HEAD>
				<TITLE>#{@yaml['Title']}</TITLE>
				<META http-equiv="Content-Type" content="text/html; charset=UTF-8">

				<script type="text/javascript"> 
				<!-- 
				function check(){
					if(window.confirm('送信してよろしいですか?')){
						return true;
					}else{
						window.alert('キャンセルされました');
						return false;
					}
				}
				// -->
			</script>
			</HEAD>
			</BODY>
				<p>#{@yaml['Title']}</p>

				<form action="mailform.rb" method="post" onSubmit="return check()">
				<INPUT TYPE="hidden" NAME="page" VALUE="sendmail">
				<p>メールアドレス</p>
				<input type="text" name="from" size="35">
				<p>お問い合わせ用メッセージ</p>
				<textarea name="textdata" rows="6" cols="50"></textarea><br>
				<input type="submit" value="送信する" onClick="disp()"><input type="reset" value="リセット">
			</BODY>
		</HTML>
		__EOT
	end
	def Success
		# 送信成功画面
		html = <<-__EOT
		<HTML>
				<HEAD>
				<TITLE>#{@yaml['Title']}</TITLE>
				<META http-equiv="Content-Type" content="text/html; charset=UTF-8">

			</script>
			</HEAD>
			</BODY>
				<p>#{@yaml['Title']}</p>
				<p>送信しました</p>
			</BODY>
		</HTML>
		__EOT
	end
end

sendform.rb (メールフォームのメール送信クラス)

class Send
	def initialize(yaml)
		@yaml = yaml
	end
	# メール送信メソッド
	def sendmail(from, to, cc, bcc, subject, body)

		path = "/usr/sbin/sendmail" # sendmailのパス
		subject = subject.tojis
		subject = [subject].pack('m') # Base64
		subject.gsub!(/n/, "")
		subject = "=?ISO-2022-JP?B?#{subject}?="
		body = body.tojis

		IO.popen("#{path} -t", "r+") { |io|
			io.print "From: #{from}n"
			io.print "To: #{to}n"
			io.print "Cc: #{cc}n" if cc != nil
			io.print "Bcc: #{bcc}n" if bcc != nil
			io.print "Subject: #{subject}n"
			io.print "MIME-Version: 1.0n"
			io.print "Content-Type: text/plain; charset=iso-2022-jpn"
			io.print "Content-Transfer-Encoding: 7bitn"
			io.print "n"
			io.print "#{body}n"
		}

	end
end

そういえば、Javaとは違ってクラス名とファイル名が違っても怒られないんですね~

CentOS 5 PHPの最新のバージョンをインストールする

バージョン管理が大変なPHPを簡単にアップデートできます
※下記を実行するとPHP以外のパッケージも全てアップグレードされてしまいます。気になる人はリポリトジの設定で普段は無効にしておいてください。
# wget -q -O – http://www.atomicorp.com/installers/atomic.sh | sh yum update
# yum install php php-mbstring

Rubyで超簡単RSSリーダー

RubyでRSSリーダー Windows 用ですがkconvを利用しなければMacやUNIX系OSでも使えます。

#!/usr/bin/ruby
require 'open-uri'
require "kconv"
require 'rss'

# URLへアクセスしページを取得
uri = URI.parse('https://www.orsx.net/feed')
# RSSとして読み込み
rss = RSS::Parser.parse(uri.read)

puts "SiteName : " + rss.channel.title.kconv(Kconv::SJIS, Kconv::UTF8)
# タイトルを保存していく
rss.items.each_with_index do |item, i|
  puts "#{i+1}. #{item.title.kconv(Kconv::SJIS, Kconv::UTF8)}"
end

iPhone iPod のリモコン コントローラが効かなくなった時の対処法

ポケットの中に入れるのでジャックの中に綿埃が入るみたいですね。
それで接触不良を起こしている事が多いようです。

それで詰まった綿埃を取り除く方法ですが、爪楊枝を折ったもの(斜めに切ったもの)をジャックの中に挿し込み回転させます。それで絡まった綿埃を引き出せば簡単に対処することができます。

針で同様に行うと内部に傷を付ける可能性があるので爪楊枝などを使うことをおすすめします。

Twitter フォロワー同期(フォロー専用)Bot Perl 作成編

とりあえずさっきのプログラムを書きなおして完全にフォロワーさんを同期するプログラムを書きました。
Botみたいで(処理してるのはBotですが・・・)味気ないけど仕方ないですねwwww

#!/usr/bin/perl
use utf8;
use strict;
use warnings;

# モジュール使用宣言
use Array::Diff;
use Data::Dumper;
use Net::Twitter;
use YAML::Tiny;
use Encode;
use FindBin;

# 現在のパスから見て設定ファイルを読み込み
my $config = (YAML::Tiny->read($FindBin::Bin . '/config.yml'))->[0];
# OAuth認証
my $twitter = Net::Twitter->new(
     traits => ['API::REST', 'OAuth'],
     consumer_key => $config->{'consumer_key'},
     consumer_secret => $config->{'consumer_secret'}
);
$twitter->access_token($config->{'access_token'});
$twitter->access_token_secret($config->{'access_token_secret'});
# 認証失敗時の処理
die('Auth failed:'.$config->{'username'}) unless ( $twitter->authorized ) ;

# ユーザー名を含むユーザー情報を取得
my $cr = $twitter->verify_credentials;
my $own_id = $cr->{id};

my $nextc = -1; # paging default.
my @following_id_list; # outgo

# APIの仕様?から一度に100人までしか取得できないから0が返ってくるまでdoブロックをループ
do{
	# パラメータcursorは前回取得したフォローイングまでの番号が入っている
	my $following_list = $twitter->friends_ids({ id=>$own_id, cursor => $nextc });
	$nextc = $following_list->{next_cursor};
	# 配列からフォローイングのidを取得
	foreach my $id (@{ $following_list->{ids} }){
		push(@following_id_list, $id); # 後で比較するためにフォローイングを配列に保管
	}
}while($nextc!=0);
# 文字昇順でソート
@following_id_list = sort @following_id_list; 

$nextc = -1;
my @followers_id_list; # income

# APIの仕様?から一度に100人までしか取得できないから0が返ってくるまでdoブロックをループ
do{
	# パラメータcursorは前回取得したフォロワーまでの番号が入っている
	my $followers_list = $twitter->followers_ids({ id=>$own_id, cursor => $nextc });	
	$nextc = $followers_list->{next_cursor};
	# 配列からフォロワーのidを取得
	foreach my $id (@{ $followers_list->{ids} }){
		push(@followers_id_list, $id); # 後で比較するためにフォロワーを配列に保管
	}
}while($nextc!=0);
# 文字昇順でソート
@followers_id_list = sort @followers_id_list; 

# 差分を取得(フォローイング)
my $diff_following = Array::Diff->diff(@following_id_list, @followers_id_list);

# 差分を取得(フォロワー)
my $diff_followers = Array::Diff->diff(@followers_id_list, @following_id_list);

# リムった人をリム返し
foreach my $delid_following (@{ $diff_following->{deleted} }){
	$twitter->destroy_friend($delid_following);
}

# フォローした人をフォロー返し
foreach my $delid_followers (@{ $diff_followers->{deleted} }){
	$twitter->create_friend($delid_followers);
}

うん。書いてて思った。今まで差分取るとかループで比較するだけじゃんとか思ってたけどData::Dumperって結構便利だなw 今度機会があったら使ってみようかな?

Twitter フォロワー同期(リム専用)Bot Perl 解析編

自動でフォローされたらフォローし返すプログラムを書きたいけどNet::Twitterの使い方がわからなかったのでとりあえずフォロワー同期(リム専用)Botのソースをマニュアルを読みながら適当に解析してコメント打ちました。

マニュアル:Net::Twitter(英語)
参考にさせて頂いたソース:■[メモ]Twitterで自動フォロー削除

#!/usr/bin/perl
use utf8;
use strict;
use warnings;

# モジュール使用宣言
use Array::Diff;
use Data::Dumper;
use Net::Twitter;
use YAML::Tiny;
use Encode;
use FindBin;

# 現在のパスから見て設定ファイルを読み込み
my $config = (YAML::Tiny->read($FindBin::Bin . '/config.yml'))->[0];
# OAuth認証
my $twitter = Net::Twitter->new(
     traits => ['API::REST', 'OAuth'],
     consumer_key => $config->{'consumer_key'},
     consumer_secret => $config->{'consumer_secret'}
);
$twitter->access_token($config->{'access_token'});
$twitter->access_token_secret($config->{'access_token_secret'});
# 認証失敗時の処理
die('Auth failed:'.$config->{'username'}) unless ( $twitter->authorized ) ;

# ユーザー名を含むユーザー情報を取得
my $cr = $twitter->verify_credentials;
my $own_id = $cr->{id};

my $nextc = -1; # paging default.
my @following_id_list; # outgo

# APIの仕様?から一度に100人までしか取得できないから0が返ってくるまでdoブロックをループ
do{
	# cursorは前回取得したフォローイングまでの番号が入っている
	my $following_list = $twitter->friends_ids({ id=>$own_id, cursor => $nextc });
	$nextc = $following_list->{next_cursor};
	# 配列からフォローイングのidを取得
	foreach my $id (@{ $following_list->{ids} }){
		push(@following_id_list, $id); # 後で比較するためにフォローイングを配列に保管
	}
}while($nextc!=0);
# 文字昇順でソート
@following_id_list = sort @following_id_list; 

$nextc = -1;
my @followers_id_list; # income
do{
	# cursorは前回取得したフォロワーまでの番号が入っている
	my $followers_list = $twitter->followers_ids({ id=>$own_id, cursor => $nextc });	
	$nextc = $followers_list->{next_cursor};
	# 配列からフォロワーのidを取得
	foreach my $id (@{ $followers_list->{ids} }){
		push(@followers_id_list, $id); # 後で比較するためにフォロワーを配列に保管
	}
}while($nextc!=0);
# 文字昇順でソート
@followers_id_list = sort @followers_id_list; 

# 差分を取得
my $diff = Array::Diff->diff(@following_id_list, @followers_id_list);

# リムった人をリム返し
foreach my $delid (@{ $diff->{deleted} }){
	$twitter->destroy_friend($delid);
}

だいたい構造がわかったのでちゃちゃっと書き足しましょうか^^

Office For Macが快適に落ちてデータが飛ぶのを全力で阻止してみる

Mac for OfficeでWordを使っている人なら分かると思うのですが猛烈によく落ちます・・・1時間以上作業をすると必ず1〜3回は落ちます。。。

そして、一応作成中のデータは残っているのですがほぼ作り直しの状態になります。。。もう、キレそうになりますね。。。Macを使ってる私のMacに対する最大の不満です。
そして今回、自宅にいない、この何も出来ない時期にとっとと対策しておきたいと思います。

Officeの自動保存機能を利用してなるべく飛ぶ消失する量を減らしたいと思います。

試しにWordを開き、メニューバーの”Word”を開き、”環境設定”を開きます。

”保存”をクリックします。

”自動バックアップ”の間隔を10分から1分に変更します。

これでもしもWordが作業中に落ちても1分前のデータが残ると思います。
他のExcelやPowerPointも同じように設定できます。