" if($Trtagchk < 1);
@indexbody = split(/\|/,$index[$i]);
foreach $Cell (@CellConst){
## ±Û¹øÈ£
if($Cell == 1){
$tabletag .= "";
if($TABLE{'text_num_addition'} == 1){
$tabletag .= " ".($indexsizetm - $i)."";
}
else{
$tabletag .= " ".($i+1)."";
}
$tabletag .= " | ";
}
## ÀÛ¼ºÀÏ
elsif($Cell == 4){
# ½Ã°£, ¿äÀϵîÀÌ ±â·ÏµÇ¾î ÀÖÀ¸¸é À̸¦ Á¦°Å
if($indexbody[23] =~ /^\d+\/(\d+\/\d+)/){$indexbody[23] = $1;}
elsif($indexbody[23] =~ /^\d+\/\d+/){$indexbody[23] = $&;}
elsif($indexbody[23] =~ /^\d+-(\d+-\d+)/){$indexbody[23] = $1;}
elsif($indexbody[23] =~ /^\d+-\d+/){$indexbody[23] = $&;}else{'';}
$tabletag .= "";
$tabletag .= " $indexbody[23]";
$tabletag .= " | ";
}
## ±ÛÁ¦¸ñ
elsif($Cell == 2){
$tabletag .= "";
if($indexbody[4] > 0 && $TABLE{'cell_width_expand'} < 2){
$tabletag .= (' ' x $indexbody[4]);
## ´äº¯±Û ¾Õ¿¡ ÀÌÀ½ÁÙÀ» ³ÖÀ¸·Á¸é À§ ¶óÀÎÀ» ¾Æ·¡ ¶óÀÎÀ¸·Î ±³Ã¼ÇÒ°Í.
# $tabletag .= (' ' x ($indexbody[4]-1))."";
}
## body_length ÀÌ 10º¸´Ù Å©¸é º»¹®Ãâ·ÂÇÔ
if($TABLE{'body_length'} > 10){
if($indexbody[32] ne 'x'){
$T_dir_x2 = $indexbody[39] ? $indexbody[39] : $textdir ;
open(BODY,"$TABLE{'board_path'}/$T_dir_x2/$indexbody[1].$filename_exp");
@textline_body = ;
close(BODY);
shift(@textline_body);
$textline_2body=join(' ',@textline_body );
}
else{
$textline_2body= ' ºñ°ø°³ ÁöÁ¤±Û ÀÔ´Ï´Ù.';
}
$textline_2body =~ s/::DISPLAY::/ /ig;
# MouseOver : ¹Ú½º³»¿¡ º»¹®Ãâ·Â
if($TABLE{'body_position'} > 0){
# htm ű״ Á¦°Å
$textline_2body =~ s/<([^>]|\n)*>/ /g;
$textline_3body = $textline_2body;
$textline_3body =~ s/\"//g;
$textline_3body =~ s/\'//g;
$indexbody[2]=~ s/\"//g;
$indexbody[2]=~ s/\'//g;
$textline_3body =~ s/\r//g;
if($indexbody[31]==1 || !$indexbody[31]){ $textline_3body =~ s/\n/ /g;}
else{ $textline_3body =~ s/\n/ /g;}
$textline_3body=&SubstrReturn($textline_3body,0,$TABLE{'body_length'},"..");
$textline_3body = "onMouseover=\"textbodyprint(' $indexbody[2] $textline_3body')\" onMouseout=textbodyprint(0,1)";
$textline_2body='';
}
# ±ÛÁ¦¸ñ ¾Æ·¡¿¡ º»¹®Ãâ·Â
else{
# htm ű״ Á¦°Å
$textline_2body =~ s/<([^>]|\n)*>/ /g if($TABLE{'body_htm_allow'} ne 'yes');
$textline_2body =~ s/onclick=[^>]+//gi;
$Boldface1 = '';
$Boldface2 = '';
if($indexbody[31]==1 || !$indexbody[31]){ $textline_2body =~ s/\n/ /g;}
$textline_2body=&SubstrReturn($textline_2body,0,$TABLE{'body_length'},"..");
$textline_2body = " $textline_2body";
}
}
if((length($indexbody[2]) > $TABLE{'subject_length'}) || !$indexbody[2]){
$indexbody[2] = &SubstrReturn($indexbody[2],0,$TABLE{'subject_length'},'..');
}
$tabletag .= "" if($TABLE{'subject_icon_url'});
$tabletag .= " $Boldface1$indexbody[2]$Boldface2";
$tabletag .= "¨¶" if($indexbody[32] eq 'x');
## new ¾ÆÀÌÄÜ À̹ÌÁö Ãâ·Â(À̹ÌÁö°æ·Î Á÷Á¢ÁöÁ¤ °¡´É)
$tabletag .= " " if((time - ($TABLE{'new_icon_time'} * 3600)) < $indexbody[1]);
$tabletag .= "$textline_2body";
$tabletag .= " | ";
undef $textline_2body;
undef $textline_3body;
}
## ±×¸²º¸±â(¼¶³×ÀÏ)
elsif($Cell == 11){
$tabletag .= "";
if(($imgsrc,$imgsrc2) = &img_search){
# ±×¸²Å¬¸¯Çϸé - ÇöÀçâ¿¡¼ º»¹®±Û + ±Û¸ñ·ÏÀÌ Ãâ·Â
if($TABLE{'append_img_click_event'}==3){
$tabletag .= "";
}
# ±×¸²Å¬¸¯Çϸé - »õâ¿¡¼ º»¹®±ÛÀÌ Ãâ·Â
elsif($TABLE{'append_img_click_event'}==1){
$tabletag .= "";
}
# ±×¸²Å¬¸¯Çϸé - »õâ¿¡¼ º»¹®±Û + ±Û¸ñ·ÏÀÌ Ãâ·Â
elsif($TABLE{'append_img_click_event'}==2){
$tabletag .= "";
}
# ±×¸²Å¬¸¯Çϸé - »õâ¿¡¼ Å«±×¸²À¸·Î Ãâ·Â
else{
$tabletag .= "";
}
$tabletag .= "$imgsrc";
if($Ud_num && $indexbody[$Ud_num]){
if($Ud_num == 2){
if((length($indexbody[2]) > $TABLE{'subject_length'}) || !$indexbody[2]){
$indexbody[2] = &SubstrReturn($indexbody[2],0,$TABLE{'subject_length'},'..');
}
}
$indexbody[$Ud_num] =~ s/\:\;/ /g;
$tabletag .= "
$indexbody[$Ud_num]";
}
$tabletag .= " | ";
}
else{
$tabletag .= " ";
}
}
## Á¶È¸¼ö
elsif($Cell == 40){
$tabletag .= "";
unless($Cnt_dir){
$Cnt_dir = ($indexbody[39] =~ /\d+/)? ('count'.$&) : 'count';
open(CNT,"$TABLE{'board_path'}/$Cnt_dir/$indexbody[1].cgi");
@Cnt_arr = split(/\|/,);
close(CNT);
}
$tabletag .= " $Cnt_arr[1]";
$tabletag .= " | ";
}
## ´ñ±Û¼ö
elsif($Cell == 41){
$tabletag .= "";
unless($Cnt_dir){
$Cnt_dir = ($indexbody[39] =~ /\d+/)? ('count'.$&) : 'count';
open(CNT,"$TABLE{'board_path'}/$Cnt_dir/$indexbody[1].cgi");
@Cnt_arr = split(/\|/,);
close(CNT);
}
$tabletag .= "[$Cnt_arr[2]]" if($Cnt_arr[2]);
$tabletag .= " | ";
}
## ±×¿Ü Ãâ·Â ¼¿
else{
$tabletag .= "";
if(length($indexbody[$Cell]) > $TABLE{'other_length'}){
$indexbody[$Cell] = &SubstrReturn($indexbody[$Cell],0,$TABLE{'other_length'},'');
}
$indexbody[$Cell] =~ s/\:\;/ /g;
$tabletag .= "$indexbody[$Cell]";
$tabletag .= " | ";
}
}
undef $Cnt_dir;
# °¡·Î È®Àå
if($TABLE{'cell_width_expand'} < 2){
$tabletag .= "
$wi_cross\n";
}
else{
$Trtagchk++;
if($Trtagchk == $TABLE{'cell_width_expand'}){
$tabletag .= "$wi_cross\n";
$Trtagchk=0;
}
}
}
$tabletag .= "