#!/usr/bin/perl -U #---위 첫라인의 perl 경로 확인하고 서버환경과 다르다면 수정할것 (앞에 #! 는 반드시 붙일것) #---config.cgi 의 경로대입 require './config.cgi'; # ----------------------------------------------------------# # 프로그램 명칭,버전: TECHNOTE-TOP-[free 버전] # 사용권 구분: 공개버전 # 저작권 소유: 테크노트INC (http://www.technote.co.kr) # 이 파일은 TECHNOTE-TOP 공개버전으로서 사용자 제한사항은 없습니다. # 사용댓가 지불 없이 무료로 사용 할수 있으며, 어디에서나 재 배포가 허용됩니다. # 이 소스를 이용한 2차적 저작물 제작,배포는 금합니다. # Copyright(c) 테크노트INC (since 1998~) # 최종수정 배포일 2002/11 # -----------------------------------------------------------# &parse;$FORM{'board'}=~s/\///g;$DIRtarget=$FORM{'board'} ? $FORM{'board'} : 'FREE_BOARD'; $uploadpath="$board_dir_path/$DIRtarget/$upimgdir";$upfiledir="$board_dir_path/$DIRtarget/$uploaddir";$thispath="$board_dir_path/$DIRtarget"; $shoppath="$thispath/$shopdir";$maincg="$maincgorfile?board=$DIRtarget";$readimgcg ="$cgi_dir_url/$imgcg";$import2 = $scripimport.'a'; $import3 = $scripimport.'b';$import4 = $scripimport.'c';$import5 = $scripimport.'d';$importM = $scripimport.'x';$teximport = $DIRtarget; $teximport =~ s/(-|_)//g;$import7 = $scripimport.$teximport;&open_config;&get_cookie; umask(000);&Link_Cut_Notice if(@LINK_PMS_URL && $config[110]==1);if(($config[61] != 1) && !$TEck_Name && !$TEck_Mail && !$pass_sucs && ($CMd ne 'keep_form') && ($CMd ne 'write_form') && ($CMd ne 'write_action')){&Right_Pass_ck('61');} if($CMd eq 'main_htm' || !$CMd){&main_htm;}elsif($CMd eq 'write_form'){require ("$lib_dir_path/Lib-21.cgi"); require ("$lib_dir_path/Lib-17.cgi");&WriteFormPrint;}elsif($CMd eq 'write_action'){require ("$lib_dir_path/Lib-16.cgi"); &WriteActionPrint;} elsif($CMd eq 'delete_form'){require ("$lib_dir_path/Lib-4.cgi"); &DeleteInPassPage;} elsif($CMd eq 'del_action'){require ("$lib_dir_path/Lib-4.cgi");&DelAction2;}elsif($CMd eq 'keep_form'){&keep_form;}elsif($CMd eq 'down_load'){require ("$lib_dir_path/Lib-5.cgi");&down_load;} elsif($CMd eq 'mailling_form'){require ("$lib_dir_path/Lib-6.cgi");&MailingSearch;}elsif($CMd eq 'send_email'){require ("$lib_dir_path/Lib-6.cgi");&MailEnding;} elsif($CMd eq 'guest_email'){require ("$lib_dir_path/Lib-6.cgi"); &MailFormPrint;}elsif($CMd eq 'Shop'){require ("$lib_dir_path/Lib-15.cgi");&ShopMainCode;} elsif($CMd eq 'imgupload'){require ("$lib_dir_path/Lib-29.cgi");&imgupload;}else{&main_htm;} sub main_htm{undef @x_config;($sub_ment1,$sub_ment2)=@_; if($FORM{'DEL_TEXT'}==1){if(!$TEck_Name && !$TEck_Mail && !$FORM{'delpassword'}){&error_message("관리자 로그인상태에서만 삭제 가능합니다.");} require ("$lib_dir_path/Lib-4.cgi");&DelAction3;delete($FORM{'DEL_TEXT'});} $FORM{'view'} = 3 if($FORM{'chview'}); if(!$FORM{'view'}){$FORM{'view'} = $config[29];} if($FORM{'priv_read_manager'}){&Member_W_Pass('manager');}if($FORM{'manager_pass'}){&Check_W_Member('manager');} if($FORM{'priv_read_id'}){&Member_W_Pass;} if($FORM{'idmember_pass'}){&Check_W_Member;} if($config[131] != 1 && !$TEck_Name && !$pass_sucs){ if($config[131] == 2){if(!$TEck_Mail){$FORM{'view'}=2;$Nomanager = 1;}} else{if(!$TEck_Home){$FORM{'view'}=2;$Nomember = 1;}else{&M_Level("$config[131]",7,'본문글 읽기') if($FORM{'view'} == 3);}}} if(($config[104]>1) && !$TEck_Name && !$TEck_Mail){ if($config[104]==2){ &id_pass_check unless($TEck_Home); $FORM{'search'}=$visitor_line[0]; $FORM{'search'}='IlIIlIlIlllIlIIllIl' unless($FORM{'search'}); $Onlyeqwd=1; $FORM{'where'}=3; } elsif($config[104]==3){ $FORM{'GoodOrderNumber'} =~ s/\s//g; if($FORM{'GoodOrderNumber'}){ $FORM{'search'}=$FORM{'GoodOrderNumber'}; $Onlyeqwd=2; $FORM{'where'}=60; } elsif($TEck_Home && $FORM{'gd_sh'}){ $FORM{'search'}=$visitor_line[0]; $FORM{'search'}='IlIIlIlIlllIlIIllIl' unless($FORM{'search'}); $Onlyeqwd=1; $FORM{'where'}=3; } else{ require ("$lib_dir_path/Lib-25.cgi"); &Order_Search_Form; }} else{'';} $FORM{'howmanytext'} = 400; $FORM{'how'}=1; } if($FORM{'view'}==2){&Table_Plan;$selected_v2='selected';} else{$Main_Colspan = 5;$selected_v3='selected';}$Shhow{"Sel$FORM{'how'}"} = 'selected';$ShSelect{"Sel$FORM{'where'}"} = 'selected'; if(!$today && $config[73] == 1){&file_total_open("$thispath/$countfile","readcount","chop");$total = $readcount[0];$today = $readcount[1]; }if(!$FORM{'ryal'}){$FORM{'ryal'} = $config[72];}if(!$FORM{'ryal'}){&open_index('','','7');}else{if($FORM{'ryal'} == 123){&open_index('','','7');$FORM{'ryal'} = '';} else{require ("$lib_dir_path/Lib-22.cgi");&Remakeindex;}}if($FORM{'search'} && $FORM{'DEL_TEXT'} != 1){&SEARCH_FIND_I;} if($FORM{'chview'} == 1){&ChkViewIndex;}if($FORM{'search'} && $FORM{'howmanytext'} < 150){$howmanytable = 150;}elsif($FORM{'howmanytext'}){ $howmanytable = $FORM{'howmanytext'};}else{$howmanytable = $config[21];}$howmanytable = $indexsize if($howmanytable > $indexsize && $indexsize > 0); &check_index;if(($FORM{'back'} && $config[177] != 1) || ($config[177] == 1 && !$FORM{'back'})){@indexline=reverse(@indexline);} if($FORM{'back'}){$checked_bk='checked';$print_s = 'print_s_back';}else{$print_s = 'print_s_right';} $print_num = ($config[176] == 2)? 'print_num_right' : 'print_num_back';for(1,2,3,244,156,284,301,286,210,211,212,213,151,160,161,162,215,204){$config[$_] =~ s/^\s+$//;} 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]);}} for(49..52,189,190){next if(!$config[$_]);if($config[$_] =~ s/\-(center|right|left)//i){$tbalign{$_} = "$1";} else{$tbalign{$_} = "center";}$config[$_] =~ s/=.*//;}for(1,156,159,286,){$config[$_] = &Getbgcolor($config[$_]);} $config[26] = &Htmgifjpg("$config[26]");$config[150] = &Htmgifjpg("$config[150]");$config[153] += 0;$config[157] += 0;if(!$Print_type){ &TempCookie("TabLeNumReM","$DIRtarget-$FORM{'number'}|$FORM{'ryal'}|$FORM{'back'}|$m_sort_index|","1");}$NEW_Windows = " target=\'$scripimport\' onClick=\"fork(\'visit_view\')\""; &MSIEbwer;if($FORM{'view'} == 2){if($config[286]){$config[286] =~ s/.*=//;$MOusecolor = " onMouseOver=this.style.backgroundColor='$config[286]' onMouseOut=this.style.backgroundColor=''";} if($config[301]){&get_tr_bgcolor;$Cell_Color_joo = 'Color_Cross';}else{$Cell_Color_joo = 'ReturnBlank';}$LKCol = 56; $T_Print_way = 'table_index';}else{$LKCol = 3;$T_Print_way = 'table_text';} @CellTitleH = split(/\//,$config[262]);foreach $key (@CellTitleH) {$key = &TableimgS_E($key);} $config[136] += 0;if($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;} 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 [$DIRtarget] $configlog[2] (technote-top) $On_Load_URL
$BODY_BEGIN$configlog[1] $config[26] $sub_ment1 $sub_ment2 $textfullerror$cook_greet END if($config[128] == 1 || $config[128] == 3){&button_print_over;} $indexBacc = ($FORM{'chview'} && $config[71] != 1) ? 1 : '' ; if($config[73] != 2 || $FORM{'search'} || $config[40] != 2 || $indexBacc || $config[78] == 1 || $config[84] == 1 || $config[275] == 1){ print "\n"; &TableHeadCell; if($config[40] != 2){&LinkBoxPrint;} print "
";} 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 = "";&$HCell;print "$wi_cor\n";} if($config[43] =~ /\d{8}/){ @NotiArr = split(/\|/,$config[43]); foreach $ntce (@NotiArr) { @NotiArr2 = split(/==>/,$ntce); print "$wi_cor\n"; }}} if($config[103] != 2){$blank = '    ' ;} if($config[102] != 2){$a_line = "" ;$b_line = '...' ;} else{$a_line = ' ' ;$b_line = ' ' ;} if(!$config[186]){$Subiconrpt = &MainTexticon;} else{$Myicon =&TableimgS_E("$config[186]");$Subiconrpt = 'GetinMyicon';} $NewiCon = 1 if($config[154] != 2); if($FORM{'ryal'}==8 && $config[243] !~ /9/){$JobOld = 8;} elsif($FORM{'ryal'}==5 && $config[243] !~ /8/){$JobOld = 5;} else{"";}if((!$FORM{'ryal'} || $FORM{'ryal'}==123) && !$FORM{'search'}){$QA_text = 1;} if($config[222] == 1 || $FORM{'ryal'} == 12 || $config[243] =~ /7/){$Sex_Print = 1 ; $config[265] =~ /=([^\/]+)\:([^\/]+)\//; $Sex_Mn = $1;$Sex_Wn = $2;} if($FORM{'search'} || $FORM{'chview'}){$Nosort = 1 ;$get_t_num = 'x_num';} else{$get_t_num = 'y_num';} if($FORM{'view'} != 2){$config[265] =~ /^([^\/]+)\/([^\/]+)\/([^\/]+)\//; $W_Home = $3; for(204,215){$config[$_] = &TableimgS_E("$config[$_]");} require ("$lib_dir_path/Lib-2.cgi"); require ("$lib_dir_path/Lib-26.cgi"); unless(($config[153] > 0) || $config[284]){$hrLine= '
';}} $OpenLinkTextSeh = "&r_search=$ch_word" if($ch_word); $OpenLinkTextSeh = "&r_search=$Read_wd" if($Read_wd); $OpenLinkTextBak = "&back=$FORM{'back'}" if($FORM{'back'}); $this_time=time(); $Text_Time=$this_time - ($config[155] * 3600); $j = $FORM{'number'}; for ( $i=0 ; ($i<$howmanytable)&&($j > 0) ; $i++, $j-- ){ &$print_s; &$print_num; @readline=split(/\|/,$indexline[$j-1]); open(CNT,"$thispath/".&CntDirName($readline[39])."/$readline[1].$filename_exp"); @hreadcount = split(/\|/,); &$T_Print_way; undef @hreadcount;} close(CNT); print "$EndForm"; &StyleSortMany if($config[71]==2); print "
";} &StyleSortMany if($config[71]==1); if($config[243] =~ /16/ && !$ShopScript){ &Sevral_Del_Form;} $Texttarget = "target=\'$import7\' onClick=\"fork(\'techboard\')\"" ; if($FORM{'search'} && $NewWinOption != 2){$Texttarget2 = $Texttarget; $Texttarget3 = $Texttarget; $WinDow_New = 1; $WinDow_New_X = 1;}elsif($config[203] == 1){ $Texttarget2 = $Texttarget; $WinDow_New = 1; $WinDow_New_X = 2; $TiconAlt = 'Main 창으로 보기';}else{ $Texttarget3 = $Texttarget; $WinDow_New = 2; $WinDow_New_X = 1; $TiconAlt = '작은 창으로 보기';} if($FORM{'view'}==2){ if($config[175] != 2){print "
     $NotiArr2[1]
\n"; if($config[138]){ print &TableimgS_E("$config[138]"); print "
";} if($config[95] == 1){print "\n"; if($Total_pay){ $Total_pay =~ s/(\d)(\d{3})$/\1\,\2/; $Total_pay =~ s/(\d)(\d{3})\,/\1\,\2\,/; $Total_pay =~ s/(\d)(\d{3})\,/\1\,\2\,/; print ""; }print "
"; &page_count; print "결제확인 합계:$Total_pay
\n";} else{print " ";} print "$be_sort"; if($config[128] == 2 || $config[128] == 3){&button_print;} if( $TEck_Name || $TEck_Mail || $TEck_Home){ if($TEck_Name || ($TEck_Mail && !$pass_sucs)){print "
관리자 로그인중! "; if($indexsize > 15000){print "게시물 수량과다(도움말) ";}} elsif($TEck_Home){print "
$visitor_line[0] 님 로그인중! ";}else{print '
';} print " 인증해제
";} # 본 '공개버전' 에서는 아래 저작권 명시부분은 임의로 변경,삭제할 수 없음을 분명히 합니다. print "
ⓒ Copyright 1999~   TECHNOTE-TOP / TECHNOTE.INC,
$config[150]$configlog[13]$BODY_END
\n\n\n\n"; exit; } sub print_s_back{$count_stan = ($indexsize-$j)+1 ;$count_back = $j;} sub print_s_right{$count_stan = $j ;$count_back = ($indexsize-$j)+1;} sub print_num_back{$count_num = $count_back;} sub print_num_right{$count_num = $count_stan;} 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); $tc_c = ($howmanytable > 1) ? ($howmanytable - 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..$howmanytable){$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 = $howmanytable;}else{$CellCrossmany = @CellCrossCol = split(/:/,$config[301]);foreach $key (@CellCrossCol) { $key = &Getbgcolor($key);}if($config[185] > 1){$CellCrossmany *= $config[185];}}} 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 StyleSortMany{print "
\n"; &input_hidden('board',$DIRtarget);&input_hidden('command','main_htm'); if($FORM{'search'}){&input_hidden('search',$FORM{'search'});&input_hidden('how',$FORM{'how'});&input_hidden('where',$FORM{'where'});} print "   STYLE  "; if($config[11] != 1){ print " SORT \n   REVERSE\n"; }print " MANY  \n"; print "$wi_cor" if($config[71] ==1 || $config[123]> 4);} sub TableimgS_E{my($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 Htmgifjpg{my($num) = @_;$num =~ s/\^/$Userimg_url\//g;$num =~ s/\|/\n/g;$num =~ s/│/\|/g;return $num;} sub Sevral_Del_Form{ $EndForm = ''; print "
\n"; &input_hidden('board',$DIRtarget); &input_hidden('ryal',$FORM{ryal}) if($FORM{ryal}); &input_hidden('view',$FORM{view}) if($FORM{view}); &input_hidden('back',$FORM{back}) if($FORM{back}); &input_hidden('DEL_TEXT','1'); &input_hidden('howmanytext',$FORM{howmanytext}) if($FORM{'howmanytext'}); &input_hidden('number',$FORM{number}); &input_hidden('search',$FORM{search}) if($FORM{search}); &input_hidden('how',$FORM{how}) if($FORM{how}); &input_hidden('where',"$FORM{'where'}"); &input_hidden('chview',''); &input_hidden('delpassword','');} sub TableHeadCell{print "   \n"; if($config[78] == 1){print "전체 종합관리(Root)";} if($config[84] == 1){print "보드 관리설정($DIRtarget)\n";} if($config[275] == 1){print "접속통계($DIRtarget)   ";} if($FORM{'search'}){print "   검색모드  검색어:$FORM{'search'} $Read_wd 찾은글:$indexsize       <검색해제>\n";} else{if($config[73]==1){print "   Register $indexsize   visitors $today/$total\n";}} if($indexBacc){print "     <목록으로>";} print "\n";} sub LinkBoxPrint{ print "
";} sub MSIEbwer{ $Subbtsty = "STYLE=\"color:$config[213]; background-color:$config[212]; border-width:1; border-color:#eeeeee;\""; if($ENV{'HTTP_USER_AGENT'} =~ /MSIE\s+4\./i){$MSIEver = 1;}} sub Table_Plan{$config[243] =~ s/ //g;$config[243] =~ s/\/+/\//g;$config[243] =~ s/^\///;$config[243]=~ s/\/$//; @TaPa_line = split(/\//,$config[243]);$Main_Colspan = @TaPa_line;if($config[185] < 2){$HCell='HCell';$BCell='BCell';} elsif($config[185] < 10){$Main_Colspan *= $config[185];$HCell='HCell2';$BCell='BCell2';}else{$HCell='HCell';$BCell='BCell';}} 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_18{print "짧은댓글";} 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_16{unless ($CheckboxCellin){$CheckboxCellin=1; print " 선택출력 / 선택삭제 "; } else{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 Order_select{ local($Value,$Viewtext) = @_; $Tem = "ted$Value"; print "\n";} sub button_print_over{print "\n\n"; if($config[132] != 2){&search_form;} &butn_Move if($config[133] != 2); if($config[141] != 2){&butn_news;} if(($config[140] != 2) || $TEck_Name || ($TEck_Mail && !$M_dat_c_set)){&butn_write;} print "
\n";} sub button_print{print "\n\n"; if($config[76] != 2){&butn_home;}if($config[77] != 2){&butn_infor;}if($config[82] != 2){&butn_news;} if($config[129] != 2){&search_form;} elsif(($config[104] == 3) && ($TEck_Name || $TEck_Mail)){&search_form;}else{'';} &butn_Move if($config[121] != 2); if(($config[85] != 2) || $TEck_Name || ($TEck_Mail && !$M_dat_c_set)){&butn_write;} print "
\n";} sub butn_Move{if($FORM{'number'} < $indexsize){ $rewnumber=$FORM{'number'} + $howmanytable ; print ""; &mouseover('bttrew.gif','PREV');print "\n";$rbtin = 1;} if(($FORM{'number'} - $howmanytable) > 0){ $fownumber = $FORM{'number'} - $howmanytable ; print ""; &mouseover('bttfow.gif','NEXT');print "\n";$fbtin = 1;}} sub butn_home{print "";&mouseover('btthomex.gif','HOME');print "\n";} sub mouseover{local($img,$alt) = @_; print "$alt";} sub butn_infor{print "";&mouseover('bttinforx.gif','INFO');print "\n";} sub butn_write{print '';&mouseover('bttwrx.gif','WRITE');print "\n";} sub butn_news{print "";&mouseover('bttnewsx.gif','IBOARD');print "\n";} sub input_hidden{local($name,$value,$rest) = @_;print "\n";} sub search_form{print "
\n"; &input_hidden('board',$DIRtarget); &input_hidden('ryal',$FORM{ryal}); &input_hidden('view',$FORM{view}); &input_hidden('back',$FORM{back}); &input_hidden('howmanytext',"$FORM{howmanytext}") if($FORM{'howmanytext'}); print "      "; print ""; if($config[294]==1){ print " 확장검색"; } print " 
     \n"; } 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 Select_Value{local($value,$check,$click,$rest) = @_; print "";} 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 "$TiconAlt" ;} 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 submitbtnstyle{return;}sub formstyle{return;}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 UnitFsize{local($filesize) =@_;return "" if(!$filesize);if($filesize > 0){if($filesize < 1000){ return ("$filesize"."KB");} else{return (($filesize/1000)."MB");}}} sub Color_Cross{$Trcols = $CellCrossCol[($i % $CellCrossmany)];} sub table_index{if($Sex_Print){$man_or_wom = &SexRead($readline[12]);} &$Cell_Color_joo;if($readline[4]){if($QA_text){$re=("$blank" x $readline[4])."$a_line" ;} else{$re = $b_line;}}else{$re=' ';}&$BCell;} sub BCell{print "";foreach $key (@TaPa_line){$Sub_name = 'CellBody_'.$key;&$Sub_name;}print "$wi_cor\n";} sub BCell2{print "" unless($Trchk); foreach $key (@TaPa_line){$Sub_name = 'CellBody_'.$key;&$Sub_name;} $Trchk++;if($Trchk==$config[185]){print "$wi_cor\n";undef $Trchk;}} sub HCell{foreach $key (@TaPa_line){$Subname = 'Sujthad_'.$key;&$Subname;}} sub HCell2{for(1..$config[185]){foreach $key (@TaPa_line){$Subname = 'Sujthad_'.$key;&$Subname;}}} sub CellBody_2{local( $FileAlt,$Sictext,$LiNkAlt,$Sictext2); $readline[2] = $Subchange if(!$readline[2]); $readline[2] = &SubstrReturn($readline[2],0,$config[305],'..') if(length($readline[2]) > $config[305]); print "$re"; local $OpenLinkTextBody = "$cgi_dir_url/$readcg?board=$DIRtarget&".(&$get_t_num).$OpenLinkTextSeh.$OpenLinkTextBak; print ""; &$Subiconrpt; print ""; print " "; print " " if($readline[34]); print "" if($readline[32] eq 'x' && $readline[13]); print "$readline[2]"; if($NewiCon && $readline[1] > $Text_Time){print " ";}print "\n";} sub x_num{return "x_number=$readline[1]";} sub y_num{return "y_number=".($j - 1);} sub CellBody_3{ print ""; if($config[163] != 3){ if($Nomanager){print "";} elsif($Nomember){print "";} else{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 "\n"; } sub nameleng{print length($readline[3]) > 20 ? &SubstrReturn($readline[3],0,20,'..') : $readline[3] ;} 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 CellBody_17{local($img_src,$img_src2); print ""; if(($img_src,$img_src2) = &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);$returnimgtag2 = $returnimgtag1 unless($returnimgtag2);return unless($returnimgtag1); if($returnimgtag1 =~ /\.swf$/i){$img_fy = 'embed'; $img_fy2 = ''; }else{$img_fy = 'img';} if($config[236]==1){return("<$img_fy src=$returnimgtag1 border=1 $IMGsty>$img_fy2",("<$img_fy src=$returnimgtag2 border=0 alt=click_now! onclick=window.resizeTo($config[24]+30,$config[25]+30) onload=if(this.height&&this.width){window.resizeTo(this.width+25,this.height+100);}>$img_fy2")); }elsif($config[236]==2){return(("<$img_fy src=$returnimgtag1 border=1 $IMGsty>$img_fy2"),'..'); }else{return(("<$img_fy src=$returnimgtag1 border=1 $IMGsty>$img_fy2"),'..');}} sub CellBody_20{print " "; local($Sictext,$FileIMG,$FileAlt,$LiNkAlt,$Sictext2,$linkload,$FLsize,$FLsize2); if($readline[17]){$FLsize = '('.&UnitFsize("$readline[29]").')';if($readline[32] eq 'x'){$Sictext = 1;} elsif($Nomanager){print "";} elsif($Nomember){print "";} else{if(&music_type("$readline[17]")){&musicbox_print('17');} else{print "";}} print ""; if($config[122]==1){print "";print $Sictext ? "x_file" : &SubstrReturn($readline[17],0,25,'').$FLsize; print "";}print "" if(!$Sictext);}if($readline[28]){$FLsize2 = '('.&UnitFsize("$readline[29]").')' if(!$FLsize && $readline[29]); print '
 ' if($readline[17]);$LiNkAlt = $readline[28];$LiNkAlt =~ s/\/$//;$LiNkAlt =~ s/\S+\///;$LiNkAlt =~ s/\?(.*)$//; if($readline[32] eq 'x'){$Sictext2 = 1;}elsif($Nomanager){print "";} elsif($Nomember){print "";}else{if(&music_type("$readline[28]")){&musicbox_print('28');} else{$linkload = $readline[28];$linkload =~ s/\&/VvQx/g;$linkload =~ s/=/QqxV/g; print "";}} print ""; if($config[122]==1){print ""; print $Sictext2? "x_link_file" : &SubstrReturn($LiNkAlt,0,25,'').$FLsize2; print "";} print "" if(!$Sictext2);} 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_23{print "";if($readline[18]){ print "$readline[18]";} else{print " ";}print "";} 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 CellBody_16{print "\n";} sub Jnumck{my($Jnum,$rest) = @_;$Jnum =~ s/\s//g;$Jnum =~ s/-//g;$Jnum =~ /(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)/; $Jnum = ($1*2)+($2*3)+($3*4)+($4*5)+($5*6)+($6*7)+($7*8)+($8*9)+($9*2)+($10*3)+($11*4)+($12*5); $Jnum %= 10 if ($Jnum = 11- ($Jnum % 11)) > 9;return ($1.$2.$3.$4.$5.$6.'-'.$7.$8.$9.$10.$11.$12.$13) if($13 == $Jnum);} sub id_pass_check{require ("$lib_dir_path/Lib-20.cgi");require ("$lib_dir_path/Lib-21.cgi");&MembersregForm;} sub open_config{&file_total_open("$board_dir_path/$loginfile","configlog","chop");$temp1 = '0'; for("$config[0]",'','http://www.technote.co.kr','http://www.technote.co.kr/index.html','yourmail@yourmail.net',1,'/usr/sbin/sendmail','/inetpub/scripts/cgi-bin/blat.exe', 'Master',1,'127.0.0.1','900','50','','http://www.technote.co.kr/technote-top/sendmail/sendmail.cgi',2,1,1,0){$configlog[$temp1] = $_ if(!$configlog[$temp1]);$temp1++ ;} if(!$configlog[0]){$configlog[0] = &ch_pass('technote');}&ConfigArrBase;unless(-e "$thispath"){if($configlog[15] == 1){require ("$lib_dir_path/Lib-9.cgi");&Automkboard;} else{$cook_greet = "

$DIRtarget 보드는 생성되어 있지 않습니다.";}} &file_total_open("$thispath/$configfile","config","chop");for(0..310){if(!$config[$_]){$config[$_]=$x_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 parse{my($name,$value,$content_type,$content_len,$buffer,$dump,$boundary,$fline,$arrvalue); my(@pairs,@column,@args);if ($ENV{'QUERY_STRING'}) {@args = split(/&/, $ENV{'QUERY_STRING'});foreach $pair (@args) { $pair =~ /([^=]*)=(.*)/;$name = $1;$value = $2; $value =~ tr/+/ /;$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g;$FORM{$name} = $value;}}else {$content_type = $ENV{'CONTENT_TYPE'};$content_len = $ENV{'CONTENT_LENGTH'}; binmode STDIN;read(STDIN, $buffer, $content_len);if ((!$content_type) ||($content_type eq 'application/x-www-form-urlencoded')){ @args = split(/&/, $buffer);$data = '';foreach $pair (@args){($name, $value) = split(/=/, $pair);$value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;$FORM{$name} = $value;}} elsif ($content_type =~ m#^multipart/form-data#){ ($boundary = $content_type) =~ s/^.*boundary=(.*)$/\1/;@pairs = split(/--$boundary/, $buffer); @pairs = splice(@pairs,1,$#pairs-1);for $part (@pairs){($dump,$fline,$value) = split(/\r\n/,$part,3); if($fline =~ /filename/) { $real_file = $fline; }next if $fline =~ /filename=\"\"/;$fline =~ s/^Content-Disposition: form-data; //; (@columns) = split(/;\s+/, $fline);($name = $columns[0]) =~ s/^name="([^"]+)"$/\1/g;if ($#columns > 0){ if ($value =~ /^Content-Type:/){($dump,$dump,$value) = split(/\r\n/,$value,3);}else{($dump,$value) = split(/\r\n/,$value,2);}}else{ ($dump,$value) = split(/\r\n/,$value,2);if (grep(/^$name$/, keys(%CGI))){if (@{$FORM{$name}} > 0){push(@{$FORM{$name}}, $value);} else{$arrvalue = $FORM{$name};undef $FORM{$name};$FORM{$name}[0] = $arrvalue;push(@{$FORM{$name}}, $value);}}else{ next if $value =~ /^\s*$/;$FORM{$name} = $value;chop($FORM{$name});chop($FORM{$name});}next;} if($name eq "binfile") {$imgfile_line=$real_file;}elsif($name eq "fileup") {$upfile_line=$real_file;}elsif($name eq "textup") {$txtupfile_line=$real_file;} elsif($name eq "Tcimg1") {$Tcimg1_line=$real_file;}elsif($name eq "Tcimg2") {$Tcimg2_line=$real_file;}elsif($name eq "Tcimg3") {$Tcimg3_line=$real_file;} elsif($name eq "Tcimg4") {$Tcimg4_line=$real_file;}elsif($name eq "Tcimg5") {$Tcimg5_line=$real_file;}elsif($name eq "Tcimg6") {$Tcimg6_line=$real_file;} elsif($name eq "Tcimg7") {$Tcimg7_line=$real_file;}elsif($name eq "Tcimg8") {$Tcimg8_line=$real_file;}elsif($name eq "Tcimg9") {$Tcimg9_line=$real_file;} elsif($name eq "Tcimg10") {$Tcimg10_line=$real_file;}else{'';}$FORM{$name} = $value;}}else{&Content_type_print;print "Invalid content type!\n"; exit(1);}}$CMd = $FORM{'command'};} sub close_lock{my($LcFile,$rest) = @_;$LcFile = 'main.lock' if(!$LcFile);$Nowtime = time+10;while (-e "$thispath/$LcFile" && (time < $Nowtime)) { sleep(1);}open(LOCK, ">$thispath/$LcFile");close(LOCK);} sub open_lock{my($LcFile,$rest) = @_;$LcFile = 'main.lock' if(!$LcFile);unlink("$thispath/$LcFile");} sub open_index{local($nocut,$rest,$firstrd) = @_;if($config[201] == 1){$Fi_Si1 = (stat("$thispath/$indexfile"))[7]; $Fi_Si2 = (stat("$thispath/back/$indexfile"))[7];$Fi_Si3 = (stat("$thispath/$autobackup"))[7];if(($Fi_Si1 + 10000) < $Fi_Si2){ $Fi_Si1 = $Fi_Si2;$RestorDB = "back/$indexfile";}if(($Fi_Si1 + 10000) < $Fi_Si3){$RestorDB = $autobackup;}} $indexDataBase = ($RestorDB) ? $RestorDB : $indexfile;&file_total_open("$thispath/$indexDataBase","indexline",""); $indexsize=@indexline;&autoindexRestor if($RestorDB);&autoindexbackup if($config[202] != 2 && $firstrd == 7);chop(@indexline) if($nocut ne 'nocut');} sub autoindexRestor{&file_total_save("$thispath/$indexfile","indexline");&permission("$thispath/$indexfile");} sub autoindexbackup{open(BACK, "$thispath/$autoread");$ReadHour = ;close(BACK);&get_time;if($hour != $ReadHour && (($hour % $backuptime) == 0)){ $Auto_wr = 1;&file_total_save("$thispath/$autobackup","indexline");&permission("$thispath/$autobackup");open(BACK, ">$thispath/$autoread"); print BACK "$hour";close(BACK);&permission("$thispath/$autoread");}} sub ChkViewIndex{@GetChlist = ('');$StchList = '0';foreach $key (keys(%FORM)){next unless($FORM{$key});if($key =~ /DELCHECK/){ $GetChlist[$StchList] = $FORM{$key} ;$StchList += 1;}}if($StchList > 0){@found_list = ('1');for($j = ($indexsize - 1); $j >= 0; $j--) { if(&FDindeX($indexline[$j])){push(@found_list,$indexline[$j]);$StchList -= 1;last if($StchList < 1);}}shift(@found_list); if(@found_list){@indexline=reverse(@found_list);$indexsize=@indexline;}}}sub FDindeX{local($iniline,$rest) = @_;foreach $key (@GetChlist) {if($iniline =~ /^[^\|]*\|$key/){ return (1);last;}}}sub SEARCH_FIND_I{require ("$lib_dir_path/Lib-13.cgi");&search_action;} sub check_index{if(!$FORM{'number'} || ($FORM{'number'} > $indexsize)){$FORM{'number'}=$indexsize;} elsif($FORM{'number'} < $howmanytable && $indexsize < $howmanytable){$FORM{'number'}=$indexsize;} elsif($FORM{'number'} < $howmanytable){$FORM{'number'} = $howmanytable;}else{"";} $howmany_page=int(($indexsize/$howmanytable)+0.5);if(($howmany_page*$howmanytable)<$indexsize){$howmany_page+=1;}} sub get_time{($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time+$NewLocaltime); $month=($mon+1);@weekline=('일','월','화','수','목','금','토');$year += 1900;$weekis=$weekline[$wday];$WRhour= sprintf( "%02s", $hour); $WRmin= sprintf( "%02s", $min);$readdate="$year/$month/$mday($weekis) $WRhour:$WRmin";$writedate= sprintf( "%02s",$month).'/'.sprintf( "%02s",$mday)." $WRhour:$WRmin";} sub ch_pass{local($inpass_x,)=@_;$inpass_x =~ s/\s//g;$inpass_x .= 'IlIl' if(2 > length($inpass_x));$inpass=$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 visit_count{&close_lock('CnDel.lock');$cntf_1 = (stat("$thispath/$countfile"))[7];$cntf_2 = (stat("$thispath/back/$countfile"))[7]; $CountWrap = ($cntf_1 < $cntf_2)? "$thispath/back/$countfile" :"$thispath/$countfile" ;&file_total_open("$CountWrap","readcount","chop"); $total = $readcount[0];$today = $readcount[1];$redate = $readcount[2];&CounterWriting;&open_lock('CnDel.lock');} sub CounterWriting{$Ostm = $ENV{'HTTP_USER_AGENT'};&get_time;$total+=1;if($redate eq "$month/$mday"){$today+=1;}else{ $today=1;}$readcount[0]=$total;$readcount[1]=$today;$readcount[2]="$month/$mday";@count_day=split(/\|/, $readcount[$month+2]); $count_day[0]+=1;@count_hour=split(/\:/, $count_day[$mday]);$count_hour[0]+=1;$count_hour[$hour+1]+=1; $count_day[$mday]=join(':' , @count_hour);$readcount[$month+2]=join('|' ,@count_day);@week=split(/\|/,$readcount[15]); $week[$wday] += 1;$readcount[15]=join('|',@week);@OSM=split(/\|/,$readcount[16]);if($Ostm =~ /95/){$OSM[0] += 1;} elsif(($Ostm =~ /window/i && $Ostm =~ / 9x /i) ||($Ostm =~ /Window/i && $Ostm =~ /4.90/)){$OSM[8] += 1;} elsif($Ostm =~ /98/){$OSM[1] += 1;}elsif($Ostm =~ / NT /i){if($Ostm =~ /NT 5\.0/i){$OSM[7] += 1;}elsif($Ostm =~ /NT 5\.1/i){$OSM[9] += 1;} else{$OSM[2] += 1;}}elsif($Ostm =~ /Mac/){$OSM[3] += 1;} elsif($Ostm =~ /(Linux|UNIX|FreeBSD|IRIX|HP-UX|OSF1)/i){$OSM[4] += 1;}elsif($Ostm =~ /SunOS/i){$OSM[5] += 1;} else{$OSM[6] += 1;}$readcount[16]=join('|',@OSM);@BRW=split(/\|/,$readcount[17]);if($Ostm =~ /MSIE 4/){$BRW[0] += 1;} elsif($Ostm =~ /MSIE 5/){$BRW[1] += 1;}elsif($Ostm =~ /MSIE 6/){$BRW[4] += 1;}elsif($Ostm =~ /MSIE 7/){$BRW[5] += 1;} elsif($Ostm =~ /Mozilla/i){$BRW[2] += 1;}else{$BRW[3] += 1;}$readcount[17]=join('|',@BRW); for(0..19){$readcount[$_] .= "\n";}&file_total_save("$thispath/$countfile","readcount",'1500');} sub get_cookie {if($config[112] == 2){$cookie_key=$scripimport.$DIRtarget; $cook_dirkey=$DIRtarget.$config[0];}else{$cookie_key=$scripimport.'nSXq';$cook_dirkey=$scripimport.'olkZq';} $AFmMan = $frankscrip.'Tit'.$DIRtarget;@cookies = split(/; /, $ENV{'HTTP_COOKIE'}); foreach $key (@cookies) {$key =~ /([^=]*)=(.*)/; $COOKIE{$1} = $2;} #foreach (@cookies) {($m_name, $m_value) = split(/=/, $_);$COOKIE{$m_name} = $m_value;} if($FORM{'LogOut'}){ &TempCookie("name$frankscrip","");&TempCookie("mail$frankscrip","");&TempCookie($config[256].'thShop',''); &TempCookie(($config[292]."home$frankscrip"),"");&setCookie(($config[292]."home$frankscrip"),""); &TempCookie("$AFmMan",""); &LocationurlMV("$FORM{'logout_after_url'}") if(length($FORM{'logout_after_url'}) > 7); &LocationurlMV("$config[127]") if((length($config[127]) > 7) && !$FORM{'kp'}); delete $COOKIE{$AFmMan};return;}($cook_name,$cook_mail,$cook_home,$cook_visit,$cook_id,$cook_post,$cook_address,$cook_tel,$cook_file)=split(/\|/,$COOKIE{$cookie_key}); unless($COOKIE{'koX8iT3Dda'} =~ /-$DIRtarget-/){$cook_visit += 1;if($config[81] != 2){if($cook_name){ $cook_greet .= &BeName;}else{$cook_greet .= &NoName;}}&setCookie("$cookie_key","$cook_name|$cook_mail|$cook_home|$cook_visit|$cook_id|$cook_post|$cook_address|$cook_tel|$cook_file|"); $COOKIE{'koX8iT3Dda'} = "-$DIRtarget-" . substr($COOKIE{'koX8iT3Dda'},0,500);$vcont_com = 1;&visit_count;} &TempCookie("koX8iT3Dda","$COOKIE{'koX8iT3Dda'}",1);if($COOKIE{"name$frankscrip"} && (&ch_pass($COOKIE{"name$frankscrip"}) eq "$configlog[0]")){ &TempCookie("name$frankscrip",$COOKIE{"name$frankscrip"});$TEck_Name=1;} 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])){if($manersplit[1] eq $DIRtarget){$TEck_Mail = 1;}}} 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{"";}} &TempCookie($config[256].'thShop',$COOKIE{$config[256].'thShop'}) if($COOKIE{$config[256].'thShop'}); &id_pass_check if($FORM{'inputidview'});} 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;if($visitor_line[22] != 1){&TempCookie(($config[292]."home$frankscrip"),$COOKIE{($config[292]."home$frankscrip")});} else{&setCookie(($config[292]."home$frankscrip"),$COOKIE{($config[292]."home$frankscrip")});} &MemberLocation unless($TEck_Name || $TEck_Mail || $CMd);} sub MemberLocation{if(($config[80] == 3) && ($config[252] == 1) && ($config[220] =~ /http:\/\/\S+\.\S+/i) && !$FORM{'RePrintDataR'}){ &LocationurlMV($config[220]);}} sub LocationurlMV{ local($Locationurl,$rest) = @_; &Content_type_print; print " $On_Load_URL $Htm_in_head     "; exit; } sub setCookie { local($name, $value) = @_; if($expPath){print "Set-Cookie: $name=$value; expires=$expDate; path=$expPath; \n";} else{print "Set-Cookie: $name=$value; expires=$expDate; \n";}} 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 page_count{$Snumr = 10;$Sttnum = $FORM{'number'};for(1..$howmany_page){ $Countemp = $indexsize - ($howmanytable * $Snumr);if($Sttnum > $Countemp){$STnumr = ($Snumr-10)+1 ;last;} $Snumr += 10;}if($STnumr > 1){&PAGE_print('','[1]');$prevNm = $indexsize-($howmanytable * ($STnumr-2)); print '..';&PAGE_print("$prevNm",'[◀]');} $Sttnum = $indexsize-($howmanytable * ($STnumr-1));$Formnumber = $FORM{'number'}; for($STnumr..($STnumr+9)){if($Sttnum > 0){if($Formnumber == $Sttnum){ &PAGE_print("$Sttnum","[$_]",'','','');} else{if($Sttnum <= $howmanytable && $Formnumber <= $howmanytable){ &PAGE_print("$Sttnum","[$_]",'','','');}else{&PAGE_print("$Sttnum","[$_]");}}}$Sttnum -= $howmanytable;} if($Sttnum > 0){&PAGE_print("$Sttnum",'[▶]');print '..';&PAGE_print('1',"[$howmany_page]");}} sub PAGE_print{local($ONum,$VInum,$rest,$fonc1,$fonc2) = @_; print " $fonc1$VInum$fonc2 ";} sub jangryal{local($num_a, $num_b);$num_a=$a=~/^-?[0-9]/;$num_b=$b=~/^-?[0-9]/;if($num_a && $num_b){ $retval=$a<=>$b;}elsif($num_a){$retval=1;}elsif($num_b){$retval=-1;}else{$retval=$a cmp $b;}$retval;} 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 RWX_rwx{if(!$FORM{'answer'} && ($config[42] != 1) && !$TEck_Name && !$TEck_Mail && !$pass_sucs){ &Right_Pass_ck('42');} if($FORM{'answer'} && ($config[97] != 1) && !$TEck_Name && !$TEck_Mail && !$pass_sucs){&Right_Pass_ck('97');}} sub master_pass{local($check_type_in)=@_;require ("$lib_dir_path/Lib-20.cgi");&Right_delegation2($check_type_in);} sub linkfiletype{local($filename,$rest) = @_; return 0 unless($filename =~ /\S+\.\w+/); $filename =~ /[^\.]+$/;$filename = $&;return 1 unless($linkfile_type_conf =~ /\.$filename\./i); return 0;}sub check_in_master{$FORM{'master_pass'} =~ s/\s//g;$PASS=&ch_pass($FORM{'master_pass'}); if((($config[0] ne $PASS) && ($configlog[0] ne $PASS)) || (!$FORM{'master_pass'})){&error_message('유효하지 않은 패스워드 입니다.');}} sub Check_W_Member{local($target,) = @_; $FORM{'password'} =~ s/\s//g; &error_message('패스워드를입력 하십시오') unless($FORM{'password'}); $PASS_M=&ch_pass($FORM{'password'}); if($target eq 'manager'){if(($config[0] ne $PASS_M) &&($configlog[0] ne $PASS_M)){ &error_message(' 관리자임을 인증할 수 없습니다.');}$managercheck = $FORM{'password'}.'|'.$DIRtarget; &TempCookie("mail$frankscrip","$managercheck");$TEck_Mail = 1;}else{&error_message(' ID를 입력 하십시오') unless($FORM{'id'}); $FORM{'ch_id_pass'}=1;$FORM{'input_id'} = $FORM{'id'};require ("$lib_dir_path/Lib-12.cgi");&check_input_id_pass; $Wipass = 1;$FORM{'input_id'} = "$find_line[1]";$FORM{'input_name'} = "$find_line[3]";$FORM{'input_mail'} = "$find_line[4]"; $FORM{'input_home'} = "$find_line[5]";$TEck_Home=1;}$pass_sucs =1;} sub Right_Pass_ck{local($confnum) = @_;return if(($CMd eq 'down_load') && (&Dnload_ipcheck == 5));if($config[$confnum] == 2 || $FORM{'manager_pass'}){ if(!$TEck_Name && !$TEck_Mail){$FORM{'manager_pass'} = $FORM{'password'} if(!$FORM{'manager_pass'} && $FORM{'password'}); if($FORM{'manager_pass'}){&Check_W_Member('manager');}else{&Member_W_Pass('manager');}}} else{if(!$TEck_Home){if($confnum == 61 && !$FORM{'Membermail'}){if(!$FORM{'password'} || !$FORM{'ch_id_pass'} || ($CMd ne "keep_form")){ &id_pass_check;}}else{$FORM{'idmember_pass'} = $FORM{'password'} if(!$FORM{'idmember_pass'} && $FORM{'password'}); if($FORM{'idmember_pass'}){&Check_W_Member;}else{&Member_W_Pass;}}} elsif($confnum == 42){ &M_Level("$config[42]",4,'글등록'); } elsif($confnum == 97){ &M_Level("$config[97]",3,'답변글 등록'); } elsif($confnum == 61){ &M_Level("$config[61]",8,'보드출입'); }else{'';}}} sub Member_W_Pass{local($target,) = @_;require ("$lib_dir_path/Lib-20.cgi");&Right_delegation($target);} sub SexRead{local($WMn) = @_;return if(!$WMn);if($WMn == 2){return $Sex_Wn;}else{return $Sex_Mn;}} sub musicbox_print{local($num,$txt) = @_; print "";} sub music_type{local($Mfile,$rest) = @_;$Mfile =~ /[^\.]+$/;$Mfile = $&;return (1) if($Real_sound_file =~ /\.$Mfile\./i);} sub ScritPss{local($txtnum,$Rine1,$Rine2)=@_;local(@ReadEarBody); return (1) if($TEck_Name || $TEck_Mail);return (0) if(!$COOKIE{"ReadTxtChEck"});$Rine1 = $scripimport if(!$Rine1); $Rine2 = $scripimport if(!$Rine2);@ReadEarBody = split(/\|/,$COOKIE{"ReadTxtChEck"});foreach $key (@ReadEarBody) { if($key =~ /$txtnum\/(\S+)/){$SecPass = &ch_pass($1);if(($Rine1 eq $SecPass) ||($Rine2 eq $SecPass) ||($configlog[0] eq $SecPass) ||($config[0] eq $SecPass)){ return (1);last;}}}return (0);} sub Get_mail_routine{$config[225] =&Htmgifjpg("$config[225]");if($configlog[5]==3){require ("$lib_dir_path/Lib-19.cgi");&UseModule;} else{require ("$lib_dir_path/Lib-7.cgi");if($configlog[5]==1){$MailServer='unix_mail';}elsif($configlog[5]==2){$MailServer='nt_mail';} elsif($configlog[5]==4){$MailServer='OutsideMailCgi';}elsif($configlog[5]==5){$MailServer='UsersExpFunction';}else{$MailServer='unix_mail';}}$mail_routine_ck = 1;} sub keep_form{$config[264] =~ s/\/+$//;if($FORM{'ch_id_pass'}){require ("$lib_dir_path/Lib-12.cgi");&check_input_id_pass;exit;} $FORM{'in_pass'} = $COOKIE{$AFmMan} if(!$FORM{'in_pass'} && $COOKIE{$AFmMan}); if(!$FORM{'keep_mend'} && !$FORM{'in_pass'}){if($config[111] == 2 && !$TEck_Name && !$TEck_Mail){&master_pass('keep_form');} else{require ("$lib_dir_path/Lib-1.cgi");&AdminTable_print;}}$FORM{'in_pass'} =~ s/\s//g;$log_pass=$configlog[0]; $in_pass_ck=&ch_pass($FORM{'in_pass'});if(!$TEck_Name && !$TEck_Mail){if(!$FORM{'in_pass'} || (($in_pass_ck ne $log_pass)&&($in_pass_ck ne $config[0]))){&error_message('관리비밀번호를 재 확인하시거나,','관리자 로그인후 사용하십시오,');} &TempCookie("$AFmMan","$FORM{'in_pass'}",1);}if($FORM{'keep_mend'}==6){require ("$lib_dir_path/Lib-8.cgi");&member_form;} elsif($FORM{'keep_mend'}==7){require ("$lib_dir_path/Lib-8.cgi");&time_vit if($FORM{'mknewid'});&visitor_time_view;} else{require ("$lib_dir_path/Lib-1.cgi");&BoardAdm_Table;}} sub file_total_open{my($path,$arrkey,$chopstr) = @_;open(OPENFILE,"$path");@$arrkey = ;close(OPENFILE);chop(@$arrkey) if($chopstr);} sub file_total_save{my($path,$arrkey,$temsize) = @_;my($size,$size2);if($temsize){$size = (stat("$path"))[7];$size2 = length("@$arrkey"); return 0 if($size2 < ($size-$temsize));}open(SAVEFILE,">$path");print SAVEFILE @$arrkey;close(SAVEFILE);} sub Content_type_print{if(!$Print_type){print "Content-type: text/html\n\n";$Print_type = 1;}} sub Dnload_ipcheck{open(TEXT, "$thispath/downloadcheck.lock");$downip_back = ;close(TEXT); ($Downerip = $ENV{'REMOTE_ADDR'}) =~ s/\.//g;return 5 if($downip_back =~ /\|$Downerip/);} sub CntDirName{if($_[0] =~ /\d+$/){return ('count'.$&);}return ('count');} sub ReturnBlank{return;} 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등급입니다."); }} sub ConfigArrBase{ @x_config=("$configlog[0]",'#ffffff','#45250c','#3333ff','#eeeeee','#555555','','','','',1,2,1,2,"$configlog[2]","|| | | | | |
  ▒   글 등록하기   ▒  

","$configlog[11]", "$configlog[12]",30,'^bgimage/indexbar4.gif','#000000; height:24; border-width:0;',20,'','98%','550','500','|| | | | | |
  ▒   이 타이틀 부분은 [보드관리설정]-[3-19]에서 지정   ▒  
|
|[보드관리설정]-[14-4]의 [테마] 를 이용하면 다양한 형태의 보드를 바로 만들수 있습니다.', "$configlog[3]",1,2,30,'','','','','','','','','',1,2,1,'',1,1,1,1,2,'','','','',1,'',1,'#000000',"$configlog[4]",5,1,1,1,1,' 회원확인및 등록
',1,2,'','#000000','','#000000',1,2,'',1,'자유게시판==>FREE_BOARD|자료실==>PDS_BOARD|테크노트==>http://www.technote.co.kr','',1,1,1,'',1,2,1,'1/2/3/4/5/-1/-2/-3/-4/-5',1,1,50, '주민등록번호=text:14','전화번호1=text:20','전화번호2=text:20','성별=radio:남자/여자',1,2,2,2,1,1,1,3,'',2,3,2,1,1,1,1,500,'',1,1,1,1,1,1,1,1,'',2,"$cgi_dir_url/iboard.cgi","$cgi_dir_url/$inforcg",1,2,5,2,1,1,'',2,1,7,1,1,1,'(원)','A/B/C/D/E/F',10,520,'',300,1,1,'','','','','#000000; font-size:8pt;','#333344','#000000','#000000','','#ffa341',2,0,1,12,'',0, 1,'','#000000','#666677','#4444ff',2,'98%',1,1,1,1,1,1,1,1,2,"style='border:1 solid #555566; width:50; height: ;'",1,2,2,'체크되어 있는 항목은 반드시 넣어야 등록됩니다.',"
|

",'',1,1,2,1,'','',2, '글을 남겨주셔서 감사합니다.
','','',2,2,'생년월일=text:15/20/ (예: 1978／06／15)','관심분야=select:컴퓨터/문화,예술/건강,의학/쇼핑/게임,오락/뉴스/영화,음악/채팅,미팅/과학,기술',2, 2,2,2,2,1,1,2,2,'^basistitle3.gif align=absmiddle',1,1,1,1,"|| | | | | |
  ▒   [보드관리설정]-[4-15]에서 지정   ▒  

",'#ffffff','#444455', '#e0e0e0','#555555',2,'^point9.gif align=absmiddle',2,10,1,1,'http://',1,1,'^maintheme/titlebar3.gif','#f3f3f7',"
|
|||기능통합 CGI 테크노트-TOP
|○ 고급 홈페이지 제작을 위한 다기능 CGI 제공
|○ 게시판,회원관리,자료실,비공개상담실,주문서,쇼핑몰,학습노트,견적서등 다기능 구현|
|
", '#65707f',1,'#222222','#ffffff','#ffffff','#474556',2,9,1,'#65707f',1,2,'',1,1,0,2,'16/1/2/18/3/20/4/5','#776666',2,2,2,2,2,1,335,2,2,3,11,'','',1,1,1,5,'번호/제 목/이름/작성일/조회/추천/성별/나이/직업/size/DN/A/B/C/D/E/F/판매/재고/첨부/♤/', "
관리팁: 이 위치에 뭔가 내용을 삽입하려면 [관리설정]-[9-24]에서 넣으십시오
","$thispath/$memberdir",'글제목/이름/홈페이지/메일/성별=남:여/신상/나이/직업/아이콘선택/URL링크','참고사항=textarea:38/3', '비밀번호 힌트=text:40/40','','','',1,2,1,1,1,2,1,'','감사합니다.|등록신청하신 내용이 위와 같이 정식 등록 되었음을 알려 드립니다.','무제한',1,'',2,'#ededf1', 'center','#f2f2f6','
',10,1,1,'','','',1,'',1,3,1,'#f6f6f8','','',2,2,'150%',45,'',1,'','',''); } 1;