#!/usr/bin/perl -U #---À§ ù¶óÀÎ, ¼­¹öȯ°æ°ú ´Ù¸£´Ù¸é ¼öÁ¤(perlÀÇ °æ·Î). '#!' »èÁ¦ÇÏÁö¸»°Í #---config.cgi ÀÇ °æ·Î´ëÀÔ require './config.cgi'; # TECHNOTE2002 (FREEWARE VERSION) # ÀÌ°ÍÀº TECHNOTE-2002 'ÇÁ¸®¿þ¾î ¹öÀü' ¼Ò½ºÀÔ´Ï´Ù. # »ç¿ë·á ÁöºÒ¾øÀÌ ´©±¸³ª »ç¿ëÇÒ ¼ö ÀÖÀ¸¸ç # ¿øº» ¾ÐÃàÇüÅ·ΠÀç ¹èÆ÷ ÇÏ´Â °Íµµ Çã¿ëµË´Ï´Ù. # ´Ü, ¼öÁ¤ÇÑ ¼Ò½º´Â ´ç»çÀÚ¿¡°Ô¸¸ »ç¿ëÀÌ Çã¿ëµÇ¸ç Àç¹èÆ÷ÇÒ ¼ö ¾ø½À´Ï´Ù. # ÀÌ ¼Ò½º¸¦ ÀÌ¿ëÇÑ 2Â÷Àû ÀúÀÛ¹° Á¦ÀÛ,¹èÆ÷´Â ±ÝÇÏ¿©, À§¹Ý½Ã ÁöÀûÀç»ê±Ç # º¸È£¹ý¿¡ ÀÇÇÑ Á¶Ä¡°¡ ÃëÇØÁö´Â ºÒÀÌÀÍÀ» ¹Þ°Ô µÉ °ÍÀÔ´Ï´Ù. # Copyright(c) TECHNOTE inc (since 1998~) # http://www.technote.co.kr # ÃÖÁ¾¼öÁ¤ ¹èÆ÷ÀÏ 2001/08/01 # -----------------------------------------------------------# ## ÀÛÀº âÀ» ¶ç¿ö¼­ º»¹®Ãâ·ÂÇÒ °æ¿ìÀÇ ¼³Á¤ Àû¿ë ## # °ü¸®¼³Á¤-[4-15],[4-16],[4-17]¿¡¼­ ÁöÁ¤ÇÑ htm »ðÀÔÄÚµå¿Í # config.cgi - [41]¹ø Ç׸ñ¿¡¼­ ÁöÁ¤ÇÑ htm »ðÀÔÄڵ带 ¹«½ÃÇÏ·Á¸é 1À» ´ëÀÔ # ÀÛÀºÃ¢¿¡¼­µµ htm »ðÀÔÄڵ带 Ãâ·ÂÄÉÇÏ·Á¸é 0 À» ´ëÀÔ $If_newwin_nohtml = 1; ## ÀÏ¹Ý htm ÆÄÀÏ¿¡¼­ º¸µå³»ÀÇ Æ¯Á¤ º»¹®±ÛÀ» º°µµ·Î ¸µÅ©ÇØ ³õ°íÀÚ ÇÒ °æ¿ì, # °ü¸®¼³Á¤-[4-15],[4-16],[4-17]¿¡¼­ ÁöÁ¤ÇÑ htm »ðÀÔÄÚµå¿Í # config.cgi - [41]¹ø Ç׸ñ¿¡¼­ ÁöÁ¤ÇÑ htm »ðÀÔÄڵ带 ¹«½ÃÇÏ·Á¸é # http://abcdefg.com/technote/read.cgi?board=BOARDNAME&x_number=994194099&nnew=1&DEL_HTM_MENU=1 # °ú °°ÀÌ µÚ¿¡ &DEL_HTM_MENU=1 À» ºÙ¿© ÁÖ¸é µÊ &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('ȸ¿ø·Î±×ÀÎ ÇÏ¼Å¾ß ±Û ÀбⰡ °¡´ÉÇÕ´Ï´Ù.','priv_read_id=1');} if($readline[3] !~ /^\s*$visitor_line[0]\s*$/ && $readline[25] !~ /^\s*$visitor_line[0]\s*$/){&open_lock; &error_message('ÀÚ½ÅÀÇ ¾ÆÀ̵ð·Î µî·ÏµÈ ±Û¸¸ ÀÐÀ» ¼ö ÀÖ½À´Ï´Ù.');}} else{if(!$FORM{'r_search'} || ($FORM{'r_search'} ne $readline[5])){&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(/\|/,);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; $del_title=$readline[2];$FORM{'x_number'} = $readline[1];$del_title =~ tr/ /+/; 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)); &Explorer_Browser;$NewWin = "target=\'$scripimport\' onClick=\"fork(\'techboard\')\"" if($config[203] == 2 || $nnew == 2); if($config[172] != 2 && $readline[31] != 2){$Newline = "
" ;}else{$TxtEbr = "
";}@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 || $FORM{'shoppoint'})){ require ("$lib_dir_path/Lib-10.cgi");&write_guest_text;}if(($If_newwin_nohtml && $nnew == 1) || $FORM{'DEL_HTM_MENU'} || ($config[166] == 2)){ $config[209]='';$config[295]='';$config[287]='';$configlog[1] = '';$configlog[13] = '';$config[136] = '';}else{ $configlog[1] =~ s/\|/\n/g; $configlog[13] =~ s/\|/\n/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{'';} &Content_type_print; print < $Htm_in_head No,$text_title_number : $readline[2] $On_Load_URL
$BODY_BEGIN$configlog[1] END print &Htmgifjpg("$config[209]"); if($readline[24] && (($config[98] != 3) || $FORM{'r_search'} || $FORM{'ryal'})){ print "
   ¢É $readline[24]($readline[25])
\n"; if($config[98] == 1){$T_dir_x2 = $readline[39] ? $readline[39] : $textdir ; open(TEXT, "$thispath/$T_dir_x2/$readline[26].$filename_exp"); @readtext=;close(TEXT);chop(@readtext);shift(@readtext); foreach $text_print(@readtext){$text_print =~ s/<([^>]|\n)*>//g;print "$text_print
";}} print "
 
";} if($readline[16]){ $config[162] = $readline[16];} else{ $readline[16] = $config[160];} $readline[15] = $config[22] unless($readline[15]); $config[165] += 0; print "
\n"; # ±Û¹øÈ£--- print "$config[215] No, $text_title_number
" if($config[214] != 2); # ¸ÞÀÏÁÖ¼Ò--- if(($readline[3] || $readline[6]) && ($config[207] != 2)){ print "$config[215] $CellTitleH[2]:$readline[3]"; print " ($readline[6])\n" if($readline[6]); print " ($readline[5] $man_or_wom $readline[8])" if($readline[5] || $man_or_wom || $readline[8]); print "
\n"; } # ȨÆäÀÌÁö ÁÖ¼Ò--- print "$config[215] $W_Home:$readline[18]
\n" if($readline[18]); # ÀÔ·ÂÃß°¡Ç׸ñ--- &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'); # ÀÛ¼ºÀÏ --- print "$config[215] $readline[14]
\n" if($config[10]==1); ## Á¶È¸¼ö--- print "$config[215] $CellTitleH[4]:$hreadcount[1]
\n" if($config[183] == 1); # ÃßõÁ¡¼ö--- print "$config[215] $CellTitleH[5]:$hreadcount[3]
\n" if($config[13]==1); # ÆÄÀÏ Ã·ºÎ or ÆÄÀÏ ¸µÅ© --- if($config[109]!=2){ if($readline[17]){ if(&music_type("$readline[17]")){ &musicbox_print('17'); $MfileUp = 1; } else{ print ""; } print "$readline[17] ("; print &UnitFsize("$readline[29]"); print ", DN:$hreadcount[4])
\n"; } if($readline[28]){if(&music_type("$readline[28]")){&musicbox_print('28');} else{ $linkload = $readline[28]; $linkload =~ s/\&/VvQx/g; $linkload =~ s/=/QqxV/g; print "";} $readline[28] =~ s/\/$//; $readline[28] =~ s/\S+\///; $readline[28] =~ s/\?(.*)$//; print "$readline[28]("; print &UnitFsize("$readline[29]")." " if(!$readline[17] && $readline[29]); print "LOAD:$hreadcount[5])
\n";}} print "
\n"; if(!$readline[36]){&PUT_img;} print "$Donotpoint"; &open_main_text; if($readline[2] && $config[296]==1){ print &TableimgS_E("$config[204]"); print " $readline[2]  ";} if($readline[34]){&Voteinput;} else{print "

\n" if($readline[2] && $config[296]==1);} if($readline[36] == 1 || $readline[36] == 2 || $readline[36] == 4){&PUT_img;} $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; print "$text_print$TalignSpacebody$Newline\n"; undef $ck_wd;} if($readline[36] == 5){&PUT_img;} print "$TxtEbr
\n"; print "
"; &guest_text if($config[218]==1); print ("  " x 10); $readline[6] =~ tr/ /+/; $readline[3] =~ tr/ /+/; if($config[182] != 2){ print "\"´äº¯/°ü·Ã ";} if($config[12]==1){print "\"Æû¸ÞÀÏ ";} if($config[70]==1 || $TEck_Name || $TEck_Mail){print "\"¼öÁ¤/»èÁ¦\"";} &DnUp_Btn if($config[184] != 2); if($nnew == 1){print "      â´Ý±â ";} if(!$readline[4] && $config[13]==1 && !$fail_p && &Checkcookie('Po17p')){ &Right_CHeck_Form('239'); &input_hidden('command','point_in'); &input_hidden('re_POINT',$FORM{'point'}); print "    \n";} if($readline[27] && (($config[98] != 3) || $FORM{'r_search'} || $FORM{'ryal'})){ @target_line=split(/:::/ ,$readline[27]); $ManyText = @target_line - 1; print "
"; while($ManyText >= 0){ if($target_line[$ManyText]){ @target_text=split(/::/,$target_line[$ManyText]); print "¢É $target_text[1]($target_text[2])"; if($config[98] == 1){ open(TEXT, "$thispath/$T_dir_x2/$target_text[0].$filename_exp"); @readtext=; close(TEXT); chop(@readtext); shift(@readtext); foreach $text_print(@readtext){ $text_print =~ s/<([^>]|\n)*>//g; print "$text_print
";}} print "
";} $ManyText -= 1;}} print "
"; print &Htmgifjpg("$config[295]"); if($nnew == 2){ $TableManY = $config[217] - 1; if(!$config[186]){ $Subiconrpt = &MainTexticon;} else{$Myicon =&TableimgS_E("$config[186]");$Subiconrpt = 'GetinMyicon';} &indextable if($config[217] > 1); $PREVBUTNLG = $PREVBUTN + $TableManY; $NEXTBUTNLG = $NEXTBUTN - $TableManY; $PREVBUTNLG = $indexsize - 1 if($PREVBUTNLG > $indexsize - 1); $NEXTBUTNLG = '0' if($NEXTBUTNLG < 0); &INDEXBT_print if($config[181]==1); # ---'ÇÁ¸®¹öÀü' ¿¡¼­´Â ¾Æ·¡ ÀúÀÛ±Ç ¸í½ÃºÎºÐÀº ÀÓÀÇ·Î º¯°æ,»èÁ¦ÇÒ ¼ö ¾øÀ½À» ºÐ¸íÈ÷ ÇÔ.--- print "
¨Ï Copyright 1999~   TECHNOTE2002 / TECHNOTE.INC,
";} print &Htmgifjpg("$config[287]"); print "$configlog[13]$BODY_END
"; exit; } sub Shwdcolor{return if($ck_wd || $SHULine);foreach $key(@word_sh){$text_print =~ s/$key/$key<\/font>/ig;}} sub SexRead{local($WMn) = @_;return if(!$WMn);if($WMn == 2){return $Sex_Wn;}else{return $Sex_Mn;}} sub DnUp_Btn{ print "     "; if($PREVBUTN < $indexsize){print "ÀÌÀü±Û";} if($NEXTBUTN >= 0){print " ´ÙÀ½±Û";} print "     ";} sub form_head{ local($in1,$in2)=@_; print "\n\n
\n"; &input_hidden('board',$DIRtarget); &input_hidden('back',$FORM{'back'}); &input_hidden('x_number',$readline[1]); } sub Right_CHeck_Target{local($in1,$in2)=@_;print "\n";&input_hidden('board',$DIRtarget);} 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');} 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=; close(TEXT); $maintxtsize = @readtext; } sub guest_text{ print " "; $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];$Wrmemoid = '(ID)';} &Right_CHeck_Form('240','','OPINFORM'); print ""; print "  À̸§$Wrmemoid "; 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 "\n $visitor_line[2]";} else{print "";} print "  ¸ÞÀÏ "; if($readline[31]!=1){ print " "; } print &Perm_Print('240'); print "
  ³»¿ë "; print ""; print ""; print "ÀÔ·Ââ Å©°Ô"; print ""; } sub PUT_img{local($imgalign,$nlin_e);if($readline[36] == 2){$imgalign = 'align=left';} elsif($readline[36] == 4){$imgalign = 'align=right';} elsif($readline[36] == 5){$nlin_e = "
";} else{$nline = "
\n";} if($readline[9]){print "$nlin_e$nline";} elsif($readline[10]){if($cgi_dir_appoint == 1){print "$nlin_e$nline";} else{print "$nlin_e$nline";}} elsif($readline[11]){print "$nlin_e$nline";} else{"";}} sub Voteinput{ $VT_rdline = $readtext[0]; chop($VT_rdline); @TXR_line = split(/\|/,$VT_rdline); print "
"; 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\n"; if($Vs_v_ok){&Right_CHeck_Form('239');} $ttm = 1; for(0..($manytarget - 1)){ $grpfile = 'vgr'.$ttm.'.gif'; $formum = $_ + 1; $pwidth = ($vote_point[$_] * $brige) + 5 ; $vote_point[$_] = '0' if($vote_point[$_] < 1); print "\n"; $VoteMany += $vote_point[$_]; $ttm = ($ttm < 5) ? ($ttm+1) : 1;} print "
"; if($Vs_v_ok){print "" ;} else{print " ";} print "$vote_target[$_]\n"; if(($config[168] == 1) || !$Vs_v_ok){ $percent = ($vote_point[$_]/$Total_Point)*100; print " "; printf (" $vote_point[$_] \(%4.1f", $percent); print "\%)\n";} print " 
  "; if($Vs_v_ok){ print "            "; print &Perm_Print('239'); print ""; }else{print '
(((ÅõÇ¥¿¡ Âü¿©ÇØ Áּż­ °¨»çÇÕ´Ï´Ù)))';} print "   ÅõÇ¥Âü¿© Àοø $VoteMany
\n\n\n\n\n\n"; print "
"; } sub readtext_1{ $NUMBERCK = ($indexsize - 1); while($NUMBERCK >= 0){last if($indexline[$NUMBERCK] =~ /^0\|$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 = "+-- Çã¿ëÆ÷ÀÎÆ®¸¦ ÃÊ°úÇÕ´Ï´Ù. --+
"; 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 = "+--¿¬¼ÓÀûÀÎ ÅõÇ¥¹× Æò°¡´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù !--+
";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 = ;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 = "+--¿¬¼ÓÀûÀÎ ÅõÇ¥¹× Æò°¡´Â Çã¿ëµÇÁö ¾Ê½À´Ï´Ù !--+
"; $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){$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,$ANtx) = @_;$text_print =~ s/\(/ \( /g;$text_print =~ s/\)/ \) /g; $text_print =~ s/\?/XqQoB/g;if($text_print =~ /(\s|^)(http:\/\/\S+\.\S+)(\s|$)/goi){&auto_link($2);} if($text_print =~ /(\s|^)(ftp:\/\/\S+\.\S+)(\s|$)/goi){&auto_link($2);}if($text_print =~ /(\s|^)([0-9a-zA-Z]+\@\S+\.\S+)(\s|$)/goi){ my($mailadrd) = $2;$text_print =~ s/$mailadrd/$mailadrd<\/font><\/u><\/a>/; $ck_wd=1;}$text_print =~ s/ \( /\(/g;$text_print =~ s/ \) /\)/g;$text_print =~ s/XqQoB/\?/g; if(($Spaceinvert) || ($config[172] == 1 && !$SPcl && !$ANtx)){$text_print =~ s/\t/            /g; $text_print =~ s/\s\s/  /g;$Spaceinvert = 1;}}sub auto_link{local($Textarr) = @_;if(&linkfiletype($Textarr)){$T_Blank = 'target=_blank';}else{$T_Blank = '';} $text_print =~ s/$Textarr/$Textarr<\/font><\/u><\/a>/; $ck_wd=1;}sub close_lock{$Nowtime = time+10;while (-e "$thispath/$lockfile" && (time < $Nowtime)) {sleep(1);} open(LOCK, ">$thispath/$lockfile");close(LOCK);}sub open_lock{unlink("$thispath/$lockfile");}sub open_config{open(FILE, "$board_dir_path/$loginfile");@configlog=;chop(@configlog);close(FILE); $configlog[0] = &ch_pass("technote") if(!$configlog[0]);open(CONFIG, "$thispath/$configfile");@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") ||&error_message("$DIRtarget BOARD ÀÇ $indexfile ÆÄÀÏÀ» ãÀ» ¼ö ¾ø½À´Ï´Ù.", "config.cgi ÆÄÀÏÀ» ÅؽºÆ®ÆíÁý±â·Î ¿­°í °æ·Î¼³Á¤À» ´Ù½Ã È®ÀÎ ÇϽʽÿÀ.","");@indexline=;$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;} 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")}); 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);}}@back_index = split(/\|/,$2) if($COOKIE{'TabLeNumReM'} =~ /^($DIRtarget)-(.*)/); 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($cookie_key.'Shop',$COOKIE{$cookie_key.'Shop'}) if($COOKIE{$cookie_key.'Shop'});}sub M_Login_cked{$visitor_line[20] += 0;return unless((-e "$config_dir_path/temp/$visitor_line[20]") && $visitor_line[20]);$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=1');} elsif($config[131] == 3 && !$TEck_Home){&MoveLocation('ID Á¤½Äµî·Ï ȸ¿ø¿¡ ÇÑÇÏ¿© ±Û ÀбⰡ °¡´ÉÇÕ´Ï´Ù.','priv_read_id=1');}else{"";}} sub ENTER_right{if($config[61] == 2 && !$TEck_Mail){&MoveLocation('°ü¸®ÀÚ¸¸ÀÌ BOARD ÀÔÀåÀÌ °¡´ÉÇÏ°Ô ¼³Á¤µÇ¾î ÀÖ½À´Ï´Ù.','priv_read_manager=1');} elsif($config[61] == 3 && !$TEck_Home){&MoveLocation('ID Á¤½Äµî·Ï ȸ¿ø¿¡ ÇÑÇÏ¿© BOARD ÀÔÀåÀÌ °¡´ÉÇÕ´Ï´Ù.','priv_read_id=1');}else{"";}} sub MoveLocation{ &Content_type_print; local($local1,$local2,$local3,$local4)=@_; print < $Htm_in_head$local1 END_LINE exit; } sub Table_Plan{$config[243] =~ s/16//g;$config[243] =~ s/17//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[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 "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 = "";foreach $key (@TaPa_line){$Subname = 'Sujthad_'.$key;&$Subname if($key);} print "$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(/\|/,); &bodyprint;}$indexstart -= 1;$chklast++;} close(CNT);print "
";} if($config[103] != 2){$blank = '    ' ;} if($config[102] != 2){$a_line = "" ;} else{$a_line = ' ' ;} if($config[175] != 2){print "
";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 "$CellTitleH[0]";}sub Sujthad_2{print "$CellTitleH[1]";} sub Sujthad_3{print "$CellTitleH[2]";}sub Sujthad_4{print "$CellTitleH[3]";} sub Sujthad_5{print "$CellTitleH[4]";}sub Sujthad_6{print "$CellTitleH[5]";} sub Sujthad_7{print "$CellTitleH[6]";}sub Sujthad_8{print "$CellTitleH[7]";} sub Sujthad_9{print "$CellTitleH[8]";}sub Sujthad_10{print "$CellTitleH[11]";} sub Sujthad_11{print "$CellTitleH[12]";}sub Sujthad_12{print "$CellTitleH[13]";} sub Sujthad_13{print "$CellTitleH[14]";}sub Sujthad_14{print "$CellTitleH[15]";} sub Sujthad_15{print "$CellTitleH[16]";}sub Sujthad_18{print "¤FÀº´ñ±Û";} sub Sujthad_20{print "$CellTitleH[19]";}sub Sujthad_21{print "$CellTitleH[9]";} sub Sujthad_22{print "$CellTitleH[10]";}sub Sujthad_23{print "";} sub Sujthad_24{print "$CellTitleH[17]";}sub Sujthad_25{print "$CellTitleH[18]";} 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]){$re=("$blank" x $readline[4])."$a_line" ;}else{$re=' ';} &$Cell_Color_joo;print "\n";foreach $key (@TaPa_line){$Sub_name = 'CellBody_'.$key;&$Sub_name if($key);} print "\n";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 "$re"; &$Subiconrpt;if($indexstart == ($NEXTBUTN + 1)){$Enfont = '
'; print " ";} print "
"; print " " if($readline[34]); print "" if($readline[32] eq 'x'); print "$readline[2]"; print "$Enfont\n";} sub CellBody_3{$readline[3] = &SubstrReturn($readline[3],0,20,'..') if(length($readline[3]) > 20); print ""; $readline[3] =' ' if(!$readline[3]); if($readline[6] && $config[163] != 3){ print ""; print "" if($config[216] == 1); print "$readline[3]" ;} else{print " $readline[3]";} if($JobOld){if($JobOld ==8 && $readline[8]){print "($readline[8])";} elsif($JobOld==5 && $readline[5]){print "($readline[5])";} else{"";}}print "";} sub CellBody_23{print ""; if($readline[18]){print "$readline[18]";} else{print " ";}print "";} sub CellBody_1{print "$count_num\n";}sub CellBody_4{print "$readline[23]\n";} sub CellBody_5{print " $hreadcount[1]\n";}sub CellBody_6{print " $hreadcount[3]\n";} sub CellBody_7{print " $man_or_wom\n";}sub CellBody_8{print " $readline[5]\n";} sub CellBody_9{print "$readline[8] \n";}sub CellBody_10{print "".&WrAreaNewLine("$readline[19]")." \n";} sub CellBody_11{print "".&WrAreaNewLine("$readline[20]")." \n";}sub CellBody_12{print "".&WrAreaNewLine("$readline[21]")." \n";} sub CellBody_13{print "".&WrAreaNewLine("$readline[22]")." \n";}sub CellBody_14{print "".&WrAreaNewLine("$readline[37]")." \n";} sub CellBody_15{print "".&WrAreaNewLine("$readline[38]")." \n";}sub CellBody_18{print " $hreadcount[2]\n";} sub WrAreaNewLine{my($indat)=@_;$indat =~ s/\:\;/
/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/\:\;/
\ \; \ \;/g; print " $config[215] $config[$Nm4]:$readline[$Nm1]
\n";} sub CellBody_20{local($FileIMG,$icon_in,$temp,$linkload,$tfile,$tfile2,$FLsize,$FLsize2);print ""; if($readline[17]){$FLsize = '('.&UnitFsize("$readline[29]").')';print ' ';if($readline[32] eq 'x'){ print "";$tfile = 'x_file';} elsif(&music_type("$readline[17]")){&musicbox_print('17');print "$readline[17]";} else{print ""; print "$readline[17] $FLsize";} if($config[122]==1){print "";print $tfile? $tfile : &SubstrReturn($readline[17],0,25,'').$FLsize;print "";} print "" if(!$tfile);}if($readline[28]){$FLsize2 = '('.&UnitFsize("$readline[29]").')' if(!$FLsize && $readline[29]); print '
' if($readline[17]);print ' ';$temp = $readline[28];$temp =~ s/\/$//;$temp =~ s/\S+\///; $temp =~ s/\?(.*)$//;if($readline[32] eq 'x'){print ""; $tfile2 = 'x_link_file';}elsif(&music_type("$readline[28]")){&musicbox_print('28'); print "$temp";} else{$linkload = $readline[28];$linkload =~ s/\&/VvQx/g;$linkload =~ s/=/QqxV/g; print ""; print "$temp $FLsize2";} if($config[122]==1){print "";print $tfile2? $tfile2 : &SubstrReturn($temp,0,25,'').$FLsize2;print "";} print "" if(!$tfile2);}print " \n";} sub CellBody_21{print "\n";} sub CellBody_22{my($Dnfileread3,$NewLni); if($hreadcount[4]){$Dnfileread3 = $hreadcount[4];$NewLni = '
';} if($hreadcount[5]){$Dnfileread3 .= $NewLni.$hreadcount[5] ;} print " $Dnfileread3\n";} sub CellBody_24{print " $hreadcount[7]\n";} sub CellBody_25{$hreadcount[8] = '' if($hreadcount[8] eq 'x');print " $hreadcount[8]\n";} sub title_icon_set{$icon_y1=&icon_arr('poly1.gif');$icon_y2=&icon_arr('poly2.gif');$icon_y4=&icon_arr('poly4.gif'); $icon_y5=&icon_arr('poly5.gif');$icon_p1=&icon_arr('polb1.gif');$icon_p2=&icon_arr('polb2.gif');$icon_p3=&icon_arr('polb3.gif'); $icon_p4=&icon_arr('polb4.gif');$icon_p5=&icon_arr('polb5.gif');$icon_g1=&icon_arr('polg1.gif');$icon_g2=&icon_arr('polg2.gif'); $icon_qu=&icon_arr('qa1.gif');$icon_an=&icon_arr('qa2.gif');$icon_pr=&icon_arr('qa4.gif');$icon_op=&icon_arr('qa3.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 "" ;} 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] == 1){print $icon_pr ;}elsif($readline[33] == 2){print $icon_qu ;}elsif($readline[33] == 3){print $icon_op ;} elsif($readline[33] == 4){print $icon_an ;}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) = @_;$filename =~ /[^\.]+$/;$filename = $&; if($linkfile_type_conf =~ /\.$filename\./i){return '';}else{return 1;}} sub input_hidden{local($hname,$hvalue) = @_;print "\n";} sub INDEXBT_print{print "
 
"; &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 "     LOG-OUT\n";} print "
";} sub BT_Move_Icon{if($first_index < $indexsize - 1){ print ""; &ButImgPrtSub('btttop.gif','óÀ½'); print "\n"; print ""; &ButImgPrtSub('bttrew.gif','ÀÌÀü'); print "\n"; } if(0 < $first_index - $TableManY){ print ""; &ButImgPrtSub('bttfow.gif','´ÙÀ½'); print "\n"; } print "       "; } sub BT_Main_Icon{ print ""; &ButImgPrtSub('bttlist.gif','¸ñ·Ï'); print "\n"; } sub BT_home_Icon{ print ""; &ButImgPrtSub('btthomex.gif','Ȩ'); print "\n"; } sub BT_infor_Icon{ print ""; &ButImgPrtSub('bttinforx.gif','¾È³»'); print "\n"; } sub BT_iboard_Icon{ print ""; &ButImgPrtSub('bttnewsx.gif','¾Ë¸²'); print "\n"; } sub BT_write_Icon{ print ''; &ButImgPrtSub('bttwrx.gif','¾²±â'); print "\n"; } sub ButImgPrtSub{ local($img,$alt) = @_; print "$alt"; } sub Explorer_Browser{ $explorer = 1; $Formstyle = "STYLE=\"font-family:±¼¸²; font-size:9pt; color:$config[211]; background-color:#ffffff; border-width:1; border-color:#435E9B; border-style:solid;\""; $Subbtsty = "STYLE=\"font-family:±¼¸²; font-size:8pt; color:$config[213]; background-color:$config[212]; border-width:1; border-color:#eeeeee;\""; if($ENV{'HTTP_USER_AGENT'} =~ /MSIE\s+4\./i){$SHULine = 1;}} 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);&TempCookie("ReadTxtChEck",$CooRdscr,1);} sub Perm_Print{local($num,$rest) = @_;return " (°ü¸®ÀÚ±ÇÇÑ)" if($config[$num] == 2);return " (ȸ¿ø±ÇÇÑ)" 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;return $num;} sub TableimgS_E{local($Cnum,$rest) = @_;if($Cnum =~ /^\^/ || $Cnum =~ /\^$/){$Cnum =~ s/\^//g;$Cnum = "";} elsif($Cnum =~ /^http/ || $Cnum =~ /^\// || $Cnum =~ /^\./){$Cnum = "";} else{$Cnum =~ s/\^/$Userimg_url\//g;} $Cnum =~ s/\|/\n/g;return $Cnum;} sub musicbox_print{local($num,$txt) = @_; print "";} 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 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(/\|/,); $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 = '';}$fontc = "color:$fontc;";$align = "text-align:$align;" if($align); $fsize = "font-size:$fsize".'pt;' if($fsize);print ".CellStyle".$tdnum."{$fsize $fontc $bgc $align $config[238]}\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('¹«´Ü¸µÅ© Çã¿ëºÒ°¡!',"$configlog[2]") unless($linkpms_in); }} 1;