basergitloghtml.sh

#========================================================================#
# baserCMSの整形ログをブログ用にさらに整形する
# baserloghtml [filename]
#========================================================================#

if [ $# -ne 1 ]; then
	echo "Error: baserloghtml [filename]"
	exit 1
fi

perl -0 -pe "s/^(.+)$/\n\1/s" < $1											|
perl -0 -pe "s/\n-NEW/\n<\/ul>\n<\/div>\n<div class=\"Section\">\n<h2><span>新機能<\/span><\/h2>\n<ul>\n-NEW/s"		|
perl -0 -pe "s/\n-CHG/\n<\/ul>\n<\/div>\n<div class=\"Section\">\n<h2><span>変更点<\/span><\/h2>\n<ul>\n-CHG/s"		|
perl -0 -pe "s/\n-BUG/\n<\/ul>\n<\/div>\n<div class=\"Section\">\n<h2><span>バグフィックス<\/span><\/h2>\n<ul>\n-BUG/s"	|
perl -0 -pe "s/\n\t\t\t/<br>/sg"											|
perl -pe "s/^(-.+?)$/<li>\1<\/li>/g"											|
perl -pe "s/\-NEW: //g"													|
perl -pe "s/\-CHG: //g"													|
perl -pe "s/\-BUG: //g"													|
perl -pe "s/\[BC\]/[コア]/g"												|
perl -pe "s/\[ML\]/[メール]/g"												|
perl -pe "s/\[BG\]/[ブログ]/g"												|
perl -pe "s/\[FD\]/[フィード]/g"												|
perl -pe "s/\[UL\]/[アップローダー]/g"												|
perl -pe "s/\[TW\]/[ツイッター]/g"												|
perl -0 -pe "s/^\n<\/ul>\n<\/div>//s" 											|
perl -0 -pe "s/$/\n<\/ul>\n<\/div>/s"											> "basergitlog.html"