#!/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 # -----------------------------------------------------------# # [글쓰기폼]-[클립아트2] 페이지를 관리자용으로만 사용하려면 아래에 'no' 를 대입할 것 $Cripart2Opened = 'yes'; &parse; exit if($FORM{'img'}=~/\;|\%|\\|\.\.|\||\//); # wotonet-patch (20050318) $FORM{'board'}=~s/\///g; $thispath = "$board_dir_path/$FORM{'board'}"; if($FORM{'TablePrint'}){&TablePrint;} elsif($FORM{'soundbox'}){&sound_box;} elsif($FORM{'link'}){&link_location;} elsif($FORM{'writeformimg'}){&WritimgTable;} elsif($FORM{'Mainbutton'}){&Mainbutton;} elsif($FORM{'Subbutton'}){&Subbutton;} elsif($FORM{'Shopbutton'}){&Shopbutton;} elsif($FORM{'subjecticon'}){&subjecticon;} elsif($FORM{'PostAddr'}){&PostAddr;} elsif($FORM{'ShForm'}){&ShForm;} elsif($FORM{'guest_text'}){&guest_text;} elsif($FORM{'MemberPrint'}){&MemberPrint;} elsif($FORM{'imgupload'}){&imgupload;} elsif($FORM{'MemberDfind'}){&MemberDfind;} elsif($FORM{'admframe'}){&admframe;} elsif($FORM{'iconsearch'}){&iconsearch;} else{&file_return;} sub link_location{ if($FORM{'Count'}){ &get_cookie; $DnCount_chk = $FORM{'link'}; $DnCount_chk =~ s/://g; $DnCount_chk =~ s/\///g; $DnCount_chk =~ s/\.//g; $DnCount_chk =~ s/\|//g; $DnCount_chk =~ s/\(//g; $DnCount_chk =~ s/\)//g; unless($COOKIE{'ReadTxtChEck'} =~ /\|$DnCount_chk\|/){ &LoadCount; $CooRdscr = "|$DnCount_chk|".substr($COOKIE{'ReadTxtChEck'},0,3000); print "Set-Cookie: ReadTxtChEck=$CooRdscr; \n"; }} $FORM{'link'} =~ s/VvQx/\&/g; $FORM{'link'} =~ s/QqxV/=/g; &Move_b_page("$FORM{'link'}"); } sub LoadCount{ local($cntarget,$cntarget2,$cntarget3) = @_; return if($No_count); return if(!$FORM{'Count'} && !$cntarget); $cntarget = $FORM{'Count'} if(!$cntarget); $cntarget2 = $FORM{'d'} if(!$cntarget2); if($cntarget2 =~ /\d+$/){ $cntarget2 = ('count'.$&); }else{ $cntarget2 = 'count'; } $cntarget3 = ($cntarget3 == 17)? 4 : 5; &close_lock; open(TEXT, "$thispath/$cntarget2/$cntarget.$filename_exp"); @hreadcount = split(/\|/,); $hreadcount[$cntarget3]++; open(TEXT, ">$thispath/$cntarget2/$cntarget.$filename_exp"); print TEXT (join('|',@hreadcount)); close(TEXT); &open_lock; $No_count = 1; } sub file_return{ if($FORM{'Count'}){ &LoadCount; } if($FORM{'img'} =~ /\.txt/i){print "Content-type: text/plain\n\n";} elsif($FORM{'img'} =~ /\.htm/i){print "Content-type: text/html\n\n";} else{ print "Content-disposition: attachment; filename=$FORM{'img'}\n"; print "Content-Transfer-Encoding: binary\n\n"; } $upimgdir = $uploaddir if($FORM{'soundfile'} || $FORM{'xfile'}); $FORM{'img'}=~s/\///g; $imgfile = "$thispath/$upimgdir/$FORM{'img'}"; open(IMG, "$imgfile"); binmode(IMG); binmode(STDOUT); binmode(STDERR); print ; close (IMG); exit; } sub admframe{ $frankscrip .= 'admframe'; print "Content-type: text/html\n\n"; print < $FORM{'board'} 관리설정 .... TECHNOTE-TOP END if($FORM{'admframe'}==2){ print <
  0-색상,바탕패턴 설정 4-본문출력 설정 8 12-고급문서,쇼핑몰 $FORM{'board'}  
MAIN INDEX-▶

UP  DN
1-아이콘 이미지 지정 5-글쓰기   설정 9-회원등록 설정 13-기타 설정
2-권한 설정 6-자동메일 설정 10 14-설정적용,테마적용
3-메인보드 출력 설정 7-용량제한 설정 11-버튼출력 설정 15-기타관리
  $FORM{'board'}  보드 관리설정   <TECHNOTE-TOP_free ,   CGI update:2002-11>      
 


 

 

 

사용중 의문사항은 http://www.technote.co.kr 로 문의하십시오.
END } else{ print " "; } print ""; exit; } sub sound_box{ if($FORM{'soundbox'} < 17){ open(INDEXFILE, "$thispath/$shopdir/$FORM{'Count'}.$filename_exp"); @GetDataLine = split(/\|/ , ); close(INDEXFILE); $FORM{'file'} = $GetDataLine[$FORM{'soundbox'}+3]; $GetDataLine[29] = int(((stat("$thispath/$upimgdir/$FORM{'file'}"))[7])/1000); open(INDEXFILE, "$thispath/$indexfile"); while(){ if($_ =~ /^0\|$FORM{'Count'}/){ @GetDatatmp = split(/\|/ , $_); last;}} close(INDEXFILE); $GetDataLine[38] = $GetDatatmp[38]; $Singer = $GetDatatmp[3]; $FORM{'mctitle'} = $GetDatatmp[2]; }else{ open(INDEXFILE, "$thispath/$indexfile"); while(){ if($_ =~ /^0\|$FORM{'Count'}/){ @GetDataLine = split(/\|/ , $_); last;}} close(INDEXFILE); $FORM{'file'} = $GetDataLine[$FORM{'soundbox'}]; $Singer = $GetDataLine[3]; $FORM{'mctitle'} = $GetDataLine[2]; } if($GetDataLine[38] =~ /Media/i){ $AudioStartPlyer =1; } elsif($GetDataLine[38] =~ /Real/i){ $AudioStartPlyer =2; } elsif($GetDataLine[38] =~ /Basis/i){ $AudioStartPlyer =3; } elsif($GetDataLine[38] =~ /Direc/i){ $AudioStartPlyer =4; } else{"";} $MarqueeFile = $FORM{'file'}; $MarqueeFile =~ s/\S+\///; $audio_img_dir_url = "$img_dir_url/audio"; print "Content-type: text/html\n\n"; print <     ♪♪ $FORM{'mctitle'}($MarqueeFile)                               $Htm_in_head
   
  END $FORM{'player'} = $AudioStartPlyer if(!$FORM{'player'}); if($FORM{'player'} == 3){ &EmBed; } elsif($FORM{'player'} == 1){ &MediaPlayer; } elsif($FORM{'player'} == 2){ &RealPlayer; } else{ &NonPlayer; } print <  
$FORM{'mctitle'} : $MarqueeFile
   
END &PlayIcon; print < 		 
END &LocationLoad if($FORM{'player'} == 4); print "\n"; exit; } sub RealPlayer{ &FileAcLoad; print < END } sub EmBed{ &FileAcLoad; print "
 "; print ""; print "
"; } sub FileAcLoad{ local($chk) = @_; if($FORM{'soundbox'} == 17){ if($cgi_dir_appoint == 1){ $linkload = "$board_dir_url/$FORM{'board'}/$uploaddir/$FORM{'file'}"; if($FORM{'Count'} && !$chk){ &LoadCount("","","17"); } $ACSfile = "$linkload"; }else{ $ACSfile = "$cgi_dir_url/$imgcg?board=$FORM{'board'}&soundfile=1&Count=$FORM{'Count'}&img=$FORM{'file'}&d=$FORM{'d'}"; }} elsif($FORM{'soundbox'} < 17){ if($cgi_dir_appoint == 1){ $ACSfile = "$board_dir_url/$FORM{'board'}/$upimgdir/$FORM{'file'}"; }else{ $ACSfile = "$cgi_dir_url/$imgcg?board=$FORM{'board'}&img=$FORM{'file'}"; }} else{ $MarqueeFile = $FORM{'file'}; $MarqueeFile =~ s/\S+\///; if($FORM{'Count'} && !$chk){ &LoadCount; } $ACSfile = "$FORM{'file'}"; } $FORM{'file'} =~ /[^\.]+$/; $tempmov = $&; unless($Real_movi_file =~ /\.$tempmov\./i){ $BoxWHsize = "width='280' height='50'"; } else{ print "" unless($chk); } } sub MediaPlayer{ &FileAcLoad; print < END } sub NonPlayer{ print "
\n"; print "\n"; print "제목 : $FORM{'mctitle'} "; print "
\n"; print "이름 : $Singer "; print "
\n"; print "파일 : $MarqueeFile "; print "
용량 : \n"; if($GetDataLine[29] > 1000){ print ($GetDataLine[29]/1000)."MB"; } elsif($GetDataLine[29] > 1){ print "$GetDataLine[29]KB"; }else{"";} print "
\n";} sub PlayerButtonLink{ $Sfile_Load = "$cgi_dir_url/$imgcg?soundbox=$FORM{'soundbox'}&board=$FORM{'board'}&Count=$FORM{'Count'}&d=$FORM{'d'}"; if($FORM{'player'} == 1){ $Mimg = 'btn_med_2.gif'; $Rimg = 'btn_real_1.gif'; $Eimg = 'btn_em_1.gif'; $Dimg = 'btn_direct_1.gif'; } elsif($FORM{'player'} == 2){ $Mimg = 'btn_med_1.gif'; $Rimg = 'btn_real_2.gif'; $Eimg = 'btn_em_1.gif'; $Dimg = 'btn_direct_1.gif'; } elsif($FORM{'player'} == 3){ $Mimg = 'btn_med_1.gif'; $Rimg = 'btn_real_1.gif'; $Eimg = 'btn_em_2.gif'; $Dimg = 'btn_direct_1.gif'; } elsif($FORM{'player'} == 4){ $Mimg = 'btn_med_1.gif'; $Rimg = 'btn_real_1.gif'; $Eimg = 'btn_em_1.gif'; $Dimg = 'btn_direct_2.gif'; } else{ $Mimg = 'btn_med_1.gif'; $Rimg = 'btn_real_1.gif'; $Eimg = 'btn_em_1.gif'; $Dimg = 'btn_direct_1.gif'; } } sub PlayIcon{ &FileAcLoad('n'); &PlayerButtonLink; print "\"Media"; print "\"Real"; print "\"Basis"; print "\"Direct"; } sub LocationLoad{ print <  END } sub close_lock{ $Nowtime = time+15; while (-e "$thispath/main.lock" && (time < $Nowtime)) { sleep(1); } open(LOCK, ">$thispath/main.lock"); print LOCK "1"; } sub open_lock{ close(LOCK); unlink("$thispath/main.lock"); } sub TablePrint{ if($FORM{'sampl'}){ if($FORM{'sampl'} == 1){ $FORM{'T_width'}=400; $FORM{'T_unit'}='1'; $FORM{'T_cellpadding'}=2; $FORM{'T_cellspacing'}=1; $FORM{'T_cellmove'}=''; $FORM{'T_bgcolor'}=''; $FORM{'T_linecolor'}='#FFAE21'; $FORM{'T_titlecolor'} = '#FFFBEF'; $FORM{'T_colscell'} = 4; $FORM{'T_rowscell'} = 4; } elsif($FORM{'sampl'} == 2){ $FORM{'T_width'}=95; $FORM{'T_unit'}=''; $FORM{'T_cellpadding'}=3; $FORM{'T_cellspacing'}=1; $FORM{'T_cellmove'}=''; $FORM{'T_bgcolor'}=''; $FORM{'T_linecolor'}='#00AEE7'; $FORM{'T_titlecolor'} = ''; $FORM{'T_colscell'} = 1; $FORM{'T_rowscell'} = 6; } elsif($FORM{'sampl'} == 3){ $FORM{'T_width'}=600; $FORM{'T_unit'}=1; $FORM{'T_cellpadding'}=5; $FORM{'T_cellspacing'}=1; $FORM{'T_cellmove'}=1; $FORM{'T_bgcolor'}='#FFFFEF'; $FORM{'T_linecolor'}='#9C9E00'; $FORM{'T_titlecolor'} = '#FFEFCE'; $FORM{'T_colscell'} = 3; $FORM{'T_rowscell'} = 3; } elsif($FORM{'sampl'} == 4){ $FORM{'T_bgcolor'}='#FFFBEF'; $FORM{'T_cellspacing'}=1; $FORM{'T_linecolor'}='#9C0800'; $FORM{'T_colscell'} = 8; $FORM{'T_rowscell'} = 5; } elsif($FORM{'sampl'} == 5){ $FORM{'T_width'}=400; $FORM{'T_unit'}=1; $FORM{'T_cellpadding'}=5; $FORM{'T_cellspacing'}=1; $FORM{'T_cellmove'}=1; $FORM{'T_bgcolor'}='#FFFF21'; $FORM{'T_linecolor'}='#9C9E00'; $FORM{'T_colscell'} = 1; $FORM{'T_rowscell'} = 1; } elsif($FORM{'sampl'} == 6){ $FORM{'T_width'}=80; $FORM{'T_unit'}=''; $FORM{'T_cellpadding'}=2; $FORM{'T_cellspacing'}=4; $FORM{'T_cellmove'}=1; $FORM{'T_bgcolor'}=''; $FORM{'T_linecolor'}='#777777'; $FORM{'T_titlecolor'} = '#EEEEEE'; $FORM{'T_colscell'} = 5; $FORM{'T_rowscell'} = 4; } else{'';} } if(!$FORM{'T_width'}){$FORM{'T_width'}='90';} if(!$FORM{'T_unit'}){$FORM{'T_unit'}='';} if($FORM{'T_colscell'} < 1 || $FORM{'T_colscell'} > 50){$FORM{'T_colscell'}='5';} if($FORM{'T_rowscell'} < 1 || $FORM{'T_rowscell'} > 50){$FORM{'T_rowscell'}='4';} if(!$FORM{'T_cellpadding'}){$FORM{'T_cellpadding'}='2';} if(!$FORM{'T_cellspacing'}){$FORM{'T_cellspacing'}='1';} if(!$FORM{'T_cellmove'}){$FORM{'T_cellmove'}='';} if(!$FORM{'T_linecolor'}){$FORM{'T_linecolor'}='#000000';} if(!$FORM{'T_bgcolor'}){$FORM{'T_bgcolor'}='';} if(!$FORM{'T_titlecolor'}){$FORM{'T_titlecolor'}='';} for('T_unit','T_cellpadding','T_cellspacing','T_cellmove','T_linecolor','T_bgcolor','T_titlecolor'){ $Rest = $FORM{"$_"}; $Rest =~ s/\#//; $SELECT{"$_"."$Rest"} = 'selected'; } $colunit = int(($FORM{'T_width'} / $FORM{'T_colscell'})+0.5); if(!$FORM{'T_unit'}){ $tabwidth = '%'; $colunit = $colunit.'%'; } $tabwidth = $FORM{'T_width'} . $tabwidth; $colunit = ($FORM{'T_cellmove'})? "width='$colunit'" : ''; $TBcellpadding = ($FORM{'T_cellpadding'} eq 'x') ? '0' : $FORM{'T_cellpadding'}; $TBcellspacing = ($FORM{'T_cellspacing'} eq 'x') ? '0' : $FORM{'T_cellspacing'}; $TDbgcolor = "bgcolor=$FORM{'T_bgcolor'}" if($FORM{'T_bgcolor'}); if($TBcellspacing > 1){ if($TDbgcolor){ $Tblbgcolor="border=0 bgcolor='$FORM{'T_linecolor'}'"; } else{ $TBcellspacing -= 1; $Tblbgcolor = "border bordercolor='$FORM{'T_linecolor'}'"; }}else{ $TBcellspacing -= 1; $Tblbgcolor = "border bordercolordark='#ffffff' bordercolorlight='$FORM{'T_linecolor'}'"; } $TABLEMAKING .= "\n \n "; $TABLEMAKING .= " \n "; for(1..$FORM{'T_rowscell'}){ $TABLEMAKING .= " \n "; for(1..$FORM{'T_colscell'}){ $TABLEMAKING .= " "; } 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 Shopbutton{ $Formbtimg_url = "$img_dir_url/button2"; &htmlprinthead("","[1-4] 고급문서활용 버튼"); print <$Formbtimg_url/1~12/)
▒▒▒▒▒▒▒▒▒▒▒((((표만들기)))▒▒▒▒▒▒▒▒▒▒ $Htm_in_head
 표 전체너비
 가로줄수 타이틀색
 세로줄수 바탕색
 셀안쪽여백 라인색
 셀너비 SET 라인두께
표삽입하기 $TABLEMAKING
표삽입하기 $TABLEMAKING3
표삽입하기 $TABLEMAKING2
[표만들기 도움말]
▨ 표 전체너비 - 표의 전체 가로너비를 지정한다.
        % - 본문바탕화면 대비 백분율로 너비지정
        픽셀 - 픽셀단위의 절대수치로 너비지정
      표너비를 지정하지 않고자 할때는 스페이스를 입력한다.
▨ 가로줄수 - 가로줄 수를 지정
▨ 세로줄수 - 세로줄 수를 지정
▨ 셀 안쪽여백 - 글자와 라인사이의 거리 간격 지정
▨ 셀 너비 SET - 각 칸의 너비를 지정
        유동 - 입력글자에 따라 상대적으로 자동조절
        고정 - 고정된 너비 유지
▨ 타이틀색 - 표 내부 첫번째 가로줄의 바탕색지정
▨ 바탕색 - 표 내부의 색상지정
▨ 라인색 - 표 구성 라인의 색상지정
▨ 라인두께 - 표 구성 라인의 두께 지정
▨ 새로고침 - 변경값 적용 출력

'표삽입하기' 를 클릭하면 본문내에 표가 삽입됩니다.
본문내에 삽입후, 표 모서리를 클릭하면
위치이동및 크기 재조절이 가능합니다.



END } sub ColorSelected{ local($col,$line) = @_; local $col2 = $line.$col; print "\n"; } sub WritimgTable{ $Drop = $FORM{'drop'} ? 1 : '' ; print "Content-type: text/html\n\n"; print < $Htm_in_head ▒▒▒▒▒ 클립아트-1 ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
클립아트-1 클립아트-2


END @Clicktext = ('',' 꽃 ','아이콘','동물','사람','블릿','만화','만화',' 바 ','face','..img','IMG'); for(1..10){ $tdcolor = ($_ == $FORM{'writeformimg'}) ? "bgcolor=#ff9988" : "" ; print "\n"; } print ""; print "
"; if($tdcolor){ print "$Clicktext[$_]"; } else{ print "$Clicktext[$_]"; } print "업로드
\n\n"; print "\n"; for('#FFFFFF','#808080','#000000','#FFFF00','#00FF00','#00FFFF','#0000FF','#FF00FF','#FF0000'){ print " \n"; } print "
       
\n\n"; if($Drop){ print "아래의 그림을 마우스로 클릭한 상태로 끌어서
본문 편집영역의 원하는 위치에 떨어뜨리십시오.(Drop-Down)
"; print "다른 웹페이지의 그림도 같은 방법으로 넣을 수 있습니다."; } else{ print "본문에 삽입할 그림을 클릭 하십시오.   or [선택취소]"; } print "
"; $startimg = ($FORM{'writeformimg'}*10) - 9; for($startimg..($startimg + 9)){ $imgfile = 'img'."$_".".gif"; print "" if(!$Drop); print "\"$imgfile\""; print "" if(!$Drop); print " "; print "
" if($_ % 3 == 0); } if($FORM{'writeformimg'} == 5){ for(1..32){ $imgfile = 'bitimg'."$_".".gif"; print "" if(!$Drop); print "\"$imgfile\""; print "" if(!$Drop); print " "; } } print "
클립아트1 꾸미기(관리자용)
* 테크노트의 '클립아트1' 이미지 디렉토리(폴더)인
  '$Faceimg_url' 디레토리 내의 파일을 변경(교체)하면 됩니다.
* 파일명은 원래대로 유지 되어야 합니다.
* 이미지 파일 80개 까지만 허용됩니다.
* 이미지 파일과 카테고리를 확장하려면 클립아트2 를 이용하십시오,
"; &htmlend('1',''); exit; } sub imgupload{ &open_r_config; &get_cookie; require ("$lib_dir_path/Lib-29.cgi"); $FORM{'page'} = 'A' unless($FORM{'page'}); $Drop = $FORM{'drop'}; opendir(DIR,$upimg_dir_path); if($FORM{'page'} eq 'all'){ @readdir_line = grep((!/^\./), readdir(DIR)); } elsif($FORM{'page'} eq 'others'){ @readdir_line = grep((!/^\./), readdir(DIR)); @readdir_line = grep((!/^[a-z]/i), @readdir_line); } else{ @readdir_line = grep((/^$FORM{'page'}/i), readdir(DIR)); } closedir(DIR); print "Content-type: text/html\n\n"; print < $Htm_in_head ▒▒▒▒▒ 클립아트-2 ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
클립아트-1 클립아트-2


END print "\n"; @C_name = ('','상징','블릿','메뉴','버튼','라인','테마','스킨','패턴','문자','전체','쇼핑1','쇼핑2','쇼핑3','파일','동물','사람','식물','그림','글자','칼라','보드','얼굴','홈피','화보','사진','예술','잡동','기타','기타',); $Ct_i = 1; for(A..I,'all',J..Z,'others'){ if($FORM{'page'} eq $_){ print ""; } else{ if($_ =~ /^[A-Z]/){ $linktitle="파일이름이 ($_) 로 시작되는 파일"; } elsif($_ eq 'others'){ $linktitle="파일이름이 (A~Z)로 시작되지 않는 파일"; } else{ $linktitle="모든 파일"; } print "$Ct_i"; print "
" if($Ct_i == 10); print "$C_name[$Ct_i]"; } print "" if($Ct_i == 10 || $Ct_i == 19); $Ct_i ++; } print "
$Ct_i$C_name[$Ct_i]


"; if(!$TEck_Name && $Cripart2Opened eq 'no'){ print "이 페이지의 그림은 관리자로 권한(로그인) 상태에서만
이미지가 보이게 설정되어 있습니다. (출력설정 파일 : $imgcg)"; } else{ foreach $key (@readdir_line){ $Ftype = ($key =~ /\.(gif|jpg|bmp)/i)? 1 : 2; if($Ftype == 1){ $imgfile = "upload/$key"; print "" if(!$Drop); print "$key"; print "" if(!$Drop); print "   "; } else{ $Fimgtype = &Get_icon_type("$key","17"); print " "; print " $key"; print "  "; } } } print <
클립아트2 꾸미기(관리자용)   [도움말]   [이미지 파인더]
  파일 업로드1 
  파일 업로드2
  업로드할 카테고리
  파일 삭제하기 (삭제할 파일명)
  관리 비밀번호
 
END exit; } sub MemberPrint{ &open_r_config; &open_config; &get_cookie; if($config[297]==4 && !$TEck_Name && !$TEck_Mail){ &login_error_msg('모든 회원정보 조회 권한이 차단되어 있습니다.','관리자에 의해서만 조회 가능합니다.',''); } if(!$TEck_Name && !$TEck_Mail && ($config[297]!=1) && !$TEck_Home){ &input_Login_data('▨ 우선 회원로그인 하십시오.','','','ch_id_find','회원 로그인'); } $FORM{'input_id'} =~ s/\s//g; if($TEck_Name || $TEck_Mail){ $headmsg = "관리자 로그인된 상태이므로 모든 회원조회가 허용됩니다.
        이 페이지내에서의 회원정보 수정은 등록당사자만 가능하니
        관리자님은 [회원관리테이블]에서 하십시오,"; } elsif($config[297] == 3){ $headmsg = "본인의 등록정보만 조회가 허용되어 있습니다."; &login_error_msg("$headmsg") if($FORM{'input_id'} && ($visitor_line[0] ne $FORM{'input_id'})); } elsif($config[297] == 2){$headmsg = "본인및 다른 회원의 등록정보 조회가 허용되어 있습니다.";} else{$headmsg = " 회원등록정보 조회권한이 open 되어 있습니다.";} &htmlprinthead('','등록정보 조회'); $FORM{'input_id'} = "$visitor_line[0]" if(!$FORM{'input_id'}); print <
비밀번호 분실
회원등록정보 조회/수정
  $headmsg

      조회할 아이디 입력
 
 

END if($FORM{'input_id'}){ &memberdataprint; if($return_data){ ($h_visit,$h_id,$h_pass,$h_name,$h_mail,$h_home,$h_first,$h_img,$h_memo, $PlS1,$PlS2,$PlS3,$PlS4,$PlS5,$PlS6,$PlS7,$PlS8,$PlS9,$PlS10,$h_postnum,$h_postaddr) = split(/\|/,$return_data); print "" if($h_img =~ /\S+\.\S/); print "
"; print ""; print "\n\n\n\n"; # 기본 등록정보 print "\n"; print "\n"; print "\n"; print "\n" if($h_mail); print "\n" if($h_home); # 관리자이거나 본인의 등록정보 조회시에만 출력 if($config[297] > 2 || ($h_id eq $visitor_line[0])){ print "\n"; print "\n" if($h_postnum); print "\n" if($h_postaddr); print "\n"; } # 사용자 정의 입력필드: 출력되지 않게한 항목이 있다면 삭제하거나 라인 앞에 # 을 붙이면 됩니다. &id_reg_dat_print('87',"$PlS1"); # 보드관리설정 - [9-10] 에 해당되는 등록내용임 &id_reg_dat_print('88',"$PlS2"); # 보드관리설정 - [9-11] &id_reg_dat_print('89',"$PlS3"); # 보드관리설정 - [9-12] &id_reg_dat_print('90',"$PlS4"); # 보드관리설정 - [9-13] &id_reg_dat_print('193',"$PlS5"); # 보드관리설정 - [9-14] &id_reg_dat_print('194',"$PlS6"); # 보드관리설정 - [9-15] &id_reg_dat_print('266',"$PlS7"); # 보드관리설정 - [9-16] &id_reg_dat_print('267',"$PlS8"); # 보드관리설정 - [9-17] &id_reg_dat_print('268',"$PlS9"); # 보드관리설정 - [9-18] &id_reg_dat_print('269',"$PlS10"); # 보드관리설정 - [9-19] print ""; if($TEck_Name || $TEck_Mail){$h_memo =~ s/\;/
/g; print ""; } print "
아이디  $h_id
이름  $h_name
메일  $h_mail
홈페이지  $h_home
회원권한(등급) $h_visit등급 (help)
우편번호  $h_postnum
주소  $h_postaddr
마일리지 포인트 $rtntt
등록일  $h_first
관리메모  $h_memo
"; print "
"; if($config[271]!=1){print " 
  ---- 등록정보 수정은 허용되어 있지 않습니다. ----";} elsif($exdirspace){print " 
  ---- 다른 경로에서 공유된 아이디는 여기에서 수정할 수 없음 ----";} elsif($visitor_line[0] && ($visitor_line[0] eq $FORM{'input_id'}) && $TEck_Home){ &ReprintM_data; }else{print " 
  ---- 회원 로그인된 상태에서만 등록정보 수정이 허용됩니다.----";}} else{print "

    조회 요청한 아이디 $FORM{'input_id'} 의 등록정보를 찾을 수 없습니다.";}} &htmlend;} sub ReprintM_data{ $RePrintDataR = "input_id|$h_id|&|". "input_name|$h_name|&|". "input_mail|$h_mail|&|". "input_home|$h_home|&|". "input_post|$h_postnum|&|". "input_address|$h_postaddr|&|". "WPL_87|$PlS1|&|". "WPL_88|$PlS2|&|". "WPL_89|$PlS3|&|". "WPL_90|$PlS4|&|". "WPL_193|$PlS5|&|". "WPL_194|$PlS6|&|". "WPL_266|$PlS7|&|". "WPL_267|$PlS8|&|". "WPL_268|$PlS9|&|". "WPL_269|$PlS10"; $RePrintDataR =~ s/\"/\"\;/g; print <     END } sub id_reg_dat_print{ local($num,$string,$rest) = @_; if(!$TEck_Name && !$TEck_Mail && $config[297]!=3){ if($config[$num] =~ /(비밀번호)|(주민등록)/){$string =~ s/.{8}$/\*\*\*\*\*\*\*\*/;} if($config[$num] =~ /힌트/){$string = '*****' ;} } $config[$num] =~ s/=.*$//; print "
 $config[$num]  $string
END for(1..12){ $a_num = $_; print "\n";} print < 고급문서(쇼핑커트, 견적서, 기타 입력양식 문서...)에 삽입되는 버튼입니다.
필요에 따라, 버튼 이름(글자)을 재 작성하거나
아이콘의 순서를 바꾸면 여러가지 용도에 맞게 재 구성할 수 있습니다.
기존 파일명과 동일하게 하여 다른 아이콘을 넣어도 됩니다.
아이콘 크기는 규정되어 있지 않습니다.
END &htmlend; exit; } sub Mainbutton{ $Buttonimg_url = "$img_dir_url/button"; &htmlprinthead("","[1-2] Main 버튼 이미지"); print <$Buttonimg_url/1~12/)
DIR  Button images
$a_num  "; for(1..6,14,9,'4-1',10..13){ $b_num = 'shop'.$_.'.gif'; print "$b_num\n"; if($_ == 4){ print "
 \n"; }} print "
END for(1..12){ print < END } print "
DIR  Main Button
$_
 
기본 제공된 버튼아이콘 이외의 것을 사용하고자 한다면
파일명을 동일하게 하여 디렉토리($Buttonimg_url/1~12/)에 다른 버튼이미지를 넣고
해당 디렉토리 번호를 지정해 주면 된다.
버튼이미지의 크기는 규정되어 있지 않다."; &htmlend; exit; } sub Subbutton{ $Buttonimg_url = "$img_dir_url/button3"; &htmlprinthead("","[1-3] Sub 버튼 이미지"); print <$Buttonimg_url/1~12/) END for(1..12){ print < END } print "
DIR  Sub Button
$_

기본 제공된 버튼아이콘 이외의 것을 사용하고자 한다면
파일명을 동일하게 하여 디렉토리($Buttonimg_url/1~12/)에 다른 버튼이미지를 넣고
해당 디렉토리 번호를 지정해 주면 된다.
버튼이미지의 크기는 규정되어 있지 않다. "; &htmlend; exit; } sub guest_text{ if($FORM{'guest_text'} ==2){$WritePm = '관리자에게만 허용되어 있습니다.';} elsif($FORM{'guest_text'} ==3){$WritePm = '정식등록 회원에게만 허용되어 있습니다.';} else{'';} $Formstyle = &BrowserNi('#888888',1,'96%'); &htmlprinthead('','짧은 답변 쓰기'); print <
$WritePm
    짧은 답변글 쓰기
  ㅇ 작성한 내용은 원본글(답변대상 글)의 본문하단에 직접 삽입됩니다.
  ㅇ 이름과 내용은 반드시 넣어야 등록됩니다.
표정
이름
메일
내용
                     
END &htmlend; exit; } sub ShForm{ &open_config; @table = split(/\//,$config[262]); @wform = split(/\//,$config[265]); $Formstyle = &BrowserNi('#999999',1,'100%'); &htmlprinthead('','확장검색'); print<
  "; } else{ $config[$Snum] =~ s/=.*//; &text_shform($config[$Snum],$Sname,$Sname2,1); }} sub text_shform{ my($sh_title,$S_name,$S_name2,$exnum)=@_; return if($exnum != 1); print " "; } sub PostAddr{ $Formstyle = &BrowserNi('#000000',1,'350'); if($FORM{'words'}){ $Shword = "$FORM{'words'}"; $Shword =~ s/-//g; $Longwd = length($Shword); if($Shword =~ /^\d+/){ $Shword =~ s/ //g; if($Longwd < 3 || $Longwd > 10){ $message = '
  • 검색할 주소나 우편번호를 정확히 입력 하십시오.'; } else{ open(DB,"$lib_dir_path/Lib-11.cgi"); while(){ $_ =~ /(\d+)\s+(.*)/; $Pfd = $1; $Afd = $2; if($Pfd =~ /$Shword/i){ $Pfd =~ s/(\d{3})(\d{3})/\1-\2/; ($Afd2 = $Afd) =~ s/ +\d+\~\d+$//; $message .= "
  •   $Pfd   $Afd"; $Cntpp++; if($Cntpp > 1500){ $Enoughcut = "검색범위가 너무 넓습니다. 좀더 구체적인 우편번호를 입력 하십시오."; last;}}} close(DB); $message .= "
  • 입력하신 우편번호에 해당하는 주소를 찾지 못했습니다." if(!$message); }} else{ if($Longwd < 3){ $message = '
  • 검색할 주소나 우편번호를 정확히 입력 하십시오.'; }else{ $Shword =~ s/\,/ /g; $Shword =~ s/ +/ /g; $Shword =~ s/^\s+//g; $Shword =~ s/\s+$//g; @Manyword = split(/ /,$Shword); open(DB,"$lib_dir_path/Lib-11.cgi"); while(){ $_ =~ /(\d+)\s+(.*)/; $Pfd = $1; $Afd = $2; foreach $key (@Manyword) { if($Afd =~ /$key/i){ $FndWd = 1; }else{undef($FndWd);last;}} if($FndWd){ $Pfd =~ s/(\d{3})(\d{3})/\1-\2/; ($Afd2 = $Afd) =~ s/ +\d+\~\d+$//; $message .= "
  •   $Pfd   $Afd\n"; $Cntpp++; if($Cntpp > 1500){ $Enoughcut = "검색범위가 너무 넓습니다. 찾고자하는 행적구역(읍,면,동)을 구체적으로 입력하십시오."; last;}}} close(DB); $message .= "
  • 입력하신 주소에 해당하는 우편번호를 찾지 못했습니다." if(!$message);}}} &htmlprinthead("","[주소] : [우편번호] 검색"); print " "; print <
    • ▒ ▒ ▒ ▒ ▒ 확 장 검 색 ▒ ▒ ▒ ▒ ▒
    END &text_shform("$wform[0]",'SSHEX2','SHEX2_f',$config[259]); &text_shform("$wform[1]",'SSHEX3','SHEX3_f',$config[260]); &text_shform("$wform[6]",'SSHEX5','SHEX5_f',$config[48]); &text_shform("$wform[7]",'SSHEX8','SHEX8_f',$config[48]); if($config[96]==1){ $wform[4] =~ /(.*)=(.*)\:(.*)/; print " "; } &text_shform("$wform[3]",'SSHEX6','SHEX6_f',$config[115]); &text_shform("$wform[2]",'SSHEX18','SHEX18_f',$config[221]); &text_shform("$wform[9]",'SSHEX28','SHEX28_f',$config[62]); if($config[99]==1){ $wform[8] =~ /(.*)=(.*)\:(.*)\:(.*)\:(.*)\:(.*)/; print " "; } &text_shform('파일첨부','SSHEX17','SHEX17_f',$config[46]); &input_form(49,'SSHEX19','SHEX19_f'); &input_form(50,'SSHEX20','SHEX20_f'); &input_form(51,'SSHEX21','SHEX21_f'); &input_form(52,'SSHEX22','SHEX22_f'); &input_form(189,'SSHEX37','SHEX37_f'); &input_form(190,'SSHEX38','SHEX38_f'); &text_shform('본문글','SSHEX43','SHEX43_f',1); if($config[276]==1){ &text_shform('상품이름','SSHEP1','SHEP1_f',1); &text_shform('상품가격','SSHEP3','SHEP3_f',1); &text_shform('상품설명','SSHEP5','SHEP5_f',1); } print <
    검색영역 검색어 검색조건
    $1    
    $1    


    검색어가 해당 검색영역에 반드시 포함된 게시물만을 찾아 출력합니다. [HELP]

    END &htmlend; exit; } sub input_form{ my($Snum,$Sname,$Sname2)=@_; return if(!$config[$Snum]); $config[$Snum] =~ s/\-(center|right|left)//i; if( ($config[$Snum] =~ /(.*)=radio:(.*)/i) || ($config[$Snum] =~ /(.*)=select:(.*)/i) || ($config[$Snum] =~ /(.*)=checkbox:(.*)/i) ){ @sharr = split(/\//,$2); print "
    $1    
    $sh_title   OR AND
    주소로 우편번호 찾을때: 읍 . 면 . 동 또는 기관명 을 입력후 [엔터]
    우편번호로 주소 찾을때: 우편번호 숫자 3 자리 이상 입력후 [엔터]
    띄어쓰기로 두단어 이상 입력하면 'AND 조건검색' 됨
     $Enoughcut
    $message
    END &htmlend; exit; } sub justaddressname{ local($val_a,$val_b,$s_form) = @_; $s_form = $FORM{'FormName'} if($FORM{'FormName'}); $patnamw = ($FORM{'insert_post_name'})? $FORM{'insert_post_name'} : $val_a ; $adrname = ($FORM{'insert_address_name'})? $FORM{'insert_address_name'} : $val_b ; print " parent.opener.document.$s_form.$patnamw.value = Postnum ; parent.opener.document.$s_form.$adrname.value = Postaddr ; "; } sub subjecticon{ $iconurl = "$img_dir_url/subjecticon/$FORM{'subjecticon'}"; &htmlprinthead; print "메인 INDEX(글목록) 아이콘 지정 옵션보기
    이 페이지에서는 [관리설정]-[1-1]항목의 아이콘 선택옵션을 보여줍니다.

    ▧ DIR($iconurl/)   차례대로 클릭해 보세요 "; for(1..12){ if($FORM{'subjecticon'} == $_){ print "\n"; }else{ print "\n"; }} print "
    DIR-$_DIR-$_

     
    ▧ Type 선택옵션 보기"; print "\n"; for(1..8){ print "\n"; } print <
    Type-$_
    Parent
      Reply++
        Reply
          General
    		 Parent
      Reply++
        Reply
          General
    		  
     
     
     
     
    		 Man
    Woman
    Image
    General    		 General
      Reply
    		 Parent
      Reply    		 All nothing
    [참고사항]
    * 각 아이콘 'Type' 은 글의 종류(성격)를 구분하여 자동으로 해당 아이콘을 출력해 줍니다.
       게시판 특성에 맞는 'Type' 을 선택하십시오.
    * 'Type-3' 을 지정할 경우엔 글쓰기 폼에 직접 '아이콘 선택' 옵션이 출력됩니다.
        글쓰기 폼의 '아이콘 선택' 을 필수선택 항목으로 지정하려면 [관리설정]-[5-24]에서 지정합니다.
        글쓰기 폼의 '아이콘 선택' 라는 단어는 [관리설정]-[5-5]에서 다른 말로 바꿀수 있습니다.
        'Type-3' 아이콘 수를 확장하려면 [사용자매뉴얼]-[기타응용] 편 을 참고하십시오
    * 'Type-4' 아이콘을 지정할때는 [관리설정]->[5-17]->[성별] 에도 체크하십시오.
       그래야 글 작성시 성별을 선택할수 있습니다.

    파일첨부 표시 아이콘 기 타
    compress
    image
    execution
    H.W.P
    		 sound
    htm/text
    movies
    pdf
    		 others
    url - link     		mail
    new
    vote
    home
     
    기본 제공된것 이외의 아이콘을 사용하려면
    비어 있는 디렉토리($img_dir_url/subjecticon/7 ~ 12/)에 기본제공된것과 동일한 파일명으로
    아이콘을 넣은 후 해당 (DIR) + (Type)을 지정지정하면 됩니다. END &htmlend; exit; } sub TableMakeCol{ local($col1,$col2,$col3,$col4,$col5,$col6) = @_; $Cell1_1 = $col1; $Cell1_2 = $col2; $Cell2_1 = $col3; $Cell2_2 = $col4; $Cell2_3 = $col5; $BorderColor = "BORDERCOLOR=$col6"; } 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'} = 'FREE_BOARD' unless($FORM{'board'}); if($LINK_PMS_URL[0] && $ENV{'HTTP_REFERER'}){ foreach $key (@LINK_PMS_URL) { if($ENV{'HTTP_REFERER'} =~ /^$key/i && $key){ $linkpms_in = 1; last;}} &login_error_msg('무단링크는 차단됩니다.') unless($linkpms_in);}} sub htmlprinthead{ local($bgcolr,$headtitle)=@_; print "Content-type: text/html\n\n"; print < $headtitle . . . . . . . . . . . . . . . . . . . . . . . . . . technote-TOP $Htm_in_head END } sub htmlend{ local($copy) = @_; print "
     
    "; print "
    "; exit; } sub BrowserNi{ my($color,$twide,$size) = @_; $twide = 3 if(!$twide); $size = "width:$size\;" if($size); return "STYLE=\"font-size:9pt; border-width:$twide; border-color:$color; border-style:solid; $size\""; } sub get_cookie { @cookies = split(/; /, $ENV{'HTTP_COOKIE'}); foreach $key (@cookies) {$key =~ /([^=]*)=(.*)/; $COOKIE{$1} = $2;} if($COOKIE{"name$frankscrip"} && (&ch_pass($COOKIE{"name$frankscrip"}) eq "$configlog[0]")){ $TEck_Name=1; } if($config[112] == 2){ $cookie_key=$scripimport.$FORM{'board'}; $cook_dirkey=$FORM{'board'}.$config[0]; } else{ $cookie_key=$scripimport.'nSXq'; $cook_dirkey=$scripimport.'olkZq'; } @LOGDATA=split(/\|/,$COOKIE{$cookie_key}); if($COOKIE{($config[292]."home$frankscrip")}){ @visitor_line=split(/\|/,$COOKIE{($config[292]."home$frankscrip")}); if(($config[112] == 2) && ($visitor_line[5] eq $config[0]) && ($FORM{'board'} eq $visitor_line[6])){ $TEck_Home=1; } elsif(($config[112] == 1) && ($visitor_line[5] eq $configlog[0]) && ($cook_dirkey eq $visitor_line[6])){ $TEck_Home=1; }else{"";}} if($COOKIE{"mail$frankscrip"}){ @manersplit = split(/\|/, $COOKIE{"mail$frankscrip"}); if((&ch_pass("$manersplit[0]") eq $config[0]) || (&ch_pass("$manersplit[0]") eq $configlog[0])){ $TEck_Mail = 1 if($manersplit[1] eq $FORM{'board'});}}} sub open_config{ open(CONFIG,"$board_dir_path/$FORM{'board'}/$configfile"); @config = ; close(CONFIG); chop(@config); $config[0] = $configlog[0] unless($config[0]); } sub open_r_config{ open(CONFIG,"$board_dir_path/$loginfile"); @configlog = ; close(CONFIG); chop(@configlog); $configlog[0] = &ch_pass('technote') unless($configlog[0]); } sub login_error_msg{ @error = @_; foreach $key (@error) { $key .= "\\n"; } print "Content-type: text/html\n\n"; print < $Htm_in_headerror-message $_[0]
    $_[1]
    $_[2]
    $_[3]
    $_[4]
    $_[5]
        END exit; } sub memberdataprint{ if(($visitor_line[0] eq $FORM{'input_id'}) && $LOGDATA[8]){ if(open(MEM,"$config[264]/$LOGDATA[8]")){ while(){ if($_ =~ /^[^\|]*\|$FORM{'input_id'}\|/){ close(MEM); $return_data = $_; $rtntt = &M_point_f("$config[264]/$LOGDATA[8]"); return 1;}}}} return if(&M_Finder("$config[264]")); if($config[300]){ $exdirspace=1; @adddirtemp = split(/\|/,$config[300]); foreach $Dir_list (@adddirtemp) { return if(&M_Finder("$Dir_list"));}} return ;} sub M_Finder{ local($path,$rest) = @_; local($addtemp,$tempidfile,$blankcheck,); while($addtemp < 200){ $tempidfile = $idlistfile; $tempidfile =~ s/\./$addtemp\./; if(open(MEM,"$path/$tempidfile")){ while(){ if($_ =~ /^[^\|]*\|$FORM{'input_id'}\|/){ close(MEM); $return_data = $_; $rtntt = &M_point_f("$path/$tempidfile"); return 1;}}} else{$blankcheck++;} $addtemp++; last if($blankcheck > 30);}} sub M_point_f{ my($path,$path2)=@_; if($path =~ /(\d+)\.[^\/]+$/){ $Cdata_num = $1;} $accum =~ s/\./$Cdata_num\./; $path =~ s/[^\/]+$/$accum/; open(FILE,"$path"); @SMpoint=; close(FILE); if(($SMpoint = join(' ',@SMpoint)) =~ /($FORM{'input_id'})=(\d+)/){ return $2;} return;} sub MemberDfind{ &input_Login_data('▨ 등록하신 아이디, 이름, 메일주소, 주민등록번호를 입력하십시오.', '▨ 일치되는 등록정보가 찾아지면 등록하신 메일로 자동 발송됩니다.', '▨ 등록당시 주민등록번호를 넣지 않았다면 주민등록번호는 입력하지 마십시오.', 'ch_id_de_find','비밀번호 분실' ); } sub input_Login_data{ local($text1,$text2,$text3,$f_name,$text5) =@_; &htmlprinthead('','회원등록정보 찾기'); print <
    비밀번호 분실
    END if($f_name eq 'ch_id_de_find'){ print < END } else{ print < END } print <
    회원등록정보 조회 - $text5
    아이디
    이 름
    전자메일
    주민등록번호
     
    비밀번호
     
     
      $text1
      $text2
      $text3
    END &htmlend; } sub Move_b_page{ ($page1,$page2)=@_; print "Location:$page1\n\n"; print "Content-type: text/html\n\n"; print < $Htm_in_head   END exit; } sub iconsearch{ &open_r_config; &get_cookie; if($TEck_Name){ $img_dir_url2 = $img_dir_url; $img_dir_url2 =~ s/\/$//; $img_dir_url2 =~ s/([^\/]+)$//; $orgdir_name = $1; $FORM{'xiconpath'} = $orgdir_name unless($FORM{'xiconpath'}); if($FORM{'back'}){ if($FORM{'xiconpath'} eq $orgdir_name){ $FORM{'xiconpath'} = '../'; } elsif($FORM{'xiconpath'} !~ /\w/){ $FORM{'xiconpath'} .= '../'; } elsif($FORM{'xiconpath'} !~ /\w$/){ $FORM{'xiconpath'} .= '../'; } else{ $FORM{'xiconpath'} =~ s/\/[^\/]+$//; $FORM{'xiconpath'} .= '/' if($FORM{'xiconpath'} =~ /\.\.$/); } } $FORM{'xiconpath'} =~ s/\/+/\//g; opendir(DIR,$FORM{'xiconpath'}) || ($pass_error = '입력하신 경로를 찾을수 없습니다. 경로를 다시 확인 하십시오
    '); @readdir_line = grep((!/^\./), readdir(DIR)); closedir(DIR); @readdir_line = sort(@readdir_line); $img_dir_url2 .= $FORM{'xiconpath'}; } else{ delete ($FORM{'xiconpath'}); $pass_error = 'ERROR!..사용권한 확인요망!
    이 도구는 [전체관리자] 로그인한 상태에서만 사용 가능합니다.


    '; $error_script = 'loginerror();'; } print "Content-type: text/html\n\n"; print < ▒▒▒▒▒▒▒▒ 이미지 파인더 ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
    $pass_error 테크노트의 main.cgi 파일을 기준으로 이미지 디렉토리의 '상대경로'를 입력하십시오 
    처음으로..
    디렉토리 URL: 뒤로앞으로
    END_LINE foreach $key (@readdir_line){ if($key !~ /\./){ print "";}} foreach $key (@readdir_line){if($key =~ /\.gif$/i || $key =~ /\.jpg$/i || $key =~ /\.bmp$/i || $key =~ /\.png$/i){$ct++; print "";}} $ct = '0' unless($ct); $add_size =~ s/(\d)(\d{3})$/\1\,\2/; $add_size =~ s/(\d)(\d{3})\,/\1\,\2\,/; $add_size =~ s/(\d)(\d{3})/\1\,\2/; print <
    파일 리스트 파일 사이즈 이미지 출력   전체출력
    $key    
    $key"; $size = (stat("$FORM{'xiconpath'}/$key"))[7] ; $add_size += $size ; $size =~ s/(\d)(\d{3})$/\1\,\2/; $size =~ s/(\d)(\d{3})\,/\1\,\2\,/; $size =~ s/(\d)(\d{3})/\1\,\2/; print "$size"; if($FORM{'all'}){ print "";} else{print "";} print"
    파일갯수: $ct$add_size  

    이미지 디렉토리의 상대경로 입력시 도움말 참고 하십시오.
    사용자가 별도의 이미지 디렉토리를 만들어 올려도 자동 인식됩니다.
    출력된 이미지 URL 을 복사하려면 이미지에 마우스우측버튼 클릭후 [등록정보]나[속성]을 선택하십시오.
    이미지파인더를 별도 링크해 사용하려면 http://abcd.com/technote/$imgcg?iconsearch=1 형식입니다.
    '사용자 이미지 모음(클립아트)' 꾸미기는 이곳을 클릭하십시오.
    이미지 파인더는 전체관리자로 로그인된 상태에서만 정상 출력됩니다.
      END_LINE exit; } 1;