$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 != 62 && RecommendedEntry_getEntryData( $eid_prev )) { RecommendedEntry_updateIndexFile( 62, $eid_prev, 0 /*incoming_from*/ ); RecommendedEntry_updateIndexFile( $eid_prev, 62, 1 /*outgoing_to*/ ); } } else { RecommendedEntry_updateIndexFile( 62, 62, 0 /*incoming_from*/ ); } } RecommendedEntry_incoming(); function RecommendedEntry_outgoing() { setcookie( 'mtrcmnd_eid', 62, 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( '62', -1 ). '/62.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( 62 == $_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のインストール:Part2 - 寝不足にて候（仮）
Feb
08
2007

Plaggerのインストール:Part2

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

続き。
疲れたので、現実逃避気味に、perl自体のupdateなどをおっぱじめてみる。
今入ってるのは、
This is perl, v5.8.0 built for i386-linux-thread-multi
CentOS3ではこれが最新。orz
ちょっと古くないか？moduleのmake testが通らないのはコレが原因カモ。

FedoreCore3のsrpmを取ってきて、rembuild --rebuildしました。
待ち時間に東風荘。
で、

% perl -v
This is perl, v5.8.5 built for i386-linux-thread-multi
に。

で、CPAN関連からやりなおしてみたところ、入りましたよ。Plagger。
XML::LibXMLで躓きましたが、こちらもFedoraもののlibxml2をビルド。
Text::Kakasi用のkakasi本体なんかもFedoraからもってきました。

# perl -MCPAN -e shell
cpan> intall Bundle::CPAN
～設定だのモジュール追加だのは略～
cpan> install Plagger
～山のように依存モジュールが入る。（※）～
cpan> quit
$ plagger -v
Plagger version 0.7.17

※そして、鬼のようにtestエラーが出ます。多くはCPAN.pmが自動解決してくれない依存だのtestスクリプトの不具合です。根気よく潰してください。
※時間があるときにinstallすることを激しくオススメ。

カテゴリ:

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

トラックバック(0)

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

コメントする

カテゴリ

WebServices

Recent Actions

検索

過去のエントリ（一覧）

最近のエントリ

アクセスランキング

Syndication

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