$value ) if( $value['eid'] == $eid ) return $value; return null; } function RecommendedEntry_updateIndexFile( $eid_updated, $eid, $direction ) { $filename = '/var/www/VirtualDomain/kenji00.com/blog/recommend_data'; is_dir( $filename ) || mkdir( $filename ); $filename .= '/'. substr( $eid_updated, -1 ); is_dir( $filename ) || mkdir( $filename ); $filename .= sprintf( '/%d.txt', $eid_updated); file_exists( $filename ) || touch( $filename ); $fp = @fopen( $filename, 'r+' ); if( $fp ) { if( flock( $fp, LOCK_EX | LOCK_NB )) { $ret = ''; $not_found = 1; while( !feof( $fp ) && ( $buf = fgets( $fp ))) { list( $_eid, $_n0, $_n1 ) = split( "[\t\r\n]", $buf ); if( $eid == $_eid ) { $not_found = 0; $direction ? $_n1++ : $_n0++; } $ret .= sprintf( "%d\t%d\t%d\n", $_eid, $_n0, $_n1 ); } if( $not_found ) $ret .= sprintf( "%d\t%d\t%d\n", $eid, 1 - $direction, $direction); rewind( $fp ); fwrite( $fp, $ret, strlen( $ret )); } fclose( $fp ); } } function RecommendedEntry_incoming() { $eid_prev = $_COOKIE['mtrcmnd_eid']; if( isset( $eid_prev )) { if( $eid_prev != 61 && RecommendedEntry_getEntryData( $eid_prev )) { RecommendedEntry_updateIndexFile( 61, $eid_prev, 0 /*incoming_from*/ ); RecommendedEntry_updateIndexFile( $eid_prev, 61, 1 /*outgoing_to*/ ); } } else { RecommendedEntry_updateIndexFile( 61, 61, 0 /*incoming_from*/ ); } } RecommendedEntry_incoming(); function RecommendedEntry_outgoing() { setcookie( 'mtrcmnd_eid', 61, time() + 2592000, '/' ); } RecommendedEntry_outgoing(); function RecommendedEntry_initialize( $mode = 0 ) { global $RecommendedEntry_table; $RecommendedEntry_table = array(); $filename = '/var/www/VirtualDomain/kenji00.com/blog/recommend_data/'. substr( '61', -1 ). '/61.txt'; $fp = @fopen( $filename, 'r' ); if( $fp ) { if( flock( $fp, LOCK_SH | LOCK_NB )) { while( !feof( $fp ) && ( $buf = fgets( $fp ))) { list( $_eid, $_n0, $_n1 ) = split( "[\t\r\n]", $buf ); if( 61 == $_eid ) continue; else if( $mode == 1 ) $RecommendedEntry_table{$_eid} = $_n0; else if( $mode == 2 ) $RecommendedEntry_table{$_eid} = $_n1; else $RecommendedEntry_table{$_eid} = $_n0 + $_n1; } arsort( $RecommendedEntry_table, SORT_NUMERIC ); } fclose( $fp ); } } function RecommendedEntry_GetEntry( $_index ) { global $RecommendedEntry_table; foreach( $RecommendedEntry_table as $eid => $count ) { if( --$_index ) continue; $entry = RecommendedEntry_getEntryData( $eid ); if( $entry ) $entry['count'] = $count; return $entry; } } ?> Plaggerのインストール:Part1 - 寝不足にて候（仮）
Feb
07
2007

Plaggerのインストール:Part1

kenji00 | コメント(0) | トラックバック(0)

過去のエントリで触れたPlaggerについて調べてみたところ、あまりにも魅力的な状況であったので、遊びたくなった。

なんだか、CPAN経由でインストールできそうですが、

$ perl -MCPAN -e shell
Can't locate CPAN.pm in @INC..............orz

気を取り直して、先ずは、CＰＡＮ.pmから。
# yum install perl-CPAN
基本的には、$ ./configure ; make ; make install派ですが、
こういう時にはパッケージ管理システムも便利だなぁとおもふ。
では、改めて
$ perl -MCPAN -e shell
～初回の設定は割愛～
先ずは、CPAN.pmのアップデート
cpan> install Bundle::CPAN
必要なモジュールがズコズコとインストールされていきます。
YAMLがエラーで入りません。（泣）

一時休憩......もう、force installでよかですか？
ちなみに、Plagger本体は、
cpan> install Plagger
でイケそう。

カテゴリ:

このエントリを読んだ人はこんなんも読んでいます

トラックバック(0)

トラックバックURL: http://blog.kenji00.com/MT/mt-tb.cgi/60

コメントする

カテゴリ

WebServices

Recent Actions

検索

過去のエントリ（一覧）

最近のエントリ

アクセスランキング

Syndication

購読する
Powered by Movable Type 4.261
Creative Commons License
このブログはクリエイティブ・コモンズでライセンスされています。