#!/usr/bin/perl
## MT INSTALLER for XREA USERS
## Ver. 1.20 04/01/23 10:34 AM
## http://www.xrea.com/
##
## Special Thanks
## movabletype.org http://www.movabletype.org/
## Milano::Monolog http://rebecca.ac/milano/mt/
$UID = "ユーザー名";
$UPS = "パスワード";
$USV = "サーバー名";
$PATH_HOME = "/virtual/$UID";
$DIR_PUBLIC = "public_html";
$DIR_MT = "mt";
$FILE_MT_TGZ = "MT-2.661-full-lib.tar.gz"; ## オリジナルファイル
$DIR_MT_TGZ = "MT-2.661-full-lib"; ## 解凍後に展開されるディレクトリ
$FILE_MTJA_TGZ = "mt-ja.2.661.tgz"; ## 日本語パッチ
&install_mt;
#########################################################################################################
## install_mt
#########################################################################################################
sub install_mt(){
$t=time;
disp_err("$FILE_MT_TGZがありません。") unless(-e "$PATH_HOME/$FILE_MT_TGZ");
disp_err("$FILE_MTJA_TGZがありません。") unless(-e "$PATH_HOME/$FILE_MTJA_TGZ");
$SHELL = qq~
cd $PATH_HOME/$DIR_PUBLIC/
rm -rf lang-ja/ $DIR_MT_TGZ/
mv -f $DIR_MT mt_$t
tar xfz $PATH_HOME/$FILE_MT_TGZ
tar xfz $PATH_HOME/$FILE_MTJA_TGZ
cd $PATH_HOME/$DIR_PUBLIC/$DIR_MT_TGZ/
patch -p1 < ../MT.euc.patch
cd $PATH_HOME/$DIR_PUBLIC/
mv -f $DIR_MT_TGZ $DIR_MT
mv -f lang-ja $DIR_MT/images/
cd $PATH_HOME/$DIR_PUBLIC/$DIR_MT/
echo '$UPS' > 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::postgres\\nDatabase $UID\\nDBUser $UID\\n/g' mt.cfg > mt.cfg_
mv -f mt.cfg_ mt.cfg
perl -pe 's/# StaticWebPath \\/path\\/to\\/static-files\\//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 Shift_JIS/PublishCharset EUC-JP/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 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
２）ログイン後、右中央「Edit your profile」からユーザー名、パスワードを変更。「Preferred Language」をJapaneseにして下さい。
カスタマイズ、その他の質問はユーザー掲示板をご活用下さい。
~;
disp_err($MSG);
}
#########################################################################################################
# エラー表\示
#########################################################################################################
sub disp_err{
local($msg) = $_[0];
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <
$msg