#!/usr/bin/perl -U require './config.cgi'; # 첫라인: perl 경로(서버환경과 다를 경우 수정) # 두번째 라인 : 'config.cgi'의 경로(전체 절대경로를 넣어야만 하는 환경이라면 수정) # body print # ---------------------------------------------------------------------# # TECHNOTE2001 2000.09.25 프리웨어 (FREEWARE VERSION) # 이것은 TECHNOTE-2001 프리웨어 프로그램 소스입니다. # 사용료 지불없이 누구나 사용할 수 있습니다. # 이 프로그램은 원본 압축형태로만 재 배포를 허용합니다. # 이소스를 이용한 2차적 저작물 제작,배포는 금하여, 위반시 지적재산권 # 보호법에 의한 조치가 취해지는 불이익을 받게 될 것입니다. # 이 프로스램 소스를 무단 도용시에는 예기치 않은 법적 불이익을 받을 수 있습니다. # 이 프로그램이 무단 도용되는 것을 제보하신 분에게는 손해배상 청구권이 # 발생할 경우, 소송 비용을 제외한 손해 배상금 전액을 드립니다. # Copyright TECHNOTE inc (since 1998~) # http://www.technote.co.kr # 버전,배포일 2000.09.25 # ---------------------------------------------------------------------# &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{if($config[131] != 1 && !$TEck_Name){&READ_right;}if($config[61] != 1 && !$TEck_Name){&ENTER_right;}$BackOrderprt = ($FORM{'back'})? '&back=1' : ''; &close_lock;if(!$FORM{'r_search'} && ($FORM{'back'} || $config[177] == 1)){&RE_join_index ;} else{$NoReJoin = 1;}&open_pointdata if($config[13] == 1);if(!$neworderindex || $FORM{'VOTEPUT'} || ($FORM{'command'} eq 'point_in')){&open_index;&hitreadindex;} 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]");}} if(($config[205] == 1) && (($config[183] == 1) || ($config[243] =~ /(^|\/)5/))){&open_hitcount;}&write_hitcount if($config[205] == 1);&open_lock; if($neworderindex){$NEXTBUTN = $NEXTBUTN_x;$PREVBUTN = $PREVBUTN_x;}&open_dncount if( ($config[243] =~ /22/ && $nnew == 2) || $readline[17] || $readline[28] ); $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]);} if($readline[7]){if($config[257] == 1){$bgcolor= &Getbgcolor($config[53]);}else{$bgcolor = &ReadLineReturn($readline[7]);}}else{$bgcolor= &Getbgcolor($config[53]);} if($readline[16]){$InBoxText = $color_line[$readline[16]];$readline[16]= $color_line[$readline[16]];$setfontCol = 1;} else{$InBoxText = $color_line[$config[160]];$readline[16]= $color_line[$config[55]];}if($readline[15]){$fontface = "font size=2 face=$readline[15]";} else{if($config[22]){$fontface = "font size=2 face=$config[22]";}else{$fontface ='font style=\'font-size:9pt\' ';}}if($FORM{'r_search'}){@word_sh=split(/ /,$FORM{'r_search'});} for(204,110,215){$config[$_] = &TableimgS_E("$config[$_]");}$NewLinertn = $config[110];$LINKcolor = $color_line[$config[56]];$VLINKcolor = $color_line[$config[244]]; $underline ='none';if($config[257] == 1){if($readline[7] && $setfontCol){$printulineS ="";$printulineE ='';}else{$printulineS ="";$printulineE ='';} $TEXTcolor = $InBoxText;$readline[16] = $color_line[$config[55]];$simplecol = $readline[7] ? &ReadLineReturn($readline[7]) : &Getbgcolor($config[159]);} else{$TEXTcolor = $color_line[$config[160]];$printulineS ="";$printulineE ='';$simplecol = &Getbgcolor($config[159]);} $NewLinertn ='';$linearound = &Getbgcolor($config[161]);if($readline[40]){$SimpleAlign = " align=$readline[40]";}$imgfileset = 1 if($readline[9] || $readline[10] || $readline[11]); if($readline[36] == 3 && $imgfileset){if($readline[10]){if($cgi_dir_appoint == 1){$simplecol="background=$board_dir_url/$DIRtarget/$upimgdir/$readline[10]";} else{$simplecol="background=$readimgcg?board=$DIRtarget&img=$readline[10]";}}elsif($readline[9]){$simplecol="background=$Faceimg_url/$readline[9]";}else{$simplecol='background='.$readline[11];}} $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]);$config[209] = &Htmgifjpg("$config[209]");$config[295] = &Htmgifjpg("$config[295]");$config[287] = &Htmgifjpg("$config[287]");$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;} &Content_type_print; print < No,$text_title_number : $readline[2] $Htm_in_head END &newwindow; print "
$NaturalAlignS $config[209] "; if($readline[24] && (($config[98] != 3) || $FORM{'r_search'} || $FORM{'ryal'})){ $blankcolor="$readline[16]"; print "
<$fontface>>  $readline[24]$TanignSpace($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_fd('','1'); print "> $text_print $TanignSpace
";}} print "$NewLinertn
";} 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]"; if($readline[6]){print " ($printulineS$readline[6]$printulineE)\n";} print " ($readline[5] $man_or_wom $readline[8])" if($readline[5] || $man_or_wom || $readline[8]);print "
\n";} if($readline[18]){print "$config[215] $W_Home:$printulineS$readline[18]$printulineE
\n";} for(49..52,189,190){if($config[$_] =~ s/\-(center|right|left)//i){$tbalign{$_} = "$1";}$config[$_] =~ s/=.*//;} &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){print "$config[215] $readline[14]
\n";} if($config[183] == 1){if($COUNT_hit =~ /$readline[1]=([0-9]*)/){$Mtxthit = $1;}$Mtxthit += 0; print "$config[215] $CellTitleH[4]"; print "(Only)" if($config[29] != 2); print ": $Mtxthit 회
\n";} if($config[13]==1){if($COUNT_point =~ /($readline[1])=(-?[0-9]*)/){$Mtxtpoint = $2;} print "$config[215] $CellTitleH[5]:$Mtxtpoint
\n";} if($readline[17]){if(&music_type("$readline[17]")){$FileIMG = &Get_icon_type($readline[17]);&musicbox_print('17');$MfileUp = 1;}else{&Down_load_Link;} print "$printulineS$readline[17]$printulineE ("; print &UnitFsize("$readline[29]"); if($MfileUp){if($COUNT_down =~ /$readline[1]=([0-9]*)/){$Dnfileread = $1;} $Dnfileread += 0;print ", LOAD:$Dnfileread";}else{if($COUNT_down =~ /$readline[17]=([0-9]*)/){$Dnfileread = $1;}$Dnfileread += 0; print ", DN:$Dnfileread";}print ")
\n";} if($readline[28]){if(&music_type("$readline[28]")){$FileIMG = &Get_icon_type($readline[28]);&musicbox_print('28');} else{$linkload = $readline[28];$linkload =~ s/\&/VvQx/g;$linkload =~ s/=/QqxV/g; print ""; $FileIMG = &Img_Dn_Open('28');}$readline[28] =~ s/\/$//;$readline[28] =~ s/\S+\///;$readline[28] =~ s/\?(.*)$//; print "$printulineS$readline[28]$printulineE("; print &UnitFsize("$readline[29]")." " if(!$readline[17] && $readline[29]);if($COUNT_down =~ /$readline[1]=([0-9]*)/){$Dnfileread2 = $1;} $Dnfileread2 += 0;print "LOAD:$Dnfileread2" . ")
\n";} print "
\n<$fontface class='blinespace'>"; if(!$readline[36]){&PUT_img;} print "$Donotpoint"; &open_main_text; print "$config[204] $readline[2]   $TanignSpace" if($readline[2] && $config[296]==1); 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 = $color_line[$config[162]];chop(@readtext);shift(@readtext); $SpaceNo = ($readline[31] == 2) ? '1' : '' ; foreach $text_print(@readtext){&text_print_fd("$SpaceNo");if($FORM{'r_search'} && !$ck_wd && !$SHULine){foreach $key(@word_sh){$text_print =~ s/$key/$key<\/font>/ig;}} print "$text_print$TalignSpacebody$Newline\n"; undef $ck_wd;}undef($Spaceinvert);if($readline[36] == 5){&PUT_img;} print "$TxtEbr
\n<$fontface>
<$fontface>"; &guest_text if($config[218] == 1 && !$FORM{'gstbody'}); print ("  " x 10);$readline[6] =~ tr/ /+/;$readline[3] =~ tr/ /+/; if($config[182] != 2){print "\"답변/관련 ";} if($config[12]==1 && $readline[6]){print "\"폼메일 ";} if($config[70]==1 || $TEck_Name){print "\"수정/삭제\"";} &DnUp_Btn if($config[184] != 2);if($nnew == 1){print "      ";} print "              ";if($config[13]==1 && !$fail_p && &Checkcookie('Po17p')){print ""; &Right_CHeck_Form('239');&input_hidden('command','point_in');&input_hidden('re_POINT',$FORM{'point'});print "    $TanignSpace\n";} if($readline[27] && (($config[98] != 3) || $FORM{'r_search'} || $FORM{'ryal'})){$blankcolor="$readline[16]"; print "
$NewLinertn";print "
" if($NewLinertn !~ /
= 0){if($target_line[$ManyText]){ @target_text=split(/::/,$target_line[$ManyText]); print ">  $target_text[1]$TanignSpace($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_fd('','1');print "> $text_print $TanignSpace
";}print "
";}print "";}$ManyText -= 1;}} print "
$config[295]";if($nnew == 2){$TableManY = $config[217] - 1;if(!$config[186]){if($config[101] != 7){&title_icon_set;}} else{$Myicon = &TableimgS_E("$config[186]");}print "
";if($config[217] > 1){&indextable ;}print "
 "; $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 "
";} print "$config[287]$NaturalAlignE
"; # 아래 내용은 사용자가 임의수정, 삭제할 수 없습니다. 상용버전에서만 허용합니다. print "
Copyright(c) 2000 technote inc
"; exit;} sub SexRead{local($WMn) = @_;return if(!$WMn);if($WMn == 2){return $Sex_Wn;}else{return $Sex_Mn;}} sub Img_Dn_Open{local($num,$num2)=@_;if($num == 17 && $num2 ne 'n'){if($readline[$num] =~ /\.(gif|jpg|htm|txt|bmp)/i){print " $NewWin";}} return &Get_icon_type("$readline[$num]",$num);} sub DnUp_Btn{print "     "; if($PREVBUTN < $indexsize){print "이전글";} if($NEXTBUTN >= 0){print " 다음글";} print "     ";} sub form_head{local($in1,$in2)=@_;print "
\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{$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)';}print "";&Right_CHeck_Form('240','','OPINFORM');print "    이름$Wrmemoid "; if(( 2 < length($visitor_line[2])) &&!$TEck_Name &&!$TEck_Mail &&$config[166]==1 &&($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 "$Opiniontitle";print &Perm_Print('240');print "
    내용 "; if($explorer){ print ""; print ""; print "입력창 크게"; }else{print "";} print "";} sub PUT_img{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"; 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 "
<$fontface>"; 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
<$fontface class='blinespace'>";} 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{'VqbCa54'} = "$CooKieJoin" . substr($COOKIE{'VqbCa54'},0,200);&TempCookie("VqbCa54",$COOKIE{'VqbCa54'},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){if($COUNT_point =~ /($readline[1])=(-?[0-9]*)/){$Mtxtpoint = $2 + $FORM{'point'};$COUNT_point =~ s/($readline[1])=(-?[0-9]*)/\1=$Mtxtpoint/;} else{$COUNT_point .= "|$readline[1]=$FORM{'point'}\n";}&write_pointdata if($config[13] == 1);$COOKIE{'VqbCa54'} = "$CooKieJoin" . substr($COOKIE{'VqbCa54'},0,200); &TempCookie("VqbCa54",$COOKIE{'VqbCa54'},1);}$fail_p = 1;}sub Checkcookie{local($receive) = @_;$CooKieJoin=$DIRtarget.$FORM{'x_number'}.$receive; if($COOKIE{'VqbCa54'} =~ /$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{'VqbCa54'} = "$CooKieJoin" . substr($COOKIE{'VqbCa54'},0,200);&TempCookie("VqbCa54",$COOKIE{'VqbCa54'},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;}} 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|^)(telnet:\/\/\S+\.\S+)(\s|$)/goi){&auto_link($2);}if($text_print =~ /(\s|^)(gopher:\/\/\S+\.\S+)(\s|$)/goi){&auto_link($2);} if($text_print =~ /(\s|^)(news:\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;}if($ANtx){$text_print =~ s/<([^>]|\n)*>//g;}} 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+25;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]); @color_line=('','#000000','#6C6C6C','#B2B2B2','#DDDDDD','#eeeeee','#FFFFFF','#0000ff','#84C1FF','#E1F0FF','#ff0000','#FF6666','#FFC4C4','#FFF1F0','#008000','#00ff00','#ACFFAC','#E3FFE3','#800080','#FF00FF','#FFA8FF','#FFE8FF', '#800000','#BA7676','#DFBFBF','#408080','#00FDFD','#D5FFFF','#808000','#ffff00','#FFFFaE','#FFFFee','#9D5F1A','#DD8A2F','#F1D0AB','#514B8D','#948EC4','#D0CEE6','#1B7058','#31CA9F','#FF0080','#FF860D','#000080','#996CF7', '#88C42F','#45250C','#F5D021','#208FFF','#77B5C1','#E15E96','#A69FA4','#BE8149','#9F76C0','#C243F3','#0D9E05','#7B464D','#01C2B9','#474556','#285EB5','#43491F','#5D1F85',); open(CONFIG, "$thispath/$configfile");@config=;chop(@config);close(CONFIG); $Backgrimg_url = "$img_dir_url/background/$config[253]";$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)=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])){$TEck_Home=1;}elsif(($config[112] == 1) && ($visitor_line[5] eq $configlog[0]) && ($cook_dirkey eq $visitor_line[6])){$TEck_Home=1;}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);} 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) = @_;if($receive eq 'clean' || $receive eq ''){return ;} if($receive =~ /\^/){$receive =~ s/\^//g;return "background=$Userimg_url/$receive";}if($receive =~ /^[0-9]/){return "bgcolor=$color_line[$receive]";} if($receive =~ /\//){return "background=$receive";}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 <$local1$Htm_in_head

END_LINE exit; } sub newwindow{ $scripimport3 = "$scripimport"."x"; print < "; } 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{&Table_Plan;if(@exindexline){@indexline = @exindexline;}$TBbck = &Getbgcolor($config[1]);$TBbck2 = &Getbgcolor($config[156]) if($config[156] ne 'clean'); $TBbck=$TBbck2 if($TBbck2);$Rtabcol1 = &Getbgcolor($config[4]);$fontset1 = &GetTxTcol('5');$Rtabcol2 = &Getbgcolor($config[19]);$fontset2 = &GetTxTcol('20'); $Rtabcol3 = &Getbgcolor($config[142]);$fontset3 = &GetTxTcol('146');$Rtabcol4 = &Getbgcolor($config[143]);$fontset4 = &GetTxTcol('147');$Rtabcol5 = &Getbgcolor($config[144]); $fontset5 = &GetTxTcol('148');$Rtabcol6 = &Getbgcolor($config[145]);$fontset6 = &GetTxTcol('149');$Rtabcol7 = &Getbgcolor($config[54]);$fontset7 = &GetTxTcol('56'); $Rtabcol8 = &Getbgcolor($config[66]);$fontset8 = &GetTxTcol('67');$Rtabcol9 = &Getbgcolor($config[68]);$fontset9 = &GetTxTcol('69');$config[157] += 0;$config[153] += 0; $config[241] = '1' if($config[241] eq 'x' || !$config[241] || !$TBbck2);$config[241] -= 1 if($TBbck2 && $config[153] > 0);$config[79] = &TableimgS_E("$config[79]");$config[138] = &TableimgS_E("$config[138]"); if($config[286] ne 'clean'){$temp = &Getbgcolor($config[286]);$temp =~ s/.*=//;$MOusecolor = " onMouseOver=this.style.backgroundColor='$temp' onMouseOut=this.style.backgroundColor=''";} if($config[301] && $config[301] ne 'clean'){&get_tr_bgcolor;$Cell_Color_joo = 'Color_Cross';}else{$Cell_Color_joo = 'ReturnBlank';} print "$config[79]
";}else{print " border=0>";} if($config[103] != 2){$blank = '    ' ;} if($config[102] != 2){$a_line = "" ;}else{$a_line = ' ' ;} if($config[175] != 2){print "";foreach $key (@TaPa_line){$Subname = 'Sujthad_'.$key;&$Subname if($key);}print "\n";} if($TableManY < 2){$indexstart = $PREVBUTN - 1;}elsif($TableManY < 5){$indexstart = $PREVBUTN;} else{$indexstart = $PREVBUTN + 1;}$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]); &bodyprint;}$indexstart -= 1;}print "
$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;$tc_a = $color_line[$tc_a] if($tc_a =~ /^\d/);$tc_b = $color_line[$tc_b] if($tc_b =~ /^\d/); $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 SubjectCellPrint{local($width,$nobr,$space,$subJect,) = @_;$subJect = " " if(!$subJect);print "<$config[238] color=$color_line[$config[20]]>$subJect";} sub Sujthad_1{&SubjectCellPrint('5','1','',"$CellTitleH[0]");}sub Sujthad_2{&SubjectCellPrint("$config[251]",'','',"$CellTitleH[1]");}sub Sujthad_3{&SubjectCellPrint('','1','',"$CellTitleH[2]");} sub Sujthad_4{&SubjectCellPrint('','1','',"$CellTitleH[3]");}sub Sujthad_5{&SubjectCellPrint('5','1','',"$CellTitleH[4]");}sub Sujthad_6{&SubjectCellPrint('','1','',"$CellTitleH[5]");} sub Sujthad_7{&SubjectCellPrint('','1','',"$CellTitleH[6]");}sub Sujthad_8{&SubjectCellPrint('','1','',"$CellTitleH[7]");}sub Sujthad_9{&SubjectCellPrint('','1','',"$CellTitleH[8]");} sub Sujthad_10{&SubjectCellPrint('','1','',$CellTitleH[11]);}sub Sujthad_11{&SubjectCellPrint('','1','',$CellTitleH[12]);}sub Sujthad_12{&SubjectCellPrint('','1','',$CellTitleH[13]);} sub Sujthad_13{&SubjectCellPrint('','1','',$CellTitleH[14]);}sub Sujthad_14{&SubjectCellPrint('','1','',$CellTitleH[15]);}sub Sujthad_15{&SubjectCellPrint('','1','',$CellTitleH[16]);} sub Sujthad_16{&SubjectCellPrint('','1','','삭제');}sub Sujthad_20{&SubjectCellPrint('','1','',"");} sub Sujthad_21{&SubjectCellPrint('','1','',"$CellTitleH[9]");}sub Sujthad_22{&SubjectCellPrint('','1','',"$CellTitleH[10]");}sub Sujthad_23{&SubjectCellPrint('','','',"");} sub GetTxTcol{local($nber,$rest) = @_;return ("<$config[238] color=$color_line[$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;if(!$BackOrderprt){$count_stan = $tanum ;$count_back = ($indexsize-$tanum)+1; }else{$count_stan = ($indexsize-$tanum)+1 ;$count_back = $tanum;}if($config[176] == 1){$count_num = $count_back;}else{$count_num = $count_stan;} 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\n";} sub Color_Cross{$Trcols = $CellCrossCol[($Coi % $CellCrossmany)];$Coi ++;} sub SubstrReturn{local($strings,$startlen,$endlen,$addin) = @_;return (substr($strings,$startlen,$endlen)."$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 "$fontset7$re"; if($Myicon){print "$Myicon";}else{&ICON_PRINT;} if($indexstart == ($NEXTBUTN + 1)){$Enfont = ' ';print " ";} print " "; print "" if($readline[32] eq 'x'); print "$readline[2]$Enfont\n";} sub CellBody_3{$readline[3] = &SubstrReturn($readline[3],0,12,'..') if(length($readline[3]) > 12);print "$fontset4"; $readline[3] =' ' if(!$readline[3]);if($readline[6]){ print "$fontset4"; 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{&Cell_return("$Rtabcol3","1","$fontset3","$count_num",'center');} sub CellBody_4{&Cell_return("$Rtabcol5","1","$fontset5","$readline[23]",'center');} sub CellBody_5{my ($ctem);if($COUNT_hit =~ /$readline[1]=([0-9]*)/){$ctem = $1 + 0;}&Cell_return("$Rtabcol6","","$fontset6","$ctem",'center');} sub CellBody_6{if($COUNT_point =~ /($readline[1])=(-?[0-9]*)/){$Mtxtpoint = $2;}else{undef ($Mtxtpoint) ;}&Cell_return("$Rtabcol4","1","$fontset4","$Mtxtpoint",'center');} sub CellBody_7{&Cell_return("$Rtabcol5","","$fontset5","$man_or_wom",'center');} sub CellBody_8{&Cell_return("$Rtabcol4","1","$fontset4","$readline[5]",'center');} sub CellBody_9{&Cell_return("$Rtabcol5","","$fontset5","$readline[8]",'center');} sub CellBody_10{&Cell_return("$Rtabcol8","1","$fontset8",&WrAreaNewLine(" $readline[19] "),"$tbalign{'49'}");} sub CellBody_11{&Cell_return("$Rtabcol9","","$fontset9",&WrAreaNewLine(" $readline[20] "),"$tbalign{'50'}");} sub CellBody_12{&Cell_return("$Rtabcol8","1","$fontset8",&WrAreaNewLine(" $readline[21] "),"$tbalign{'51'}");} sub CellBody_13{&Cell_return("$Rtabcol9","","$fontset9",&WrAreaNewLine(" $readline[22] "),"$tbalign{'52'}");} sub CellBody_14{&Cell_return("$Rtabcol8","","$fontset8",&WrAreaNewLine(" $readline[37] "),"$tbalign{'189'}");} sub CellBody_15{&Cell_return("$Rtabcol9","","$fontset9",&WrAreaNewLine(" $readline[38] "),"$tbalign{'190'}");} 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 "$fontset6"; if($readline[17]){$FLsize = '('.&UnitFsize("$readline[29]").')';print ' ';if($readline[32] eq 'x'){$FileIMG = &Img_Dn_Open('17','n'); print "";$tfile = 'x_file';} elsif(&music_type("$readline[17]")){$icon_in = &Get_icon_type($readline[17]);&musicbox_print('17'); print "$readline[17]";} else{print "$readline[17] $FLsize";} if($config[122]==1){print $tfile? $tfile : substr($readline[17],0,25).$FLsize;}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'){$FileIMG = &Img_Dn_Open('28'); print ""; $tfile2 = 'x_link_file';} elsif(&music_type("$readline[28]")){$icon_in = &Get_icon_type($readline[28]);&musicbox_print('28'); print "$temp";} else{$linkload = $readline[28];$linkload =~ s/\&/VvQx/g;$linkload =~ s/=/QqxV/g;$FileIMG = &Img_Dn_Open('28'); print "$temp $FLsize2";} if($config[122]==1){print $tfile2? $tfile2 : substr($temp,0,25).$FLsize2;} print "" if(!$tfile2);} print " \n";} sub CellBody_21{&Cell_return("$Rtabcol6",'',"$fontset6",' ','');} sub CellBody_22{my($Dnfileread3,$NewLni);if($readline[17] && ($COUNT_down =~ /($readline[17])=([0-9]+)/)){ $Dnfileread3 = $2;$NewLni = '
';}if($readline[28] && ($COUNT_down =~ /($readline[1])=([0-9]+)/)){$Dnfileread3 .= $NewLni.$2 ;} &Cell_return($Rtabcol6,'',$fontset6,$Dnfileread3,'center');} sub Cell_return{local($TdCol,$Nobr,$TDfont,$Bdoy,$align) = @_;$Bdoy = ' ' if(!$Bdoy); print "$TDfont";print "" if($Nobr);print "$Bdoy";print "" if($Nobr);print "";} 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');$icon_vote=&icon_arr('polvote.gif');} sub icon_arr{local($filename,$rest) = @_;return "" ;} sub ICON_PRINT{if($readline[34]){print $icon_vote ;} elsif($config[101] == 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 ;}}elsif($config[101] == 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 ;}} elsif($config[101] == 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 ;}}elsif($config[101] == 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 ;}} elsif($config[101] == 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 ;}}elsif($config[101] == 6){print $icon_text ;}elsif($config[101] == 7){return;}elsif($config[101] == 8){if($readline[24]){print $icon_y5 ;} else{print $icon_text ;}}else{print $icon_text ;}}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_write_Icon if($config[85] != 2); print "
";} sub BT_Move_Icon{if($first_index < $indexsize - 1){ print ""; &ButImgPrtSub('btttop.gif','btttop-1.gif','처음'); print " "; &ButImgPrtSub('bttrew.gif','bttrew-1.gif','이전'); print " ";} if(0 < $first_index - $TableManY){print ""; &ButImgPrtSub('bttfow.gif','bttfow-1.gif','다음');print " ";}} sub BT_Main_Icon{print "";&ButImgPrtSub('bttlist.gif','bttlist-1.gif','목록');print " ";} sub BT_home_Icon{print "";&ButImgPrtSub('btthomex.gif','btthome-1.gif','홈');print " ";} sub BT_infor_Icon{print "";&ButImgPrtSub('bttinforx.gif','bttinfor-1.gif','안내');print " ";} sub BT_write_Icon{print "";&ButImgPrtSub('bttwrx.gif','bttwr-1.gif','쓰기');print " ";} sub ButImgPrtSub{local($img,$img2,$alt,$other) = @_;print "$alt";} sub Explorer_Browser{if($ENV{'HTTP_USER_AGENT'} =~ /MSIE/i){$explorer = 1;for(210,212){if($config[$_] =~ /^[0-9]/){$config[$_] = $color_line[$config[$_]];}} $Formstyle = "STYLE=\"font-family:굴림; font-size:9pt; color:$color_line[$config[211]]; background-color:$config[210]; border-width:1; border-color:#195FAD; border-style:solid;\""; $Subbtsty = "STYLE=\"font-family:굴림; font-size:8pt; color:$color_line[$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 open_hitcount{return 0 unless(open(HIT,"$thispath/$hitfile"));@hit_line=;close(HIT);$COUNT_hit = join('|',@hit_line);undef(@hit_line);$WrHitCnt = 1;} sub write_hitcount{local($cnum,$tempcn,$size,$CooRdscr); return if( ($COOKIE{'ReadTxtChEck'} =~ /$readline[1]/) || (!$WrHitCnt)); if($COUNT_hit =~ /$readline[1]=([0-9]*)/){$cnum = $1 + 1;$COUNT_hit =~ s/($readline[1])=([0-9]*)/\1=$cnum/;} else{$COUNT_hit .= "|$readline[1]=1\n";} $tempcn = $COUNT_hit ;$size = (stat("$thispath/$hitfile"))[7];if($size < 10){sleep(1);$size = (stat("$thispath/$hitfile"))[7];} return 0 if(length($tempcn) < ($size-100));$tempcn =~ s/\|//g;open(HIT,">$thispath/$hitfile");print HIT $tempcn;close(HIT); $CooRdscr = "$readline[1]" . substr("$COOKIE{'ReadTxtChEck'}",0,200);&TempCookie("ReadTxtChEck",$CooRdscr,1);} sub open_dncount{open(HIT,"$thispath/$dncount");@hit_line=;close(HIT);$COUNT_down = join('|',@hit_line);undef(@hit_line);} sub open_pointdata{open(HIT,"$thispath/$pointfile");@hit_line=;close(HIT);$COUNT_point = join('|',@hit_line);undef(@hit_line);$OpenpoiNfile = 1;} sub write_pointdata{local($tempcn,$size);return if(!$OpenpoiNfile);$tempcn = $COUNT_point ;$size = (stat("$thispath/$pointfile"))[7];return 0 if(length($tempcn) < ($size-100)); $tempcn =~ s/\|//g;open(HIT,">$thispath/$pointfile");print HIT $tempcn;close(HIT);&permission("$thispath/$pointfile");} 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 Down_load_Link{print "";} sub ReadLineReturn{local($ChreadlineR) = @_;local($ChreadlineTurn);if($ChreadlineR =~ /\//){$ChreadlineTurn="background=$ChreadlineR";} elsif($ChreadlineR =~ /(gif)|(jpg)/i){$ChreadlineTurn="background=$Backgrimg_url/$ChreadlineR";}elsif($ChreadlineR =~ /^[0-9]/){$ChreadlineTurn="bgcolor=$color_line[$ChreadlineR]";} 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($expPath2 && !$itstemp){print "Set-Cookie: $name=$value; path=$expPath2; \n";} else{print "Set-Cookie: $name=$value; \n";}} 1;