#---위 첫라인의 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(/\|/,);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 = "
" ;}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)){ 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 < $Htm_in_head [$text_title_number] $readline[2] ($DIRtarget) $On_Load_URL
$BODY_BEGIN$configlog[1] END print &Htmgifjpg("$config[209]"); if($readline[24] && (($config[98] != 3) || $FORM{'r_search'} || $back_index[3])){ 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 ""; #---여기서부터 본문 상단의 소항목(이름,홈페이지,메일,작성일...) 출력부분임--------# 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]: "; unless($hreadcount[14]){print "$readline[3]";} # 글자 else{print "$readline[3]";} # 네임아이콘 # 메일 print " ($readline[6])\n" if($readline[6] && ($config[158] != 2 || $TEck_Name || $TEck_Mail)); 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] && ($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\2<\/font>/; print "$config[215] $readline[14]
\n"; } ## 조회수--- print "$config[215] $CellTitleH[4]: $hreadcount[1]
\n" if($config[183] == 1); # 추천점수--- print "$config[215] $CellTitleH[5]: $hreadcount[3]
\n" if($config[13]==1); 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; # url 링크 print "";} $readline[28] =~ s/\/$//; $readline[28] =~ s/\S+\///; $readline[28] =~ s/\?(.*)$//; # url 링크 아이콘 타입 print "$readline[28]("; print &UnitFsize("$readline[29]")." " if(!$readline[17] && $readline[29]); # url 링크 load 횟수 print "Load:$hreadcount[5])
\n";}} print "
"; #-- 여기까지가 본문 상단의 소항목(이름,홈페이지,메일,작성일...) 출력부분임------------# 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 "
" 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
\n"; print "
"; &guest_text if($config[218]==1); print ("  " x 10); $readline[6] =~ tr/ /+/; $readline[3] =~ tr/ /+/; if($config[182] != 2 || $TEck_Name || $TEck_Mail){ print "\"답변/관련 ";} if($config[12]==1 || $TEck_Name || $TEck_Mail){print "\"폼메일 ";} if($config[70]==1 || $TEck_Name || $TEck_Mail){print "\"수정/삭제\"";} if($FORM{'top'}){$PREVBUTN = $indexsize;$NEXTBUTN = $indexsize-1;} &DnUp_Btn if($config[184] != 2); if($nnew == 1){print "    창닫기 ";} if($config[13]==1 && !$fail_p && &Checkcookie('Po17p')){ &Right_CHeck_Form('239'); &input_hidden('command','point_in'); &input_hidden('re_POINT',$FORM{'point'}); print "    "; print &Perm_Print('239'); print "\n";} if($readline[27] && (($config[98] != 3) || $FORM{'r_search'} || $back_index[3])){ @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){ $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
"; 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]); &input_hidden('top',$FORM{'top'}); } sub Right_CHeck_Target{local($in1,$in2)=@_;print "\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=; 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];} &Right_CHeck_Form('240','','OPINFORM'); print ""; print "  이름 "; 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 " \n" if($TEck_Name || $TEck_Mail); } print &Perm_Print('240'); print "
  내용 "; print ""; print ""; print "입력창 크게"; print "";} 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 "
"; 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)){ $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] =~ /^[^\|]*\|$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){if(!$TEck_Home){ &open_lock;&error_message('정식등록 회원에게만 주어진 권한입니다.

로그인 하신 후 이용하십시오.');} if(6 <= $visitor_line[19]){&open_lock;$visitor_line[19] = 9 if($visitor_line[19] > 9); &error_message("죄송합니다.

투표, 추천 권한은
6등급 이하(6 ~ 9 등급)의 회원에게는 허용되지 않습니다.

지금 출력 요청한 페이지에 대한
$visitor_line[2]($visitor_line[0]) 님의 회원권한은 $visitor_line[19]등급입니다.");} $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/$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/            /g;$text_print =~ s/\s\s/  /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+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=;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");@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;} 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 < $Htm_in_head$local1
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 "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($config[43] =~ /\d{8}/){@NotiArr = split(/\|/,$config[43]); foreach $ntce (@NotiArr){@NotiArr2 = split(/==>/,$ntce); 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 "
     $NotiArr2[1]
";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 "짧은댓글";} sub Sujthad_17{print "$CellTitleH[20]";} 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 Sujthad_26{print "결제금액";}sub Sujthad_27{print "결제확인";} sub Sujthad_28{print "배송상황";} 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=' ';} &$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{ print ""; if($config[163] != 3){ if($config[163] == 2 && $readline[6]){ print ""; }elsif($config[163] == 1 && $readline[6]){ print "";} elsif($config[163] == 4){ print "";} else{'';}if($config[216] == 1 && $readline[3] && $readline[6]){ print "";} unless($hreadcount[14]){print "";&nameleng;print "\n"; }else{print "$readline[3]";} }else{print ' '; unless($hreadcount[14]){&nameleng;} 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 nameleng{print length($readline[3]) > 20 ? &SubstrReturn($readline[3],0,20,'..') : $readline[3] ;} 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_17{local($img_src); print ""; if($img_src = &img_search){ print "$img_src"; print "
 
".&WrAreaNewLine("$readline[$Ud_num]") if($Ud_num && $readline[$Ud_num]);} else{print " ";}print "\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{'';} $returnimgtag1 = $returnimgtag2 unless($returnimgtag1); if($returnimgtag1){if($returnimgtag1 =~ /\.swf$/i){$img_fy = 'embed'; $img_fy2 = '';} 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 ""; 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 "";} 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 "";} 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 CellBody_26{ print ""; if($hreadcount[10]){if($hreadcount[11] eq '결제확인'){ print "$hreadcount[10]"; $hreadcount[10] =~ s/\,//g;$Total_pay += $hreadcount[10];}else{print "$hreadcount[10]";}} else{print "$readline[38]";}print "\n";} sub CellBody_27{ print ""; if($hreadcount[11] eq '결제확인'){print "결제확인";} elsif($hreadcount[11] eq '결제실패'){print "결제실패";} elsif($hreadcount[11] eq '기타상황'){print "기타상황";} elsif($hreadcount[11]){print "$hreadcount[11]";} else{print "확인중";}print "\n";} sub CellBody_28{ print ""; if($hreadcount[12] eq '배송완료'){print "배송완료";} elsif($hreadcount[12] eq '배송실패'){print "배송실패";} elsif($hreadcount[12] eq '기타상황'){print "기타상황";} elsif($hreadcount[12]){print "$hreadcount[12]";} else{print "주문접수";}print "\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 "" ;} 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 "$TiconAlt"} 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 "\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 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;$num =~ s/│/\|/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;$Cnum =~ s/│/\|/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 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\n"; &Shopping; print "\n\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(/\|/,); $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('무단링크 허용불가!',"확인: $configlog[2]") 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("죄송합니다.

$Msg 권한은
$P_level등급 이하($P_level ~ 9 등급)의 회원에게는 허용되지 않습니다.

지금 출력 요청한 페이지에 대한
$visitor_line[2]($visitor_line[0]) 님의 회원권한은 $M_level등급입니다."); }} 1;