]|"[^"]*"|'[^']*')*title=("[^"]*"|'[^']*')(?:[^"'>]|"[^"]*"|'[^']*')*\Z/$1/i;
$title = $tmpstr;
} elsif ($tmpend =~ /title=/i) {
my $tmpstr = $tmpend;
$tmpstr =~ s/\A.*(?:[^"'>]|"[^"]*"|'[^']*')*title=("[^"]*"|'[^']*')(?:[^"'>]|"[^"]*"|'[^']*')*>/$1/i;
$title = $tmpstr;
}
# ダブル・シングルクォーテーションを取り除く
$title =~ s/["']//g;
$url =~ s/["']//g;
if ($title !~ /$cfg{ExitChtmlTrans}/) {
my $tmpurl = &make_href("redirect", $ref_rowid, 0, 0, $ref_eid);
# "/"→"%2F"
$url =~ s!/!\%2F!g;
# "&"→"%26"
$url =~ s/\&/\%26/g;
$url = $tmpurl . '&url=' . $url;
} else {
# 携帯対応マーク
$lnkstr = $ExitChtmlTransStr;
}
# ダブルクォーテーションを補いつつ結合
$str .= "$front\"" . $url;
$tmpstr = "\"$end" . $lnkstr . $backward;
}
$str .= $tmpstr;
# title、target属性の削除（バイト数の無駄）
$str =~ s/ target=["'][^"']*["']//ig;
$str =~ s/ title=["'][^"']*["']//ig;
return $str;
}
########################################
# Sub Redirector - リダイレクタ
########################################
sub redirector {
# URLを変換
my ($lnkstr,$lnkurl) = &chtmltrans($redirect_url);
# モバイル用のURLが見つかったか判定
if ($lnkstr) {
# モバイル用URLが見つかった場合
$data .= '別のｻｲﾄへｼﾞｬﾝﾌﾟしようとしています。';
$data .= '携帯電話／ﾓﾊﾞｲﾙ機器用のURLが見つかりました。
';
$data .= "↓ｸﾘｯｸ$lnkurl
";
$data .= '下記が元のURLになります。';
$data .= '上記で上手く表示できない場合、下記URLをお試し下さい。
';
$data .= "↓ｸﾘｯｸ$redirect_url
";
} else {
# モバイル用URLが見つからなかった場合
$data .= '別のｻｲﾄへｼﾞｬﾝﾌﾟしようとしています。
';
$data .= "↓ｸﾘｯｸ$redirect_url
";
$data .= '上記URLのｻｲﾄは携帯電話で正しく表示できないかもしれませんが、';
$data .= '下記URLであれば表示できるかもしれません。
';
$data .= "↓ｸﾘｯｸ$lnkurl
";
}
$data .= "戻る ";
$data .= "$hd_blog_name mobile ver. " . $data;
if (exists $cfg{AdmNM}) {
$data .= "
管理人:";
if (exists $cfg{AdmML}) {
$cfg{AdmML} =~ s/\@/\@/g;
$cfg{AdmML} =~ s/\./\./g;
$data .= "$cfg{AdmNM} ";
} else {
$data .= "$cfg{AdmNM}";
}
$data .= " ";
}
$data .= "
Powered byMT4i v$version ";
}
$data .= " ";
# 表示文字列をShift_JISに変換
if ($ecd == 1) {
$data = encode("shiftjis",decode("euc-jp",$data));
} else {
$data = Jcode->new($data, 'euc')->sjis;
}
# 表示
binmode(STDOUT);
print "Content-type: text/html; charset=Shift_JIS\n";
print "Content-Length: ",length($data),"\n\n";
print $data;
}
########################################
# Sub Errorout - エラーの出力
########################################
sub errorout {
# HTMLヘッダ/フッタ定義
$data = "Error " . $data . "";
# 表示文字列をShift_JISに変換
if ($ecd == 1) {
$data = encode("shiftjis",decode("euc-jp",$data));
} else {
$data = Jcode->new($data, 'euc')->sjis;
}
# 表示
binmode(STDOUT);
print "Content-type: text/html; charset=Shift_JIS\n";
print "Content-Length: ",length($data),"\n\n";
print $data;
}
##############################################################
# Sub conv_datetime - YYYYMMDDhhmmssを MM/DD hh:mm に変換
##############################################################
sub conv_datetime {
if ($mode || (!$mode && $cfg{DT} eq "dt")) {
$_[0] =~ s/\d\d\d\d(\d\d)(\d\d)(\d\d)(\d\d)\d\d/($1\/$2 $3:$4)/;
} elsif (!$mode && $cfg{DT} eq "d") {
$_[0] =~ s/\d\d\d\d(\d\d)(\d\d)\d\d\d\d\d\d/($1\/$2)/;
} else {
$_[0] = "";
}
return $_[0];
}
############################################################
# Sub Check_Category - エントリのプライマリカテゴリラベルを取得
# プライマリカテゴリが非表示設定されている場合は最初に出てきた
# サブカテゴリのラベルを取得
############################################################
sub check_category{
my ($entry) = @_;
my $cat_label;
require MT::Category;
require MT::Placement;
my @categories = MT::Category->load({ blog_id => $cfg{Blog_ID} }, { unique => 1 });
if (@categories) {
my $place = MT::Placement->load({ entry_id => $entry->id, is_primary => 1 });
if ($place) {
my $match_cat = 0;
if ($mode ne 'entryform' || $admin_mode eq 'no') {
my @nondispcats = split(",", $cfg{NonDispCat});
for my $nondispcat (@nondispcats) {
if ($place->category_id == $nondispcat) {
$match_cat = 1;
last;
}
}
}
if ($match_cat == 0) {
for my $category (@categories) {
if ($category->id == $place->category_id) {
if ($cfg{CatDescReplace} eq "yes") {
$cat_label = &conv_euc_z2h($category->description);
} else {
$cat_label = &conv_euc_z2h($category->label);
}
last;
}
}
} else {
my @places = MT::Placement->load({ entry_id => $entry->id });
my @nondispcats = split(",", $cfg{NonDispCat});
for my $category (@categories) {
my $match_cat = 0;
for my $nondispcat (@nondispcats) {
if ($category->id == $nondispcat) {
$match_cat = 1;
last;
}
}
if ($match_cat == 0) {
for my $place (@places) {
if ($category->id == $place->category_id) {
if ($cfg{CatDescReplace} eq "yes") {
$cat_label = &conv_euc_z2h($category->description);
} else {
$cat_label = &conv_euc_z2h($category->label);
}
$match_cat = 1;
last;
}
}
if ($match_cat == 1) {
last;
}
}
}
}
}
}
return $cat_label;
}
########################################
# Sub Conv_Euc2icode - EUC-JP→MT使用コード変換
########################################
sub conv_euc2icode {
my ($str) = @_;
if ($conv_in ne 'euc') {
if ($conv_in eq 'utf8' && $ecd == 1) {
$str = encode("shiftjis",decode("euc-jp",$str));
$str = encode("utf8",decode("cp932",$str));
} else {
$str = Jcode->new($str, 'euc')->$conv_in();
}
}
return $str;
}
##################################################
# Sub Get_CatList - セレクタ用カテゴリリストの取得
##################################################
sub get_catlist {
my @categories;
require MT::Category;
my @cats = MT::Category->top_level_categories($cfg{Blog_ID});
# ソート
my @s_cats = &sort_cat(@cats);
# サブカテゴリの取得
foreach my $category (@s_cats) {
my @c_cats = &get_subcatlist($category, 0);
foreach my $c_category (@c_cats) {
push @categories, $c_category;
}
}
return @categories;
}
##################################################
# Sub Get_SubCatList - セレクタ用サブカテゴリリストの取得
##################################################
sub get_subcatlist {
my $category = shift;
my $hierarchy = shift;
# 管理者モードでない場合には非表示カテゴリを処理する
# 親カテゴリが非表示なら子カテゴリも表示しない
if ($admin_mode ne "yes"){
my @nondispcats = split(",", $cfg{NonDispCat});
my $match_cat = 0;
for my $nondispcat (@nondispcats) {
if ($category->id == $nondispcat) {
$match_cat = 1;
last;
}
}
if ($match_cat > 0) {
return;
}
}
####################
# カテゴリの列挙
my %terms = (blog_id => $cfg{Blog_ID});
# 管理者モードでなければステータスが'公開'のエントリのみカウント
if ($admin_mode ne "yes"){
$terms{'status'} = 2;
}
require MT::Entry;
require MT::Placement;
my $count = MT::Entry->count( \%terms,
{ join => [ 'MT::Placement', 'entry_id',
{ blog_id => $cfg{Blog_ID}, category_id => $category->id } ] });
#if ($count == 0) {
# return;
#}
my @categories;
my $blank;
foreach (my $i = 0; $i < $hierarchy; $i++) {
$blank .= "-";
}
my $id = $category->{column_values}->{id};
my $label;
if ($cfg{CatDescReplace} eq "yes"){
$label = &conv_euc_z2h($category->{column_values}->{description});
# カテゴリ名ぶった切り
if ($cfg{LenCutCat} > 0) {
if (MT4i::Func::lenb_euc($label) > $cfg{LenCutCat}) {
$label = MT4i::Func::midb_euc($label, 0, $cfg{LenCutCat});
}
}
$label = $blank . $label;
} else {
$label = &conv_euc_z2h($category->{column_values}->{label});
# カテゴリ名ぶった切り
if ($cfg{LenCutCat} > 0) {
if (MT4i::Func::lenb_euc($label) > $cfg{LenCutCat}) {
$label = MT4i::Func::midb_euc($label, 0, $cfg{LenCutCat});
}
}
$label = $blank . $label;
}
if ($cat == $id){
push @categories, "$label($count)";
} else {
push @categories, " $label($count)";
}
require MT::Category;
my @cats = $category->children_categories;
if (@cats) {
# ソート
my @s_cats = &sort_cat(@cats);
# サブカテゴリの取得
foreach my $s_cat (@s_cats) {
my @c_cats = &get_subcatlist($s_cat, $hierarchy + 1);
foreach my $c_cat (@c_cats) {
push @categories, $c_cat;
}
}
}
return @categories;
}
##################################################
# Sub Sort_Cat - セレクタ用カテゴリリストのソート
##################################################
sub sort_cat {
my @cats = @_;
if ($cfg{CatDescSort} eq "asc"){
@cats = sort { $a->{column_values}->{label} cmp $b->{column_values}->{label} } @cats;
}elsif ($cfg{CatDescSort} eq "desc"){
@cats = reverse sort { $a->{column_values}->{label} cmp $b->{column_values}->{label} } @cats;
}
return @cats;
}