#!/usr/local/bin/perl ################################################################################ # kakikomitaiログファイル変換スクリプト # #  変換: kakikomitai Ver0.852以前→kakikomitai 0.9 #      ※但し、相当古いバージョン(「タイトル」の入力が出来なかった頃)の場合、 #       コンバートは出来ません。(^^ゞ #  使い方 #    1.現状のログファイル(kakikomitai.txt)を念のためバックアップとっておいて下さい #    2.同スクリプトをアップロードし、アクセスすると、自動実行します。 #    3.処理終了後「コンバートが終了しました」と表示されたら完了です。 #    4.kakikomitai.cgiを呼び出し正しく表示されるはずです。 #    5.正しく表示されたら同スクリプトは不要ですので削除して下さい ################################################################################ $logfile = './kakikomitai.txt'; #ログするファイル if (!open(DATA,"$logfile")) { return ; } @LOG = ; close(DATA); foreach ( @LOG ) { chop $_ ; ($no,$name,$email,$hp,$title,$comment,$regdate,$color) = split(/,/,$_); $comment =~ s/\r\n/
/g; $comment =~ s/\r|\n/
/g; $hp =~ s/^http\:\/\///; push(@new,"$no,$name,$email,$hp,$title,$comment,$regdate,$color,,,,,\n"); } if ( !(open(OUT,">$logfile"))) { return; } print OUT @new; close(OUT); print "Content-type: text/html\n\n"; print "\n kakikomitaiコンバートプログラム\n"; print "





コンバートが終了しました。
\n"; print " \n"; exit;