디.씨.에스

#!/usr/bin/perl -U require './config.cgi'; # 2001/04/27 , technote-pro iboard.cgi 공개소스 , http://www.technote.co.kr # ▨ 이 소스는 테크노트 운영에 반드시 필요한 것은 아니니 필요하신 분만 사용하십시오. # 이 소스는 테크노트를 설치하여 사용하시는 분에 한해서 사용가능합니다. # 이 소스는 윈도우의 '워드패드'로 읽기에 가장 적합하게 만들어져 있습니다. # 앞에 샾(#) 표시되어 있는 라인은 주석문이므로 프로그램작동에 영향을 주지 않습니다. # ▨ 이 파일로 할 수 있는 것은..... # 1, 하나의 페이지에 여러개의 보드를 동시에 띄울때 # 2, [공지사항] 게시판이나 각 보드의 '전체현황 출력' 용도로 사용할때 # 3, 홈페이지의 메인 화면에서 여러 게시판의 목록을 실시간으로 동시에 보여줄때 # 4, 테크노트 관리자용 전체현황 파악을 위해 사용할때 # 5, 회원로그인 정보를 인식하여 출력유지 해야할때 # 6, 회원로그인 정보를 추출해서 폼문서 작성에 이용하려할 때 # 7, 게시판 몬분에 첨부된 그림을 미리 보여주고자 할때 # 8, 그 외에도 여러가지 용도로 응용이 가능하며 귀하의 홈페이지에 메인페이지로 사용하려 할때에도 # 사이트에 맞게 편집해서 사용하실수 있습니다. # ▨ 이 소스 자체를 살펴보기 이전에,,, # 홈페이지내에 테크노트가 설치된 경로(main.cgi 가 있는 위치)에 # 이 파일을 [FTP-ASCII] 모드로 올린후 퍼미션 755 지정하시고, # 부라우저로 출력해서 출력결과를 먼저 살펴 보신후에 소스를 직접 살펴 보시고 # 필요한 형태로 수정해서 사용하시기 바랍니다. # 변수생성 방법과 생성된 변수를 어떻게 활용하느냐 가 이 파일의 활용도를 결정하는 것이니 # 소스내의 설명 주석문은 빠뜨리지 말고 모두 읽으십시오, # 이 파일은 프리웨어와 상용버전이 동일하며 수정및 배포도 허용됩니다. # ▨ 수정항목[1] - 소스 첫라인: perl 경로(서버환경과 다를 경우 수정) # ▨ 수정항목[2] - 소스 두번째 라인 : config.cgi의 경로(전체 절대경로를 넣어야만 하는 환경에서는 전체 경로로 수정) # 설치된 테크노트의 main.cgi 와 같은 디렉토리에 위치한 경우 수정 불필요 함. # ▨ 수정항목[3] - 현재 이 파일(iboard2.cgi)의 이름 ('iboard.cgi' 파일 이름을 바꾸었을 경우 바꾼 파일명을 대입할 것.) $This_CGI_Name = 'iboard2.cgi'; # ▨ 수정항목[4] - 테크노트로 회원등록관리를 하는 경우, 회원등록-로그인 하도록 설정한 '보드이름'을 대입할것 $MemberDataBoard = 'CLUB'; # ▨ IN QUERY & COOKIE &parse; &get_cookie; # ▨ 수정항목[5] - config.cgi 소스의 [43]번 항목에 넣은 코드를 이 페이지(iboard.cgi)에서는 # 제외시키려면 아래 라인을 지우거나 라인 앞에 샾(#) 을 넣을것 (2001 버전에는 해당되지 않음) # &HTM_BODY_BEGIN_END; # ▨ --- 아래는 이 소스 사용목적의 본론격인 html 출력부분입니다. --------------------------------------▨ # "변수생성 방법 설명" 에서와 같이, 페이지 출력에 필요한 변수를 생성하여, # 출력페이지(htm)를 꾸미는것이 이 소스의 활용목적입니다. # 귀하의 용도에 맞게 아래 htm 코드로 페이지출력화면을 구성하신후, # 적합한 위치에 게시판 테이블 출력 변수, 혹은 다른 방법으로 생성한 변수를 넣으십시오. # 변수 생성 방법에 대한 설명은 아래로 내려 가시면 있습니다. # 출력부분에 추가되는 htm 코드나 내용구성에서 '@' 을 사용하실때는 '\@' 형태로 쓰십시오,(예, master\@board.co.kr) # '\@' 처리를 해주지 않으면 오류납니다. # 원본의 자바스크립트 부분은 삭제 하지 마십시오, # -- htm 코드에 익숙치 않아서 '나모' 나 드림위버같은 htm 편집기를 써야만 하는 분은-- # 이 파일(iboard.cgi)을 htm 편집기로 직접 불러들여서 편집하시면 안됩니다. # 일단 htm 편집기로 페이지 레이아웃을 잡으신후, 그 htm 코드에서 # ~ 부분만 복사하여 아래 보이는 htm 출력부분의 # ~ 대신 넣어 주고 , 태그내의 적절한 위치에 변수를 넣어주십시오, # 변수의 용도와 역할을 잘 이용하셔서 출력페이지를 꾸미세요, # htm 코드내에 삽입된 변수를 생성하는 방법은 아래로 죽~죽 내려 가면 있습니다. sub HTML_PRINT{ print < 디.씨.에스 $BODY_BEGIN



(주)DCS는 CO-ME를 비롯하여 건축기계설비관련 소프트웨어 개발과 디지털 컨텐츠 제작 및 유통을 전문으로 하는 기업입니다. 또, 일본 소프트웨어와 컨텐츠의 소개 및 한글화, 반대로 한국 소프트웨어의 일본 현지화를 통해 양국간 IT 분야의 가교역할을 하고 있습니다. 여기에 AutoCAD 및 컴퓨터, 일본어, 일본 문화와 비즈니스 관련 서적을 꾸준히 집필하고 있습니다.

$table1

(주)D.C.S, 대표: 이진천, 서울시 송파구 문정동 51-6 준영 B/D 4층
문의전화: 02)415-1653, 팩스: 02)414-6747, 사업자등록번호: 219-81-22612
Copyright(c) 2003 D.C.S All Rights Reserved.

$BODY_END END_LINE exit; } #★★★★★★★★★★★ 변수 생성하기 ★★★★★★★★★★★★★★ # ▨▨▨ [변수생성 예제1]- 게시판 출력 테이블 변수 생성하기 ▨▨▨ # 생성되는 변수명 : $table1 # 이 코드에 대한 설명은 아래에 있습니다. $table1 = &open_table (" headline_text=no; table_width=100%; index_many=5; new_icon_time=0; board_path=./board/notice; text_num_addition=2; text_link_url=./read.cgi; cell_column=2; append_img=35x20; Print_indextable=1; line_color=white; head_bgcolor=#FFFFFF; head_icon_url=$img_dir_url/face/icon_66.gif; index_bgcolor=#FFFFFF; mouse_over_color=#F3F3F3; text_color=#000000; subject_length=65; body_length=0; body_position=1; body_htm_allow=yes; other_length=30; open_new_window=no; main_board_link=no; subject_icon_url=$img_dir_url/face/bitimg26.gif; "); # ⊙ [변수생성 예제1] 에 대한 코드설명 # -----[개요]------- # 위 [변수생성 예제1] 코드는 '$table1' 이라는 변수를 생성하고 # 'group2' 게시판의 글목록 테이블을 '$table1' 변수에 저장시킨 예제입니다. # htm 본문 출력부분내에 변수 '$table1' 을 삽입하면 그 위치에 group2 게시판 글목록 테이블이 출력됩니다. # 출력시키고자 하는 게시판 수 만큼 위의 코드를 복사해서 변수를 생성해 주면 되는데 이때, # 생성되는 각 게시판 저장 변수명은 임의 지정(예, $table1 , $table2 .... )하되, 같은 변수명을 사용할 수는 없습니다. # 세부지정옵션으로 각 게시판의 색상이나 크기 테이블 구성을 달리할 수 있습니다. # 위 코드의 세부 옵션 짖어항목에서 # '절대경로'나 'url' 의 설정값이 iboard.cgi 를 기준으로한 '상대적 경로' 형식으로 되어 있는데 # 이는 iboard.cgi 가 '...technote/main.cgi' 와 같은 경로에 위치한 경우에서의 지정상태입니다. # 만약 iboard.cgi 를 main.cgi 와 다른 경로에 위치시켰다면 '경로나 url ' 도 그에 맞게 # iboard.cgi 를 기준으로한 상대경로 혹은 전체경로로 지정해야만 합니다. # 위 코드에 포함되어 있는 $img_dir_url 변수는 technote/config.cgi 소스내의 [4]번 항목에서 지정한 # 이미지 디렉토리의 url 경로입니다. 이 변수대신 url 로 직접 입력해도 됩니다. # ⊙ [변수생성 예제1] 의 세부지정 항목 설명----- 프린트 해서 보십시오, #□ headline_text=자유게시판입니다.; # 타이틀바에 출력될 문자열을 지정 # 타이틀바 자체를 없애려면 'no' 를 대입하면 된다. #□ table_width=450; # 테이블너비를 지정. #□ index_many=9; # 글목록 출력갯수 지정. #□ new_icon_time=24; # 새로운글에 'NEW' 아이콘출력 시간을 지정한다. # 위의 지정은 글을 등록한지 24시간이 지나지 않은 글에 'NEW' 아이콘을 출력하게 하는 지정이다. #□ board_path=./board/group2; # 출력할 게시판의 디렉토리 절대경로 지정(상대경로로 지정시, iboard.cgi 위치를 기준으로..) # 만약, 다른곳에 설치된 테크노트내의 게시판이라도 그 경로를 전체 절대경로로 지정해 주면 된다. #□ text_num_addition=1; # 글번호 출력시 1번부터 증가하는 형식으로 지정시 '1' 을 대입한다. # 전체 글 갯수에서부터 감소하는 형식으로 지정시엔 '2' 를 대입한다. #□ text_link_url=./read.cgi; # 글제목에 링크될 본문출력 read.cgi 파일의 'URL' # 다른곳에 설치된 테크노트내의 게시판이라면 # 전체 'URL' 로 지정해 주면 된다.(http://abcd.com/technote/read.cgi) #□ cell_column=1/2/3/4; # 테이블의 가로셀 구성을 숫자로 지정한다. 순서를 바꾸거나 삭제, 추가 할 수 있다. (지정범위 1~11) # 입력추가항목A~F 는 게시판의 [관리설정]-[5,글쓰기입력폼설정]에서 지정한 입력추가항목A~F를 의미한다. # 1 : 글번호 # 2 : 글제목 # 3 : 작성자 # 4 : 작성일 # 5 : 입력추가항목A # 6 : 입력추가항목B # 7 : 입력추가항목C # 8 : 입력추가항목D # 9 : 입력추가항목E # 10 : 입력추가항목F # 11 : 본문에 첨부된 그림 미리보기 #□ append_img=25x20; # 위의 지정항목(cell_column)에서 '11' 번을 지정하였을 경우, # 첨부된 그림 미리보기가 가능하게 되는데, # 이때, 그 그림을 별도의 아이콘으로 표시하려면 아이콘이미지 url(http://..../xxx.gif) 을 대입하고 # 첨부된 그림을 실제 축소하여 보여 주려면 축소될 크기를 '가로x세로' 형식으로 지정한다. # [tip]-그림미리보기 지정하면 그림에 마우스를 '올리면' 바로 창이 뜨고 그림이 출력되는데 # 이를 마우스를 '클릭'해야 창이뜨고 그림 출력되게끔 수정하려면 ,,, # 이 소스(iboard.cgi) 에서 "그림보기출력모드" 이란 단어를 검색하면 해당부분의 코드를 찾아 # 수정힐수 있다. 단어를 찾을 때는 [Ctrl + F] 버튼을 클릭 #□ Print_indextable=1; # 글 제목을 클릭하여 새창에서 본문이 출력되었을때 본문 하단에 # 글목록 테이블이 같이 출력되게 하려면 '2'를 본문 내용만 출력케하려면 '1' 을 대입한다. #□ line_color=#4874CC; # 테이블의 테두리라인 색상을 지정한다 # 만약, 점선으로 표시되게 하려면 # line_color=#4874CC-dot; # 와 같이 색상뒤에 '-dot' 를 붙여주면 된다. #□ head_bgcolor=#94CEFF; # 테이블의 타이틀바 바탕색 지정 #□ head_icon_url=$img_dir_url/face/img44.gif; # 타이틀바내의 아이콘 URL 지정(http://abcd.com/img/abcd.gif) # 아이콘을 넣지 않으려면 아무것도 대입하지 않으면 됨 #□ index_bgcolor=#DFF1FF; # 글목록출력 부분에 바탕색이나 배경그림을 지정. # 색상지정(예: #DFF1FF), 혹은 배경이미지 URL(예: http://abcd.com/img/backgr.gif) #□ mouse_over_color=#B9E1FF; # 마우스ON 했을때 변환될 색상지정 #□ text_color=#000000; # 테이블내의 글자색 지정 #□ subject_length=30; # 글제목의 최대 출력길이를 지정 #□ body_length=0; # 글제목과함께 글 '본문내용'도 출력케 한다. # 대입된 숫자는 글 본문내용의 출력길이(용량)이다. # 출력길이지정 10 이상으로 지정해야 본문 출력된다. #□ body_position=0; # 위의 지정항목(body_length)에서 본문내용이 출력되게 '10' 이상으로 지정한경우, # 본문출력 위치를 지정할수 있는 옵션이다. # 0을 대입하면 글제목 하단에 출력되고 1을 대입하면 마우스를 글제목위에 # 갖다 대었을때 본문이 출력된다. #□ body_htm_allow=yes; # 위의 항목 (body_position) 에 0을 대입하여 글제목과 본문이 같이 출력되게 # 지정한경우 본문내에 htm 코드가 있을때 이를 적용시켜 출력하려면 # yes 를 , htm 태그를 제거하고 출력시키려면 no 를 대입한다. #□ other_length=15; # 글제목 이외의 출력부분(이름,날자,추가항목 등..) 최대 길이를 지정 #□ open_new_window=yes; # 글제목을 클릭했을때 새창에서 본문을 출력할것인가를 'yes' , 'no' 로 지정 #□ main_board_link=yes; # 페이지 넘기기및 해당보드로 링크되는 화살표아이콘을 타이틀바에 출력할것인가를 yes / no 로 지정 #□ subject_icon_url=$img_dir_url/face/img41.gif; # 글제목앞의 아이콘 URL 지정(http://abcd.com/img/abcd.gif) # ▨▨▨ [변수생성 예제2]- 게시판 출력 테이블 변수 생성하기 ▨▨▨ # 생성되는 변수명 : $table2 # 이 코드에 대한 설명은 [변수생성 예제1] 과 같습니다. # theme1 이라는 이름의 게시판 테이블을 $table2 변수에 저장시킨 예제입니다. # htm 출력부분에 $table2 를 넣으면 그 위치에 theme1 게시판 테이블이 출력됩니다. $table2 = &open_table (" headline_text=no; table_width=420; index_many=10; new_icon_time=0; board_path=./board/NEWS; text_num_addition=2; text_link_url=./read.cgi; cell_column=2; append_img=25x20; Print_indextable=1; line_color=white; head_bgcolor=white; head_icon_url=$img_dir_url/face/icon_66.gif; index_bgcolor=white; mouse_over_color=#F3F3F3; text_color=black; subject_length=50; body_length=0; body_position=1; body_htm_allow=yes; other_length=30; open_new_window=no; main_board_link=no; subject_icon_url=$img_dir_url/face/bitimg26.gif; "); # ▨▨▨ [변수생성 예제3]- 게시판 출력 테이블 변수 생성하기 ▨▨▨ # 생성되는 변수명 : $table3 # 설명은 위와 동일합니다. $table3 = &open_table (" headline_text=no; table_width=160; index_many=4; new_icon_time=0; board_path=./board/NOTICE; text_num_addition=2; text_link_url=./read.cgi; cell_column=2; append_img=25x20; Print_indextable=1; line_color=white; head_bgcolor=white; head_icon_url=$img_dir_url/face/icon_65.gif; index_bgcolor=white; mouse_over_color=#F3F3F3; text_color=black; subject_length=22; body_length=0; body_position=1; body_htm_allow=yes; other_length=20; open_new_window=yes; main_board_link=no; subject_icon_url=$img_dir_url/face/bitimg26.gif; "); # ▨▨▨ [변수생성 예제4]- 게시판 출력 테이블 변수 생성하기 ▨▨▨ # 생성되는 변수명 : $table4 # 설명은 위와 동일합니다. $table4 = &open_table (" headline_text=no; table_width=420; index_many=10; new_icon_time=0; board_path=./board/FORUM; text_num_addition=2; text_link_url=./read.cgi; cell_column=2/4; append_img=25x20; Print_indextable=1; line_color=white; head_bgcolor=white; head_icon_url=$img_dir_url/face/icon_66.gif; index_bgcolor=#F3F3F3; mouse_over_color=#B9E1FF; text_color=black; subject_length=50; body_length=0; body_position=1; body_htm_allow=yes; other_length=15; open_new_window=no; main_board_link=no; subject_icon_url=$img_dir_url/face/icon_66.gif; "); # ▨▨▨ [변수생성 예제5]- 회원로그인 변수 이용하기 ▨▨▨ # 예전에 로그인을 했었고, 현재는 로그인하지 않은 상태라면 아래 변수에는 # 예전의 로그인 정보가 저장되어 있다. # 아이디: $cook_id # 이름: $cook_name # 메일: $cook_mail # 홈페이지: $cook_home # 우편번호: $cook_post # 주소: $cook_address # 전화번호: $cook_tel # 현재 로그인을 한 상태라면 아래 변수에는 # 현재 로그인한 정보가 저장되어 있다. # 아이디: $visitor_line[0] # 이름: $visitor_line[2] # 메일: $visitor_line[3] # 홈페이지:$visitor_line[4] # 우편번호:$visitor_line[7] # 주소: $visitor_line[8] # 전화번호:$visitor_line[9] # 위의 변수를 htm 출력 부분에 삽입하여 원하는 회원정보를 출력할수 있다. # 2001 버전에서는 우편번호, 주소, 전화번호 적용되지 않음 # ▨▨▨ [변수생성 예제6]- 회원로그인 확인 변수를 이용한 조건 출력 변수 생성하기 ▨▨▨ # [참고]-회원로그인된 상태라면 $LoginMember 변수에 1이 대입되어 있고, # 회원로그인 하지 않은 상태라면 $LoginMember 에 아무것도 대입되어 있지 않음 # 조건 변수 생성 예 # 만약 로그인 된 상태라면 => '..님 로그인되었습니다' 라는 문장과 '로그아웃' 버튼 링크를 $Message_Print 변수에 저장함 # '로그아웃' 에 링크될 경로는 로그인후 게시판 하단에 출력되는 '로그아웃' 버튼에 링크된 주소를 복사해서 붙일것 # 위와 같이 조건적용으로 생성된 '$Message_Print' 변수를 HTM 코드내에 삽입하면 # 로그인여부에 따라 변수에 대입된 다른 내용을 출력시킬수 있게 됩니다. # 일반 text 또는 htm 코드를 대입해도 되며, [변수생성 예제5] 에서 설명한 변수를 포함시켜도 됩니다. # 작성 내용에 느낌표가 들어 갈때는 반드시 \! 와 같이 앞에 \을 붙여 넣으십시오. # 위의 예는 인증상태에따라 로그인폼을 출력하거나 로그아웃 버튼을 출력하게 한 '예' 입니다. # 위의 로그인폼을 그대로 사용하려면 # action='./main.cgi' 와 value='FREE_BOARD' 를 수정하시면 됩니다. # ▨ 위의 [변수생성 예제5] , [변수생성 예제6] 에 설명한 변수를 사용하기 위해서는....... # 이 iboard.cgi 가 테크노트의 main.cgi 가 있는 디렉토리에 위치하거나 그 하위의 경로에 있어야 합니다. # 만약 테크노트의 main.cgi 보다 상위 경로에 iboard.cgi 를 위치시켰다면 # 위 [예제 5 , 6] 에서 설명한 로그인 변수는 적용되지 않습니다. # 이때는 technote/config.cgi 소스내의 수정항목 31 , 32 번에 '/' 를 대입해 주면 적용되지만, 그 경우 # 여러개의 테크노트를 설치하여 사용하는 사이트에선 각 보드간 로그인에 혼선을 줄 우려가 있습니다. # -------------------- 수고 많이 하셨습니다. ---------------------------------------# # 이하 수정항목은 없습니다 만, 필요하다면 수정해도 상관은 없습니다. # 요소요소에 주석문을 넣었으니 해당 코드의 용도를 확실히 파악하신후 수정하십시오, # 페이지 출력의 직접적인 구성은 위에서 다 하도록 되어 있으니 # 아래 부분은 가급적 수정하지 않으시는게 좋습니다. # HTM 본문출력 print "Content-type: text/html\n\n"; &HTML_PRINT; # 게시판 출력 변수 생성 sub open_table{ local($const)=@_; local($boardname,$tabletag,$Iindexsize,$indexsizetm,$nextpg,$prevpg,$Nextibutton,$Opentarget_1,$Opentarget_2,$Boldface1,$Boldface2,$textline_2body,$textline_3body,$imgsrc,$imgsrc2,$img_width,$img_height,@DIVpart,@Iindex,@today,@visitor,@CellConst,@textline_body); @DIVpart = split(/;/,$const); foreach $key (@DIVpart) { $key =~ s/^\s+//; $key =~ s/\s+$//; $key =~ /(.*)=(.*)/; $TABLE{$1} = $2; } @CellConst = split(/\//,$TABLE{'cell_column'}); foreach $key (@CellConst) { if($key == 11){ if($TABLE{'append_img'} =~ /^(\d+)x(\d+)/){ $img_width = $1; $img_height = $2; } elsif($TABLE{'append_img'} !~ /\//){ $TABLE{'append_img'} = "$img_dir_url/subjecticon/5/filegr.gif"; } else{'';} next; } $key += 28 if($key > 8); $key += 14 if($key > 4 && $key < 9); } # 새창으로 본문 출력 if($TABLE{'open_new_window'} ne 'no'){ $Opentarget_1 = "target='aaa' onClick='NewWindows()'"; $Opentarget_2 = "target='bbb' onClick='NewWindows2()'"; } else{ $TABLE{'Print_indextable'}=2; } # 백그라운드 이미지 지정되었다면 if($TABLE{'index_bgcolor'} =~ /\//){ $TABLE{'index_bgcolor'} = "style=\"background-image:url('$TABLE{'index_bgcolor'}'); BACKGROUND-REPEAT: no-repeat;\""; } else{ $TABLE{'index_bgcolor'} = "bgcolor=$TABLE{'index_bgcolor'}"; } ## 목록읽기 open(INDEX,"$TABLE{'board_path'}/$indexfile"); $indexsizetm = $indexsize = @index = ; close(INDEX); chop(@index); # 오늘 등록글수 읽기 open(TODAY,"$TABLE{'board_path'}/today.txt"); @today = ; close(TODAY); chop(@today); # 방문 카운타 읽기 open(COUNT,"$TABLE{'board_path'}/$countfile"); @visitor = ; close(COUNT); chop(@visitor); $todaytxt = ($today[0] eq $DateTime)? $today[1] : '0'; $TABLE{'board_path'} =~ /[^\/]+$/; $boardname = $&; ($link2 = $TABLE{'text_link_url'}) =~ s/$readcg/$maincgorfile/; ($link3 = $TABLE{'text_link_url'}) =~ s/$readcg/$imgcg/; ## 테이블 목록 구성 시작 부분 $tabletag .= "= 0); $tabletag .= " Prev

"; $tabletag .= "" if($prevpg >= 0); if(($indexsize/$TABLE{'index_many'}) >= $nextpg){ $tabletag .= "" ; $Nextibutton = 1; } $tabletag .= " Next

"; $tabletag .= "" if($Nextibutton); $tabletag .= "

"; } $tabletag .= "\n"; } $tabletag .= "\n

\n"; # 목록부분 출력구성 시작 $tabletag .= "\n"; if($FORM{'page'}){ $indexsize -= ($TABLE{'index_many'} * $FORM{'page'}); } if($FORM{$boardname}){ $indexsize -= ($TABLE{'index_many'} * $FORM{$boardname}); } for($i=($indexsize-1); $i >= ($indexsize-$TABLE{'index_many'}); $i--){ next if(!$index[$i]); last if($i < 0); $tabletag .= ""; @indexbody = split(/\|/,$index[$i]); foreach $Cell (@CellConst){ ## 글번호 if($Cell == 1){ $tabletag .= ""; } ## 작성일 elsif($Cell == 4){ $indexbody[23] =~ s/\s.*$//; $tabletag .= ""; } ## 글제목 elsif($Cell == 2){ $tabletag .= ""; undef $textline_2body; undef $textline_3body; } ## 그림보기 elsif($Cell == 11){ $tabletag .= ""; } ## 그외.. else{ $tabletag .= ""; } } ## foreach $tabletag .= "\n"; } ## for $tabletag .= "

"; ## 1번부터 시작되는 글번호 if($TABLE{'text_num_addition'} == 1){ $tabletag .= " ".($indexsizetm - $i).""; } ## 등록글 전체 갯수에서 부터 감소하는 글번호 else{ $tabletag .= " ".($i+1).""; } $tabletag .= "

"; $tabletag .= " $indexbody[23]"; $tabletag .= "

"; if($indexbody[4] > 0){ $tabletag .= (' ' x $indexbody[4])."

"; } ## body_length 이 10보다 크면 본문출력함 if($TABLE{'body_length'} > 10){ # 비공개로 지정한 글이 아니라면, 본문글 open if($indexbody[32] ne 'x'){ $T_dir_x2 = $indexbody[39] ? $indexbody[39] : $textdir ; open(BODY,"$TABLE{'board_path'}/$T_dir_x2/$indexbody[1].$filename_exp"); @textline_body = ; close(BODY); shift(@textline_body); $textline_2body=join(' ',@textline_body ); } # 비공개로 지정된 글이라면 else{ $textline_2body= '이 글은 비공개로 지정되어 있습니다.'; } # MouseOver : 박스내에 본문출력 if($TABLE{'body_position'} > 0){ # htm 태그는 제거 $textline_2body =~ s/<([^>]|\n)*>/ /g; $textline_3body = $textline_2body; $textline_3body =~ s/\"//g; $textline_3body =~ s/\'//g; $indexbody[2]=~ s/\"//g; $indexbody[2]=~ s/\'//g; $textline_3body =~ s/\r//g; if($indexbody[31]==1 || !$indexbody[31]){ $textline_3body =~ s/\n/
/g;} else{ $textline_3body =~ s/\n/ /g;} $textline_3body=&SubstrReturn($textline_3body,0,$TABLE{'body_length'},".."); $textline_3body = "onMouseover=\"textbodyprint('▧ $indexbody[2]
$textline_3body')\" onMouseout=textbodyprint(0,1)"; $textline_2body=''; } # 글제목 아래에 본문출력 else{ # htm 태그는 제거 $textline_2body =~ s/<([^>]|\n)*>/ /g if($TABLE{'body_htm_allow'} ne 'yes'); $textline_2body =~ s/onclick=[^>]+//gi; $Boldface1 = ''; $Boldface2 = ''; if($indexbody[31]==1 || !$indexbody[31]){ $textline_2body =~ s/\n/
/g;} $textline_2body=&SubstrReturn($textline_2body,0,$TABLE{'body_length'},".."); $textline_2body = "
$textline_2body
"; } } if((length($indexbody[2]) > $TABLE{'subject_length'}) || !$indexbody[2]){ $indexbody[2] = &SubstrReturn($indexbody[2],0,$TABLE{'subject_length'},'..'); } $tabletag .= "

" if($TABLE{'subject_icon_url'}); $tabletag .= " $Boldface1$indexbody[2]$Boldface2"; # 비공개 글이라면 $tabletag .= "ⓢ" if($indexbody[32] eq 'x'); ## new 아이콘 이미지 출력(이미지경로 직접지정 가능) $tabletag .= "

" if((time - ($TABLE{'new_icon_time'} * 3600)) < $indexbody[1]); $tabletag .= "$textline_2body"; $tabletag .= "

"; if(($imgsrc,$imgsrc2) = &img_search){ # 그림보기출력모드 # 마우스를 올리면 바로 창이뜨면서 그림이 출력되게 하려면 이 코드라인을 사용 $tabletag .= "$imgsrc"; # 마우스를 클릭해야 창이뜨면서 그림이 출력되게 하려면 이 코드라인을 사용 #$tabletag .= "$imgsrc"; } else{ $tabletag .= " "; } $tabletag .= "

"; if(length($indexbody[$Cell]) > $TABLE{'other_length'}){ $indexbody[$Cell] = &SubstrReturn($indexbody[$Cell],0,$TABLE{'other_length'},'..'); } $tabletag .= " $indexbody[$Cell]"; $tabletag .= "

\n"; return $tabletag; } sub parse{ $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; } @timeday=localtime(time+$NewLocaltime); $DateTime=($timeday[4]+1).$timeday[3]; $nextbutton = $FORM{'page'} + 1; $prevbutton = $FORM{'page'} - 1; #### 페이지 이동 버튼 $buttonprint .= "\n\n !; $buttonprint .= qq!

\n"; if($prevbutton > -1){ $buttonprint .= qq!

!; } else{ $buttonprint .= "Next..."; } $buttonprint .= qq!

!; } 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 img_search{ local ($returnimgtag,$returnimgtag2); if($indexbody[17] =~ /\.(gif|jpg|bmp)$/i){ if($cgi_dir_appoint==1){ $returnimgtag ="$board_dir_url/$boardname/$uploaddir/$indexbody[17]";} else{$returnimgtag ="$link3?board=$boardname&img=$indexbody[17]&xfile=1";}} elsif($indexbody[28] =~ /\.(gif|jpg|bmp)$/i){$returnimgtag = "$indexbody[28]";} elsif($indexbody[10]){if($cgi_dir_appoint==1){$returnimgtag ="$board_dir_url/$boardname/$upimgdir/$indexbody[10]";} else{$returnimgtag = "$link3?board=$boardname&img=$indexbody[10]";}} elsif($indexbody[11]){$returnimgtag ="$indexbody[11]";}else{return;} $returnimgtag2 = ($img_width)? "

" : "

"; return($returnimgtag2,"

"); } sub get_cookie{local($m_name, $m_value,$Main_Logpass,$cookie_key,$cook_dirkey,$xcookieanme,@M_config,@cookies); return unless($MemberDataBoard);@cookies = split(/; /, $ENV{'HTTP_COOKIE'}); foreach (@cookies) {($m_name, $m_value) = split(/=/, $_);$COOKIE{$m_name} = $m_value;} open(MEMBER,"$board_dir_path/$MemberDataBoard/$configfile");@M_config = ; close(MEMBER);chop(@M_config); if($M_config[112] == 2){$cookie_key=$scripimport.$MemberDataBoard; $cook_dirkey=$MemberDataBoard.$M_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}); $xcookieanme = $M_config[292].'home'.$frankscrip; return unless($COOKIE{$xcookieanme});@visitor_line=split(/\|/,$COOKIE{$xcookieanme}); if($M_config[112] == 2){if(($visitor_line[5] eq $M_config[0]) && ($MemberDataBoard eq $visitor_line[6])){ $LoginMember=1;print "Set-Cookie: $xcookieanme=$COOKIE{$xcookieanme}; \n";}} else{open(MEMBER,"$board_dir_path/$loginfile");$Main_Logpass = ;close(MEMBER); $Main_Logpass =~ s/\s//g; if(($visitor_line[5] eq $Main_Logpass) && ($scripimport.'olkZq' eq $visitor_line[6])){ $LoginMember=1;print "Set-Cookie: $xcookieanme=$COOKIE{$xcookieanme}; \n";}} undef @visitor_line unless($LoginMember);} 1;