#!/usr/bin/perl -U

#---À§ ù¶óÀÎÀÇ perl  °æ·Î È®ÀÎÇÏ°í ¼­¹öȯ°æ°ú ´Ù¸£´Ù¸é ¼öÁ¤ÇÒ°Í  (¾Õ¿¡  #! ´Â ¹Ýµå½Ã ºÙÀÏ°Í)


#---config.cgi ÀÇ °æ·Î´ëÀÔ
require './config.cgi';


# ----------------------------------------------------------#
# ÇÁ·Î±×·¥ ¸íĪ,¹öÀü: TECHNOTE-TOP-[Plus ¹öÀü]
# »ç¿ë±Ç ±¸ºÐ: À¯·á »ó¿ë¹öÀü
# ÀúÀÛ±Ç ¼ÒÀ¯: Å×Å©³ëÆ®INC  (http://www.technote.co.kr)

# ÀÌ ÆÄÀÏÀº TECHNOTE-TOP  »ó¿ë¹öÀüÀÇ ÀϺκÐÀ¸·Î¼­ º» ¼ÒÇÁÆ®¿þ¾î¸¦
# Á¤½Ä±¸ÀÔÇÑ °æ¿ì¿¡¸¸ »ç¿ëÀÌ Çã¿ëµÇ¸ç, Àç¹èÆ÷, ÀçÆǸŠÇàÀ§´Â ±ÝÁöµË´Ï´Ù.
# http://www.technote.co.kr ¿¡¼­¸¸ ¿Â¶óÀÎÀ¸·Î Á¤½Ä ÆǸŵ˴ϴÙ.
# ÀÌ ¼Ò½º¸¦ ÀÌ¿ëÇÑ 2Â÷Àû ÀúÀÛ¹° Á¦ÀÛ,¹èÆ÷´Â ±ÝÇÕ´Ï´Ù.
# Copyright(c)   Å×Å©³ëÆ®INC   (since 1998~)
# ÃÖÁ¾¼öÁ¤ ¹èÆ÷ÀÏ 2002/11
# ----------------------------------------------------------#




&parse;umask(000);$DIRtarget=$FORM{'board'} ? $FORM{'board'} : 'FREE_BOARD';
$uploadpath="$board_dir_path/$DIRtarget/$upimgdir";$upfiledir="$board_dir_path/$DIRtarget/$uploaddir";
$thispath="$board_dir_path/$DIRtarget";$maincg="$maincgorfile?board=$DIRtarget";
$readimgcg ="$cgi_dir_url/$imgcg";&open_config;&get_cookie;&window_form;
sub window_form{&Link_Cut_Notice if(@LINK_PMS_URL && $config[110]==1);
if($config[131] != 1 && !$TEck_Name && !$TEck_Mail){&READ_right;}
# if($config[61] != 1 && !$TEck_Name && !$TEck_Mail){&ENTER_right;}
if($FORM{'back'}){$BackOrderprt = '&back=1';$print_s = 'print_s_back';}
else{$BackOrderprt = '';$print_s = 'print_s_right';}$print_num = ($config[176] == 2)? 'print_num_right' : 'print_num_back';
&close_lock;if(!$FORM{'r_search'} && ($FORM{'back'} || $config[177] ==  1)){&RE_join_index ;}
else{$NoReJoin = 1;}if(!$neworderindex || $FORM{'VOTEPUT'} || ($FORM{'command'} eq 'point_in')){&open_index;&hitreadindex;}
if($config[104]>1 && !$TEck_Name && !$TEck_Mail){if($config[104]==2){unless($TEck_Home){
&open_lock;&MoveLocation('ȸ¿ø·Î±×ÀÎ ÇÏ¼Å¾ß ±Û ÀбⰡ °¡´ÉÇÕ´Ï´Ù.','inputidview',1);}
if($readline[3] !~ /^\s*$visitor_line[0]\s*$/ && $readline[25] !~ /^\s*$visitor_line[0]\s*$/){
if($readline[3] !~ /^\s*\S+\($visitor_line[0]\)\s*$/ && $readline[25] !~ /^\s*\S+\($visitor_line[0]\)\s*$/){
&open_lock;&error_message('ÀÚ½ÅÀÇ ¾ÆÀ̵ð·Î µî·ÏµÈ ±Û¸¸ Á¶È¸ °¡´ÉÇÕ´Ï´Ù.');}}}
else{if(!$FORM{'r_search'} || ($FORM{'r_search'} ne $readline[5])){
if((!$TEck_Home) || (($readline[3] !~ /^\s*$visitor_line[0]\s*$/) && ($readline[25] !~ /^\s*$visitor_line[0]\s*$/))){
if($readline[3] !~ /^\s*\S+\($FORM{'r_search'}\)\s*$/ && $readline[25] !~ /^\s*\S+\($FORM{'r_search'}\)\s*$/){
&open_lock;&error_message('ÁÖ¹®Á¤º¸ Á¶È¸¸¦ À§Çؼ­´Â ¹Ýµå½Ã ÁÖ¹®¹øÈ£¸¦ ÀÔ·ÂÇϰųª ·Î±×ÀÎ ÇØ¾ß ÇÕ´Ï´Ù.');}}}}$nnew=1;}
if($readline[13]){$sIKr = 1;
if(($readline[32] eq 'x') && !$TEck_Name && !$TEck_Mail){require ("$lib_dir_path/Lib-14.cgi");&secretread("$readline[13]","$readline[30]");}}
&write_hitcount if($config[205] == 1);unless(@hreadcount){open(CNT,"$thispath/".&CntDirName($readline[39])."/$readline[1].$filename_exp");
@hreadcount = split(/\|/,<CNT>);close(CNT);}&open_lock;if($neworderindex){$NEXTBUTN = $NEXTBUTN_x;$PREVBUTN = $PREVBUTN_x;}
$sIKr2 = 1 if($readline[30]);$sIKr3 = 1 if($readline[6]);$config[265] =~ /=([^\/]+)\:([^\/]+)\//;
$Sex_Mn = $1;$Sex_Wn = $2;$config[265] =~ /^([^\/]+)\/([^\/]+)\/([^\/]+)\//;$W_Home = $3;$FORM{'x_number'} = $readline[1];
if($config[222] == 1){$man_or_wom = &SexRead($readline[12]);}for(1,2,3,244,156,284,301,286,210,211,212,213,151,160,161,162,215,204){$config[$_] =~ s/^\s+$//;}
$bgcolor= &Getbgcolor($config[1]);if($FORM{'r_search'}){@word_sh=split(/ /,$FORM{'r_search'});}
$config[215] = &TableimgS_E("$config[215]");$simplecol = $readline[7] ? &ReadLineReturn($readline[7]) : &Getbgcolor($config[159]);
if($readline[36] == 3){if($readline[10]){if($cgi_dir_appoint == 1){$simplecol="style=\"background-image:url('$board_dir_url/$DIRtarget/$upimgdir/$readline[10]'); background-repeat:no-repeat; background-position:50% 50%;\"";}
else{$simplecol= "style=\"background-image:url('$readimgcg?board=$DIRtarget&img=$readline[10]'); background-repeat:no-repeat; background-position:50% 50%;\"";}}
elsif($readline[9]){$simplecol= "style=\"background-image:url('$Faceimg_url/$readline[9]'); background-repeat:no-repeat; background-position:50% 50%;\"";}
elsif($readline[11]){$simplecol= "style=\"background-image:url('$readline[11]'); background-repeat:no-repeat; background-position:50% 50%;\"";}
else{'';}}$text_title_number = $PREVBUTN;$text_title_number = ($indexsize - $text_title_number + 1)if(($FORM{'back'} && $config[176] != 1) || (!$FORM{'back'} && $config[176] == 1));
if($ENV{'HTTP_USER_AGENT'} =~ /MSIE\s+4\./i){$SHULine = 1;}
$NewWin = "target=\'$scripimport\' onClick=\"fork(\'techboard\')\"" if($config[203] == 2 || $nnew == 2);
if($config[172] != 2 && $readline[31] != 2){$Newline = "<br>" ;}else{$TxtEbr = "<br>";}@CellTitleH = split(/\//,$config[262]);foreach $key (@CellTitleH) {$key = &TableimgS_E($key);}
$config[136] += 0;
if($FORM{'guest_name'} && ($FORM{'guest_text'} || $FORM{'guest_text2'}) && ($config[218] == 1 || $config[182] == 1)){
require ("$lib_dir_path/Lib-10.cgi");
&write_guest_text;
}
$displayin = ($config[276] != 1)? 'ReturnBlank' : 'ShopDisplay';
if(($config[253] != 1 &&  $nnew == 1) || $FORM{'DEL_HTM_MENU'}){$config[209]=''; $config[295]=''; $config[287]='';
$configlog[1] = '';$configlog[13] = '';}elsif($config[166] == 2){$configlog[1] = ''; $configlog[13] = '';}else{
$configlog[1] =~ s/\|/\n/g;
$configlog[13] =~ s/\|/\n/g;
$configlog[1] =~ s/¦¢/\|/g;
$configlog[13] =~ s/¦¢/\|/g;
&HTM_BODY_BEGIN_END;}
for(49..52,189,190){if($config[$_] =~ s/\-(center|right|left)//i){$tbalign{$_} = "$1";}else{$tbalign{$_} = "center";}$config[$_] =~ s/=.*//;}
if($config[151] =~ /(\S+):(\S+)/){$Btlc1 = $1;$Btlc2 = $2;}elsif($config[151]){$Btlc1 = '#ffffff';$Btlc2 = $config[151];}else{'';}
$config[264]=~/([^\/]+)\/[^\/]+$/;
#public
if($cgi_dir_appoint==1){$nameicdir = "$board_dir_url/$1/$upimgdir/";}
#cgiwrap
else{$nameicdir = "$cgi_dir_url/$imgcg?board=$1&img=";}
&Content_type_print;
print <<END;
<!--
TECHNOTE-TOP(plus)
File: read.cgi
Update:2002.11
Copyright(c) 1999,11 technote inc. All right reserved.
http://www.technote.co.kr
-->
<HTML>
<HEAD>$Htm_in_head
<TITLE>[$text_title_number] $readline[2] ($DIRtarget)</TITLE>
<STYLE TYPE='text/css'>
BODY,TD,TR,input,DIV,form,TEXTAREA,P,select{color:$config[2]; font-size:9pt;font-family:±¼¸²,Tahoma;text-align:justify;} 
# BODY,textarea{overflow:auto;}
A:link {color:#000000; text-decoration:none;}
A:visited {color:#000000; text-decoration:none;}
A:hover {color:#000000; text-decoration:underline;}
.Formstyle{color:#444455; background-color:#ffffff; border:1 solid #666677;}
END
if($nnew == 2 && $config[217] > 1){
&Css_id_print($config[142],$config[146],'center',1);
&Css_id_print($config[54],$config[56],'',2);
&Css_id_print($config[143],$config[147],'center',3);
&Css_id_print($config[144],$config[148],'center',4,8);
&Css_id_print($config[145],$config[149],'center',5,8);
&Css_id_print($config[145],$config[149],'center',6,8);
&Css_id_print($config[144],$config[148],'center',7);
&Css_id_print($config[143],$config[147],'center',8,8);
&Css_id_print($config[144],$config[148],'center',9);
&Css_id_print($config[66],$config[67],$tbalign{49},10);
&Css_id_print($config[68],$config[69],$tbalign{50},11);
&Css_id_print($config[66],$config[67],$tbalign{51},12);
&Css_id_print($config[68],$config[69],$tbalign{52},13);
&Css_id_print($config[66],$config[67],$tbalign{189},14);
&Css_id_print($config[68],$config[69],$tbalign{190},15);
&Css_id_print($config[54],$config[56],'center',17);
$Namealign = ($config[122] == 2)? "center" : "" ;
&Css_id_print($config[144],$config[148],$Namealign,20,8);
&Css_id_print($config[145],$config[149],'center',22,8);
&Css_id_print($config[143],'','center',23);
&Css_id_print($config[145],$config[149],'center',24,8);
&Css_id_print($config[145],$config[149],'center',25,8);
&Css_id_print($config[19],$config[20],'center','Head');
}
$scripimport3 = "$scripimport"."x";
print <<END;
</style>
$On_Load_URL
<script language='JavaScript'>
var $scripimport = null;
function fork(type,url) {
if(type == "techboard" ){ $scripimport = window.open('', '$scripimport', 'scrollbars=yes,resizable=yes,copyhistory=yes,width=600,height=700');}
else if(type == "mail_form" ){ $scripimport = window.open('', '$scripimport', 'scrollbars=yes,resizable=yes,width=550,height=480');}
else if(type == "inputbutton" ){ $scripimport = window.open('', '$scripimport', 'status=yes,scrollbars=yes,resizable=yes,copyhistory=yes,width=700,height=500');}
else if(type == "musicbox" ){ $scripimport = window.open('', '$scripimport3', 'resizable=1,copyhistory=1,width=330,height=180');}
else{ $scripimport = window.open(url, '$scripimport', 'status=yes,scrollbars=yes,resizable=yes,copyhistory=yes,width=650,height=480');}
$scripimport.focus();
return;
}
</script>



<STYLE type='text\/css'>
BODY { scrollbar-3dlight-color:ffffff;
scrollbar-arrow-color:666666;
scrollbar-track-color:e7e7e7;
scrollbar-darkshadow-color:e7e7e7;
scrollbar-face-color:ffffff;
scrollbar-highlight-color:aaaaaa;
scrollbar-shadow-color:aaaaaa}
<\/STYLE>


</HEAD>
<BODY $bgcolor  topmargin='$config[136]' leftmargin='$config[136]'><div align=$config[285]>$BODY_BEGIN$configlog[1]
END
print &Htmgifjpg("$config[209]");
if($readline[24] && (($config[98] != 3) || $FORM{'r_search'} || $back_index[3])){
print "<TABLE border=0 cellspacing=0 cellpadding=3 width=$config[164]><tr>
<td width=30>&nbsp;&nbsp;</td><td style='word-break:break-all;'>
<img src=$Baseimg_url/arrow8.gif  border=0 align=absmiddle> <a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&x_number=$readline[26]$BackOrderprt\">
<font color=$config[3]><b>$readline[24]</b></font></a>($readline[25])<br>\n";
if($config[98] == 1){$T_dir_x2 = $readline[39] ? $readline[39] : $textdir ;
open(TEXT, "$thispath/$T_dir_x2/$readline[26].$filename_exp");
@readtext=<TEXT>;close(TEXT);chop(@readtext);shift(@readtext);
foreach $text_print(@readtext){$text_print =~ s/<([^>]|\n)*>//g;print "$text_print<br>";}}
print "</td></tr></table>";}
if($readline[16]){ $config[162] = $readline[16];}
else{ $readline[16] = $config[160];}
$readline[15] = $config[22] unless($readline[15]);
$config[165] += 0;
print "<TABLE border=0 style='border-width:$config[165]; ";
print " border-color:$config[161]; border-style:solid; " if($config[161]);
print "' $simplecol  cellpadding=8 cellspacing=0 width='$config[164]'><TR><TD";
print " bgcolor='$config[299]'" if($config[299] =~ /\S+/);
print ">";

#---¿©±â¼­ºÎÅÍ º»¹® »ó´ÜÀÇ ¼ÒÇ׸ñ(À̸§,ȨÆäÀÌÁö,¸ÞÀÏ,ÀÛ¼ºÀÏ...) Ãâ·ÂºÎºÐÀÓ--------#
print "<font color='$readline[16]' face='$readline[15]'>\n";

# ±Û¹øÈ£---
print "$config[215] <font style='font-size:8pt;'>No, $text_title_number</font><br>" if($config[214] != 2);

if(($readline[3] || $readline[6])  && ($config[207] != 2)){

    # À̸§
    print "$config[215] $CellTitleH[2]: ";
      unless($hreadcount[14]){print "$readline[3]";} # ±ÛÀÚ
      else{print "<img src='$nameicdir"."$hreadcount[14]' border=0 alt='$readline[3]'>";} # ³×ÀÓ¾ÆÀÌÄÜ

    # ¸ÞÀÏ
    print " (<a href=mailto:$readline[6]><font color='$config[162]'>$readline[6]</font></a>)\n" if($readline[6] && ($config[158] != 2 || $TEck_Name || $TEck_Mail));
    print if($readline[5] || $man_or_wom || $readline[8]);
    print "<br>\n";
}

# ȨÆäÀÌÁö ÁÖ¼Ò---
print "$config[215] $W_Home: <a href=$readline[18] target=_blank><font color='$config[162]'>$readline[18]</font></a><BR>\n" if($readline[18] && ($config[158] != 2 || $TEck_Name || $TEck_Mail));

# ÀÔ·ÂÃß°¡Ç׸ñ---
&Plusnum_txt(19,'','',49,'A');
&Plusnum_txt(20,'','',50,'B');
&Plusnum_txt(21,'','',51,'C');
&Plusnum_txt(22,'','',52,'D');
&Plusnum_txt(37,'','',189,'E');
&Plusnum_txt(38,'','',190,'F');

# ÀÛ¼ºÀÏ ---
# if($config[10]==1){ $readline[14] =~ s/^(\S+).*/\1/ unless($TEck_Mail || $TEck_Name);
  if($config[10]==1){ $readline[14] =~ s/^(\S+).*/\1/ unless($TEck_Mail || $TEck_Name); 
    $readline[14] =~ s/^(\S+)(.*)/\1<font style=\'font-size:7pt; font-family:Tahoma;\'>\2<\/font>/;
    print "$config[215] <font style='font-size:8pt; font-family:µ¸¿ò;'>$readline[14]</font><br>\n";
}

## Á¶È¸¼ö---
print "$config[215] $CellTitleH[4]: $hreadcount[1] <br>\n" if($config[183] == 1);

# ÃßõÁ¡¼ö---
print "$config[215] $CellTitleH[5]: $hreadcount[3]<br>\n" if($config[13]==1);

if($config[109]!=2){
if($readline[17]){
if(&music_type("$readline[17]")){
&musicbox_print('17');
$MfileUp = 1;
}
else{
    # ÆÄÀÏ÷ºÎ-¾ÆÀÌÄÜ¿¡ ´Ù¿î·Îµå ¸µÅ©
    print "<a href=\"$cgi_dir_url/$maincgorfile/$readline[17]?down_num=$readline[1]&board=$DIRtarget&command=down_load&d=$readline[39]&filename=$readline[17]\" ";
    print $NewWin if(&linkfiletype($readline[17]));
    print ">";
}
    # ÆÄÀÏ÷ºÎ-¾ÆÀÌÄÜ Å¸ÀÔ, ´Ù¿îȽ¼ö
    print "<font color='$config[162]'><img src=$Subjectimg_url/".&Get_icon_type($readline[17],17)." border=0 align=absmiddle>$readline[17]</font></a> <font style=font-size:8pt;>(";
    print &UnitFsize("$readline[29]");
    print ", DN:$hreadcount[4])</font><br>\n";
}
if($readline[28]){if(&music_type("$readline[28]")){&musicbox_print('28');}
else{
$linkload = $readline[28];
$linkload =~ s/\&/VvQx/g;
$linkload =~ s/=/QqxV/g;
    # url ¸µÅ©
    print "<a href=\"$readimgcg?board=$DIRtarget&link=$linkload&Count=$readline[1]&d=$readline[39]\" ";
    if($readline[28] =~ /\.(gif|jpg|bmp)$/i){print "$NewWin";}
    else{print "target=_blank" if(&linkfiletype($readline[28]));}print ">";}
    $readline[28] =~ s/\/$//;
    $readline[28] =~ s/\S+\///;
    $readline[28] =~ s/\?(.*)$//;
    # url ¸µÅ© ¾ÆÀÌÄÜ Å¸ÀÔ
    print "<font color='$config[162]'><img src=$Subjectimg_url/".&Get_icon_type($readline[28])." border=0 align=absmiddle>$readline[28]</font></a><font style=font-size:8pt;>(";
    print &UnitFsize("$readline[29]")." " if(!$readline[17] && $readline[29]);
    # url ¸µÅ© load Ƚ¼ö
    print "Load:$hreadcount[5])</font><br>\n";}}

print "</font>";
#-- ¿©±â±îÁö°¡ º»¹® »ó´ÜÀÇ ¼ÒÇ׸ñ(À̸§,ȨÆäÀÌÁö,¸ÞÀÏ,ÀÛ¼ºÀÏ...) Ãâ·ÂºÎºÐÀÓ------------#

print "</td></tr><tr><td align='$readline[40]' style='line-height:$config[304]; word-break:break-all;'><font color='$readline[16]' face='$readline[15]'>\n";
if(!$readline[36]){&PUT_img;}
print "$Donotpoint";
&open_main_text;
if($readline[2] && $config[296]==1){
print &TableimgS_E("$config[204]");

# -- ±ÛÁ¦¸ñ
print " <b><font style='font-size:12pt; color:#0066CC'>$readline[2]</font></b>";}

if($readline[34]){&Voteinput;}
else{print "<table cellpadding=0 cellspacing=0 border=0><tr><td height=10></td></tr></table>" if($readline[2] && $config[296]==1);}
if($readline[36] == 1 || $readline[36] == 2 || $readline[36] == 4){&PUT_img;}
if($config[104]==3){
require ("$lib_dir_path/Lib-27.cgi");
&Orders_form;
}
$blankcolor =  $config[162];
chop(@readtext);
shift(@readtext);
#-- °Ë»ö¾î Àû»öÇ¥½Ã
$R_shwrd = ($FORM{'r_search'} && $readline[31]!=2)? "Shwdcolor" : "ReturnBlank";
$SpaceNo = ($readline[31] == 2) ? '1' : '' ;
foreach $text_print(@readtext){
&text_print_fd("$SpaceNo");
#-- °Ë»ö¾î Àû»öÇ¥½Ã
&$R_shwrd;
&$displayin;
print "$text_print$TalignSpacebody$Newline\n";
undef $ck_wd;}
if($readline[36] == 5){&PUT_img;}
print "$TxtEbr</font></TD></TR></TABLE>\n";
print "<table border=0 cellspacing=5 width='$config[164]'><tr><td  style='word-break:break-all;'>";
if($config[218]==1){ if($config[240]==3){&guest_text if($visitor_line[0]);} else{&guest_text;}}
print ("&nbsp; " x 10);
$readline[6] =~ tr/ /+/;
$readline[3] =~ tr/ /+/;
if($config[182] != 2 || $TEck_Name  || $TEck_Mail){
print "<a href=\"$cgi_dir_url/$maincg&command=write_form&nnew=$FORM{'nnew'}&";
print "sIKr=1&" if($sIKr);
print "sIKr2=1&" if($sIKr2);
print "sIKr3=1&" if($sIKr3);
print "answer=$readline[1]\"><img src=$Buttonimg_url2/inanswer.gif border=1 style='border-color:$Btlc1'  onmouseover=javascript:this.style.cssText='border-color:$Btlc2' onmouseout=javascript:this.style.cssText='border-color:$Btlc1' alt=\"´äº¯/°ü·Ã ¾²±â\"></a> ";}
if($config[12]==1 || $TEck_Name  || $TEck_Mail){print "<a href=\"$cgi_dir_url/$maincg&command=guest_email&textnum=$readline[1]\" $NewWin><img src=$Buttonimg_url2/inmail.gif border=1 style='border-color:$Btlc1'  onmouseover=javascript:this.style.cssText='border-color:$Btlc2' onmouseout=javascript:this.style.cssText='border-color:$Btlc1' alt=\"Æû¸ÞÀÏ ¹ß¼Û\"></a> ";}
if($config[70]==1 || $TEck_Name  || $TEck_Mail){print "<a href=\"$cgi_dir_url/$maincg&command=delete_form&number=$readline[1]&nnew=$FORM{'nnew'}\"><img src=$Buttonimg_url2/inmend.gif border=1 style='border-color:$Btlc1'  onmouseover=javascript:this.style.cssText='border-color:$Btlc2' onmouseout=javascript:this.style.cssText='border-color:$Btlc1' alt=\"¼öÁ¤/»èÁ¦\"></a>";}
if($FORM{'top'}){$PREVBUTN = $indexsize;$NEXTBUTN = $indexsize-1;}
&DnUp_Btn if($config[184] != 2);
if($nnew == 1){print "&nbsp; &nbsp; <a href=\"javascript:window.close()\"><img src=$Baseimg_url/close.gif alt='â´Ý±â' border=1 style='border-color:$Btlc1'  onmouseover=javascript:this.style.cssText='border-color:$Btlc2' onmouseout=javascript:this.style.cssText='border-color:$Btlc1' align=absmiddle></a> ";}
if($config[13]==1 && !$fail_p && &Checkcookie('Po17p')){
&Right_CHeck_Form('239');
&input_hidden('command','point_in');
&input_hidden('re_POINT',$FORM{'point'});
print "&nbsp; &nbsp; <SELECT name=point class=Formstyle>";
@point_select=split(/\//, $config[83]);
foreach $key (@point_select){print "<OPTION value=\"$key\">$key</OPTION>";}
print "</SELECT><input type=image src='$Buttonimg_url2/inpoint.gif' align=absmiddle border=0>";
print &Perm_Print('239');
print "</FORM>\n";}
if($readline[27] && (($config[98] != 3) || $FORM{'r_search'} || $back_index[3])){
@target_line=split(/:::/ ,$readline[27]);
$ManyText = @target_line - 1;
print "<BLOCKQUOTE  style='MARGIN-LEFT: 30;'>";
while($ManyText >= 0){
if($target_line[$ManyText]){
@target_text=split(/::/,$target_line[$ManyText]);
print "<img src=$Baseimg_url/arrow9.gif border=0> <a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&x_number=$target_text[0]$BackOrderprt\"><font color=$config[3]><b>$target_text[1]</b></font></a>($target_text[2])";
if($config[98] == 1){
open(TEXT, "$thispath/$T_dir_x2/$target_text[0].$filename_exp");
@readtext=<TEXT>;
close(TEXT);
chop(@readtext);
shift(@readtext);
foreach $text_print(@readtext){
$text_print =~ s/<([^>]|\n)*>//g;
print "$text_print<br>";}}
print "<br>";}
$ManyText -= 1;}}
print "</td></tr></table>";
print &Htmgifjpg("$config[295]");
if($nnew == 2){
$config[217] = 0 if($config[217] < 2);
$TableManY = $config[217] - 1;
if(!$config[186]){$Subiconrpt = &MainTexticon;}
else{$Myicon =&TableimgS_E("$config[186]");$Subiconrpt = 'GetinMyicon';}
if($config[217] > 1){$config[243] = $config[309] if($config[309]=~/\d+/);
if($config[243]=~/17/){if($config[174] =~ s/\s*style.*//i){$IMGsty .= $&;}
if($config[174]=~/^(\d+)$/){$IMGsty .= " height=$1 ";}
elsif($config[174]=~/(\d+)\/(\d+)/){$IMGsty .= " width=$1  height=$2 ";}
elsif($config[174]=~/^\/(\d+)$/){$IMGsty .= " height=$1 ";}
elsif($config[174]=~/^(\d+)\/$/){$IMGsty .= " width=$1 ";}
elsif($config[174]=~/(\d+)/){$IMGsty .= " height=$1 ";}else{'';}
if(!$config[278]){'';} elsif($config[278]==2){$Ud_num = 2;}
elsif($config[278]==3){$Ud_num = 3;}elsif($config[278]==4){$Ud_num = 23;}
elsif($config[278]==10){$Ud_num = 19;}elsif($config[278]==11){$Ud_num = 20;}
elsif($config[278]==12){$Ud_num = 21;}elsif($config[278]==13){$Ud_num = 22;}
elsif($config[278]==14){$Ud_num = 37;}elsif($config[278]==15){$Ud_num = 38;}else{'';}}
&indextable;
$PREVBUTNLG = $PREVBUTN + $TableManY;
$NEXTBUTNLG = $NEXTBUTN - $TableManY;
}else{$PREVBUTNLG = $PREVBUTN ;$NEXTBUTNLG = $NEXTBUTN ;}
if($config[181]==1){$PREVBUTNLG = $indexsize - 1 if($PREVBUTNLG > $indexsize - 1);
$NEXTBUTNLG = '0' if($NEXTBUTNLG < 0);
&INDEXBT_print;}}
print &Htmgifjpg("$config[287]");
print "$configlog[13]$BODY_END</div></body></html>";
exit;
}
sub Shwdcolor{return if($ck_wd || $SHULine);foreach $key(@word_sh){$text_print =~ s/$key/<font color=red>$key<\/font>/ig;}}
sub SexRead{local($WMn) = @_;return if(!$WMn);if($WMn == 2){return $Sex_Wn;}else{return $Sex_Mn;}}
sub DnUp_Btn{
print " &nbsp; &nbsp; ";
if($PREVBUTN < $indexsize){print "<a href=$cgi_dir_url/$readcg?board=$DIRtarget&y_number=$PREVBUTN$BackOrderprt><img src=$Buttonimg_url2/prev.gif border=0 alt=ÀÌÀü±Û></a>";}
if($NEXTBUTN >= 0){print " <a href=$cgi_dir_url/$readcg?board=$DIRtarget&y_number=$NEXTBUTN$BackOrderprt><img src=$Buttonimg_url2/next.gif border=0  alt=´ÙÀ½±Û></a>";}
print " &nbsp; &nbsp; ";}
sub form_head{
local($in1,$in2)=@_;
print "\n\n<FORM method=post $in2 action='$cgi_dir_url/$readcg'>\n";
&input_hidden('board',$DIRtarget);
&input_hidden('back',$FORM{'back'});
&input_hidden('x_number',$readline[1]);
&input_hidden('top',$FORM{'top'});
}
sub Right_CHeck_Target{local($in1,$in2)=@_;print "<FORM method=post $in2 action=$cgi_dir_url/$maincgorfile>\n";&input_hidden('board',$DIRtarget);&input_hidden('top',$FORM{'top'});}
sub Right_CHeck_Form{
local($num,$rest,$formname) = @_;
$formname = "name=$formname" if($formname);
if($config[$num] == 2 && !$TEck_Name && !$TEck_Mail){
&Right_CHeck_Target("","$formname");
&input_hidden('priv_read_manager','1');}
elsif($config[$num] == 3 && !$TEck_Home && !$TEck_Name && !$TEck_Mail){
&Right_CHeck_Target("","$formname");
&input_hidden('inputidview','1');
&input_hidden('login_after_url',&Thispageurl);}
else{&form_head("","$formname");}}
sub open_main_text{
$T_dir_x2 = $readline[39] ? $readline[39] : $textdir ;
open(TEXT, "$thispath/$T_dir_x2/$readline[1].$filename_exp");
@readtext=<TEXT>;
close(TEXT);
$maintxtsize = @readtext;
}
sub guest_text{
print "
<script language='JavaScript'>
opinionin = -1;
TGCol = new Array(83,83,83,83);
TGRow = new Array(10,20,10,20);
function opinionform(){
var TiGsM =  document.OPINFORM;
var GtCs = TiGsM.guest_text2;
if(opinionin == -1){
//GtCs.value = TiGsM.guest_text.value;
TiGsM.guest_text.value = '';
Tcfield2.style.display = 'inline';
Tcfield1.style.display= 'none';
}
opinionin = opinionin + 1;
if(opinionin > 3){opinionin=0;}
GtCs.cols=TGCol[opinionin];
GtCs.rows=TGRow[opinionin];
}
</script>
";
$cook_name = $FORM{'guest_name'} if($FORM{'guest_name'});
$cook_name = $visitor_line[2] if($visitor_line[2]);
$cook_mail = $FORM{'guest_mail'} if($FORM{'guest_mail'});
$cook_mail = $visitor_line[3] if(!$cook_mail);
$cook_id = $FORM{'guest_name'} if($FORM{'guest_name'});
$cook_id = $visitor_line[0] if(!$cook_id);
if($config[113]==2){$cook_name  = $cook_id;$visitor_line[2] =$visitor_line[0];}
&Right_CHeck_Form('240','','OPINFORM');
print "<input type=hidden name='r_search' value=$FORM{'r_search'}>";
print "<table cellpadding=0 cellspacing=0 width=100%><tr><td bgcolor=#dddddd hieght=1></td></tr></table><br>   <font color=#00568E  style='font-size:9pt;font-family:Tahoma'><b>¡á Åä·ÐÀÚ:</b></font> ";
if(( 2 < length($visitor_line[2])) &&!$TEck_Name &&!$TEck_Mail &&($config[61]==3 || $config[42]==3 || $config[97]==3 || $config[131]==3 || $config[240]==3)){
print "<input type=hidden name=guest_name size=17 value='$visitor_line[2]'>\n<font color='#0072BC'><b> $visitor_line[2]</b></font>";}
else{print "<input type=text name=guest_name size=17 maxlength=15 value='$cook_id' style='color:#444455; background-color:#f7f7f7; border:1 solid #cccccc;'>";}
print "  ";
if($readline[31]!=1){
print "
<input type=radio name=headicon value='toronsil_imoticon_000.gif' checked><img src='$Faceimg_url/toronsil_imoticon_000.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_001.gif' checked><img src='$Faceimg_url/toronsil_imoticon_001.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_002.gif' checked><img src='$Faceimg_url/toronsil_imoticon_002.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_003.gif' checked><img src='$Faceimg_url/toronsil_imoticon_003.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_004.gif' checked><img src='$Faceimg_url/toronsil_imoticon_004.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_005.gif' checked><img src='$Faceimg_url/toronsil_imoticon_005.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_009.gif' checked><img src='$Faceimg_url/toronsil_imoticon_009.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_010.gif' checked><img src='$Faceimg_url/toronsil_imoticon_010.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_011.gif' checked><img src='$Faceimg_url/toronsil_imoticon_011.gif' border=0>
<input type=radio name=headicon value='toronsil_imoticon_012.gif' checked><img src='$Faceimg_url/toronsil_imoticon_012.gif' border=0>
";
print " <input type=radio name=headicon value='bitimg7.gif'><img src='$Faceimg_url/bitimg7.gif' border=0>\n" if($TEck_Name || $TEck_Mail);
}
print &Perm_Print('240');
print "<br><nobr>   ";
print "<font id=Tcfield1 style=display:none;><input type=text name=guest_text size=60 class=Formstyle";
if(!$TEck_Home && !$TEck_Name && $config[240]!=1){print "  onclick=\"OPINFORM.submit()\" ";}
print "></font>";
print "<font  id=Tcfield2 style=display:inline;><textarea name=guest_text2 cols=90 rows=10 style='background-color:rgb(244,244,244); border-width:1; border-color:rgb(204,204,204); border-style:solid;' class=Formstyle ";
if(!$TEck_Home && !$TEck_Name && $config[240]!=1){print "  onclick=\"OPINFORM.submit()\" ";}
print " ></textarea></font>";
print "";
print "<input type=image src=$Buttonimg_url2/button.gif align=absmiddle border=0 
    onclick=\"if(document.OPINFORM.guest_name.value == ''){alert('¾ÆÀ̵𳪠¼ºÇÔÀ» ÀÔ·ÂÇϼ¼¿ä. ²ÀÀÌ¿ä!'); return false;}\"></nobr></form><table cellpadding=0 cellspacing=0 width=100%><tr><td bgcolor=#dddddd hieght=1></td></tr></table><br>";}
sub PUT_img{ return if(!$readline[9] && !$readline[10] && !$readline[11]); require ("$lib_dir_path/Lib-26.cgi"); &PUT_img2;}
sub Voteinput{
$VT_rdline = $readtext[0];
chop($VT_rdline);
@TXR_line = split(/\|/,$VT_rdline);
print "</font></td></tr><tr><td><font color='$readline[16]' face='$readline[15]'>";
if(!$fail_v && &Checkcookie('Vo19C')){
$Vs_v_ok = 1;}
@vote_target = split(/\//,$TXR_line[34]);
@vote_point = split(/\//,$TXR_line[35]);
$manytarget=@vote_target;
foreach $key (@vote_point){$Total_Point += $key;$bestpoint = $key if($bestpoint < $key);}
$Total_Point = 1 if(!$Total_Point);
$bestpoint = 1 if($bestpoint < 1);
$brige = $Graph_w/$bestpoint;
print "\n\n\n<!---- ÅõÇ¥¼³Á¤ ½ÃÀÛ ---->\n\n\n<TABLE border=0 cellspacing=0 cellpadding=1>\n";
if($Vs_v_ok){&Right_CHeck_Form('239');}
$ttm = 1;
for(0..($manytarget - 1)){

$formum = $_ + 1;
$pwidth = ($vote_point[$_] * $brige) + 5 ;
$vote_point[$_] = '0' if($vote_point[$_] < 1);
print "<TR><TD><font color='$readline[16]' face='$readline[15]'>";
if($Vs_v_ok){print "<input type=radio name=VOTEPUT value='$formum'>" ;}
else{print "<img src=$Baseimg_url/point3.gif  border=0> ";}
print "$vote_target[$_]</font></TD><td><nobr>\n";
if(($config[168] == 1) || !$Vs_v_ok){
$percent = ($vote_point[$_]/$Total_Point)*100;
print "&nbsp;<IMG src=$Baseimg_url/grap1.gif height=10 width='$pwidth'  border=0 align=absmiddle><font style=font-size:8pt>";
printf (" $vote_point[$_] \(%4.1f", $percent);
print "\%)</font>\n";}
print "&nbsp;</nobr></TD></TR>\n";
$VoteMany += $vote_point[$_];
$ttm = ($ttm < 5) ? ($ttm+1) : 1;}
print "<tr><td colspan=2><font color='$readline[16]' face='$readline[15]'>&nbsp; ";
if($Vs_v_ok){
print "&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <input type=image src=$Baseimg_url/vote.gif border=0 align=absmiddle>";
print &Perm_Print('239');
print "</form>";
}else{print "<br>&lt;ÅõÇ¥¿¡ Âü¿©ÇØ Áּż­ °¨»çÇÕ´Ï´Ù&gt;";}
print " &nbsp;&lt;ÅõÇ¥Âü¿©: <b>$VoteMany</b>¸í&gt;</font></td></tr></TABLE>\n\n\n<!----------ÅõÇ¥¼³Á¤ ³¡----------->\n\n\n";
print "</font></td></tr><tr><td align='$readline[40]' style='line-height:$config[304]; word-break:break-all'><font color='$readline[16]' face='$readline[15]'>";
}
sub readtext_1{
$NUMBERCK = ($indexsize - 1);
while($NUMBERCK >= 0){last if($indexline[$NUMBERCK] =~ /^[^\|]*\|$FORM{'x_number'}\|/);$NUMBERCK -= 1 ;}
@readline=split(/\|/,$indexline[$NUMBERCK]);
&plus_point_vote if($FORM{'VOTEPUT'});
&point_in if($FORM{'command'} eq 'point_in');
$NEXTBUTN = $NUMBERCK - 1;$PREVBUTN = $NUMBERCK + 1;}
sub plus_point_vote{if($config[173] == 2){if(&Checkcookie('Vo19C')){$Check_vt = &Checkdomain('Vo19C');}}
else{$Check_vt = &Checkcookie('Vo19C');}
if($Check_vt){&open_main_text;$readtext[0] =~ s/\r//g;$readtext[0] =~ s/\n//g;
@text_zeroline = split(/\|/,$readtext[0]);
$Num_arr = $FORM{'VOTEPUT'} - 1;
@VP_line = split(/\//,$text_zeroline[35]);
$VP_line[$Num_arr] += 1;
$text_zeroline[35] = join('/',@VP_line);
$readtext[0] = join('|',@text_zeroline);
$readtext[0] .= "\n";
$T_dir_x2 = $readline[39] ? $readline[39] : $textdir ;
open(TEXT, ">$thispath/$T_dir_x2/$readline[1].$filename_exp");
print TEXT @readtext;
close(TEXT);
$COOKIE{'ReadTxtChEck'} = "|$CooKieJoin|" . substr($COOKIE{'ReadTxtChEck'},0,3000);
&TempCookie("ReadTxtChEck",$COOKIE{'ReadTxtChEck'},1);}$fail_v = 1;}
sub point_in{local($Mtxtpoint,$P_hight,$P_low,@TemPontPerm);
@TemPontPerm = split(/\//,$config[83]);
foreach $key (@TemPontPerm) {$P_hight = $key if($key > $P_hight);$P_low = $key if($key < $P_low);}
if(($FORM{'point'} > $P_hight) || ($FORM{'point'} < $P_low)){
$Donotpoint = "<font color=red size=3><b>+-- Çã¿ëÆ÷ÀÎÆ®¸¦ ÃÊ°úÇÕ´Ï´Ù. --+</b></font><br>";
return;}if($config[173] == 2){if(&Checkcookie('Po17p')){$Check_pt = &Checkdomain('Po17p');}}
else{$Check_pt = &Checkcookie('Po17p');}
if($Check_pt){&AddCntWhere($readline[39],3,$FORM{'point'},$readline[1]);
$COOKIE{'ReadTxtChEck'} = "|$CooKieJoin|" . substr($COOKIE{'ReadTxtChEck'},0,3000);
&TempCookie("ReadTxtChEck",$COOKIE{'ReadTxtChEck'},1);}$fail_p = 1;}
sub Checkcookie{local($receive) = @_;$CooKieJoin=$DIRtarget.$FORM{'x_number'}.$receive;
if($COOKIE{'ReadTxtChEck'} =~ /\|$CooKieJoin\|/){$Donotpoint = "<font color=red><b>+--¿¬¼ÓÀûÀÎ ÅõÇ¥¹× Æò°¡´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù !--+</b></font><br>";return 0;}
else{return 1;}}sub Checkdomain{local($receive) = @_;$CooKieJoin=$DIRtarget.$FORM{'x_number'}.$receive;
local($ip,$get_write_time,$get_write_point,$checkline);($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time+$NewLocaltime);
$month=($mon+1);$ip = &Get_ip_id;$year += 1900;$get_write_point = $ip.$FORM{'x_number'}.$receive;
$get_write_time = $year.$month.$mday;open(CHECK,"$thispath/$pointck");$checkline = <CHECK>;close(CHECK);
if($config[261] ne 'x'){if($checkline !~ /^$get_write_time/){if($config[261] > 1){$xtempday = $config[261] - 1;
$xmday = $mday + 1;for (1..$xtempday) {$x_get_write_time = $year.$month.$xmday;if($checkline =~ /^$x_get_write_time/){
$BeAble = 1;last;}$xmday += 1;$xmday = 1 if($xmday > 31);}$checkline = $get_write_time if(!$BeAble);}else{$checkline = $get_write_time;}}}
if($checkline =~ /$get_write_point/){$Donotpoint = "<font color=red><b>+--¿¬¼ÓÀûÀÎ ÅõÇ¥¹× Æò°¡´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù !--+</b></font><br>";
$COOKIE{'ReadTxtChEck'} = "|$CooKieJoin|" . substr($COOKIE{'ReadTxtChEck'},0,3000);&TempCookie("ReadTxtChEck",$COOKIE{'ReadTxtChEck'},1);
return 0;}else{$checkline .= $get_write_point;open(CHECK,">$thispath/$pointck");print CHECK $checkline ;close(CHECK);&permission("$thispath/$pointck");return 1;}}
sub Get_ip_id{if($config[239]==3){if(!$TEck_Home){
&open_lock;&error_message('Á¤½Äµî·Ï ȸ¿ø¿¡°Ô¸¸ ÁÖ¾îÁø ±ÇÇÑÀÔ´Ï´Ù.<br><br>·Î±×ÀÎ ÇϽŠÈÄ ÀÌ¿ëÇϽʽÿÀ.');}
if(6 <=  $visitor_line[19]){&open_lock;$visitor_line[19] = 9 if($visitor_line[19] > 9);
&error_message("Á˼ÛÇÕ´Ï´Ù.<br><br><b>ÅõÇ¥, Ãßõ</b> ±ÇÇÑÀº<br><b>6</b>µî±Þ ÀÌÇÏ(6 ~ 9 µî±Þ)ÀÇ È¸¿ø¿¡°Ô´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù.<br><br>
Áö±Ý Ãâ·Â ¿äûÇÑ ÆäÀÌÁö¿¡ ´ëÇÑ <br><b>$visitor_line[2]</b>($visitor_line[0]) ´ÔÀÇ È¸¿ø±ÇÇÑÀº <b>$visitor_line[19]</b>µî±ÞÀÔ´Ï´Ù.");}
$Get_turn = $visitor_line[0]?$visitor_line[0]:$cook_id;}else{$Get_turn = $ENV{'REMOTE_ADDR'}? $ENV{'REMOTE_ADDR'} : $ENV{'REMOTE_HOST'};}
return $Get_turn;}sub readtext_2{@readline=split(/\|/,$indexline[$FORM{'y_number'}]);$NEXTBUTN = $FORM{'y_number'} - 1;$PREVBUTN = $FORM{'y_number'} + 1;}
sub parse{$_ = $ENV{'REQUEST_METHOD'};if (/POST/) {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});$ENV{'QUERY_STRING'} = $buffer;}
else { $buffer = $ENV{'QUERY_STRING'};}@pairs = split(/&/, $buffer);foreach $pair (@pairs) {($name, $value) = split(/=/, $pair);$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$FORM{$name} = $value;}$FORM{'board'}=~s/\///g;$FORM{'x_number'}=~s/\///g;}
sub text_print_fd{local($SPcl) = @_;
$text_print =~ s/\(/ \( /g;$text_print =~ s/\)/ \) /g;$text_print =~ s/\?/XqQoB/g;if($text_print =~ /(\s|^)(http:\/\/\S+\.\S+)(\s|$)/oi){&auto_link($2);}
if($text_print =~ /(\s|^)(\w+\@\S+\.\S+)(\s|$)/o){
my($mailadrd) = $2;$text_print =~ s/$mailadrd/<a href='mailto:$mailadrd'><u><font color=$blankcolor>$mailadrd<\/font><\/u><\/a>/;
$ck_wd=1;}$text_print =~ s/ \( /\(/g;$text_print =~ s/ \) /\)/g;$text_print =~ s/XqQoB/\?/g; if(!$SPcl && $config[172] == 1){
$text_print =~ s/\t/ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;/g;$text_print =~ s/\s\s/ &nbsp;/g;}}
sub auto_link{local($Textarr) = @_;if(&linkfiletype($Textarr)){$T_Blank = 'target=_blank';}else{$T_Blank = '';}
$text_print =~ s/$Textarr/<a href='$Textarr' $T_Blank><u><font color=$blankcolor>$Textarr<\/font><\/u><\/a>/;
$ck_wd=1;}sub close_lock{$Nowtime = time+10;while (-e "$thispath/main.lock" && (time < $Nowtime)) {sleep(1);}
open(LOCK, ">$thispath/main.lock");close(LOCK);}sub open_lock{unlink("$thispath/main.lock");}sub open_config{open(FILE, "$board_dir_path/$loginfile");@configlog=<FILE>;chop(@configlog);close(FILE);
$configlog[0] = &ch_pass("technote") if(!$configlog[0]);open(CONFIG, "$thispath/$configfile");@config=<CONFIG>;chop(@config);
close(CONFIG);$Buttonimg_url  =  "$img_dir_url/button/$config[255]";$Buttonimg_url2 =  "$img_dir_url/button3/$config[233]";
$Subjectimg_url =  "$img_dir_url/subjecticon/$config[254]";$Formbtimg_url  =  "$img_dir_url/button2/$config[283]";}
sub open_index{open(INDEX,"$thispath/$indexfile");@indexline=<INDEX>;$indexsize=@indexline;chop(@indexline);close(INDEX);}
sub get_cookie {@cookies = split(/; /, $ENV{'HTTP_COOKIE'});
#foreach (@cookies) {($m_name, $m_value) = split(/=/, $_);$COOKIE{$m_name} = $m_value;}
foreach $key (@cookies) {$key =~ /([^=]*)=(.*)/; $COOKIE{$1} = $2;}
if($COOKIE{"name$frankscrip"} && (&ch_pass($COOKIE{"name$frankscrip"}) eq "$configlog[0]")){&TempCookie("name$frankscrip",$COOKIE{"name$frankscrip"});$TEck_Name=1;}
if($config[112] == 2){$cookie_key=$scripimport.$DIRtarget;$cook_dirkey=$DIRtarget.$config[0];}else{$cookie_key=$scripimport.'nSXq';$cook_dirkey=$scripimport.'olkZq';}
($cook_name,$cook_mail,$cook_home,$cook_visit,$cook_id,$cook_post,$cook_address,$cook_tel,$cook_file)=split(/\|/,$COOKIE{$cookie_key});
if($COOKIE{($config[292]."home$frankscrip")}){@visitor_line=split(/\|/,$COOKIE{($config[292]."home$frankscrip")});$visitor_line[19] += $config[308];
if(($config[112] == 2) && ($visitor_line[5] eq $config[0]) && ($DIRtarget eq $visitor_line[6])){&M_Login_cked;}elsif(($config[112] == 1) && ($visitor_line[5] eq $configlog[0]) && ($cook_dirkey eq $visitor_line[6])){&M_Login_cked;}
else{"";}}if($COOKIE{"mail$frankscrip"}){@manersplit = split(/\|/, $COOKIE{"mail$frankscrip"});$localmaster_pass = &ch_pass("$manersplit[0]");if(($localmaster_pass eq $config[0]) || ($localmaster_pass eq $configlog[0])){
$TEck_Mail = 1 if($manersplit[1] eq $DIRtarget);}}if($COOKIE{'TabLeNumReM'} =~ /^($DIRtarget)-(.*)/){@back_index = split(/\|/,$2);if($back_index[3]){$indexfile = "sort/$back_index[3]";}}
if($FORM{'nnew'} == 1){$nnew = 1;}elsif($FORM{'nnew'} == 2){$nnew = 2;}elsif($COOKIE{'nnew'} =~ /^($DIRtarget)-(\d)/){$nnew = $2;}
else{$nnew = 2;}&TempCookie("nnew","$DIRtarget-$nnew",'1');&TempCookie("koX8iT3Dda","$COOKIE{'koX8iT3Dda'}",1);
&TempCookie($config[256].'thShop',$COOKIE{$config[256].'thShop'}) if($COOKIE{$config[256].'thShop'});}
sub M_Login_cked{if($M_log_secu == 1){$visitor_line[20] += 0;  return unless((-e "$config_dir_path/temp/$visitor_line[20]") && $visitor_line[20]); }
else{if(($visitor_line[22] != 1) && ($visitor_line[20] < (time() - 28800)) ||($visitor_line[20] > (time() - 14400))){&TempCookie(($config[292]."home$frankscrip"),"");return;}}$TEck_Home=1;}
sub ch_pass{local($inpass_x,)=@_;$inpass_x =~ s/\s//g;$inpass=$inpass_x;$inpass_x .= 'IlIl' if(2 > length($inpass_x));
$chop1=chop($inpass);$chop2=chop($inpass);$chop3=chop($inpass);$chop4=chop($inpass);$cryptword=$chop1.$chop2.$chop3.$chop4;
$firstcrypt= crypt($cryptword,"$chop2$chop3");$chop1=chop($firstcrypt);$chop2=chop($firstcrypt);return crypt($inpass_x,"$chop1$chop2");}
sub RE_join_index{&open_index;if(($FORM{'back'} && $config[177] != 1) || ($config[177] == 1 && !$FORM{'back'})){
@indexline=reverse(@indexline);}@exindexline = @indexline;$RE_NUMBER = ($indexsize - 1);while($RE_NUMBER >= 0){if($FORM{'x_number'}){last if($indexline[$RE_NUMBER] =~ /^[^\|]*\|$FORM{'x_number'}\|/);}
else{last if($RE_NUMBER == $FORM{'y_number'});}$RE_NUMBER -= 1;}@readline = split(/\|/,$indexline[$RE_NUMBER]);
$NEXTBUTN_x = ($RE_NUMBER - 1);$PREVBUTN_x = ($RE_NUMBER + 1);$FORM{'x_number'} = $readline[1];$neworderindex = 1;}
sub Getbgcolor{local($receive) = @_;local($Norept);return if($receive =~ s/^\s*$//);return "bgcolor=$receive" if($receive =~ /^\#/);
if($receive =~ s/\s*no-repeat//i){$Norept = " background-repeat:no-repeat; background-position:50% 50%;";}if($receive =~ /\^/){if($receive =~ /^style=/i){$receive =~ s/\^/$Userimg_url\//;return $receive;}
else{$receive =~ s/\^//g;return "style=\"background-image:url('$Userimg_url/$receive');$Norept\"";}}if($receive =~ /^style=/i){return $receive;}if($receive =~ /\//){return "style=\"background-image:url('$receive');$Norept\"";}
return "bgcolor=$receive";}sub Content_type_print{print "Content-type: text/html\n\n";}
sub READ_right{if($config[131] == 2 && !$TEck_Mail){&MoveLocation('°ü¸®ÀÚ¸¸ÀÌ ±ÛÀбⰡ °¡´ÉÇÏ°Ô ¼³Á¤µÇ¾î ÀÖ½À´Ï´Ù.','priv_read_manager');}
elsif($config[131] == 3 && !$TEck_Home){&MoveLocation('ID Á¤½Äµî·Ï ȸ¿ø¿¡ ÇÑÇÏ¿© ±Û ÀбⰡ °¡´ÉÇÕ´Ï´Ù.','inputidview',1);}
elsif($config[131] == 3){&M_Level("$config[131]",7,'º»¹®±Û Àбâ');}else{"";}}
sub ENTER_right{if($config[61] == 2 && !$TEck_Mail){&MoveLocation('°ü¸®ÀÚ¸¸ÀÌ  BOARD  ÀÔÀåÀÌ °¡´ÉÇÏ°Ô ¼³Á¤µÇ¾î ÀÖ½À´Ï´Ù.','priv_read_manager');}
elsif($config[61] == 3 && !$TEck_Home){&MoveLocation('ID Á¤½Äµî·Ï ȸ¿ø¿¡ ÇÑÇÏ¿©  BOARD  ÀÔÀåÀÌ °¡´ÉÇÕ´Ï´Ù.','inputidview',1);}
elsif($config[61] == 3){ &M_Level("$config[61]",8,'º¸µåÃâÀÔ');}else{"";}}
sub Thispageurl{
local($url);
$url = "$cgi_dir_url/$readcg?board=$DIRtarget";
$url .= "&nnew=$FORM{'nnew'}" if($FORM{'nnew'});
$url .= "&x_number=$FORM{'x_number'}" if($FORM{'x_number'});
$url .= "&y_number=$FORM{'y_number'}" if($FORM{'y_number'} && !$FORM{'x_number'});
$url .= "&back=$FORM{'back'}" if($FORM{'back'});
$url .= "&top=$FORM{'top'}" if($FORM{'top'});
return $url;
}
# º»¹®±Û Àб⠱ÇÇÑÈ®ÀΠâ Ãâ·Â
sub MoveLocation{
&Content_type_print;
local($local1,$local2,$local3,$local4)=@_;
$login_after_url = &Thispageurl if($local3);
print <<END_LINE;
<!--
TECHNOTE-TOP(plus)
File: read.cgi
Update:2002.11
Copyright(c) 1999,11 technote inc. All right reserved.
http://www.technote.co.kr
-->
<HTML><HEAD>$Htm_in_head<TITLE>$local1</TITLE>
<META HTTP-EQUIV="Refresh" CONTENT="5; URL=$cgi_dir_url/$maincgorfile?board=$DIRtarget&$local2=1">
</HEAD>
<BODY bgcolor=#f7f7f7 style='border:15 solid #D4D0C8; overflow:auto;'>
    <form name=LoginMv method=post action='$cgi_dir_url/$maincgorfile'>
    <input type=hidden name=board value='$DIRtarget'>
    <input type=hidden name='$local2' value=1>
    <input type=hidden name=login_after_url value='$login_after_url'>
    </form>
 <script language=javascript>
  if(confirm("\\n $local1           " + "\\n \\n ·Î±×ÀÎ ÇϽðڽÀ´Ï±î?" )){
           // ȸ¿ø ·Î±×ÀÎÈÄ º»¹®Ãâ·Â
              document.LoginMv.submit();

     // ȸ¿ø·Î±×ÀÎÈÄ ¸ñ·Ï Ãâ·Â
           //  location.href="$cgi_dir_url/$maincgorfile?board=$DIRtarget&$local2=1";
  }
  else{
   history.back();
  }
 </script>
</BODY>
</HTML>
END_LINE
exit;
}
sub Table_Plan{$config[243] =~ s/16//g;
$config[243] =~ s/ //g;$config[243] =~ s/\/+/\//g;
$config[243] =~ s/^\///;$config[243]=~ s/\/$//;@TaPa_line = split(/\//,$config[243]);$Main_Colspan = @TaPa_line;}
sub indextable{
if($config[185] >= 2){  $config[251] =   ''; }
if($config[284] =~ s/:(\S+)$//){$rightcol =  $1;}
else{$rightcol =  '#ffffff';}if($config[123] =~ /^2|3|4/){$config[241]=1 if($config[241]< 1);unless($config[108]){
$config[108] = $config[284];$config[108] = '#667777' unless($config[108]);}}
&Table_Plan;if(@exindexline){@indexline = @exindexline;}$config[156]  = &Getbgcolor($config[156]);
$config[157] += 0;$config[153] += 0;if($config[286]){$temp = &Getbgcolor($config[286]);$temp =~ s/.*=//;
$MOusecolor = " onMouseOver=this.style.backgroundColor='$temp' onMouseOut=this.style.backgroundColor=''";}
if($config[301]){&get_tr_bgcolor;$Cell_Color_joo = 'Color_Cross';}
else{$Cell_Color_joo = 'ReturnBlank';}
print &TableimgS_E("$config[79]");
print "<TABLE cellpadding='$config[157]' cellspacing='$config[153]' width='$config[23]' $config[156] ";
print " style='border-width:$config[241];  border-color:$config[108]; border-style:solid;' " if($config[108] && 0 < $config[241]);
print "frame=void " if($config[123]>4);if($config[284]){if($config[123] =~ /^1|5/){print " bordercolordark='$rightcol' bordercolorlight='$config[284]' border=1>";}
else{print " border=0>";
if($config[123] !~ /^4|8/){$wi_cor =  "<tr bgcolor='$config[284]'><td colspan=$Main_Colspan ";
$wi_cor .= " style=\"background-image:url('$Baseimg_url/graypoint.gif'); background-repeat:repeat;\" " if($config[123] =~ /^3|7/);
$wi_cor .= " height=1></td></tr>";}}}
else{print " border=0>";}
if($config[103] != 2){$blank = '&nbsp;&nbsp;&nbsp;&nbsp;' ;}
if($config[102] != 2){$a_line = "<img src='$Baseimg_url/aline.gif' width=11 height=14>" ;}
else{$a_line = '&nbsp;' ;}
if($config[175] != 2){print "<tr>";foreach $key (@TaPa_line){$Subname = 'Sujthad_'.$key;&$Subname if($key);}
print "</tr>$wi_cor\n";}
if($config[43] =~ /\d{8}/){@NotiArr = split(/\|/,$config[43]);
foreach $ntce (@NotiArr){@NotiArr2 = split(/==>/,$ntce);
print "<tr><td colspan=$Main_Colspan class=CellStyle2>&nbsp; &nbsp;<img src=$Baseimg_url/notice.gif border=0>&nbsp; <a href=$cgi_dir_url/$readcg?board=$DIRtarget&x_number=$NotiArr2[0]&nnew=2&top=1&back=$FORM{'back'}>$NotiArr2[1]</a></td></tr>$wi_cor\n";
}}
if($TableManY < 2){$indexstart = $PREVBUTN - 1;}
elsif($TableManY < 5){$indexstart = $PREVBUTN;}
elsif($TableManY < 10){$indexstart = $PREVBUTN + 1;}
else{$indexstart = $PREVBUTN + 2;}
$indexstart = $indexsize -1 if($indexstart > $indexsize -1);
$indexstart = $TableManY if($indexstart < $TableManY);
$first_index = $indexstart;
$Coi = '0';
for(1..($TableManY + 1)){if(($indexstart < $indexsize) && ($indexstart >= 0)){
@readline = split(/\|/,$indexline[$indexstart]);
open(CNT,"$thispath/".&CntDirName($readline[39])."/$readline[1].$filename_exp");
@hreadcount = split(/\|/,<CNT>);
&bodyprint;}$indexstart -= 1;$chklast++;}
close(CNT);print "</table>";print &TableimgS_E("$config[138]");}
sub get_tr_bgcolor{my($co_v_R,$co_v_G,$co_v_B,$co_R,$co_G,$co_B,$Hex16,$tc_a,$tc_b,$tc_c);
my($table_x_2y) = ($config[217] > $indexsize)? $indexsize : $config[217];$tc_c = ($table_x_2y > 1) ? ($table_x_2y - 1) : 2;
if($config[301] =~ /^(.*)\~(.*)/){$tc_a = $1;$tc_b = $2;$Hex16 = $tc_a.$tc_b;$Hex16 =~ /^\#?(\S{2})(\S{2})(\S{2})\#?(\S{2})(\S{2})(\S{2})/;
$co_v_R = hex($1);$co_v_G = hex($2);$co_v_B = hex($3);$co_R = (hex($4) - $co_v_R) / ($tc_c);$co_G = (hex($5) - $co_v_G) / ($tc_c);
$co_B = (hex($6) - $co_v_B) / ($tc_c);@CellCrossCol = (0,0);$CellCrossCol[0] = "bgcolor=#".$1.$2.$3;for(1..$table_x_2y){
$co_v_R += $co_R;$co_v_G += $co_G;$co_v_B += $co_B;$co_v_R = 255 if($co_v_R > 255);$co_v_G = 255 if($co_v_G > 255);
$co_v_B = 255 if($co_v_B > 255);$co_v_R = '0' if($co_v_R < 0);$co_v_G = '0' if($co_v_G < 0);$co_v_B = '0' if($co_v_B < 0);
$CellCrossCol[$_] =  "bgcolor=#" . sprintf("%02x",$co_v_R).sprintf("%02x",$co_v_G).sprintf("%02x",$co_v_B);}$CellCrossmany = $table_x_2y;}
else{$CellCrossmany = @CellCrossCol = split(/:/,$config[301]);foreach $key (@CellCrossCol) {$key = &Getbgcolor($key);}}}
sub Sujthad_1{print "<TD class=CellStyleHead>$CellTitleH[0]</td>";}sub Sujthad_2{print "<TD class=CellStyleHead>$CellTitleH[1]</td>";}
sub Sujthad_3{print "<TD class=CellStyleHead>$CellTitleH[2]</td>";}sub Sujthad_4{print "<TD class=CellStyleHead>$CellTitleH[3]</td>";}
sub Sujthad_5{print "<TD class=CellStyleHead>$CellTitleH[4]</td>";}sub Sujthad_6{print "<TD class=CellStyleHead>$CellTitleH[5]</td>";}
sub Sujthad_7{print "<TD class=CellStyleHead>$CellTitleH[6]</td>";}sub Sujthad_8{print "<TD class=CellStyleHead>$CellTitleH[7]</td>";}
sub Sujthad_9{print "<TD class=CellStyleHead>$CellTitleH[8]</td>";}sub Sujthad_10{print "<TD class=CellStyleHead>$CellTitleH[11]</td>";}
sub Sujthad_11{print "<TD class=CellStyleHead>$CellTitleH[12]</td>";}sub Sujthad_12{print "<TD class=CellStyleHead>$CellTitleH[13]</td>";}
sub Sujthad_13{print "<TD class=CellStyleHead>$CellTitleH[14]</td>";}sub Sujthad_14{print "<TD class=CellStyleHead>$CellTitleH[15]</td>";}
sub Sujthad_15{print "<TD class=CellStyleHead>$CellTitleH[16]</td>";}sub Sujthad_18{print "<TD class=CellStyleHead width='21'><image src='$Baseimg_url/rep1.gif' border=0 align=absmiddle alt='ªÀº´ñ±Û'></td>";}
sub Sujthad_17{print "<TD class=CellStyleHead>$CellTitleH[20]</td>";}
sub Sujthad_20{print "<TD class=CellStyleHead>$CellTitleH[19]</td>";}sub Sujthad_21{print "<TD class=CellStyleHead>$CellTitleH[9]</td>";}
sub Sujthad_22{print "<TD class=CellStyleHead>$CellTitleH[10]</td>";}sub Sujthad_23{print "<TD class=CellStyleHead><img src=$Subjectimg_url/home.gif border=0></td>";}
sub Sujthad_24{print "<TD class=CellStyleHead>$CellTitleH[17]</td>";}sub Sujthad_25{print "<TD class=CellStyleHead>$CellTitleH[18]</td>";}
sub Sujthad_26{print "<TD class=CellStyleHead>°áÁ¦±Ý¾×</td>";}sub Sujthad_27{print "<TD class=CellStyleHead>°áÁ¦È®ÀÎ</td>";}
sub Sujthad_28{print "<TD class=CellStyleHead>¹è¼Û»óȲ</td>";}
sub GetTxTcol{local($nber,$rest) = @_;return ("<$config[238] color=$config[$nber]>");}
sub hitreadindex{if($FORM{'y_number'}){&readtext_2;}
elsif($FORM{'x_number'}){&readtext_1;}elsif($FORM{'y_number'} eq '0'){$FORM{'y_number'} = 0;&readtext_2;}
else{$FORM{'y_number'} = $indexsize-1;if(!$FORM{'nnew'}){$FORM{'nnew'} = 2;$nnew = 2;}&readtext_2;}}
sub bodyprint{$man_or_wom = &SexRead($readline[12]);$tanum = $indexstart + 1;&$print_s;
&$print_num;if($readline[4] && !$back_index[3]){$re=("$blank" x $readline[4])."$a_line" ;}else{$re='&nbsp;';}
&$Cell_Color_joo;print "<TR $Trcols $MOusecolor>\n";foreach $key (@TaPa_line){$Sub_name = 'CellBody_'.$key;&$Sub_name if($key);}
print "\n</TR>";print "$wi_cor\n" if($chklast < $TableManY || $config[123] > 4);undef @hreadcount;}
sub Color_Cross{$Trcols = $CellCrossCol[($Coi % $CellCrossmany)];$Coi ++;}
sub print_s_back{$count_stan = ($indexsize-$tanum)+1 ;$count_back = $tanum;}
sub print_s_right{$count_stan = $tanum ;$count_back = ($indexsize-$tanum)+1;}
sub print_num_back{$count_num = $count_back;}
sub print_num_right{$count_num = $count_stan;}
sub SubstrReturn{local($strings,$startlen,$endlen,$addin) = @_;
local($reststr);$reststr = $strings =  substr($strings,$startlen,$endlen);
chop($strings) if((($reststr =~ tr/[\xA1-\xFE]//) % 2) != 0 );
return ($strings."$addin");}
sub CellBody_2{my ($Enfont);$readline[2] = $Subchange if(!$readline[2]);
$readline[2] = &SubstrReturn($readline[2],0,$config[305],'...') if(length($readline[2]) > $config[305]);
print "<TD class=CellStyle2 width=$config[251]>$re";
&$Subiconrpt;if($indexstart == ($NEXTBUTN + 1)){$Enfont = ' </font>';
print "<font style='background-color:#dddddd;'> ";}
print " <a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&nnew=2&y_number=$indexstart$BackOrderprt\">";
print "<img src=$Baseimg_url/votegrap.gif border=0> " if($readline[34]);
print "<IMG src=$Baseimg_url/tel.gif align=absmiddle border=0>" if($readline[32] eq 'x');
print "$readline[2]</a>";
print "$Enfont</TD>\n";}
sub CellBody_3{
print "<TD class=CellStyle3>";
if($config[163] != 3){
if($config[163] == 2 && $readline[6]){
print "<a href='$cgi_dir_url/$maincg&command=guest_email&textnum=$readline[1]' $NewWin title=Form_Mail>";
}elsif($config[163] == 1 && $readline[6]){
print "<a href='mailto:$readline[6]'>";}
elsif($config[163] == 4){
print "<a href='javascript:void(0)' onClick=\"window.open('./$imgcg?board=$DIRtarget&&MemberPrint=1&input_id=";
print  $readline[3]=~/.*\((\S+)\) *$/? $1 :  $readline[3];
print "','', 'scrollbars=yes,resizable=yes,width=500,height=300')\" title=member_entry>";}
else{'';}if($config[216] == 1 && $readline[3] && $readline[6]){
print "<img src=$Subjectimg_url/mail.gif  border=0>";}
unless($hreadcount[14]){print "<font color=$config[147]>";&nameleng;print "</font></a>\n";
}else{print "<img src='$nameicdir"."$hreadcount[14]' border=0 alt='$readline[3]'>";}
}else{print '&nbsp;';
unless($hreadcount[14]){&nameleng;}
else{print "<img src='$nameicdir"."$hreadcount[14]' border=0 alt='$readline[3]'>";}}
if($JobOld){if($JobOld ==8 && $readline[8]){print "($readline[8])";}
elsif($JobOld==5 && $readline[5]){print "($readline[5])";}else{"";}}print "</td>";}
sub nameleng{print  length($readline[3]) > 20 ? &SubstrReturn($readline[3],0,10,'..') : $readline[3] ;}
sub CellBody_23{print "<td class=CellStyle23>";
if($readline[18]){print "<a href=$readline[18] target=_blank><img src=$Subjectimg_url/home.gif border=0 alt=$readline[18]></a>";}
else{print "&nbsp;";}print "</td>";}
sub CellBody_1{print "<TD class=CellStyle1>$count_num</td>\n";}sub CellBody_4{print "<TD class=CellStyle4><nobr>$readline[23]</nobr></td>\n";}
sub CellBody_5{print "<TD class=CellStyle5>&nbsp;$hreadcount[1]</td>\n";}sub CellBody_6{print "<TD class=CellStyle6>&nbsp;$hreadcount[3]</td>\n";}
sub CellBody_7{print "<TD class=CellStyle7>&nbsp;$man_or_wom</td>\n";}sub CellBody_8{print "<TD class=CellStyle8>&nbsp;$readline[5]</td>\n";}
sub CellBody_9{print "<TD class=CellStyle9>$readline[8]&nbsp;</td>\n";}sub CellBody_10{print "<TD class=CellStyle10>".&WrAreaNewLine("$readline[19]")."&nbsp;</td>\n";}
sub CellBody_11{print "<TD class=CellStyle11>".&WrAreaNewLine("$readline[20]")."&nbsp;</td>\n";}sub CellBody_12{print "<TD class=CellStyle12>".&WrAreaNewLine("$readline[21]")."&nbsp;</td>\n";}
sub CellBody_13{print "<TD class=CellStyle13>".&WrAreaNewLine("$readline[22]")."&nbsp;</td>\n";}sub CellBody_14{print "<TD class=CellStyle14>".&WrAreaNewLine("$readline[37]")."&nbsp;</td>\n";}
sub CellBody_15{print "<TD class=CellStyle15>".&WrAreaNewLine("$readline[38]")."&nbsp;</td>\n";}sub CellBody_18{print "<TD class=CellStyle5>&nbsp;$hreadcount[2]</td>\n";}
sub WrAreaNewLine{my($indat)=@_;$indat =~ s/\:\;/<br>/g;return $indat;}
sub Plusnum_txt{local($Nm1,$Nm2,$Nm3,$Nm4,$An1,)=@_;$config[$Nm4] =~ s/=.*//;return if(!$readline[$Nm1]);
return if($config[135] !~ /$An1/i);$readline[$Nm1] =~ s/\:\;/<br> \&nbsp\; \&nbsp\;/g;
print " $config[215] $config[$Nm4]: $readline[$Nm1]<BR>\n";}
sub CellBody_17{local($img_src); print "<TD class=CellStyle17  valign=top>";
if($img_src = &img_search){
print "<a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&nnew=2&y_number=$indexstart$BackOrderprt\">$img_src</a>";
print "<br><font style=font-size:2pt;>&nbsp;</font><br>".&WrAreaNewLine("$readline[$Ud_num]") if($Ud_num && $readline[$Ud_num]);}
else{print "&nbsp;";}print "</td>\n";}
sub img_search{local($returnimgtag1,$returnimgtag2,$img_fy,$img_fy2); if($readline[17] =~ /\.(gif|jpg|bmp|swf)$/i){
if($cgi_dir_appoint==1){$returnimgtag1 ="$board_dir_url/$DIRtarget/$uploaddir/$readline[17]";}
else{$returnimgtag1="$readimgcg?board=$DIRtarget&xfile=1&img=$readline[17]";}}
elsif($readline[28] =~ /\.(gif|jpg|bmp|swf)$/i){$returnimgtag1="$readline[28]";}else{'';}
if($readline[10]){if($cgi_dir_appoint==1){$returnimgtag2 ="$board_dir_url/$DIRtarget/$upimgdir/$readline[10]";}
else{$returnimgtag2="$readimgcg?board=$DIRtarget&img=$readline[10]";}}
elsif($readline[11]){$returnimgtag2="$readline[11]";}elsif($readline[9]){$returnimgtag2="$Faceimg_url/$readline[9]";}else{ $returnimgtag2="http://toronsil.com/technote2/skin/imgup/ready.gif" ;}
$returnimgtag1 = $returnimgtag2 unless($returnimgtag1);
if($returnimgtag1){if($returnimgtag1 =~ /\.swf$/i){$img_fy =  'embed';
$img_fy2 =  '</embed>';} else{$img_fy =  'img';}
return("<$img_fy src=$returnimgtag1 border=1 $IMGsty>$img_fy2");}return 0;}
sub CellBody_20{local($FileIMG,$icon_in,$temp,$linkload,$tfile,$tfile2,$FLsize,$FLsize2);print "<TD class=CellStyle20><font face='µ¸¿ò'>";
if($readline[17]){$FLsize = '('.&UnitFsize("$readline[29]").')';print '&nbsp;';if($readline[32] eq 'x'){
print "<img src=$Subjectimg_url/".&Get_icon_type($readline[17],17)."  border=0>";$tfile = 'x_file';}
elsif(&music_type("$readline[17]")){&musicbox_print('17');print "<img src=$Subjectimg_url/".&Get_icon_type($readline[17],17)."  border=0 alt=$readline[17]>";}
else{print "<a href=\"$cgi_dir_url/$maincgorfile/$readline[17]?down_num=$readline[1]&board=$DIRtarget&command=down_load&d=$readline[39]&filename=$readline[17]\" ";
print $NewWin if(&linkfiletype($readline[17]));print ">";
print "<img src=$Subjectimg_url/".&Get_icon_type($readline[17],17)."  border=0>";}
if($config[122]==1){print "<font color=$config[147]>";print $tfile? $tfile : &SubstrReturn($readline[17],0,25,'').$FLsize;print "</font>";}
print "</a>" if(!$tfile);}if($readline[28]){$FLsize2 = '('.&UnitFsize("$readline[29]").')' if(!$FLsize && $readline[29]);
print '<br>' if($readline[17]);print '&nbsp;';$temp = $readline[28];$temp =~ s/\/$//;$temp =~ s/\S+\///;
$temp =~ s/\?(.*)$//;if($readline[32] eq 'x'){print "<img src=$Subjectimg_url/".&Get_icon_type($readline[28])."  border=0>";
$tfile2 = 'x_link_file';}elsif(&music_type("$readline[28]")){&musicbox_print('28');
print "<img src=$Subjectimg_url/".&Get_icon_type($readline[28])."  border=0 alt=$temp>";}
else{$linkload = $readline[28];$linkload =~ s/\&/VvQx/g;$linkload =~ s/=/QqxV/g;
print "<a href=\"$readimgcg?board=$DIRtarget&link=$linkload&Count=$readline[1]&d=$readline[39]\" ";
if($readline[28] =~ /\.(gif|jpg|bmp)$/i){print "$NewWin";}else{
print "target=_blank" if(&linkfiletype($readline[28]));}print ">";
print "<img src=$Subjectimg_url/".&Get_icon_type($readline[28])."  border=0>";}
if($config[122]==1){print "<font color=$config[147]>";print $tfile2? $tfile2 : &SubstrReturn($temp,0,25,'').$FLsize2;print "</font>";}
print "</a>" if(!$tfile2);}print "&nbsp;</font></td>\n";}
sub CellBody_21{print "<TD class=CellStyle9></td>\n";}
sub CellBody_22{my($Dnfileread3,$NewLni);
if($hreadcount[4]){$Dnfileread3 = $hreadcount[4];$NewLni = '<br>';}
if($hreadcount[5]){$Dnfileread3 .= $NewLni.$hreadcount[5] ;}
print "<TD class=CellStyle22>&nbsp;$Dnfileread3</td>\n";}
sub CellBody_24{print "<TD class=CellStyle24>&nbsp;$hreadcount[7]</td>\n";}
sub CellBody_25{$hreadcount[8] = '' if($hreadcount[8] eq 'x');print "<TD class=CellStyle25>&nbsp;$hreadcount[8]</td>\n";}
sub CellBody_26{	print "<TD class=CellStyle3>";
if($hreadcount[10]){if($hreadcount[11] eq '°áÁ¦È®ÀÎ'){
print "<font color=#4444ff>$hreadcount[10]</font>";
$hreadcount[10] =~ s/\,//g;$Total_pay += $hreadcount[10];}else{print "$hreadcount[10]";}}
else{print "$readline[38]";}print "</td>\n";}
sub CellBody_27{	print "<TD class=CellStyle3>";
if($hreadcount[11] eq '°áÁ¦È®ÀÎ'){print "<font color=#4444ff>°áÁ¦È®ÀÎ</font>";}
elsif($hreadcount[11] eq '°áÁ¦½ÇÆÐ'){print "<font color=#ff5555>°áÁ¦½ÇÆÐ</font>";}
elsif($hreadcount[11] eq '±âŸ»óȲ'){print "<font color=#008000>±âŸ»óȲ</font>";}
elsif($hreadcount[11]){print "$hreadcount[11]";}
else{print "È®ÀÎÁß";}print "</td>\n";}
sub CellBody_28{	print "<TD class=CellStyle3>";
if($hreadcount[12] eq '¹è¼Û¿Ï·á'){print "<font color=#4444ff>¹è¼Û¿Ï·á</font>";}
elsif($hreadcount[12] eq '¹è¼Û½ÇÆÐ'){print "<font color=#ff5555>¹è¼Û½ÇÆÐ</font>";}
elsif($hreadcount[12] eq '±âŸ»óȲ'){print "<font color=#008000>±âŸ»óȲ</font>";}
elsif($hreadcount[12]){print "$hreadcount[12]";}
else{print "ÁÖ¹®Á¢¼ö";}print "</td>\n";}
sub title_icon_set{$icon_y1=&icon_arr('poly1.gif');$icon_y2=&icon_arr('poly4.gif');
$icon_y5=&icon_arr('poly5.gif');$icon_p1=&icon_arr('polb1.gif');$icon_p2=&icon_arr('polb4.gif');
$icon_p3=&icon_arr('polb3.gif');$icon_p5=&icon_arr('polb5.gif');$icon_g1=&icon_arr('polg1.gif');$icon_g2=&icon_arr('polg2.gif');
$icon_ma=&icon_arr('gr2.gif');$icon_wo=&icon_arr('gr3.gif');$icon_pi=&icon_arr('gr1.gif');$icon_text=&icon_arr('qa5.gif');}
sub icon_arr{local($filename,$rest) = @_;return "<img src='$Subjectimg_url/$filename'  border=0>" ;}
sub GetThemeicon_1{if(!$readline[24] && !$readline[27]){   print $icon_text ;}elsif($readline[24] && $readline[27]){print $icon_y2 ;}
elsif($readline[27]){print $icon_y1 ;}elsif($readline[24]){print $icon_y5 ;}else{print $icon_text ;}}
sub GetThemeicon_2{if(!$readline[24] && !$readline[27]){print $icon_g1 ;}elsif($readline[24] && $readline[27]){print $icon_g2 ;}
elsif($readline[27]){print $icon_g1 ;}else{print $icon_g2 ;}}
sub GetThemeicon_3{if(!$readline[24] && !$readline[27]){print $icon_p3 ;}elsif($readline[24] && $readline[27]){print $icon_p2 ;}
elsif($readline[27]){print $icon_p1 ;}elsif($readline[24]){print $icon_p5 ;}else{print $icon_p3 ;}}
sub GetThemeicon_4{if($readline[33]){print "<img src='$Subjectimg_url/$readline[33]'  border=0 alt='$TiconAlt' align='absmiddle'>"}
else{print $icon_text ;}}
sub GetThemeicon_5{if($readline[12] == 1){print $icon_ma ;}elsif($readline[12] == 2){print $icon_wo ;}elsif($readline[10] || $readline[11]){print $icon_pi ;}
else{print $icon_text ;}}
sub GetThemeicon_6{print $icon_text ;}
sub GetThemeicon_8{if($readline[24]){print $icon_y5 ;}
else{print $icon_text ;}}
sub GetinMyicon{print "$Myicon";}
sub MainTexticon{if($config[101] == 7){return 'ReturnBlank';}&title_icon_set;
if($config[101] == 1){return 'GetThemeicon_1';}if($config[101] == 2){return 'GetThemeicon_2';}if($config[101] == 3){return 'GetThemeicon_3';}
if($config[101] == 4){return 'GetThemeicon_4';}if($config[101] == 5){return 'GetThemeicon_5';}if($config[101] == 6){return 'GetThemeicon_6';}
if($config[101] == 8){return 'GetThemeicon_8';}return 'GetThemeicon_6';}
sub linkfiletype{local($filename,$rest) = @_;  return 0 unless($filename =~ /\S+\.\w+/);
$filename =~ /[^\.]+$/;$filename = $&;return 1 unless($linkfile_type_conf =~ /\.$filename\./i); return 0;}
sub input_hidden{local($hname,$hvalue) = @_;print "<input type=hidden name=\"$hname\" value=\"$hvalue\">\n";}
sub INDEXBT_print{print "<br>&nbsp;<TABLE border=0 cellpadding=0 cellspacing=0 width=80%><TR><td align=center>";
&BT_Move_Icon if($config[121] != 2);&BT_Main_Icon;&BT_home_Icon if($config[76] != 2);&BT_infor_Icon if($config[77] != 2);
&BT_iboard_Icon if($config[82] != 2);&BT_write_Icon if(($config[85] != 2) || $TEck_Name || $TEck_Mail);if( $TEck_Name || $TEck_Mail || $TEck_Home){
print " &nbsp; &nbsp; <a href='$cgi_dir_url/$maincg&LogOut=1'><img src=$Baseimg_url/logout.gif border=0 alt='LOG-OUT' align=absmiddle></a>\n";}
print "</td></TR></TABLE>";}
sub  BT_Move_Icon{if($first_index < $indexsize - 1){
print "<a href=\"$cgi_dir_url/$readcg?board=$DIRtarget$BackOrderprt\">";
&ButImgPrtSub('btttop.gif','óÀ½');
print "</a>\n";
print "<a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&y_number=$PREVBUTNLG$BackOrderprt\">";
&ButImgPrtSub('bttrew.gif','ÀÌÀü');
print "</a>\n";
}
if(0 < $first_index - $TableManY){
print "<a href=\"$cgi_dir_url/$readcg?board=$DIRtarget&y_number=$NEXTBUTNLG$BackOrderprt\">";
&ButImgPrtSub('bttfow.gif','´ÙÀ½');
print "</a>\n";
}
print " &nbsp; &nbsp; &nbsp; ";
}
sub  BT_Main_Icon{
print "<a href=\"$cgi_dir_url/$maincg&number=$back_index[0]&ryal=$back_index[1]&back=$back_index[2]\">";
&ButImgPrtSub('bttlist.gif','¸ñ·Ï');
print "</a>\n";
}
sub BT_home_Icon{
print "<a href=$config[27]>";
&ButImgPrtSub('btthomex.gif','Ȩ');
print "</a>\n";
}
sub BT_infor_Icon{
print "<a href=$config[120]>";
&ButImgPrtSub('bttinforx.gif','¾È³»');
print "</a>\n";
}
sub BT_iboard_Icon{
print "<a href=$config[119]>";
&ButImgPrtSub('bttnewsx.gif','¾Ë¸²');
print "</a>\n";
}
sub BT_write_Icon{
print '<a href=';
if(length($config[180]) > 5){
print $config[180];
}
else{
print "$cgi_dir_url/$maincg&command=write_form";
}
print '>';
&ButImgPrtSub('bttwrx.gif','¾²±â');
print "</a>\n";
}
sub ButImgPrtSub{
local($img,$alt) = @_;
print "<img src='$Buttonimg_url/$img' border=1 style='border-color:$Btlc1'  onmouseover=javascript:this.style.cssText='border-color:$Btlc2' onmouseout=javascript:this.style.cssText='border-color:$Btlc1' alt=$alt>";
}
sub ReturnBlank{return;}
sub write_hitcount{local($cnum,$tempcn,$size,$CooRdscr);return  if($COOKIE{'ReadTxtChEck'} =~ /\|$readline[1]\|/);
&AddCntWhere($readline[39],1,1,$readline[1]);$CooRdscr = "|$readline[1]|" . substr("$COOKIE{'ReadTxtChEck'}",0,3000);}
sub Perm_Print{local($num,$rest) = @_;
return " &nbsp; <font face=µ¸¿ò style='font-size:8pt;'>°ü¸®ÀÚ±ÇÇÑ</font>" if($config[$num] == 2);
return " <font face=µ¸¿ò style='font-size:8pt;'>ȸ¿ø±ÇÇÑ</font>" if($config[$num] == 3); return ;}
sub UnitFsize{local($filesize) =@_;return "" if(!$filesize);if($filesize > 0){
if($filesize < 1000){    return ("$filesize"."KB");    }else{                        return (($filesize/1000)."MB");  }}}
sub ReadLineReturn{local($ChreadlineR) = @_;local($ChreadlineTurn);if($ChreadlineR =~ /\//){$ChreadlineTurn="background=$ChreadlineR";}
elsif($ChreadlineR =~ /(gif)|(jpg)/i){$ChreadlineR =~ /\d+/;if($& < 13){
$ChreadlineTurn="background=$img_dir_url/background/$ChreadlineR";}
else{$ChreadlineTurn="style=\"background-image:url('$img_dir_url/background/$ChreadlineR');  background-repeat:no-repeat; background-position:50% 50%; \"";}}
else{$ChreadlineTurn = "bgcolor=$ChreadlineR";}
return ($ChreadlineTurn);
}
sub Htmgifjpg{local($num) = @_;$num =~ s/\^/$Userimg_url\//g;$num =~ s/\|/\n/g;$num =~ s/¦¢/\|/g;return $num;}
sub TableimgS_E{local($Cnum,$rest) = @_;if($Cnum =~ /^\^/ || $Cnum =~ /\^$/){$Cnum =~ s/\^//g;$Cnum = "<img src=$Userimg_url/$Cnum border=0>";}
elsif($Cnum =~ /^http/ || $Cnum =~ /^\// || $Cnum =~ /^\./){$Cnum = "<img src=$Cnum border=0>";}
else{$Cnum =~ s/\^/$Userimg_url\//g;}$Cnum =~ s/\|/\n/g;$Cnum =~ s/¦¢/\|/g;return $Cnum;}
sub musicbox_print{local($num,$txt) = @_;
print "<script>window.open(\"$readimgcg?soundbox=$num&board=$DIRtarget&Count=$readline[1]&d=$readline[39]\", 'mbox', 'scrollbars=no,resizable=1,width=330,height=170');
</script><a href=\"$readimgcg?soundbox=$num&board=$DIRtarget&Count=$readline[1]&d=$readline[39]\"  target=\'$scripimport3\' onClick=\"fork(\'musicbox\')\">";}
sub music_type{local($Mfile,$rest) = @_;$Mfile =~ /[^\.]+$/;$Mfile = $&;return (1) if($Real_sound_file =~ /\.$Mfile\./i);}
sub TempCookie{local($name,$value,$itstemp) = @_;if($expPath && !$itstemp){print "Set-Cookie: $name=$value; path=$expPath; \n";}
else{print "Set-Cookie: $name=$value; \n";}}
sub ShopDisplay{return if ($text_print !~ /::DISPLAY::/i);
@templine = split(/$&/,$text_print);print "$templine[0]";
&ShopDisplayOrg;print "$templine[1]$TalignSpacebody$Newline\n";undef $ck_wd;$displayin = 'ReturnBlank';undef $ck_wd;next;}
sub ShopDisplayOrg{if(open(SHP, "$thispath/$shopdir/$readline[1].$filename_exp")){
require ("$lib_dir_path/Lib-3.cgi");
print "\n\n<!-------------------- shop start (Exe:technote/library/Lib-3.cgi)----------------------->\n";
print "<center>";
      &Shopping;
      print "</center>";
print "\n<!----------------------- shop end ------------------------------->\n\n\n";
}}
sub CntDirName{if($_[0] =~ /\d+$/){return ('count'.$&);}return ('count');}
sub AddCntWhere{my($x_dir,$w_num,$h_num,$f_num) = @_;my($GetCtDir) = &CntDirName($x_dir);
open(TEXT, "$thispath/$GetCtDir/$f_num.$filename_exp");@hreadcount = split(/\|/,<TEXT>);
$hreadcount[$w_num] += $h_num;open(TEXT, ">$thispath/$GetCtDir/$f_num.$filename_exp");
print TEXT (join('|',@hreadcount));close(TEXT);}
sub Css_id_print{local($bgc,$fontc,$align,$tdnum,$fsize) = @_;local($Norept);$bgc =~ s/^\s+$//;if($bgc){
if($bgc =~ s/\s*no-repeat//i){$Norept = " background-repeat:no-repeat; ";}
if($bgc =~ /^\#/){$bgc = "background-color:$bgc;";}
elsif($bgc =~ /\^/){$bgc =~ s/\^//g;$bgc = "background-image:url('$Userimg_url/$bgc');$Norept";}
elsif($bgc =~ /\//){$bgc = "background-image:url('$bgc');$Norept";}
else{$bgc = "background-color:$bgc;";}}else{$bgc = '';}
print ".CellStyle".$tdnum.'{';
print " $config[238]; " if($config[238]);
print " color:$fontc; $bgc ";
print " font-size:$fsize".'pt; ' if($fsize);
print " text-align:$align; " if($align);
print "}\n";
}
sub Link_Cut_Notice{if($LINK_PMS_URL[0] && $ENV{'HTTP_REFERER'}){foreach $key (@LINK_PMS_URL) {
next unless($key);if($ENV{'HTTP_REFERER'} =~ /^$key/i){$linkpms_in = 1;last;}}
&error_message('<font size=3>¹«´Ü¸µÅ© Çã¿ëºÒ°¡!</font>',"È®ÀÎ: <a href=$configlog[2] target=_blank>$configlog[2]</a>") unless($linkpms_in);
}}
sub M_Level{
local($B_conf,$P_level,$Msg,$Mrest) = @_;
local $M_level = $visitor_line[19] + 0;
return if($B_conf < 3 || $M_level < 2 || $TEck_Name || ($TEck_Mail && !$pass_sucs));
&error_message('·Î±×ÀÎ ÇϽÅÈÄ ÀÌ¿ëÇϽñ⠹ٶø´Ï´Ù.') if(!$TEck_Home && !$Mrest);
if($P_level <=  $M_level){$M_level = 9 if($M_level > 9);
&error_message("Á˼ÛÇÕ´Ï´Ù.<br><br><b>$Msg</b> ±ÇÇÑÀº<br><b>$P_level</b>µî±Þ ÀÌÇÏ($P_level ~ 9 µî±Þ)ÀÇ È¸¿ø¿¡°Ô´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù.<br><br>
Áö±Ý Ãâ·Â ¿äûÇÑ ÆäÀÌÁö¿¡ ´ëÇÑ <br><b>$visitor_line[2]</b>($visitor_line[0]) ´ÔÀÇ È¸¿ø±ÇÇÑÀº <b>$M_level</b>µî±ÞÀÔ´Ï´Ù.");
}}
1;