#!/usr/bin/perl
## MT INSTALLER for XREA USERS
## 04/12/13 10:00 PM
## http://www.xrea.com/ http://sb.xrea.com/showthread.php?p=64711#post64711
##
## Special Thanks
## movabletype.org http://www.movabletype.jp/
## ユーザー情報（適宜変更してください。）
$UID = "sample"; # FTPのアカウント名：例：sample
$DBUID = "sample"; # データベースのユーザー名：例：sample
$DBPS = "abcdefghijk"; # データベースのパスワード：例：abcdefghijk
$USV = "s101.xrea.com"; # サーバー名：例：s101.xrea.com
$PATH_HOME = "/virtual/$UID";
$DIR_PUBLIC = "public_html";
## MT運用ディレクトリ（適宜変更してください。2階層下のディレクトリの例：www.example.com\\/blog）
$DIR_MT = "mt";
## 配布されているtar.gz形式のファイル (バージョンに応じて変更してください。)
$FILE_MT_TGZ = "MT-3[1].151-full-lib-ja.tar.gz";
## 解凍後に展開されるディレクトリ (バージョンに応じて変更してください。)
$DIR_MT_TGZ = "MT-3.151-full-ja";
## 文字コード（EUC-JP / Shift_JIS / UTF-8） EUC-JP以外はサポート対象外
$PUBLISH_CHARSET = "EUC-JP";
&install_mt;
#########################################################################################################
## install_mt
#########################################################################################################
sub install_mt(){
$t=time;
disp_err("$PATH_HOME/$FILE_MT_TGZ がありません。") unless(-e "$PATH_HOME/$FILE_MT_TGZ");
$SHELL = qq~
cd $PATH_HOME/$DIR_PUBLIC/
rm -rf lang-ja/ $DIR_MT_TGZ/
mv -f $DIR_MT mt_$t
tar cfz backup-mt_$t.tgz mt_$t 2>&1 > /dev/null
rm -rf mt_$t/
tar xfz $PATH_HOME/$FILE_MT_TGZ 2>&1 > /dev/null
cd $PATH_HOME/$DIR_PUBLIC/
mv -f $DIR_MT_TGZ $DIR_MT
cd $PATH_HOME/$DIR_PUBLIC/$DIR_MT/
echo '$DBPS' > mt-db-pass.cgi
perl -pe 's/http:\\/\\/WWW.YOUR-SITE.COM\\/PATH\\/TO\\/MT\\//http:\\/\\/$UID.$USV\\/$DIR_MT\\//g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
perl -pe 's/DataSource .\\/db/ObjectDriver DBI::mysql\\nDatabase $DBUID\\nDBUser $DBUID\\nDBHost localhost\\nDBSocket \\/tmp\\/mysql.sock\\n/g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
perl -pe 's/# StaticWebPath.*/StaticWebPath \\/$DIR_MT\\//g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
perl -pe 's/# NoHTMLEntities 1/NoHTMLEntities 1/g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
perl -pe 's/PublishCharset utf-8/PublishCharset $PUBLISH_CHARSET/g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
wget -q -O /dev/null http://$UID.$USV/$DIR_MT/mt-load.cgi
chmod -R 705 $PATH_HOME/$DIR_PUBLIC/$DIR_MT
chmod 700 mt.cfg mt-db-pass.cgi lib extlib
chmod 0 mt-load.cgi mt-check.cgi
rm -f ../README* ../MT*
~;
open(R,"$SHELL|");close(R);
$MSG = qq~
正常に設置しました！
こちらで設定して下さい。
下記初期ユーザー名、パスワードでログインしてください。
Username:Melody
Password:Nelson
カスタマイズ、その他の質問はユーザー掲示板をご活用下さい。
~;
disp_err($MSG);
}
#########################################################################################################
# エラー表\示
#########################################################################################################
sub disp_err{
local($msg) = $_[0];
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <
$msg