#!/usr/bin/perl -U #---위 첫라인, 서버환경과 다르다면 수정(perl의 경로). '#!' 삭제하지말것 #---config.cgi 의 경로대입 require './config.cgi'; $This_CGI_Name = 'new_news.cgi'; $MemberDataBoard = 'MemberBoard'; # ▨ IN QUERY & COOKIE &Link_Cut if(@LINK_PMS_URL); &parse; &get_cookie; sub HTML_PRINT{ print < TECHNOTE IBOARD INDEX
$table3
END_LINE exit; } $table3 = &open_table (" headline_text=no; table_width=454; index_many=7; new_icon_time=12; board_path=./board/new_news; text_num_addition=1; text_link_url=./read.cgi; cell_column=2/4; cell_width_expand=0; append_img=30x35; Print_indextable=1; line_color=#FFFFFF; head_bgcolor=#FFFFFF; head_icon_url=$img_dir_url/face/img46.gif; index_bgcolor=#FFFFFF; mouse_over_color=#EFEFEF; text_color=#000000; subject_length=55; body_length=0; body_position=1; body_htm_allow=no; other_length=15; open_new_window=yes; main_board_link=no; subject_icon_url=http://kookilmc.com/images/coolbest9_icon.gif; cross_line=; "); # HTML PRINT 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,$wi_cross,$Trtagchk,@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); } # 본문 출력 타겟 지정 -- (타겟을 별도 지정하려면 여기서 코드를 수정할것) # 만약, 메인htm 파일내에