#!/usr/local/bin/perl
$chk_total_num = 0;
#============================================================================#
# Program Name - Sepal's SPBOARD v4.5                                        # 
# Programer - Kim se youn (madgf@hanmail.net, sepal@spfamily.com)            #
# Homepage - http://sepal.woorizip.com or http://www.spfamily.com			 #
# Last Modified - 2001.01.19                                                 #
#                                                              made in Korea #
#============================================================================#

##############################################################################
$main_dir = "/afs/postech.ac.kr/lab/cse/dpe/www/spboard/";		 #idµð·ºÅ丮°¡ Àִ°÷ÀÇ µð·¢Å丮 Àý´ë °æ·Î
#$main_url = "http://dpnm.postech.ac.kr/spboard/";		 #idµð·ºÅ丮°¡ Àִ°÷ÀÇ URL
#$cgi_url = "http://dpnm.postech.ac.kr/spboard/board.cgi";        #ÀÌ cgiÆÄÀÏÀÇ URL
#$img_url = "http://dpnm.postech.ac.kr/spboard/img";              #img URL
$main_url = "/spboard/";		 #idµð·ºÅ丮°¡ Àִ°÷ÀÇ URL
$cgi_url = "/spboard/board.cgi";        #ÀÌ cgiÆÄÀÏÀÇ URL
$img_url = "/spboard/img";              #img URL
$sendmail = "/usr/lib/sendmail_nosendmail"; #sendmail À§Ä¡
$NT = "0";                       #ÀÚµ¿ Æû¸ÞÀÏ »ç¿ëÇÏÁö ¾ÊÀ»·Á¸é $NT="1"·Î... 
##############################################################################

##############################################################################
#¾Æ·¡ ¼³Á¤Àº °Ô½ÃÆÇ Á¤½Ä±¸ÀÔÀÚ¸¦ À§ÇÑ °ÍÀÔ´Ï´Ù.
#±â´É»ó Â÷ÀÌ´Â ¾øÀ¸¸ç °Ô½ÃÆÇ ¾Æ·¡ Ȩ¸µÅ©¸¦ ¹Ù²Ù´Â ¼³Á¤ÀÔ´Ï´Ù... ^.^
##############################################################################
$customer = "0";  #Á¤½Ä±¸ÀÔÀÚ´Â 1·Î...
$copyright = "Copyright ¨Ï by Company name. All rights reserved.";  #Copyright
##############################################################################

umask(000);
$tpl_dir = $main_dir;
$id_dir = "$main_dir/id";
$cgiskin_dir = "$main_dir/skin";
$img_dir = "$main_dir/img";
#&chk_addr($ENV{'HTTP_REFERER'});
&chk_ip;
&parseArgument;

if ($FORM{'id'} !~ /\./ ) {
	&selectAction; 
} else {
	print "Content-type: text/html\n\n";
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-KR\">\n";
	print "<html><head><title>ERROR!!!</title>\n";
	print "<body bgcolor=white>\n";
	print "<br><br><br><br><center><h1><font color=red>Á¢±Ù±ÝÁö<h1></font></center>";
	print "</body>\n";
	print "</html>\n";
	exit;
}
# ¹«´Ü¸µÅ© ¹æÁö üŷÇÔ¼öÀÔ´Ï´Ù.  
# »ç¿ëÇϱâ À§Çؼ­´Â 32°ÁÙÀÇ &chk_addr ¾ÕÀÇ #À» ¾ø¾Ö ÁÖ¾î¾ß ÇÔ.
# ¾Æ·¡ sub chk_addr {} ÇÔ¼öÀÇ #µµ ¾ø¾Ö¾ß ÇÔ.
#
# »ç¿ë¹ý: spboardµð·ºÅ丮 ¹ØÀÇ idµð·ºÅ丮¾È¿¡ ok_addr.cgiÆÄÀÏÀ» ¸¸µé°í
# ±×°÷¿¡ ¸µÅ©°¡´ÉÇÑ URLÀ̳ª ip¸¦ ÇÑÁÙ¿¡ Çϳª¾¿ Àû¾îÁÖ½Ã¸é µË´Ï´Ù.
#
#sub chk_addr{
#	my($http_referer, @referer, $ok_addr, @ref_data, $success_cnt);
#	$http_referer = shift;
#	if($http_referer){
#		@referer = split(/\//, $http_referer);
#		$ok_addr = $referer[2];
#		
#		open(REF, "$id_dir/ok_addr.cgi");
#		chomp(@ref_data = <REF>);
#		close(REF);
#		
#		$success_cnt = 0;
#		foreach(@ref_data) {
#			if($ok_addr eq $_){
#				$success_cnt++;
#			}
#		}
#		&error("bad_link") if($success_cnt == 0);
#	}
#}

sub chk_ip{
	my(@ip_list);
	open (BAD_IP, "$id_dir/bad_ip.cgi");
	chomp(@ip_list = <BAD_IP>);
	close(BAD_IP);
	
	foreach (@ip_list) {
		if($ENV{'REMOTE_ADDR'} eq $_) {
			$CONF{'font_size'} = "9pt";
			$CONF{'bgcolor'} = "#FFFFFF";
			$img_url = "$img_url/skin/mori";
			&error("bad_ip");
		}
	}
}

sub parseArgument {
    my($name,$value,$content_type,$content_length,$buffer,$dump,$boundary,$line,$array_value);
    my(@pairs,@column,%CGI);

    if($ENV{'QUERY_STRING'}) {
    @pairs = split(/&/,$ENV{'QUERY_STRING'});

        foreach (@pairs) {
            ($name, $value) = split(/=/,$_);

            $value =~ tr/+/ /;
            $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
			$FORM{$name} = $value;
        } 
    }
    else {
        $content_type = $ENV{'CONTENT_TYPE'};
        $content_length = $ENV{'CONTENT_LENGTH'};

        binmode STDIN;
        read(STDIN,$buffer,$content_length);
 
        if((!$content_type) ||
           ($content_type eq 'application/x-www-form-urlencoded')) {
            @pairs = split(/&/, $buffer);

            foreach (@pairs)  {
                ($name, $value) = split(/=/,$_);
                $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);

            foreach (@pairs)  {
                ($dump,$line,$value) = split(/\r\n/,$_,3);
                if($line =~ /filename/) {
	            $real_file = $line;
                }

                next if $line =~ /filename=\"\"/;
                $line =~ s/^Content-Disposition: form-data; //;
                (@column) = split(/;\s+/, $line);
                ($name = $column[0]) =~ s/^name="([^"]+)"$/$1/g;
			
				if($#column > 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 { 
                            $array_value = $FORM{$name};
                            undef $FORM{$name};
                            $FORM{$name}[0] = $array_value;
                            push(@{$FORM{$name}}, $value);
                        }
                    }
                    else {
                        next if $value =~ /^\s*$/;
                        $FORM{$name} = $value;
                        chop($FORM{$name});
	                chop($FORM{$name});
                    }
                    next;
                }
				$FORM{$name} = $value;
			}	
        }
        else {
            print "Invalid content type!\n";
            exit(1);
        }
    }
	$main_dir = "$main_dir/id/$FORM{'id'}";
	$main_url = "$main_url/id/$FORM{'id'}";
}

sub selectAction {
	local($page, $type_url, $face_url, %CONF, @week, @quick_id, @quick_name, @lock_week);
	$page = $FORM{'page'} ? "$FORM{'page'}" : "1"; 
	
	if((-d "$main_dir") && ($FORM{'id'} ne "")) {	
		&get_env;
	
		my(@page_list, @prev, @next, $start, $prev, $next);
		local(@ary, @gr_color, $act, $list_num, $total_page);

		if($CONF{'templet'} ne  ""){
			#===========================
			# ±×¶óµ¥ÀÌ¼Ç »ý¼º...  ^.^
			#===========================
			open(TPL, "$tpl_dir/tpl/$CONF{'templet'}");
			$tpl_col = <TPL>;
			close(TPL);
			@col_list = split(/\|/,$tpl_col);

			my($r_val, $g_val, $b_val, $mr, $mg, $mb);
			$r_val = $col_list[1];
			$g_val = $col_list[2];
			$b_val = $col_list[3];

			$mr = $col_list[4];
			$mg = $col_list[5];
			$mb = $col_list[6];

			for(0..$CONF{'page_num'}+1){
				$gr_color[$_] = &color_man($r_val,$g_val,$b_val);
				if($_ eq $CONF{'page_num'}) {
					$mr *= 21; $mg *= 21; $mb *= 21;
				}
				$r_val = (($r_val - $mr) <= 0) ? 1 : int($r_val - $mr);
				$g_val = (($g_val - $mg) <= 0) ? 1 : int($g_val - $mg);
				$b_val = (($b_val - $mb) <= 0) ? 1 : int($b_val - $mb);				
			}

			$CONF{'head_color'} = $gr_color[$#gr_color];
			#$CONF{'hfont_color'} = $gr_color[0];			
			$CONF{'ncel_color'} = $gr_color[int($CONF{'page_num'}/2)];
			$CONF{'cel_color1'} = $gr_color[1];
			$CONF{'cel_color2'} = $gr_color[2];
		}

		$type_url = "$img_url/type";
		$dongury_url = "$img_url/dongury";
		$face_url = "$img_url/face";
		$img_url =($CONF{'img_skin'} ne "") ? "$img_url/skin/$CONF{'img_skin'}" : "$img_url/skin/default";
		
		$act = $FORM{'action'};
	
		if($act eq "") {
			&display;
		}
		else{
			&{$act};
		}
	}
	else{
		$CONF{'font_size'} = "9pt";
		$CONF{'bgcolor'} = "#FFFFFF";
		$img_url = "$img_url/skin/mori";

		if($FORM{'id'} eq ""){
			&error("id");
		}
		else{
			&error("no_dir");
		}
	}
}

sub cookie{
    my(@cookies);
	if($ENV{'HTTP_COOKIE'}) {
        @cookies = split(/; /,$ENV{'HTTP_COOKIE'});
        foreach(@cookies) {
			my ($name,$value) = split(/=/,$_);
			$COOKIE{$name} = $value;
        }
	}
	print "Set-Cookie: $cook=$ENV{'REMOTE_ADDR'}$FORM{'id'}$FORM{'action'}$FORM{'number'};\r\n" if($act ne "multi_view");
}

sub get_env{
    if(open(CONF,"$main_dir/conf.cgi")) {
		foreach (<CONF>){
			if (/(\w+)\s*=\s*(.*?)\s*$/){
				$CONF{$1} = $2;
		    }
		}
        close(CONF);
	#=======================================
	#      ¾÷±×·¹À̵åÀÚ¸¦ À§ÇÏ¿©... ^.^
	#=======================================
		$CONF{'link_color'} ||= "#283FCF";
		$CONF{'find_interval'} ||= 1000;
		$CONF{'skin'} ||= "";
	#=======================================	
		
		@quick_id = split(/\|/,$CONF{'quick_id'});
		@quick_name = split(/\|/,$CONF{'quick_name'});
		@lock_week = split(/\|/, $CONF{'lock_week'});
	}
    else {
		mkdir("$main_dir/data",0777);
        mkdir("$main_dir/files",0777);
		mkdir("$main_dir/idx",0777);
        $CONF{'admin_pwd'} = "1234";
		$CONF{'admin_only'} = "no";
		$CONF{'page_num'} = "10";
        $CONF{'max_data'} = "100000";
        $CONF{'sendmail_ok'} = "yes";
        $CONF{'admin_sender'} = "no";
        $CONF{'admin_mail'} = "your\@email.net";
		$CONF{'home_url'} = "http://yourhome.net";
        $CONF{'tbl_width'} = "90%";
        $CONF{'admin_name'} = "ÁÖÀÎÀå";
		$CONF{'font_color'} = "#000000";
		$CONF{'link_color'} = "#283FCF";
		$CONF{'ncel_color'} = "#C3D6E7";
        $CONF{'head_color'} = "#2962D5";
		$CONF{'hfont_color'} = "#ffffff";
		$CONF{'cel_color1'} = "#FAFCFD";
		$CONF{'cel_color2'} = "#EDF4FA";
		$CONF{'select_color'}= "#C3D6E7";
		$CONF{'num_color'} = "#1504B9";
        $CONF{'date_color'} = "#FF6666";
        $CONF{'read_color'} = "#0A5818";
		$CONF{'down_color'} = "#283FCF";
		$CONF{'over_color'} = "#E9E9E9";
		$CONF{'bgcolor'} = "#ffffff";
		$CONF{'background'} = "";
		$CONF{'logo_txt'} = "Ȱ¦~ ¿­¸° °Ô½ÃÆÇ ^.^";
		$CONF{'logo_img'} = "";
		$CONF{'sub_length'} = "47";
		$CONF{'name_length'} = "10";	
		$CONF{'line_length'} = "1";
		$CONF{'view_ip'} = "yes";
		$CONF{'pds_ok'} = "no";
		$CONF{'max_size'} = "4.5";
		$CONF{'down_view'} = "no";
		$CONF{'kind_view'} = "yes";
		$CONF{'etc_ok'} = "no";
		$CONF{'scr_opt'} = "no";
		$CONF{'img_skin'} = "mori";
		$CONF{'skin'} = "";
		$CONF{'point_ok'} = "no";
		$CONF{'font_kind'} = "µ¸¿ò";
		$CONF{'font_size'} = "9pt";
		$CONF{'left_right'} = "center";
		$CONF{'search_ok'} = "yes";
		$CONF{'find_interval'} = "1000";
		$CONF{'pnt_cnt'} = "10";
		$CONF{'i_opt'} = "no";
		$CONF{'speed_up'} = "yes";
		$CONF{'templet'} = "ocean_blue.txt";
		$CONF{'dgr_ok'} = "no";
		$CONF{'quick_id'} = "|"x7;
		$CONF{'quick_name'} = "|"x7;
		$CONF{'lock_week'} = "|"x7;
		&save_env;
	}
}

sub save_env { 
	$CONF{'admin_pwd'} = crypt($CONF{'admin_pwd'},"sp");
	open(CONF,">$main_dir/conf.cgi");
	foreach (sort keys %CONF) {
		print CONF "$_ = $CONF{$_}\n";
	}
	close(CONF);
}

#--------------------------------------------------------------
# °Ô½ÃÆÇ ¸®½ºÆ® Ãâ·Â ^.^ - ¸ÞÀÎÈ­¸é µðÀÚÀÎ ¼öÁ¤Àº ÀÌ°÷¿¡¼­...
#--------------------------------------------------------------

sub print_list{
	if($CONF{'skin'} ne ""){
		require "./skin/$CONF{'skin'}";
		&main_face;
	}
	else{
		my($d, $color_val, $up_td, $bsk_td, $io_td, $zero_col, $search_option, $view_option);
		local($down_col, $pnt_col, $pre_pg, $next_pg);
		$down_col="<td align=center><font color=$CONF{'hfont_color'}>´Ù¿î</font></td>" if($CONF{'down_view'} eq "yes");
		$pnt_col="<td width=27 align=center><font color=$CONF{'hfont_color'}>̵̧</font></td>" if($CONF{'point_ok'} eq "yes");

	#	$scount = (($page-1)*$CONF{'page_num'});
	#	$icount = 0;
		$d = 0; 
		$pre_pg= $page - 1;
		$next_pg = $page + 1;
		&Fhead("POST","$cgi_url");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","action","multi_view");
		print &Input("hidden","page","$page");
		if($act eq "search"){
			print &Input("hidden","category","$FORM{'category'}");
			print &Input("hidden","keyword","$FORM{'keyword'}");
			print &Input("hidden","start_num","$FORM{'start_num'}");
		}
		&top_btn;
		&Thead("100%","","0","0");
		$color_val = $CONF{'head_color'} ? "bgcolor=$CONF{'head_color'}": "";
		print "<tr><td $color_val height=2><img src=$img_url/zero.gif width=0 height=2 border=0></td></tr>\n";
		&Tfoot;
		$up_td = ($CONF{'kind_view'} eq "yes")? "<td>&nbsp;</td> " : "";
		$bsk_td = "<td width=22 align=center><input type=image name=mv value=ok src=$img_url/bsk.gif border=0 width=15 height=13 alt=\"¿©·¯±Û ÇѲ¨¹ø¿¡ º¸±â\"></td>";
		$io_td = ($CONF{'i_opt'} eq "yes") ? "<td width=34 align=center><font color=$CONF{'hfont_color'}><b>¨Õ</b></td>" : "";
		if($page eq $total_page){
			print "<input type=hidden name=total_val value=ok>";
		}
		&Thead("100%","","1","0");
		print "<tr $color_val align=center>$bsk_td<td align=left><font color=$CONF{'hfont_color'}><b>¨Ú</b></font></td>$up_td<td align=center><font color=$CONF{'hfont_color'}>±Û Á¦ ¸ñ</font></td><td align=center><font color=$CONF{'hfont_color'}>ÀÛ¼ºÀÚ</font></td>$io_td<td align=center width=47><font color=$CONF{'hfont_color'}>ÀÛ¼ºÀÏ</font></td><td align=center><font color=$CONF{'hfont_color'}>Á¶È¸</font></td>$down_col $pnt_col</tr>\n";
		&read_notice if(($page eq "1") && ($FORM{'category'} eq ""));
		if($cou eq "0" || (($page eq "1") && ($ary[0] eq ""))){
			$zero_col = "7";
			if($CONF{'down_view'} eq "yes"){
				$zero_col++;
			}				
			if($CONF{'point_ok'} eq "yes"){
				$zero_col++;
			}
			if($CONF{'i_opt'} eq "yes"){
				$zero_col++;
			}
			my($no_msg) = ("$FORM{'category'}") ? "^.^ ãÀ¸½Ã´Â ±ÛÀÌ ¾ø¾î¿ä!" : "^.^ µî·ÏµÈ ±ÛÀÌ ¾ø½À´Ï´Ù. ^.^";
			my($over_msg) = &over("$no_msg");
			my($color_val) = ($CONF{'cel_color1'}) ? "bgcolor=$CONF{'cel_color1'}" : "";
			print "<tr $color_val $over_msg><td align=center colspan=$zero_col><font size=-1 color=red>$no_msg</font></td></tr>\n";
		}
		else{
			my($start, $end, $no_data);
			$start = $CONF{'page_num'}*($page - 1);
			$end = $start + $CONF{'page_num'} - 1;
			$no_data = $list_num - (($page-1)*$CONF{'page_num'});

			my($chk_num) = 0;
			my(@gubun, @open, $open_val, $eval, $num, $read_num, $down_num, $man_cnt, $pnt_val, $e_val, $pnt_gif, $pnt_img);
			local(@down_data, $file_name, $file_size, $type);
			for($start..$end) {
				last if($ary[$_] eq "");
				$num = $ary[$_];
				#$icount++;
				#if($icount > $scount) {
					open(FILE,"$main_dir/data/$num");
					local @data = <FILE>;
					close (FILE);
					&file_type;

					open(NUM, "$main_dir/num/$num");
					$num_data = <NUM>;
					close(NUM);
					@gubun = split(/\|/,"$num_data");
					my($read_num) = $gubun[1];
					my($down_num) = $gubun[2];
					if($CONF{'point_ok'} eq "yes"){
						$man_cnt = $gubun[3] ? "$gubun[3]" : "0";
						$pnt_val = $gubun[4] ? "$gubun[4]" : "0";
						$e_val = $man_cnt ? ($pnt_val/$man_cnt) : "0"; 
						$e_val = ($e_val eq "100")? 100 : substr($e_val,0,2);
						if(($e_val > 90) && ($e_val <= 100)){
							$pnt_gif = "100.gif";
						}
						elsif(($e_val > 70) && ($e_val <= 90)){
							$pnt_gif = "80.gif";					
						}
						elsif(($e_val > 50) && ($e_val <= 70)){
							$pnt_gif = "60.gif";			
						}
						elsif(($e_val > 30) && ($e_val <= 50)){
							$pnt_gif = "40.gif";					
						}
						elsif(($e_val > 10) && ($e_val <= 30)){
							$pnt_gif = "20.gif";			
						}
						else{
							$pnt_gif = "0.gif";	
						}
						$pnt_gif = "gray/$pnt_gif" if($man_cnt < $CONF{'pnt_cnt'}); 
						$pnt_img = "<img src=$face_url/$pnt_gif alt=\"ÃßõÀμö [$man_cnt¸í] Æò±ÕÁ¡¼ö [$e_valÁ¡] ÃÑÁ¡¼ö[$pnt_valÁ¡]\" width=16 height=16>";	

					}
					$read_num = $read_num ? "$read_num" : "0";
		#------------------------------------------------------------------------------
					my(@push, $rotate, $w_name, $home_img, $rdate, $gul_icon, $subject, $x_num, $gul_sub, $kword, $mailto, $mail_img, $read_val);
					local(@list, $tr_color);
					$d++;
					if($CONF{'templet'} ne ""){
						$tr_color = $gr_color[$d-1];
					}
					else{
						$rotate = $d%2;
						$tr_color = ($rotate eq "0") ? "$CONF{'cel_color2'}" : "$CONF{'cel_color1'}";
					}
					
					@list = split(/\|/, $data[1]);
					@open = split(/\|/, $data[4]);
					$open_val = $open[2];
					if(($down_data[5] eq "") && ($down_data[4] eq "")) {
						$file_icon = "<img src=$type_url/text.gif width=16 height=16 border=0 alt=\"¿·¿¡ µ¿±×¶õ ¾ÆÀÌÄÜÀ̳ª È­»ìÇ¥¸¦ Ŭ¸¯ÇϽøé ÀÛÀºÃ¢º¸±â°¡ µË´Ï´Ù.\"> ";
						$down_num = "*";
						$img_ok = "no";
					}
					else{
						$type = &file_icon("$type");
						$img_ok = (($type eq "gif.gif") || ($type eq "jpg.gif") || ($type eq "jpeg.gif")) ? "ok" : "no";
						$file_icon = ($open_val ne "no") ? "<a href=\"$cgi_url?id=$FORM{'id'}&number=$num&file=$f_name&action=down_file\"><img src=$type_url/$type width=16 height=16 border=0 alt=\"$file_name($file_size) ´Ù¿î¹Þ±â\"></a> " : "<img src=$type_url/$type alt=\"ÀÌÆÄÀÏÀº ºñ°ø°³ ÆÄÀÏÀÔ´Ï´Ù...\" border=0 width=16 height=16>";
						$down_num = $down_num ? "$down_num" : "0";
					}
					$w_name = &cut_len("$list[0]","$CONF{'name_length'}");
					$home_img = $list[2] ? "<a href=\"$list[2]\" target=_blank><img src=$img_url/home.gif width=10 height=10 border=0 alt=\"$list[0]´Ô Áý¿¡ ³î·¯°¡±â\"></a>": "<img src=$img_url/gray_home.gif width=10 height=10 width=10 height=10 border=0>";
					$rdate=substr($list[4],5,5);
					if(-M "$main_dir/data/$num" < 1.0) {
						$gul_icon = ($num =~/-/) ? "newans.gif" : "newgul.gif";
						$gul_icon = "new_lock.gif" if($open_val eq "no");
					} 
					else{ 
						$gul_icon = ($num =~/-/) ? "ans.gif" : "gul.gif";
						$gul_icon = "lock.gif" if($open_val eq "no");
					}  
					
					$subject = "<img src=$img_url/$gul_icon border=0  alt=\"Simple view\"> ";
					
					@push = split(/-/,$num);
					shift(@push);
					#---------------------------------------------------[ Á¦¸ñ±Û ±æÀÌ Á¦ÇÑ ]
					$x_num = @push;
					$gul_sub = &cut_len("$list[3]", "$CONF{'sub_length'}");
					$x_num *=17;
					#---------------------------------------------------
					#---------------------------------------------------[°£´ÜÀÇ°ß °¹¼öÁ¶È¸]
					if((-e "$main_dir/etc/$num") && ($CONF{'etc_ok'} eq "yes")){
						open(ETC, "$main_dir/etc/$num");	
						my @etc = grep(!/^\s/, <ETC>);
						close(ETC);
						my $etc_num = $#etc+1;
						$gul_sub .= (-M "$main_dir/etc/$num" < 1.0) ? " <font size=1 face=Tahoma color=$CONF{'date_color'}>[$etc_num]</font>" : " <font size=1 face=Tahoma>[$etc_num]</font>" if($etc_num > 0);	
					}
					#---------------------------------------------------
					#---------------------------------------------------[°Ë»ö½Ã °Ë»ö¾î ±¸º°]
					if($act eq "search"){
						$kword = "$FORM{'keyword'}";
						$gul_sub =~ s/$kword/<B><FONT COLOR=$CONF{'date_color'}>$kword<\/font><\/b>/g if(($FORM{'category'} eq "subject") || ($FORM{'category'} eq "sub_cmt"));
						$w_name =~ s/$kword/<B><FONT COLOR=$CONF{'date_color'}>$kword<\/font><\/b>/g if($FORM{'category'} eq "name");
					}
					#--------------------------------------------------------------------------------

					if($list[1]) { 
						if($NT eq "1"){
							$mailto = "<a href=mailto:$list[1]><font color=$CONF{'font_color'}>$w_name</font></a>";
							$mail_img = "<a href=mailto:$list[1]><img src=$img_url/mail.gif width=14 height=10 border=0 alt=\"$list[0]´Ô¿¡°Ô ÆíÁö¾²±â\"></a>";
						}
						else{
							$mailto = "<a href=\"javascript:newin(400, 267, 'sendmail.cgi?name=$list[0]&mail=$list[1]&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')\"><font color=$CONF{'font_color'}>$w_name</font></a>";
							$mail_img = "<a href=\"javascript:newin(400, 267, 'sendmail.cgi?name=$list[0]&mail=$list[1]&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')\"><img src=$img_url/mail.gif width=14 height=10 border=0 alt=\"$list[0]´Ô¿¡°Ô ÆíÁö¾²±â\"></a>";
						}
					}
					else {
						$mailto = "<font color=$CONF{'font_color'}>$w_name</font>";
						$mail_img= "<img src=$img_url/gray_mail.gif width=14 height=10 width=14 height=10 border=0>";
					}   
					my($icon_td, $num_col, $pnt_kind, $m_subject, $mh_td, $chk_td, $over_msg, $color_val);
					$icon_td = ($CONF{'kind_view'} eq "yes") ? "<td width=16 align=center>$file_icon</td>" : "";
					$num_col = "<td align=center><font color=$CONF{'down_color'}><b>$down_num</b></font></td>" if($CONF{'down_view'} eq "yes");
					$pnt_kind = "<td align=center>$pnt_img</td>" if($CONF{'point_ok'} eq "yes");
					
					if(($num eq $FORM{'number'}) && ($act ne "modify_ok") && ($act ne "multi_view")){
						$m_subject = "$subject <u><b>$gul_sub</b></u>\n";
						$tr_color = $CONF{'select_color'};
					}
					else{
						$search_option = "&category=$FORM{'category'}&keyword=$FORM{'keyword'}&start_num=$FORM{'start_num'}" if($FORM{'category'} ne "");
						$m_subject = "<a href=\"javascript:newin(580, 400, '$cgi_url?id=$FORM{'id'}&page=$page&action=view&number=$num&simple=yes$search_option','simple_view')\"> $subject</a> <a href=$cgi_url?id=$FORM{'id'}&page=$page&action=view&number=$num&img=$img_ok$search_option><font color=$CONF{'font_color'}>$gul_sub</font></a>\n";
						
						#¿©·¯±Û º¸±â¿¡¼­ ÀаíÀÖ´Â±Û ¼±ÅûöÀ¸·Î µÇ°Ô... ^.^
						if($act eq "multi_view"){
							for(0..$#view_num){
								if($view_num[$_] eq "$num"){
									$tr_color = $CONF{'select_color'};
									last;
								}
							}
						}				
					}

					$mh_td = "<td align=center>$mail_img $home_img</td>" if($CONF{'i_opt'} eq "yes");
					$chk_td = "<td align=center><input type=checkbox name=num_val$chk_num value=$num></td>";
					$over_msg = &over(" ¢¹¢¹ $no_data ¹ø ±Û Àбâ ^.^&nbsp");
					$color_val = ($tr_color) ? "bgcolor=$tr_color" : "";
					print "<tr $color_val $over_msg>$chk_td<td><font color=$CONF{'num_color'}>$no_data</td>$icon_td<td><img src=$img_url/zero.gif height=10 width=$x_num> $m_subject</font></td><td align=center>$mailto</td>$mh_td<td align=center><font color=$CONF{'date_color'}>$rdate</font></td><td align=center><font color=$CONF{'read_color'}>$read_num</font></td>$num_col $pnt_kind</tr>\n";
					$chk_num++;
				#}
				$no_data--;
				#last if($d >= $CONF{'page_num'});
				$chk_total_num = $chk_num;
			}
		}
		
		$zero_col = "6";
		if($CONF{'down_view'} eq "yes"){
			$zero_col++;
		}				
		if($CONF{'point_ok'} eq "yes"){
			$zero_col++;
		}
		if($CONF{'i_opt'} eq "yes"){
			$zero_col++;
		}
		if($CONF{'kind_view'} eq "yes"){
			$zero_col++;
		}

		$zero_col -= 2;
		print "<tr><td align=center width=22 background=$img_url/spot.gif><img src=$img_url/zero.gif></td><td colspan=$zero_col  background=$img_url/spot.gif><img src=$img_url/zero.gif></td><td  background=$img_url/spot.gif><img src=$img_url/zero.gif></td></tr>\n";
	#	print "<tr><td align=center width=22><input type=image src=$img_url/chk_del.gif border=0 width=15 height=13 alt=\"üũµÈ Ç׸ñ »èÁ¦\"></td><td colspan=$zero_col>";
		print "<script type='text/javascript'>";
		print "     var checkbox = false; ";
		print "     function allDelCheckbox() { ";
		print "          var i; ";
		print "          if(checkbox) { ";
		print "               for(i=0; i<$chk_total_num; i++) document.getElementById('num_val'+i).checked = false; ";
		print "               checkbox = false; ";
		print "          } else { ";
		print "               for(i=0; i<$chk_total_num; i++) document.getElementById('num_val'+i).checked = true; ";
		print "               checkbox = true; ";
		print "          } ";
		print "      } ";
		print " </script> ";
		print "<tr><td align=center width=22><input type=image src=$img_url/chk_del.gif border=0 width=15 height=13 alt=\"üũµÈ Ç׸ñ »èÁ¦\">";
		print "</td><td colspan=$zero_col>";
		print "<input type='checkbox' name='allDelCheck' value='checkbox' onclick='allDelCheckbox();'>";
	}

	# ½ºÅ² ³¡... ^^
	&pagemove;
	$search_option .= "&action=search" if($act eq "search");
	$view_option = "&action=view&number=$FORM{'number'}&img=$FORM{'img'}" if($act eq "view");
	print  "</td><td align=right><a href=$cgi_url?id=$FORM{'id'}&page=$page$search_option$view_option><img src=$img_url/zero.gif border=0 width=15 height=13 alt=\"reload\"></td></tr>\n";
	&Tfoot;	
	&Ffoot;
	print "<br>\n";
}
# sub print_list{} ³¡ ---------------------------------------------

sub over{
	my($msg) = $_[0];
	return "onMouseOver=\"this.style.backgroundColor='$CONF{'over_color'}';window.status=('$msg');return true;\" onMouseOut=\"this.style.backgroundColor='$tr_color'; window.status=('');return true;\"";
}

sub display {
	if((-e "$main_dir/idx/$page.cgi") && ($FORM{'category'} eq "")){
		open(NUM, "$main_dir/idx/num.cgi");
		$list_num = <NUM>;
		close(NUM);
		if($list_num eq "0" || $list_num eq ""){  #------------------ ±Û»èÁ¦½Ã °Ô½ÃÆÇ¿¡ ±ÛÀÌ Çϳªµµ ³²Áö ¾Ê¾ÆÀ» °æ¿ì...
			&read_idx;
			$list_num = @ary;
			$total_page = int($list_num/$CONF{'page_num'});
			if(($total_page*$CONF{'page_num'}) < $list_num) {$total_page += 1;}
		}
		else{
			$total_page = int($list_num/$CONF{'page_num'});
			if(($total_page*$CONF{'page_num'}) < $list_num) {$total_page += 1;}
		
			open(PAGE, "$main_dir/idx/$page.cgi");
			@page_list = <PAGE>;
			close(PAGE);
			if($page_list[0] eq "\n"){ #---------- ¸Ç¸¶Áö¸· ÆäÀÌÁö¿¡¼­ ±Û »èÁ¦½Ã ±× ÆäÀÌÁö¿¡ ±ÛÀÌ Çϳªµµ ¾øÀ»°æ¿ì...
				$page=$page - 1;
				open(PAGE, "$main_dir/idx/$page.cgi");
				@page_list = <PAGE>;
				close(PAGE);
			}
			$start =($page-1)*$CONF{'page_num'};
			for(1..$CONF{'page_num'}){
				chomp($ary[$start+$_-1] = $page_list[$_-1]);
				if($page_list[$_] eq "\n"){
					last;
				}
			}

			if($page ne "1"){
				$prev = $page - 1;
				open(PREV,"$main_dir/idx/$prev.cgi");
				@prev = <PREV>;	
				close(PREV);
				chomp($ary[$prev*$CONF{'page_num'} - 1] = $prev[$#prev]);
			}
			if($page ne "$total_page"){
				$next = $page + 1;
				open(NEXT,"$main_dir/idx/$next.cgi");
				@next = <NEXT>;
				close(NEXT);
				chomp($ary[$page*$CONF{'page_num'}] = $next[0]);
			}
		}
	}
	else{
	#------------------------------------------- À妽º ÆÄÀÏ ÀÌ¿ë
		&read_idx;
		$list_num = @ary;
		$total_page = int($list_num/$CONF{'page_num'});
		if(($total_page*$CONF{'page_num'}) < $list_num) {$total_page += 1; }
		$page = $total_page if("$FORM{'total_val'}");
	}
	#---------------------------------------------------------
	$total_page = 1 if($total_page == 0);
	
	my($next_num, $prev_num, $prev_page, $next_page, $category, $keyword, $start_num, $simple);

	if(($act eq "view") || ($act eq "etc_write") || ($act eq "etcdel_ok")){
		unless($FORM{'category'} eq ""){
			for(0..$list_num){
				if($FORM{'number'} eq $ary[$_]){
					$next_num = $ary[$_-1];
					$prev_num = $ary[$_+1];
					last;
				}
			}
		}
		else{
			for(($page-1)*$CONF{'page_num'}..$page*$CONF{'page_num'}-1){
				if($FORM{'number'} eq $ary[$_]){
					$next_num = $ary[$_-1];
					$prev_num = $ary[$_+1];
					last;
				}
			}
		}

		$category = $FORM{'category'} ? "&category=$FORM{'category'}" : "";
		$keyword = $FORM{'keyword'} ? "&keyword=$FORM{'keyword'}" : "";
		$start_num = $FORM{'start_num'} ? "&start_num=$FORM{'start_num'}" : "";
		$simple = $FORM{'simple'} ? "&simple=yes" : "";

		$prev_page = (($ary[($page-1)*$CONF{'page_num'}-1] eq "$next_num") && ($category eq "")) ? ($page -1) : "$page" ;
		$next_page = (($ary[$page*$CONF{'page_num'}] eq "$prev_num") && ($category eq "")) ? ($page + 1) : "$page";
		
		my(@ndata, @nline, @pdata, @pline, $next_data, $prev_data);

		open(NEXT, "$main_dir/data/$next_num");
		@ndata = <NEXT>;
		@nline = split(/\|/,$ndata[1]);
		$nline[3] = &cut_len("$nline[3]","$CONF{'sub_length'}");
		$next_data = " <a href=$cgi_url?id=$FORM{'id'}&page=$prev_page&action=view&number=$next_num$category$keyword$start_num$simple><font color=$CONF{'font_color'}>¡ã $nline[3] - $nline[0]</font></a>";
		close (NEXT);

		open(PREV, "$main_dir/data/$prev_num");
		@pdata = <PREV>;
		@pline = split(/\|/,$pdata[1]);
		$pline[3] = &cut_len("$pline[3]","$CONF{'sub_length'}");
		$prev_data = " <a href=$cgi_url?id=$FORM{'id'}&page=$next_page&action=view&number=$prev_num$category$keyword$start_num$simple><font color=$CONF{'font_color'}>¡å $pline[3] - $pline[0]</font></a>";
		close (PREV);
	
		&Thead("100%","","3","0");
		print "<tr><td>\n";
		print " &nbsp; &nbsp; $next_data<br>" if($FORM{'number'} ne $ary[0]);
		print " &nbsp; &nbsp; $prev_data" if($FORM{'number'} ne $ary[$list_num-1]);
		print "</td></tr>";
		&Tfoot;
		print "<br>\n";
	}
	elsif($act eq "multi_view"){
	}
	else{
		&head;
	}

	if(($FORM{'category'} eq "") && ($FORM{'simple'} ne "yes")){
		if(@quick_id){
			&quick_btn;
		}
		&print_list;
		&find if($CONF{'search_ok'} eq "yes");
	}
	&foot;
}

sub down_file {
	my($t_file);
	&plus_num;
	if(($FORM{'file'}=~ /http:\/\/.+/) || ($FORM{'file'}=~ /ftp:\/\/.+/)){
		print "Location:$FORM{'file'}\n\n";
	}
	else {
		#cgiÆÄÀÏÀ̳ª À̹ÌÁö ÆÄÀÏÀÇ ´Ù¿î·Îµå ±¸ÇöÀ» À§ÇÏ¿©...	
		($t_file = $FORM{'file'}) =~ s{^.+/(.+)$}{$1}g;
		print "Content-type: application/octet-stream\n";
		print "Content-disposition: attachment; filename=$t_file\n";
		print "Content-Transfer-Encoding: binary\n\n";

		open( DOWN, "$main_dir/files/$FORM{'file'}" );
		binmode DOWN;
		binmode STDOUT;
		binmode STDERR;
		print <DOWN>;
		close DOWN;
	}	
	exit;
}

sub plus_num{
	my(@num_gubun, $number_data, $ans_number);
	open(NUM, "$main_dir/num/$FORM{'number'}");
	$number_data = <NUM>;
	close(NUM);
	@num_gubun = split(/\|/,"$number_data");
	$ans_number = $num_gubun[0];
	$read_number = $num_gubun[1];
	$down_number = $num_gubun[2];
	$man_cnt = $num_gubun[3] ? "$num_gubun[3]" : "0";
	$pnt_val = $num_gubun[4] ? "$num_gubun[4]" : "0";
	$e_val = $man_cnt ? ($pnt_val/$man_cnt) : "0"; 
	if($e_val > 90 && $e_val <= 100){
		$face_val = "<img src=$face_url/100.gif width=16 height=16 alt=\"¿ì¿Õ~ ÁÁ´Ù!!!\">";
	}
	elsif($e_val > 70 && $e_val <= 90){
		$face_val = "<img src=$face_url/80.gif width=16 height=16 alt=\"À½~ ±¦Âú±º...\">";	
	}
	elsif($e_val > 50 && $e_val <= 70){
		$face_val = "<img src=$face_url/60.gif width=16 height=16 alt=\"ÂָŠÁÁ³×~\">";	
	}
	elsif($e_val > 30 && $e_val <= 50){
		$face_val = "<img src=$face_url/40.gif width=16 height=16 alt=\"À½~ º°·ç´Ù~\">";	
	}
	elsif($e_val > 10 && $e_val <= 30){
		$face_val = "<img src=$face_url/20.gif width=16 height=16 alt=\"ÀÌ°Ô ¹¹¾ß~\">";	
	}
	else{
		$face_val = "<img src=$face_url/0.gif width=16 height=16 alt=\"ÃßõÁ» ÇØÁàÀ¯~\">";	
	}
	$e_val = ($e_val eq "100")? 100 : substr($e_val,0,2);
	mkdir("$main_dir/num",0777) unless(-e "$main_dir/num");
	if($FORM{'cnt'} ne "no"){
		$cook = "$FORM{'id'}$FORM{'action'}$FORM{'number'}";
		&cookie;
		if($COOKIE{$cook} ne "$ENV{'REMOTE_ADDR'}$cook"){	
			$read_number++ if(($act eq "view") || ($act eq "multi_view"));
			$down_number++ if($act eq "down_file");
		}
		&lock if($CONF{'speed_up'} eq "no");
		open(NFI,">$main_dir/num/$FORM{'number'}"); 
		print NFI "$ans_number|$read_number|$down_number|$man_cnt|$pnt_val|";
		close(NFI);
		&unlock if($CONF{'speed_up'} eq "no");
	}
}

sub file_type{
	my(@name_data, @cgi, @file_type, $n_num);
	#-------------------------------------- [ ÆÄÀÏÁ¾·ù ¾ÆÀÌÄÜ ]---------------------------
	@down_data = split(/\|/,$data[5]);
	$file_name = "$down_data[5]";
	if($down_data[4] ne ""){
		@name_data = split(/\//,$down_data[4]);
		$n_num = @name_data - 1;
		if($name_data[$n_num] =~/\?/){
			@cgi = split(/\?/,"$name_data[$n_num]");
			$file_name = $cgi[1];
		}
		else{
			$file_name = "$name_data[$n_num]";
		}
		$f_name = "$down_data[4]";
		$file_size = "¸µÅ©ÆÄÀÏ";
	}
	else{
		$f_name = $file_name;
		$file_size = "$down_data[6]";
	}
	@file_type = split(/\./,$file_name);
	$type = $file_type[$#file_type];
	$type = "cgi" if(($NT && ($file_type[$#file_type] eq "txt") && (($file_type[$#file_type-1] eq "cgi") || ($file_type[$#file_type-1] eq "pl") || ($file_type[$#file_type-1] eq "asp"))) || (($file_type[$#file_type] eq "txt") && (($file_type[$#file_type-1] =~ "php"))));
}

sub file_icon{ # ¾ÆÀÌÄÜ À̸§ ÃßÃâ ÇÔ¼ö... ^.^ ¿øÇϽô Á¾·ù¸¦ Ãß°¡ÇÏ½Ã¸é µË´Ï´Ù...
	my(@icon, @quick_img);
	my($type, $type_ok);
	$type = $_[0];
	$type_ok = "0";
	@icon = qw(unknown comp img exe cgi ra html mpeg);
	@1 = qw(rar arj ace tar gz lzh tgz iso);  #comp.gif ¾ÐÃàÆÄÀÏ
	@2 = qw(pcx png tif psd ico);     #img.gif ±×¸²ÆÄÀÏ
	@3 = qw(bat com);             #exe.gif ½ÇÇàÆÄÀÏ
	@4 = qw(asp pl pm php php3 php4);           #cgi.gif ¹®¼­ÆÄÀÏ
	@5 = qw(ram);                 #ra.gif ¸®¾ó¿Àµð¿À
	@6 = qw(shtml swf fla css);   #htm.gif html ÆÄÀÏ 
	@7 = qw(mpg mov avi rm asx asf wma); #mpeg.gif µ¿¿µ»óÆÄÀÏ

	@quick_img = qw(zip hwp mp3 htm html ra wav mid gif jpg jpeg bmp exe cgi doc ppt xls mpeg txt pdf);  
	#quick_img¿¡´Â °¡Àå ¸¹ÀÌ »ç¿ëÇÏ´Â È®ÀåÀÚ À̹ÌÁö¸¦ typeµð·º¿¡ ³ÖÀ¸½Ã°í ¹è¿­¿¡ Ãß°¡½ÃÅ°¼Å¸é µË´Ï´Ù...
	
	for(0..$#quick_img){
		if(lc($type) eq "$quick_img[$_]"){
			$type = "$quick_img[$_].gif";
			$type_ok = "1";
			last;
		}
	}
	if($type_ok ne "1"){
		EXIT: for(1..$#icon){
			for $key(@$_){ 
				if(lc($type) eq $key){
					$type = "$icon[$_].gif";
					$type_ok = "1";
					last EXIT;
				}
			}
		}
	}
	if($type_ok ne "1"){
		$type = "$icon[0].gif";
	}
	return "$type";
}

sub read_notice{
	my(@gul, @notice, $subject, $comment, $wdate, $die_year, $die_mon, $die_day, $notice_td, $href);
	#========================[ °øÁö»çÇ× Ã¼Å© ]========================================
		if((-e "$main_dir/notice.cgi") && ($act ne "view")){
			open(FILE,"$main_dir/notice.cgi");
			@gul = <FILE>;
			@notice = split(/\|/,$gul[0]);
			close (FILE);
			$subject = "<b>$notice[1]</b>";
			#---------------------------------------------------[°£´ÜÀÇ°ß °¹¼öÁ¶È¸]
			if((-e "$main_dir/etc/notice.cgi") && ($CONF{'etc_ok'} eq "yes")){
				open(ETC, "$main_dir/etc/notice.cgi");	
				my @etc = grep(!/^\s/, <ETC>);
				close(ETC);
				my $etc_num = $#etc+1;
				$subject .= (-M "$main_dir/etc/notice.cgi" < 1.0) ? " <font size=1 face=Tahoma color=$CONF{'date_color'}>[$etc_num]</font>" : " <font size=1 face=Tahoma>[$etc_num]</font>" if($etc_num > 0);	
			}
			#---------------------------------------------------
			$comment = $notice[2];
			$wdate = substr($notice[3],5,5);
			($die_year, $die_mon, $die_day) = split(/:/, $notice[4]);
			open(NUM,"$main_dir/num/notice.cgi");
			$read_num = <NUM>;
			$read_num = $read_num ? "$read_num" : "0";
			close(NUM);

			&get_date;
			$notice_td = "<td align=center>^.^</td>" if($CONF{'down_view'} eq "yes");

			if($NT eq "0"){
				$href = "javascript:newin(400, 267, 'sendmail.cgi?name=$CONF{'admin_name'}&mail=$CONF{'admin_mail'}&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')";
			}
			else{
				$href = "mailto:$CONF{'admin_mail'}"; 
			}
			
			my($ad_mail, $ad_home, $ad_td, $pnt_td, $colspan, $color_val, $over_msg, $notice_line);
			$ad_mail = "<a href=\"$href\"><img src=$img_url/mail.gif width=14 height=10 border=0 alt=\"$CONF{'admin_mail'}\"></a>";
			$ad_home = "<a href=\"$CONF{'home_url'}\" target=_blank><img src=$img_url/home.gif width=10 height=10 border=0 alt=\"$CONF{'home_url'}\"></a>";
			$ad_td = "<td align=center>$ad_mail $ad_home</td>" if($CONF{'i_opt'} eq "yes");
			$pnt_td = "<td align=center><img src=$face_url/80.gif width=16 height=16 alt=\"Smile~ ^.^\"></td>" if($CONF{'point_ok'} eq "yes");
			$colspan = ($CONF{'kind_view'} eq "yes")? "colspan=4" : "colspan=3";
			$color_val = $CONF{'ncel_color'} ? "bgcolor=$CONF{'ncel_color'}" : "";
			$over_msg = &over(" ¢¹¢¹ °øÁö»çÇ× º¸±â");
			$notice_line = "<tr $color_val $over_msg><td $colspan><img src=$img_url/notice.gif> <a href=$cgi_url?id=$FORM{'id'}&action=view_notice><font color=$CONF{'font_color'}>$subject</font></a></td><td align=center>$CONF{'admin_name'}</td>$ad_td<td align=center><font color=$CONF{'date_color'}>$wdate</font></td><td align=center><font color=$CONF{'read_color'}>$read_num</font></td>$notice_td $pnt_td</tr>\n";

			if($die_year eq $year){
				if($die_day  < $mday){
					if($die_mon <= $mon){
						unlink ("$main_dir/notice.cgi") ;
						unlink ("$main_dir/num/notice.cgi");
						unlink ("$main_dir/etc/notice.cgi");
					}
					else{
						print $notice_line;
					}
				}
				else{
					if($die_mon < $mon){
						unlink ("$main_dir/notice.cgi") ;
						unlink ("$main_dir/num/notice.cgi");
						unlink ("$main_dir/etc/notice.cgi");
					}
					else{
						print $notice_line;
					}
				}
			}
			elsif($die_year > $year){
						print $notice_line;
			}
			else{
				unlink ("$main_dir/notice.cgi") ;
				unlink ("$main_dir/num/notice.cgi");
				unlink ("$main_dir/etc/notice.cgi");
			}
		}
#========================[ °øÁö»çÇ× Ã¼Å© ³¡]========================================
}

sub for_print {
	my(@gul_list, @gul_data, @cmt_data, @auto, @etc_data, $name, $mail, $mail_val, $home, $home_val, $auto_br, $auto_link, $subject, $wdate);
	open(GUL, "$main_dir/data/$FORM{'number'}");
	@gul_list = <GUL>;
	close(GUL);
	@gul_data = split(/\|/, $gul_list[1]);
	$name = $gul_data[0];
	$mail = $gul_data[1];
	$mail_val = "<br><b>ÀüÀÚ¿ìÆí</b>: $mail" if($mail);
	$home = $gul_data[2];
	$home_val = "<br><b>ȨÆäÀÌÁö</b>: $home" if($home);
	$subject= $gul_data[3];
	$wdate = $gul_data[4]; 
	@cmt_data = split(/\|/,$gul_list[2]);
	@auto = split(/\|/, $gul_list[4]);
	$auto_link = $auto[0];
	$auto_br = $auto[1];
	
	if ($cmt_data[0] ne "1") { 
        $cmt_data[1] =~ s/<br>/\r\n/g;
	    $cmt_data[1] =~ s/</&lt;/g;
        $cmt_data[1] =~ s/>/&gt;/g;
        $cmt_data[1] =~ s/"/&quot;/g;
	#   $cmt_data[1] =~ s/&lt;hr&gt;/<hr>/g;
		$cmt_data[1] =~ s/\r?\n/<br>/g;
		$cmt_data[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
	}
	else{
		$cmt_data[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
		$cmt_data[1] =~ s/&lt;br&gt;/<br>/g;
		$cmt_data[1] =~ s/&lt;p&gt;/<p>/g;
	}

	if($auto_link eq "1"){
		$cmt_data[1] =~ s/(http:\/\/)([\w\+\-\/\=\?\.\~\&]+)/<img src=$img_url\/home.gif width=10 height=10> <a href=\"$1$2\" target=\"_blank\"><font color=$CONF{'link_color'}>$1$2<\/font><\/a>/g;
		
		if($NT eq "1"){
			$cmt_data[1] =~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"mailto:$1\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;
		}
		else{
			$cmt_data[1] =~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"javascript:newin(400, 267, 'sendmail.cgi?name=$1&mail=$1&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;			
		}
	}
	$cmt_data[1] = &view_dongury("$cmt_data[1]") if($CONF{'dgr_ok'} eq "yes");

	@etc_data = split(/\|/,$gul_list[5]);
	
	my(@name_data, @cgi, @file_type, $file_name, $n_num, $type, $img_view); 
	if($etc_data[5] ne ""){
		$file_name = $etc_data[5];
	}
	else{
		@name_data = split(/\//,$etc_data[4]);
		$n_num = @name_data - 1;
		if($name_data[$n_num] =~/\?/){
			@cgi = split(/\?/,"$name_data[$n_num]");
			$file_name = $cgi[1];
		}
		else{
			$file_name = "$name_data[$n_num]";
		}
	}
	@file_type = split(/\./,$file_name);
	$type = $file_type[1];
	$type = lc($type);
	if(($type eq "gif") || ($type eq "jpg") || ($type eq "jpeg")){
		if($etc_data[4] ne ""){
			$img_view = "<p><img src=$etc_data[4]></p>";
		}
		else{
			$img_view = "<p><img src=$main_url/files/$etc_data[5]></p>";
		}
	}
	
	my($os_data) = $ENV{'HTTP_USER_AGENT'};
	$CONF{'font_size'} = "10pt"; #ÇÁ¸°Æ® ÇÒ¶§ ±ÛÀÚ Å©±â... ^^
	print "Content-type: text/html\n\n";
	print "<!---------------------------------------------------------------------------------->\n";
	print "<!-- ¡Ú Program Name - Sepal's SPBOARD v4.5                                       -->\n";
	print "<!-- ¡Ú Programer - Kim se youn (madgf\@hanmail.net, sepal\@spfamily.com)           -->\n";
	print "<!-- ¡Ú Homepage - http://sepal.woorizip.com or http://www.spfamily.com           -->\n";
	print "<!-- ¡Ú Last Modified - 2001.01.19                                                -->\n";
	print "<!--                                                         ¡Ú made in KOREA ¡Ú  -->\n";
	print "<!---------------------------------------------------------------------------------->\n\n";
	print "<html>\n";
	print "<head><title>$subject</title>\n";
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-KR\">\n";
	print "<style type='text/css'>\n";
	print "<!--\n";
	print "A:link {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:visited {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:active {color:red;text-decoration:underline;}\n";
	print "A:hover {color:#043BFF;text-decoration:underline;}\n";
	print ".ver8 {color:#000000;font-size:8pt}\n";
	print ".ver9 {color:#000000;font-size:$CONF{'font_size'}}\n";
	print "p,br,body,td,select,input,form,textarea,option {font-size:$CONF{'font_size'};font-family:$CONF{'font_kind'};}\n";
	print ".cont{line-height:140%}\n" if(($os_data =~ /MSIE/) || ($FORM{'img'} ne "ok")); #³Ý½ºÄÉÀÌÇÁ¿¡¼­ À̹ÌÁöÆÄÀÏÀ϶§ line-height ¿É¼Ç ¾ø¾Ö±â...
	print "-->\n";
	print "</style>\n";
	print "</head>\n";
	print "<body bgcolor=#ffffff>\n";
	&Thead("100%","","3","");
	print "<tr><td class=cont>\n";
	print "<font size=3 face=±¼¸²><b>Á¦¸ñ</b>: <u>$subject</u></font><p>\n";
	print "<font size=2 face=±¼¸²><b>ÀÛ¼ºÀÚ</b>: $name<br><b>ÀÛ¼ºÀÏ</b>: $wdate\n";
	print "$mail_val $home_val<p>\n";
	print "$cmt_data[1]</font>\n";
	print "$img_view\n" if($img_view);
	print "</td></tr>\n";
	&Tfoot;
	print "</body></html>\n";
	exit;
}

sub to_email{
	my($num, $fname, $fmail, $tname, $tmail, $comment, $send_it, $cls_win);
	$num = $FORM{'number'};
	$fname = &Input("text","fname","","","","19","");
	$fmail = &Input("text","fmail","","","","19","");
	$tname = &Input("text","tname","","","","19","");
	$tmail = &Input("text","tmail","","","","19","");
	$comment = &Textarea("30","3","comment","","","");
	$send_it = &Input("submit","","º¸³»±â");
	$cls_win = "<form><input type=button value=\"â´Ý±â\" onclick=\"window.close()\" style=\"background-color:#FAFAFA;border:1 solid #333333;height:20\">\n";
	print "Content-type: text/html\n\n";	
	print "<html><head><title>°Ô½Ã¹° e-mail·Î º¸³»±â</title>\n";
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-KR\">\n";
	print "<style type='text/css'>\n";
	print "<!--\n";
	print "A:link {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:visited {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:active {color:#FF3A6B;text-decoration:underline;}\n";
	print "A:hover {color:$CONF{'head_color'};text-decoration:underline;}\n";
	print ".ver8 {color:$CONF{'font_color'};font-size:8pt}\n";
	print ".ver9 {color:$CONF{'font_color'};font-size:$CONF{'font_size'}}\n";
	print "p,br,body,td,select,input,form,textarea,option {font-size:$CONF{'font_size'};font-family:$CONF{'font_kind'};}\n";
	print ".cont{line-height:140%}\n";
	print "-->\n";
	print "</style>\n";
	print "</head>\n";
	print "<body><center>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","action","send_gul");
	print &Input("hidden","number","$num");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","simple","yes");
	print "<img src=$img_url/mline.gif>\n";
	&Thead("315","","3","0",);
	print "<tr><td colspan=2 align=center>¢Ã°Ô½Ã¹° e-mail·Î º¸³»±â ¢Ã</td></tr>\n";
	print "<tr><td width=95>º¸³»´ÂÀÌ À̸§</td><td>$fname</td></tr>\n";
	print "<tr><td width=95>º¸³»´ÂÀÌ e-mail</td><td>$fmail</td></tr>\n";
	print "<tr><td width=95>¹Þ´ÂÀÌ À̸§</td><td>$tname</td></tr>\n";
	print "<tr><td width=95>¹Þ´ÂÀÌ e-mail</td><td>$tmail</td></tr>\n";	
	print "<tr><td width=95>Message</td><td>$comment</td></tr>\n";
	print "<tr><td colspan=2 align=center>\n";
	print "$send_it $cls_win\n";
	print "</td></tr>\n";
	&Tfoot;
	print "<img src=$img_url/mline.gif>\n";
	&Ffoot;
	print "</center></body></html>\n";
}

sub send_gul{
	my(@list, @sub_list, @seper, @etc_data, $name, $mail, $wmail_to, $home, $subject, $wdate, $pre_view, $file_name, $mailto, $auto_link, $auto_br);
	$mail_addr = $_[0];
	if($mail_addr ne ""){
		$FORM{'tmail'} = $mail_addr;
		$FORM{'tname'} = $CONF{'admin_name'};
		$FORM{'number'} = $_[1];
	}
	if($FORM{'tmail'} eq ""){
		&error("send");
	}
	unless($FORM{'tmail'} =~ /.*\@.*\..*/){
		&error("send");
	}
	open(GUL, "$main_dir/data/$FORM{'number'}");
	@list = <GUL>;
	close(GUL);
	
	@sub_list = split(/\|/, $list[1]);
	$name = $sub_list[0];
	$mail = $sub_list[1];
	$wmail_to = $mail ? "<a href=mailto:$mail>$name</a>" : "$name";
	$home = $sub_list[2];
	$subject = $sub_list[3];
	$wdate = $sub_list[4];
	@auto = split(/\|/, $list[4]);
	$auto_link = $auto[0];
	$auto_br = $auto[1];
	@etc_data = split(/\|/,$list[5]);
	$pre_view = $etc_data[3];
	$file_name = (($etc_data[5] eq "") && ($etc_data[4] eq ""))? "" : "$etc_data[5]";
	@seper = split(/\|/,$list[2]);
	if ($seper[0] ne "1") {
        $seper[1] =~ s/<br>/\r\n/g;
	    $seper[1] =~ s/</&lt;/g;
        $seper[1] =~ s/>/&gt;/g;
        $seper[1] =~ s/"/&quot;/g;
	#   $seper[1] =~ s/&lt;hr&gt;/<hr>/g;
		$seper[1] =~ s/\r?\n/<br>/g;
		$seper[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
	}
	else{
		$seper[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
		$seper[1] =~ s/&lt;br&gt;/<br>/g;
		$seper[1] =~ s/&lt;p&gt;/<p>/g;
	}
#	if($auto_link eq "1"){
#		$seper[1]=~ s/(http:\/\/)([\w\+\-\/\=\?\.\~\&]+)/<a href=\"$1$2\" target=\"_blank\"><font color=$CONF{'head_color'}>$1$2<\/font><\/a>/g;
#		$seper[1]=~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<a href=\"mailto:$1\"><font color=$CONF{'head_color'}>$1<\/font><\/a>/g;
#	}

	$mailto = ($FORM{'fmail'}) ? "<a href=mailto:$FORM{'fmail'}>$FORM{'fname'}</a>" : "$FORM{'fname'}";
	$FORM{'comment'} =~ s/\r\n/<br>/g;
	&get_date;
	if($mail_addr ne ""){
		$FORM{'fname'} = $sub_list[0];
		$FORM{'fmail'} = $sub_list[1];
	}
	my $to_mail = "$FORM{'tname'} <$FORM{'tmail'}>";
	my $from_mail = "$FORM{'fname'} <$FORM{'fmail'}>";
	open (MAIL, "|$sendmail -t") || die "È­ÀÏ ¿­±â ½ÇÆÐ!\n";
	print MAIL "To: $to_mail\n";
	print MAIL "From: $from_mail\n";
	print MAIL "Subject: $CONF{'logo_txt'} °Ô½Ã¹°ÀÌ ¹è´Þ µÇ¾ú½À´Ï´Ù.\n";
	print MAIL "Content-Type: text/html; charset=euc-kr\n";
	print MAIL "<style type=text/css>\n";
	print MAIL "a:link, a:visited, a:active { text-decoration:none; color:$CONF{'link_color'}; }\n";
	print MAIL "a:hover { text-decoration:underline; color:red; }\n";
	print MAIL "td  { font-size:9pt }\n";
	print MAIL ".main {font-size:9pt}\n";
	print MAIL "</style>\n";
	print MAIL "<div align=center><table width=100% cellpadding=1 cellspacing=0 bgcolor=$CONF{'head_color'}>\n";
	print MAIL "<tr><td align=center><font face=±¼¸² class=main color=$CONF{'hfont_color'}>¢Ã$subject¢Ã</font></td></tr>\n";
	print MAIL "<tr><td>\n";	
	print MAIL "<table width=100% cellpadding=3 cellspacing=0 bgcolor=#ffffff>\n";
	print MAIL "<tr><td bgcolor=$CONF{'cel_color1'}><font face=±¼¸² class=main color=$CONF{'font_color'}>\n";
	print MAIL "º¸³½ ³¯Â¥: $date<br>\n";
	print MAIL "º¸³½ »ç¶÷:$mailto<br>\n" if($mailto);
	print MAIL "Message: $FORM{'comment'}\n" if($FORM{'comment'});
	print MAIL "</font></td></tr>\n";	
	print MAIL "<tr><td bgcolor=$CONF{'cel_color1'}>\n";		
	print MAIL "<font face=±¼¸² class=main color=$CONF{'font_color'}>\n";
	print MAIL "°Ô½ÃÆÇ DB¸í: $FORM{'id'}<br>\n";	
	print MAIL "ÀÛ¼ºÀÚ: $wmail_to<br>\n";
	print MAIL "Ȩ URL: <a href=$home target=_blank>$home</a><br>\n" if($home);
	print MAIL "Á¦¸ñ:$subject<br>\n";		
	print MAIL "<hr color=$CONF{'head_color'} size=1\">\n";
	print MAIL "<font class=ver9>$seper[1]\n";
	print MAIL "<p align=right>This message from <a href=$CONF{'home_url'} target=_blank>$CONF{'home_url'}</a>&nbsp; &nbsp; </p></font>\n";
    print MAIL "</font></td></tr>\n";
	print MAIL "</table>\n";
	print MAIL "</td></tr>\n";	
	print MAIL "</table></div>\n";
	close (MAIL);
	if($mail_addr eq ""){
		local $send_end = "1";
		&load_page;
	}
}

sub view {
	my($chk_num, $dis_opt) = @_;
	my(@views, @Temp, @auto, @etc_data, @cgi, @file_type, @md, @tm, @seper, $auto_link, $auto_br, $domain, $ip, $pre_view, $file_name, $n_num, $f_name, $file_size, $type, $down_msg, $img_view, $file_down, $down_count, $w_info, $pdate,  $year, $month, $sday,  $stime, $smin, $mod_date, $homepage);
	local($read_number, $down_number, $man_cnt, $pnt_val, $e_val, $wpass, $pass);
	$FORM{'number'} = "$chk_num" if($chk_num ne "");

	open(VFILE, "$main_dir/data/$FORM{'number'}");
	@views = <VFILE>;
	close(VFILE);

	chomp($wpass = $views[0]);
	@Temp = split(/\|/, $views[1]);
	@auto = split(/\|/, $views[4]);
	$auto_link = $auto[0];
	$auto_br = $auto[1];
	$open_val = $auto[2];
	
	if($open_val eq "no"){
		if($FORM{'passwd'} eq ""){
			&open_login("$Temp[3]");
			next if($act eq "multi_view");
		}
		else{
			$pass = crypt($FORM{'passwd'},"sp");
			
			if($FORM{'number'} =~ /-/){
				my @org = split(/-/,$FORM{'number'});
				my($org_num) = $org[0];
				open(ORG, "$main_dir/data/$org_num.cgi");
				my @org_data = <ORG>;
				close(ORG);
				my @open = split(/\|/,$org_data[4]);
				my $open_ok = $open[2];
				chomp($wpass = $org_data[0]) if($open_ok eq "no"); 
			}
			
			unless(($pass eq $CONF{'admin_pwd'}) || ($pass eq $wpass)){
				&error("pass");			
			}
		}
	}
	
	unless($views[4] =~ /\|/) { #3Â÷ ¾÷±×·¹À̵å ÀÚ¸¦ À§ÇØ... ³ªÁß¿¡ »èÁ¦????
		$auto_br = "1";
		$auto_link = "1" if(chomp($views[4]) eq "1");
	}
	&plus_num;
	@etc_data = split(/\|/,$views[5]);
	$ip=$etc_data[1];
	$domain=$etc_data[2];
	if(($etc_data[5] eq "") && ($etc_data[4] eq "")) {
		$down_number = "*"; $img_view = "";	$file_down = ""; $pre_view = "";
	}
	else{
		$down_number = $down_number? "$down_number" : "0";
#-----------------------------------------	
		$file_name = "$etc_data[5]";
		if($etc_data[4] ne ""){
			@name_data = split(/\//,$etc_data[4]);
			$n_num = @name_data - 1;
			if($name_data[$n_num] =~/\?/){
				@cgi = split(/\?/,"$name_data[$n_num]");
				$file_name = $cgi[1];
			}
			else{
				$file_name = "$name_data[$n_num]";
			}
			$f_name = "$etc_data[4]";
			$file_size = "¸µÅ©ÆÄÀÏ";
		}
		else{
			$f_name = $file_name;
			$file_size = "$etc_data[6]";
		}
		@file_type = split(/\./,$file_name);
		$type = $file_type[$#file_type];
		$type = lc($type);

		if(($type eq "gif") || ($type eq "jpg") || ($type eq "jpeg")){
			$down_msg = "´Ù¿î¹ÞÀ¸½Ã·Á¸é ±×¸² À§¿¡¼­ ¸¶¿ì½º ¿À¸¥ÂÊ ¹öÆ°À» ´©¸£½ÅµÚ ´Ù¸¥À̸§À¸·Î ±×¸²ÀúÀå(ÀͽºÇ÷η¯).. Save Images As(³Ý½ºÄÉÀÌÇÁ)¸¦ ¼±ÅÃÇϼ¼¿ä...";
			if($etc_data[4] ne ""){
				$img_view = "<p align=center><img src=$etc_data[4] alt=\"$down_msg\"></p>";
			}
			else{
				$img_view = "<p align=center><img src=$main_url/files/$etc_data[5] alt=\"$down_msg\"><p>";
			}
		}
		else{ $img_view=""; }
#-------------------------------------------------	
	
	}
	$down_count = "&nbsp; ´Ù¿î¼ö [ <b>$down_number</b> ]" if($CONF{'down_view'} eq "yes");
	$w_info = (($ip ne "") && ($domain ne "") && ($CONF{'view_ip'} eq "yes"))? "<p align=right><font class=ver8 color=$CONF{'head_color'}>$ip - $domain</font>" : "<br>"; 
	$pdate = substr($Temp[4],0,10);
	@md = split(/\//,$pdate);
	$year=$md[0];
	$month=$md[1];
	$sday=$md[2];
	@tm = split(/:/,substr($Temp[4],12,5));
	$stime = $tm[0];
	if($stime <= 11){
		$stime = "¿ÀÀü $stime";
	}
	elsif($stime == 12){
		$stime = "¿ÀÈÄ $stime";
	}
	else{
		$stime -= 12;
		$stime = "¿ÀÈÄ $stime";
	}
	$smin = $tm[1];
	$mod_date = $Temp[5] if(($Temp[5] ne "\n") && ($Temp[5] ne ""));
	$homepage = ($Temp[2] ne "") ? "<a href=$Temp[2] target=_blank><img src=$img_url/home.gif width=10 height=10 border=0 alt=\"$Temp[2]\"></a>" : "";
	@seper = split(/\|/,$views[2]);
	if ($seper[0] ne "1") {
        $seper[1] =~ s/<br>/\r\n/g;
	    $seper[1] =~ s/</&lt;/g;
        $seper[1] =~ s/>/&gt;/g;
        $seper[1] =~ s/"/&quot;/g;
	#   $seper[1] =~ s/&lt;hr&gt;/<hr>/g;
		$seper[1] =~ s/\r?\n/<br>/g;
		$seper[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
	}
	else{
		$seper[1] =~ s/<br>/\r\n/g if($auto_br ne "1");
		$seper[1] =~ s/&lt;br&gt;/<br>/g;
		$seper[1] =~ s/&lt;p&gt;/<p>/g;
	}
	
	#------------------------------------------| °Ë»ö¾î ±¸ºÐ... ^.^
	if(($FORM{'category'} eq "comment") || ($FORM{'category'} eq "sub_cmt")){
		$kword = "$FORM{'keyword'}";
		$seper[1] =~ s/$kword/<B><FONT COLOR=$CONF{'date_color'}>$kword<\/font><\/b>/g;
	}
	
	#$seper[1] =~ s/\r\n/<br>/g;
	if($auto_link eq "1"){
		$seper[1]=~ s/(http:\/\/)([\w\+\-\/\=\?\.\~\&]+)/<img src=$img_url\/home.gif width=10 height=10> <a href=\"$1$2\" target=\"_blank\"><font color=$CONF{'link_color'}>$1$2<\/font><\/a>/g;
		if($NT eq "1"){
			$seper[1]=~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"mailto:$1\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;
		}
		else{
			$seper[1]=~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"javascript:newin(400, 267, 'sendmail.cgi?name=$1&mail=$1&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;			
		}
	}
	
	$seper[1] = &view_dongury("$seper[1]") if($CONF{'dgr_ok'} eq "yes");

	if($etc_data[5] ne ""){
		$file_down = "<table border=0><tr><td><img src=$img_url/down.gif width=12 height=12 border=0 alt=\"´Ù¿î·Îµå\"></td><td class=ver9><a href=\"$cgi_url?id=$FORM{'id'}&number=$FORM{'number'}&file=$etc_data[5]&action=down_file\"><font color=$CONF{'down_color'}>$etc_data[5]</font></a> [ <font color=$CONF{'date_color'}>$etc_data[6]</font> ]</td></tr></table>";   
		$pre_view = "<table border=0><tr><td width=12><img src=$img_url/view.gif width=16 height=16 border=0 alt=\"¹Ì¸®º¸±â\"></td><td><a href=$etc_data[3] target=_blank><font color=$CONF{'down_color'}>¹Ì¸®º¸±â</font></a></td></tr></table>" if(($etc_data[3] ne "") && ($etc_data[3] ne "http://"));
	}
	elsif($etc_data[4] ne ""){
		$file_down = "<table border=0><tr><td><img src=$img_url/down.gif width=12 height=12 border=0 alt=\"$file_name ´Ù¿î¹Þ±â\"></td><td class=ver9> [ <a href=\"$cgi_url?id=$FORM{'id'}&number=$FORM{'number'}&file=$etc_data[4]&action=down_file\"><font color=$CONF{'date_color'}>¸µÅ©ÆÄÀÏ</font></a> ]</td></tr></table>";   
		$pre_view = "<table border=0><tr><td width=12><img src=$img_url/view.gif width=16 height=16 border=0 alt=\"¹Ì¸®º¸±â\"></td><td><a href=$etc_data[3] target=_blank><font color=$CONF{'down_color'}>¹Ì¸®º¸±â</font></a></td></tr></table>" if(($etc_data[3] ne "") && ($etc_data[3] ne "http://"));
	}

	my(@apt, @sub_data, $kword, $acou, $ans_number, $subnumber, $kind, $mailto, $link, $sel_point);
	@apt = split(/-/,$FORM{'number'});
	$acou = @apt;
	
	@sub_data = split(/\./,$FORM{'number'});
	$num_data = $sub_data[0];

	if($ans_number eq "") { 
		$subnumber = "$num_data-1";
	}
	else { 
		$ans_number++;
		$subnumber = "$num_data-$ans_number";
	}
	if($Temp[1]) { 
		if($NT eq "0"){
			$kind = "javascript:newin(400, 267, 'sendmail.cgi?name=$Temp[0]&mail=$Temp[1]&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')";
		}
		else{
			$kind = "mailto:$Temp[1]"; 
		}
		$mailto = "<font color=$CONF{'font_color'}>$Temp[0]</font> <a href=\"$kind\"><img src=$img_url/mail.gif width=14 height=10 border=0 alt=$Temp[1]></a>"; 

	} 
	else{
		$mailto = "<font color=$CONF{'font_color'}>$Temp[0]</font>";
	}
	if($FORM{'simple'} eq "yes") { $CONF{'tbl_width'} = "520"; }
	&head if($dis_opt eq "");
	$link = "<td><table border=0 cellpadding=0 cellspacing=0><tr><td>$file_down</td><td>$pre_view</td></tr></table></td>\n";
	$sel_point = "<tr><td><table width=100% border=0 cellpadding=2 cellspacing=0><tr><td><font color=#4FB0FF>¢º</font><font color=#FFB3E8>¢º</font><font color=$CONF{'down_color'}>ÃßõÇϱâ</font> </td><td><input type=radio name=point_val value=20></td><td><font color=$CONF{'font_color'}>20Á¡</font></td><td><img src=$face_url/20.gif width=16 height=16 alt=\"ÀÌ°Ô ¹¹¾ß~!!!\"></td><td><input type=radio name=point_val value=40></td><td><font color=$CONF{'font_color'}>40Á¡</font></td><td><img src=$face_url/40.gif width=16 height=16 alt=\"¿¡À×~º°·ç´Ù~\"></td><td><input type=radio name=point_val value=60 checked></td><td><font color=$CONF{'font_color'}>60Á¡</font></td><td><img src=$face_url/60.gif width=16 height=16 alt=\"ÂظŠÁÁ³×~\"></td><td><input type=radio name=point_val value=80></td><td><font color=$CONF{'font_color'}>80Á¡</font></td><td><img src=$face_url/80.gif width=16 height=16 alt=\"À½~ ÁÁÀºµ¥~\"></td><td><input type=radio name=point_val value=100></td><td><font color=$CONF{'font_color'}>100Á¡</font></td><td><img src=$face_url/100.gif width=16 height=16 alt=\"¿ì¿Í~ ÃÖ°í´Ù!!!\"></td><td>&nbsp;<input type=submit value=\" Ãß Ãµ \" style=\"background-color:#FAFAFA;border:1 solid #333333;height:18\"></td></tr><tr><td colspan=17><font color=$CONF{'down_color'}>ÃßõÀμö[$man_cnt¸í] Æò±ÕÁ¡¼ö[$e_valÁ¡] ÃÑÁ¡¼ö[$pnt_valÁ¡] Æò°¡ $face_val</font></td></tr></table></td></tr>\n" if($CONF{'point_ok'} eq "yes");	
	print "<p>\n";
	&Thead("100%","","1","0");
	print "<tr><td><font color=$CONF{'font_color'}>ÀÛ¼ºÀÚ [ $mailto $homepage ] -</font> <font color=$CONF{'date_color'}>$year³â $month¿ù $sdayÀÏ $stime½Ã $sminºÐ¿¡ ³²±â½Å ±Û</font></td></tr>\n";
	print "<tr  bgcolor=$CONF{'head_color'}><td>\n";
	
	&Thead("100%","","0","0");
	my($color_val) = $CONF{'head_color'} ? "bgcolor=$CONF{'head_color'}": ""; 
	print "<tr $color_val><td height=2><img src=$img_url/zero.gif width=0 height=0 border=0></td></tr>\n";
	&Tfoot;

	&Thead("100%", "", "0","0");
	print "<tr $color_val><td><font style=\"color:$CONF{'hfont_color'};font-size:10pt\"><b>¨Ú</b> <b>$Temp[3]</b></font></td>\n";
	print "<td align=right>";

	my($basic_height, $sim_val);
	if($FORM{'simple'} ne "yes"){ 
		print "<font color=$CONF{'hfont_color'}>Á¶È¸¼ö [ <b>$read_number</b> ] $down_count</font>\n"; 
		$basic_height = "220";
	}
	else{
		$basic_height = "170";
		$sim_val = "&simple=yes";
	}
	print "<a href=$cgi_url?id=$FORM{'id'}&page=$page&action=modify&number=$FORM{'number'}$sim_val><img src=$img_url/modify.gif border=0 alt=\"¼öÁ¤ Çϱâ\"></a>\n";
	print "<a href=\"$cgi_url?id=$FORM{'id'}&action=erase&number=$FORM{'number'}&page=$page$sim_val&subject=$Temp[3]\"><img src=$img_url/remove.gif border=0 alt=\"»èÁ¦ Çϱâ\"></a> &nbsp;</td></tr>\n";
	&Tfoot;
	print "</td></tr>\n";
	print "<tr><td align=center>\n";
	&Thead("100%", "$CONF{'cel_color1'}", "5","0");
	print "<tr><td height=$basic_height valign=top class=cont><p class=cont><table border=0 cellpadding=3 cellspacing=3>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action","point_up");
	print &Input("hidden","number","$FORM{'number'}");
	print &Input("hidden","img","$FORM{'img'}");
	print &Input("hidden","page","$page");
	print &Input("hidden","simple","$FORM{'simple'}");
	if($FORM{'category'}){
		print &Input("hidden","category","$FORM{'category'}");
		print &Input("hidden","keyword","$FORM{'keyword'}");
	}
	print "<tr>$link</tr>$sel_point</table><font class=ver9>$seper[1]</font> $img_view</td></tr>\n";
	print "<tr><td align=right><table cellpadding=0 cellspacing=0><tr><td>";
	print "<a href=\"javascript:newin(400, 265, '$cgi_url?id=$FORM{'id'}&action=to_email&number=$FORM{'number'}','spboard')\"><font color=$CONF{'head_color'} class=ver9>À̸ÞÀÏ·Î º¸³»±â...</font></a></td><td><a href=\"javascript:newin(400, 265, '$cgi_url?id=$FORM{'id'}&action=to_email&number=$FORM{'number'}','spboard')\"><img src=$img_url/toemail.gif border=0 width=16 height=18 alt=\"°Ô½Ã¹°À» À̸ÞÀÏ·Î º¸³»±â\"></a> &nbsp;&nbsp; </td>\n" unless($NT);
	print "<td><a href=$cgi_url?id=$FORM{'id'}&action=for_print&number=$FORM{'number'}&img=$FORM{'img'} target=_blank><font color=$CONF{'head_color'} class=ver9>ÇÁ¸°Æ®¹öÁ¯ º¸±â...</font></a></td><td><a href=$cgi_url?id=$FORM{'id'}&action=for_print&number=$FORM{'number'} target=_blank><img src=$img_url/print.gif width=16 height=18 border=0 alt=\"ÇÁ¸°Æ® Ãâ·ÂÀ» À§ÇÑ È­¸é º¸±â\"></a>&nbsp; &nbsp;</td></tr></table>$w_info &nbsp;<br>";
	print "<font class=ver8 color=$CONF{'head_color'}>Last modified - $mod_date &nbsp;</font><br>\n" if(($mod_date ne "") && (length($mod_date) > 10));
	&Ffoot if($CONF{'point_ok'} eq "yes");
#----------------------------------------------------------------------
	if($CONF{'etc_ok'} eq "yes"){
		print "<script language=\"javascript\">\n";
		print "function clearField(field){\n";
		print "if (field.value == field.defaultValue) {\n";
		print "field.value = \"\"\;\n";
		print "}\n";
		print "}\n";
		print "function checkField(field){\n";
		print "if (field.value == \"\") {\n";
		print "field.value = field.defaultValue\;\n";
		print "}\n";
		print "}\n";
		print "</script>\n";
		&Fhead("POST","$cgi_url");
		print &Input("hidden","action","etc_write");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","page","$page");
		print &Input("hidden","img","$FORM{'img'}");
		print &Input("hidden","number","$FORM{'number'}");
		print &Input("hidden","simple","$FORM{'simple'}");	
		if($FORM{'category'}){
			print &Input("hidden","category","$FORM{'category'}");
			print &Input("hidden","keyword","$FORM{'keyword'}");
		}
		&Thead("100%","","3","0");
		print "<tr><td colspan=2><input type=text name=etc size=40 maxlength=47  value=\"¡Ø °£´ÜÀÇ°ß ³²±â±â\" onBlur=\"checkField(this)\" onFocus=\"clearField(this)\" style=\"background-color:#FAFAFA;border:1 solid #333333\">\n";
		print &Input("submit","", "³²±â±â");
		print " &nbsp;<a href=$cgi_url?id=$FORM{'id'}&action=etcall_del&num=$FORM{'number'}&page=$page><img src=$img_url/etc_del.gif border=0 alt=\"°£´ÜÀÇ°ß Àüü±Û »èÁ¦\"></a></td></tr>\n";

		my(@etc, $end_num, $search_opt, $gd);
		if(-e "$main_dir/etc/$FORM{'number'}"){
			open (ETC, "$main_dir/etc/$FORM{'number'}");
			@etc = <ETC>;
			close (ETC);
			chop(@etc);
			$end_num = @etc;
			$search_opt = "&category=$FORM{'category'}&keyword=$FORM{'keyword'}" if($FORM{'category'} ne "");
			@color = ('#FF0000', '#FF0000', '#FF9F47', '#FF9F47', '#009900', '#009900', '#0C2099', '#0C2099', '#991098', '#991098');
			for(0..$end_num-1){
				if($etc[$_] ne ""){
					my @gubun = split(/\|/,$etc[$_]);
					$gd = $_ + 1;
					print "<tr><td><a href=$cgi_url?id=$FORM{'id'}&action=etc_del&number=$FORM{'number'}&sun=$_&page=$page&img=$FORM{'img'}$search_opt><img src=$img_url/etc.gif border=0 alt=\"$gd¹ø° ÀÇ°ß »èÁ¦Çϱâ [IP: $gubun[1]]\"></a> <font color=$color[$_]>$gubun[0]</font></td></tr>\n";
				}
			}
		}
		&Tfoot;
		&Ffoot;
	}
	else{
		print "<br>\n";
	}
#---------------------------------------------------------------
	print "</td></tr>\n";
	&Tfoot;
	print "</td></tr>\n";
	&Tfoot;
	
	&Thead("100%","","0","0");
#	my($color_val) = $CONF{'head_color'} ? "bgcolor=$CONF{'head_color'}": ""; 
	print "<tr><td background=$img_url/spot.gif><img src=$img_url/spot.gif border=0></td></tr>\n";
	&Tfoot;

	&Thead("100%", "", "1", "");
	print "<tr><td align=right>\n";
	if($FORM{'simple'} eq "yes"){ 
		print "<br><div align=center><form><input type=button value=\"â´Ý±â\" onclick=\"window.close()\" style='background-color:#FAFAFA;border:1 solid #333333;height:20'></form></div>\n";
	}
	else{
		if($FORM{'category'} eq ""){
			print "<a href=$cgi_url?id=$FORM{'id'}&action=reply_form&page=$page&subnumber=$subnumber&number=$FORM{'number'}><img src=$img_url/reply.gif border=0 alt=\"´äº¯ÀÛ¼º\"></a>" if($acou <= 8);
			print "<a href=$cgi_url?id=$FORM{'id'}&page=$page><img src=$img_url/list.gif border=0 alt=\"¸ñ·Ïº¸±â\"></a>\n";
		}
		else{
			print "<a href=$cgi_url?action=search&id=$FORM{'id'}&page=$page&category=$FORM{'category'}&keyword=$FORM{'keyword'}&start_num=$FORM{'start_num'}><img src=$img_url/searchlist.gif border=0 alt=\"°Ë»ö list º¸±â\"></a><a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
		}
	}
	print "</td></tr>\n";
	&Tfoot;
	&display if($dis_opt eq "");
}

sub view_dongury{
	my $input = $_[0];
	my %DGR = (
		 'dong1' => 'ļ~',
		 'dong2' => '½¡´óÀÌ~',
		 'dong3' => 'À̾¾~',
		 'dong4' => 'µÎÅë~',
		 'dong5' => '¾û¾û~',
		 'dong6' => '³È³È~',
		 'dong7' => '¼¼¿ø~',
		 'dong8' => '°æ¸²~',
		 'dong9' => '½Ó¹ÚÁú~',
		 'dong10' => '¿¡~',
		 'dong11' => '¸Þ·Õ~',
		 'dong12' => '°¨±â~',
		 'dong13' => '¿ò~',
		 'dong14' => 'Èì~',
		 'dong15' => 'Çູ~',
		 'dong16' => '½Å»ç~',
		 'dong17' => '°£È£»ç~',
		 'dong18' => '˂ȍ~',
		 'dong19' => 'ÄðÄð~',
		 'dong20' => '±Ã±Ý~',
		 'dong21' => '¹æ±ß~',
		 'dong22' => '¹Ì¼Ò~',
		 'dong23' => '¿í~',
		 'dong24' => 'ÀÌ·±~',
		 'dong25' => '»±ÄÚ~',
		 'dong26' => '¶ß¾Ç~',
		 'dong27' => 'Á¹·Á~',
		 'dong28' => '»ç¶û~',
		 'dong29' => 'ÀÌÈ÷~',
		 'dong30' => '²ô¾Æ¾Ç~',
		 'dong31' => '½º¸¶ÀÏ~',
		 'dong32' => 'Çì~',
		 'dong33' => '¸ÚÀïÀÌ~',
		 'dong34' => '±ºÀÎ~',
		 'dong35' => '±«¹°~',
		 'dong36' => '¸ÀÀÖ´ç~',
		 'dong37' => 'À×~',
		 'dong38' => 'ºÎµé~',
		 'dong39' => '¿ì~',
		 'dong40' => 'ÇÏÇÏ~',	
		 'dong41' => 'ºÎ»ó~',
		 'dong42' => '¸¶¸§~',
#		 'dong43' => 'Åõ´ú~',
#		 'dong44' => 'ÀǽÉ~',
#		 'dong45' => '¿Õµû~',
#		 'dong46' => '¿Í¿ì~',
#		 'dong47' => '¿¨~',
#		 'dong48' => '¾È°æ~',
#		 'dong49' => '¸ðÀÚ1~',
#		 'dong50' => '¸ðÀÚ2~',
#		 'dong51' => '¿Ë~',
#		 'dong52' => '±ò±ò~',
#		 'dong53' => 'Èï~',
#		 'dong54' => '¿¡ÈÞ~',
#		 'dong55' => 'È­³²~',
#		 'dong56' => 'Èå¹Ì~',
#		 'dong57' => 'Èǽ~',
#		 'dong58' => '½ã±Û·¯½º~',
	);
	
	foreach  (keys(%DGR)) {
		$input =~ s/$DGR{$_}/<img src=$dongury_url\/$_.gif width=13 height=13 alt=\"$DGR{$_}\">/g;
	}
	return $input;
}

sub multi_view{
	if($FORM{'mv.x'} eq ""){	
		&admin_chkdel;
	}
	
	my(@check, @chk_img, @ndata, @ncgi, @ftype, $cnt, $fname, $nnum, $type);
	local(@view_num);
	$cnt = 0;
	for (0..$CONF{'page_num'}-1){
		$chk_num = "num_val$_";
		if($FORM{$chk_num}){
			$view_num[$cnt] = "$FORM{$chk_num}";
			$cnt++;
		}
	}
	if($view_num[0] eq ""){
		&error("no_select");
	}
	CUT: for(0..$#view_num){  #--- ³Ý½º¿¡¼­ À̹ÌÁö¸¦ ºÃÀ»¶§ ¶óÀÎÇìÀÌÆ® ¿É¼Ç ¾ø¾Ö±â...
		open (IMGOK, "$main_dir/data/$view_num[$_]");
		@check = <IMGOK>;
		close(IMGOK);
		@chk_img = split(/\|/,$check[5]);
		if(($chk_img[5] ne "") || ($chk_img[4] ne "")) {
			$fname	= "$chk_img[5]";
			if($chk_img[4] ne ""){
				@ndata = split(/\//,$chk_img[4]);
				$nnum = @ndata - 1;
				if($ndata[$nnum] =~/\?/){
					@ncgi = split(/\?/,"$ndata[$nnum]");
					$fname = $ncgi[1];
				}
				else{
					$fname = "$ndata[$nnum]";
				}
			}
			@ftype = split(/\./,$fname);
			$type = $ftype[1];
			$type = lc($type);
			$FORM{'img'} = (($type eq "gif") || ($type eq "jpg") || ($type eq "jpeg")) ? "ok" : "no";
			last CUT if($FORM{'img'} eq "ok");
		}
	}
	
	&head;
	for(0..$#view_num){
		&view("$view_num[$_]","0");		
	}
	print "<br><br>";
	&display;
	&foot;
}

sub multi_del{
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} ne $pass) {
		&error("pass");
	}
	
	my(@del_num, @ldata, @file_data, @ary, $cnt, $chk_num ); 
	$cnt = 0;
	for (0..$CONF{'page_num'}-1){
		$chk_num = "num_val$_";
		if($FORM{$chk_num}){
			$del_num[$cnt] = "$FORM{$chk_num}";
			$cnt++;
		}
	}

	for(0..$#del_num){
		open(FILE,"$main_dir/data/$del_num[$_]");
		@ldata = <FILE>;
		@file_data = split(/\|/,$ldata[5]);
		close (FILE);
		unlink "$main_dir/data/$del_num[$_]";
		unlink "$main_dir/num/$del_num[$_]";
		unlink "$main_dir/etc/$del_num[$_]";
		unlink "$main_dir/files/$file_data[5]";
		&auto_erase("$del_num[$_]");
	}
	&repair_idx;
}

sub etc_write{
	my(@etc, $new_etc, $etc_num);
	mkdir("$main_dir/etc",0777) unless(-e "$main_dir/etc");
	open (DATA, "<$main_dir/etc/$FORM{'number'}");
	@etc = <DATA>;
	chop(@etc);
	close (DATA);
	$new_etc = "$FORM{'etc'}|$ENV{'REMOTE_ADDR'}";

	$etc_num = @etc;
	$etc_num++;
	if($etc_num > 9){
		$etc_num =9;
	}
	if($FORM{'etc'} ne ( "" || "¡Ø °£´ÜÀÇ°ß ³²±â±â" )){
		&word_chk("$FORM{'etc'}"); #³ª»Û´Ü¾î üŷ
		
		#===================================================================================
		#µµ¹è¹æÁö ÄíÅ°Àû¿ë °°ÀºÁ¦¸ñ °°Àº³»¿ëÀÇ ±ÛÀ» ¿Ã¸±½Ã¿¡ µµ¹èÀÎÁ¤ ^.^.
		&read_cookie;
		if($COOKIE{'DOBAE'} eq "$ENV{'REMOTE_ADDR'}$FORM{'etc'}$FORM{'number'}"){
			&error("dobae");
		}
		print "Set-Cookie: DOBAE=$ENV{'REMOTE_ADDR'}$FORM{'etc'}$FORM{'number'};\r\n";
		#===================================================================================
		
		open (ETC, ">$main_dir/etc/$FORM{'number'}");
		print ETC "$new_etc\n";
		for(0..$etc_num-1){
			print ETC "$etc[$_]\n"; 
		}
		close (DATA);
	}
	if($FORM{'number'} eq "notice.cgi"){
		&view_notice;
	}
	else{
		&view;
	}
}

sub input_form{
	my ($name, $email, $homepage, $passwd, $html, $auto_link, $auto_br, $open_val,$subject, $pre_view, $comments, $file_name, $link_file, $submit, $reset);
	local($week_val);
	&get_date;
	&read_cookie;
	&head;
	for(0..6){ #-------------------------- ½¬´Â ¿äÀÏ ^^
		if($week_val eq $lock_week[$_]){
			$lock_val = "ok";
		}
	}
	if($lock_val eq "ok"){
		print "<p>&nbsp;<p>&nbsp;<p>&nbsp;<hr width=300 noshade>\n";
		print "<font class=ver9>¸ÅÁÖ\n";
		foreach(0..$#lock_week){
			print "<b>$lock_week[$_]¿äÀÏ</b>" if($lock_week[$_] ne "");
			print ", " if(($_ ne "$#lock_week") && ($lock_week[$_] ne ""));
		}
		print "Àº ½±´Ï´Ù...</font>\n";
		print "<hr width=300 noshade>\n";
		print "<br><br><br><br>\n";
	}
	else{
		if($CONF{'admin_only'} eq "yes"){
			print "<font color=$CONF{'head_color'}><b>[¾Ë¸²!!!]</b></font> ÀÌ °Ô½ÃÆÇÀº ÇöÀç <font color=$CONF{'head_color'}><b>°ü¸®ÀÚ¸¸</b></font> ±ÛÀ» ¾µ¼ö ÀÖ°Ô ¼³Á¤µÇ¾ú½À´Ï´Ù.\n";
		}
		
		$name = &Input("text","name","$COOKIE{'UN'}","","","14","30");
		$email = &Input("text","email","$COOKIE{'UM'}","","","26","");
		$home_val = $COOKIE{'UH'} ? "$COOKIE{'UH'}" : "http:\/\/";
		$homepage = &Input("text","homepage", "$home_val","","","51","");
		$passwd = &Input("password","passwd","","","","10","");
		$html = &Checkbox("html","1","");
		$auto_link = &Checkbox("auto_link","1","");
		$auto_br = &Checkbox("auto_br","1","1");
		$open_val = "<select name=open><option value=yes selected>°ø°³<option value=no>ºñ°ø°³</select>" if($CONF{'scr_opt'} eq "yes");
		$subject = &Input("text", "subject", "","","","70","");
		$pre_view = &Input("text", "pre_view", "http:\/\/","","","70","");
		$comments = &Textarea("70","8","comments");
		$file_name = &Input("file", "file_name","","","", "54","");
		$link_file = &Input("text", "link_file", "","","","54","");
		$submit = &Input("submit",""," ±Û ¿Ã¸² "); 
		$reset = &Input("reset", "", "´Ù½ÃÀÛ¼º");
#		&Fhead("POST","$cgi_url","multipart/form-data","form");
		&input_java;
		print "<form name=form method=POST action=$cgi_url enctype=multipart/form-data  onSubmit=\"chk_pwd();return false\">";
		print &Input("hidden","action","write");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","ip","$ENV{'REMOTE_ADDR'}");
		print &Input("hidden","domain","$ENV{'HTTP_USER_AGENT'}");
		&Thead("","$CONF{'head_color'}","3","0");
		print "<tr bgcolor=$CONF{'cel_color1'}><td><font color=$CONF{'font_color'}><b>¨Ú</b> <b>±Û ³²±â±â...</b></font></td></tr>\n";
		print "<tr><td>\n";
		&Thead("","$CONF{'head_color'}","2","3");
		print "<tr><td><font color=$CONF{'hfont_color'}>ÀÌ&nbsp;&nbsp; &nbsp;&nbsp;  ¸§</font></td><td>$name\n"; 
		print "&nbsp;&nbsp; <font color=$CONF{'hfont_color'}>e-mail</font> $email</td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>ȨÆäÀÌÁö</font></td><td>\n";
		print "$homepage</td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>ºñ¹Ð¹øÈ£</font></td><td>$passwd";
		print "$html<font color=$CONF{'hfont_color'}>htmlÇã¿ë</font> $auto_link<font color=$CONF{'hfont_color'}>ÀÚµ¿¸µÅ©</font> $auto_br<font color=$CONF{'hfont_color'}>ÀÚµ¿ÁٹٲÞ</font> &nbsp; &nbsp; $open_val</td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>Á¦ &nbsp;&nbsp; &nbsp;&nbsp;¸ñ</font></th><td>$subject</td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>¹Ì¸®º¸±â</font></th><td>$pre_view</td></tr>\n" if($CONF{'pds_ok'} eq "yes");
		print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>³»&nbsp;&nbsp; &nbsp;&nbsp;  ¿ë</font></td>\n";
		print "<td>$comments</td></tr>\n";
		
		&call_dgr;
		print "<tr><td valign=top><br><a href=http://my.netian.com/~ysnet/smalli/index.htm target=_blank><font color=$CONF{'hfont_color'}>µ¿ ±Û ÀÌ</font></a></td><td>$dongury_tbl</td></tr>\n" if($CONF{'dgr_ok'} eq "yes");
		print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>Ư¼ö¹®ÀÚ</font></td><td>$chr_tbl</td></tr>\n";	

		print "<tr><td align=center><font color=$CONF{'hfont_color'}>ÆÄÀÏ÷ºÎ</font></td><td>$file_name</td></tr>\n" if($CONF{'pds_ok'} eq "yes");
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>¸µÅ©ÆÄÀÏ</font></td><td>$link_file <font color=$CONF{'hfont_color'}>[ ÃÖ´ë $CONF{'max_size'} MB ]</font></td></tr>\n" if($CONF{'pds_ok'} eq "yes");
		print "<tr><td align=center colspan=2>$submit $reset</td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		&Ffoot;
	}
	print "<a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
	&foot;
}

sub input_java{
	print <<__JAVA__;

	<script language=JavaScript> <!--
		function check_mail(cg) {
			mail01 = /[^@]+@[A-Za-z0-9_-]+[.]+[A-Za-z]+/;
			mail02 = /[^@]+@[A-Za-z0-9_-]+[.]+[A-Za-z0-9_-]+[.]+[A-Za-z]+/;
			mail03 = /[^@]+@[A-Za-z0-9_-]+[.]+[A-Za-z0-9_-]+[.]+[A-Za-z0-9_-]+[.]+[A-Za-z]+/;

			if(mail01.test(cg.value)) return true;;
			if(mail02.test(cg.value)) return true;
			if(mail03.test(cg.value)) return true;

			return false;
		}

		function chk_pwd() {
			if(document.form.name.value == ""){
				alert("À̸§À» Àû¾îÁÖ¼¼¿ä...");
				document.form.name.focus();
				return true;
			}
			
			if(document.form.email.value != ""){
				f_val = document.form.email;
				if(!check_mail(f_val)) { 
					alert("À̸ÞÀÏÁÖ¼Ò°¡ Çü½Ä¿¡ ¸ÂÁö ¾Ê½À´Ï´Ù."); 
					document.form.email.focus();
					return true; 
				}
			}

			if(document.form.subject.value == ""){
				alert("Á¦¸ñÀ» Àû¾îÁÖ¼¼¿ä...");
				document.form.subject.focus();
				return true;
			}
			
			if(document.form.comments.value == ""){
				alert("³»¿ëÀ» Àû¾îÁÖ¼¼¿ä...");
				document.form.comments.focus();
				return true;
			}

			if(document.form.passwd.value == ""){
				if(confirm("ºñ¹Ð¹øÈ£¸¦ ÀÔ·ÂÇÏÁö ¾ÊÀ¸½Ã¸é \\n³²±â½Å ±ÛÀ» ¼öÁ¤ÇÏ½Ç ¼ö ¾ø½À´Ï´Ù.\\n±×·¡µµ ±ÛÀ» ³²±â½Ã·Á¸é 'È®ÀÎ'¹öÆ°À» ´­·¯ÁÖ¼¼¿ä.")){
					document.form.submit();
					return true;
				}
				else{
					document.form.passwd.focus();
					return true;
				}
			}
			else{
				document.form.submit();
			}
		}

	// --> </script>

__JAVA__

}

sub ok_admin{
	print <<__OK__;
	<table border cellpadding="2" cellspacing="0" width="260" bgcolor="#FF0000" bordercolordark="white"
	 bordercolorlight="black">
		<tr>
			<td><p><font size="2" color="#ffffff">°ü¸®ÀÚ Password</font></td><td align=center><input type=password name=passwd></td>
		</tr>
	</table>
__OK__
}

sub notice_form{
	my($n_mon, $die_year, $die_mon, $die_day, $subject, $html, $auto_link, $comments, $ok_btn, $rs_btn);
	if($FORM{'passwd'} eq $CONF{'admin_pwd'}){
		&get_date;
		$n_mon = sprintf("%02d", $mon + 1);
		if($n_mon > 12){
			$year++;
			$n_mon = "01";
		}
		$die_year = &Input("text","die_year","$year","","","4","4"); 
		$die_mon = &Input("text","die_mon","$n_mon","","","2","2"); 
		$die_day = &Input("text","die_day","","","","2","2"); 
		$subject = &Input("text","subject","","","","70","");
		$html = &Checkbox("html","1","");
		$auto_link = &Checkbox("auto_link","1","checked");
		$auto_br = &Checkbox("auto_br","1","checked");
		$comments = &Textarea("70","8","comments");
		$ok_btn = &Input("submit", "", " ±Û ¿Ã¸² ");
		$rs_btn = &Input("reset", "", "´Ù½ÃÀÛ¼º");
		&head;
		print "<br>\n";
		&Fhead("POST", "$cgi_url", "", "form");
		print &Input("hidden","action","adminwrite");
		print &Input("hidden","id","$FORM{'id'}");
		&Thead("","$CONF{'head_color'}","3","0");
		print "<tr bgcolor=$CONF{'cel_color1'}><td><font color=$CONF{'font_color'}><b>¨Ú</b> <b>°øÁö»çÇ× ³²±â±â...</b></font></td></tr>\n";
		print "<tr><td>\n";
		&Thead("","$CONF{'head_color'}","3","3");
		print "</td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>¸¸ ±â ÀÏ</font></th><td>\n";
		print "$die_year<font color=$CONF{'hfont_color'}>³â</font>\n";
		print "$die_mon<font color=$CONF{'hfont_color'}>¿ù</font>\n";
		print "$die_day<font color=$CONF{'hfont_color'}>ÀÏ (¿¹: 2002³â 06¿ù 01ÀÏ)</font></td></tr>\n";
		print "<tr><td><font color=$CONF{'hfont_color'}>³»¿ë¿É¼Ç</font></td><td>$html<font color=$CONF{'hfont_color'}>htmlÇã¿ë</font>\n";
		print "$auto_link<font color=$CONF{'hfont_color'}>ÀÚµ¿¸µÅ©</font>\n";
		print "$auto_br<font color=$CONF{'hfont_color'}>ÀÚµ¿ÁٹٲÞ</font></td></tr>\n";
		print "<tr><td align=center><font color=$CONF{'hfont_color'}>Á¦ &nbsp; &nbsp; &nbsp;¸ñ</font></th><td>$subject</td></tr>\n";
		print "<tr><td>&nbsp;</td><td>$comments</td></tr>\n";
		
		&call_dgr;
		print "<tr><td valign=top><br><a href=http://my.netian.com/~ysnet/smalli/index.htm target=_blank><font color=$CONF{'hfont_color'}>µ¿ ±Û ÀÌ</font></a></td><td>$dongury_tbl</td></tr>\n" if($CONF{'dgr_ok'} eq "yes");
		print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>Ư¼ö¹®ÀÚ</font></td><td>$chr_tbl</td></tr>\n";		

		print "<tr><td>&nbsp;</td><td>";
		&ok_admin;
		print "</td></tr>\n";
		print "<tr><td align=center colspan=2>$ok_btn $rs_btn</td></tr></table></td></tr>\n";
		&Tfoot;
		&Ffoot;
		print "<a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
		&foot;
	}
	else{
		&error("pass");
	}
}

sub modify_form {
	my(@data, @seper, @auto, @pds_data, $pass, $html, $htmlvalue, $comment, $ansnum, $alink, $abr, $open_ok, $org_open, $open_yes, $open_no, $link_val, $br_val, $pv_value, $link_value, $file_name, $file_size, $down_num);
	open(DATA,"$main_dir/data/$FORM{'number'}");
	chomp(@data = <DATA>);
	$pass = $data[0];
	my($name, $email, $homepage, $subject, $wdate, $readnum) = split(/\|/,$data[1]);
	
	$name =~ s/\"/&quot;/g; # ¼öÁ¤½Ã " Ç¥½Ã »ì¸²...
	$subject =~ s/\"/&quot;/g;
	
	@seper= split(/\|/,$data[2]);
	$html=$seper[0];
	$htmlvalue = ($html eq "1") ? "checked" : "";
	$seper[1] =~ s/<br>/\n/g;
	$comment=$seper[1];
	$comment =~ s/&lt;br&gt;/<br>/g;
	$comment =~ s/&/&amp;/g;
	$comment =~ s/</&lt;/g;
	$comment =~ s/>/&gt;/g;
	$ansnum=$data[3];
	@auto = split(/\|/, $data[4]);
	$alink = $auto[0];
	$abr = $auto[1];
	$open_ok = $auto[2];
	if($open_ok ne "no"){
		$open_yes = "selected";
	}
	else{
		$open_no = "selected";
		if($FORM{'number'} =~ /-/){
			my @org = split(/-/,$FORM{'number'});
			my($org_num) = $org[0];
			open(ORG, "$main_dir/data/$org_num.cgi");
			my @org_data = <ORG>;
			close(ORG);
			my @org_val = split(/\|/, $org_data[4]);
			$org_open = $org_val[2]; 
		}
	}
	$link_val = ($alink eq "1") ? "checked" : "";
	$br_val = ($abr eq "1") ? "checked" : "";
	@pds_data = split(/\|/,$data[5]);
	$pv_value = $pds_data[3];
	$link_value = $pds_data[4];
	$file_name = $pds_data[5];
	$file_size = $pds_data[6];
	$down_num = $pds_data[7];
	close (DATA);
	
	my($name_val, $email_val, $home_val, $home_chk, $auto_link, $auto_br, $open_val, $sub_val, $pre_val, $com_val, $link_file);
	$name_val = &Input("text","name","$name","","","14","30"); 
	$email_val = &Input("text","email","$email","","","26","");
	$home_val = &Input("text","homepage","$homepage","","","51","");
	$home_chk = &Checkbox("html","1","$htmlvalue");
	$auto_link = &Checkbox("auto_link", "1", "$link_val");
	$auto_br = &Checkbox("auto_br", "1", "$br_val");
	$open_val = ($org_open eq "no") ? &Input("hidden","open","no") :  "<select name=open><option value=yes $open_yes>°ø°³<option value=no $open_no>ºñ°ø°³</select>" if($CONF{'scr_opt'} eq "yes");	
	$sub_val = &Input("text", "subject", "$subject", "","","70","");
	$pre_val = &Input("text", "pre_view", "$pv_value", "", "", "70", "");
	$com_val = Textarea("70","8","comments","","","$comment");
	$link_file = &Input("text", "link_file", "$link_value", "", "", "70", "");
	&head;
	&input_java;
	#&Fhead("POST","$cgi_url","","form");
	print "<form name=form method=POST action=$cgi_url onSubmit=\"chk_pwd();return false\">";
	print &Input("hidden","action","modify_ok");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","page","$page");
	print &Input("hidden","number","$FORM{'number'}");
	print &Input("hidden","ansnum","$ansnum");
	print &Input("hidden","date","$wdate");
	print &Input("hidden","file_name","$file_name");
	print &Input("hidden","file_size","$file_size");
	print &Input("hidden","passwd","$FORM{'passwd'}");
	print &Input("hidden","ip","$ENV{'REMOTE_ADDR'}");
	print &Input("hidden","domain","$ENV{'HTTP_USER_AGENT'}");
	print &Input("hidden","down_num","$down_num");	
	print &Input("hidden","simple","$FORM{'simple'}");
	&Thead("","$CONF{'head_color'}","3","0");
	print "<tr><td bgcolor=$CONF{'cel_color1'}><font color=$CONF{'font_color'}><b>¨Ú</b> <b>$name</b>´ÔÀÇ ±ÛÀ» ¼öÁ¤ÇÕ´Ï´Ù.</font></td></tr>\n";
	print "<tr><td>\n";
	&Thead("","$CONF{'head_color'}","3","0");
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ÀÌ&nbsp;&nbsp; &nbsp;&nbsp;  ¸§</font></td>\n";
	print "<td>$name_val &nbsp;&nbsp; <font color=$CONF{'hfont_color'}>e-mail</font> $email_val</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ȨÆäÀÌÁö</font></th><td>$home_val</td></tr>\n";
	print &Input("hidden","org_passwd","$pass");
	print "<tr><td><font color=$CONF{'hfont_color'}>³»¿ë¿É¼Ç</font></td><td>$home_chk<font color=$CONF{'hfont_color'}>htmlÇã¿ë</font>\n";
	print "$auto_link<font color=$CONF{'hfont_color'}>ÀÚµ¿¸µÅ©</font>\n";
	print "$auto_br<font color=$CONF{'hfont_color'}>ÀÚµ¿ÁٹٲÞ</font> &nbsp; &nbsp; $open_val</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>Á¦ &nbsp;&nbsp; &nbsp;&nbsp;¸ñ</font></th><td>$sub_val</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>¹Ì¸®º¸±â</font></th><td>$pre_val</td></tr>\n" if(($file_name ne "") or ($link_value ne ""));
	print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>³» &nbsp;&nbsp; &nbsp;&nbsp;¿ë</font></td><td>$com_val &nbsp; </td></tr>\n";

	&call_dgr;
	print "<tr><td valign=top><br><a href=http://my.netian.com/~ysnet/smalli/index.htm target=_blank><font color=$CONF{'hfont_color'}>µ¿ ±Û ÀÌ</font></a></td><td>$dongury_tbl</td></tr>\n" if($CONF{'dgr_ok'} eq "yes");
	print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>Ư¼ö¹®ÀÚ</font></td><td>$chr_tbl</td></tr>\n";	

	print "<tr><td align=center><font color=$CONF{'hfont_color'}>¸µÅ©ÆÄÀÏ</font></td><td>$link_file</td></tr>" if($link_value ne "");
	my($submit_btn) = &Input("submit","","¼öÁ¤Çϱâ");
	my($reset_btn) = &Input("reset", "", "´Ù½ÃÀÛ¼º");
	print "<tr><td align=center colspan=2>$submit_btn $reset_btn</td></tr></table></td></tr>\n";
	&Tfoot;
	&Ffoot;
	print "<a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
	&foot;

}

sub admin_modify_form {
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} ne $pass) {
		&error("pass");
	}
	
	my(@data, @notice, @auto, $html, $link_val, $br_val, $subject, $comment, $wdate, $read_num, $htmlvalue);
	open(DATA,"$main_dir/notice.cgi");
	@data = <DATA>;
	@notice = split(/\|/,$data[0]);
	$html=$notice[0];
	@auto = split(/\|/,$data[1]);
	$link_val = ($auto[0] eq "1") ? "checked" : "";
	$br_val = ($auto[1] eq "1") ? "checked" : "";
	$subject = $notice[1];
	$comment = $notice[2];
	$comment =~ s/<br>/\n/g;
	$comment =~ s/&/&amp;/g;
	$comment =~ s/</&lt;/g;
	$comment =~ s/>/&gt;/g;
	$wdate = $notice[3];
	my ($die_year, $die_mon, $die_day) = split(/:/,$notice[4]);
	$read_num = $notice[5];
	$htmlvalue = ($html eq "1") ? "checked" : "";
	close (DATA);
	
	my($year_val, $mon_val, $day_val, $sub_val, $html_chk, $auto_link, $auto_br, $text_val, $ok_btn, $reset_btn);
	$year_val = &Input("text", "die_year", "$die_year","","","4","4");
	$mon_val = &Input("text", "die_mon", "$die_mon", "","","2","2");
	$day_val = &Input("text", "die_day", "$die_day", "","","2","2");
	$sub_val = &Input("text", "subject", "$subject", "", "", "70", "");
	$html_chk = &Checkbox("html", "1" , "$htmlvalue");
	$auto_link = &Checkbox("auto_link", "1", "$link_val");
	$auto_br = &Checkbox("auto_br", "1", "$br_val");
	$text_val = &Textarea("70","8","comments","","","$comment");
	$ok_btn = &Input("submit", "", " ±Û ¿Ã¸² ");
	$reset_btn = &Input("reset", "", "´Ù½Ã ÀÛ¼º");

	&head;
	&Fhead("POST", "$cgi_url","","form");
	print &Input("hidden", "action", "adminwrite");
	print &Input("hidden","read_num","$read_num");
	print &Input("hidden","id","$FORM{'id'}");
	&Thead("","$CONF{'head_color'}","3","0");
	print "<tr bgcolor=$CONF{'cel_color1'}><td><font color=$CONF{'font_color'}><b>¨Ú</b> <b>°øÁö»çÇ× ¼öÁ¤Çϱâ...</b></font></td></tr>\n";
	print "<tr><td>\n";
	&Thead("", "$CONF{'head_color'}", "3", "3");
	print "</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>¸¸ ±â ÀÏ</font></th><td> $year_val<font color=$CONF{'hfont_color'}>³â</font>\n";
	print "$mon_val<font color=$CONF{'hfont_color'}>¿ù</font> $day_val<font color=$CONF{'hfont_color'}>ÀÏ (¿¹: 2000³â08¿ù01ÀÏ)</font></td></tr>\n";
	print "<tr><td><font color=$CONF{'hfont_color'}>³»¿ë¿É¼Ç</font></td><td>$html_chk<font color=$CONF{'hfont_color'}>htmlÇã¿ë</font> $auto_link<font color=$CONF{'hfont_color'}>ÀÚµ¿¸µÅ©</font> $auto_br<font color=$CONF{'hfont_color'}>ÀÚµ¿ÁٹٲÞ</font></td></tr>\n";

	print "<tr><td align=center><font color=$CONF{'hfont_color'}>Á¦ &nbsp; &nbsp; &nbsp;¸ñ</font></th><td>$sub_val</td></tr>\n";
	print "<tr><td>&nbsp;</td><td>$text_val</td></tr>\n";
	
	&call_dgr;
	print "<tr><td valign=top><br><a href=http://my.netian.com/~ysnet/smalli/index.htm target=_blank><font color=$CONF{'hfont_color'}>µ¿ ±Û ÀÌ</font></a></td><td>$dongury_tbl</td></tr>\n" if($CONF{'dgr_ok'} eq "yes");
	print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>Ư¼ö¹®ÀÚ</font></td><td>$chr_tbl</td></tr>\n";	

	&ok_admin;
	print "<tr><td align=center colspan=2>$ok_btn $reset_btn</td></tr>\n";
	&Tfoot;
	&Ffoot;
	print "<a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
	&foot;
}

sub call_dgr{
	if($CONF{'dgr_ok'} eq "yes"){
		my %DGR = (
			 'dong1' => 'ļ~',
			 'dong2' => '½¡´óÀÌ~',
			 'dong3' => 'À̾¾~',
			 'dong4' => 'µÎÅë~',
			 'dong5' => '¾û¾û~',
			 'dong6' => '³È³È~',
			 'dong7' => '¼¼¿ø~',
			 'dong8' => '°æ¸²~',
			 'dong9' => '½Ó¹ÚÁú~',
			 'dong10' => '¿¡~',
			 'dong11' => '¸Þ·Õ~',
			 'dong12' => '°¨±â~',
			 'dong13' => '¿ò~',
			 'dong14' => 'Èì~',
			 'dong15' => 'Çູ~',
			 'dong16' => '½Å»ç~',
			 'dong17' => '°£È£»ç~',
			 'dong18' => '˂ȍ~',
			 'dong19' => 'ÄðÄð~',
			 'dong20' => '±Ã±Ý~',
			 'dong21' => '¹æ±ß~',
			 'dong22' => '¹Ì¼Ò~',
			 'dong23' => '¿í~',
			 'dong24' => 'ÀÌ·±~',
			 'dong25' => '»±ÄÚ~',
			 'dong26' => '¶ß¾Ç~',
			 'dong27' => 'Á¹·Á~',
			 'dong28' => '»ç¶û~',
			 'dong29' => 'ÀÌÈ÷~',
			 'dong30' => '²ô¾Æ¾Ç~',
			 'dong31' => '½º¸¶ÀÏ~',
			 'dong32' => 'Çì~',
			 'dong33' => '¸ÚÀïÀÌ~',
			 'dong34' => '±ºÀÎ~',
			 'dong35' => '±«¹°~',
			 'dong36' => '¸ÀÀÖ´ç~',
			 'dong37' => 'À×~',
			 'dong38' => 'ºÎµé~',
			 'dong39' => '¿ì~',
			 'dong40' => 'ÇÏÇÏ~',	
			 'dong41' => 'ºÎ»ó~',
			 'dong42' => '¸¶¸§~',
#			 'dong43' => 'Åõ´ú~',
#			 'dong44' => 'ÀǽÉ~',
#			 'dong45' => '¿Õµû~',
#			 'dong46' => '¿Í¿ì~',
#			 'dong47' => '¿¨~',
#			 'dong48' => '¾È°æ~',
#			 'dong49' => '¸ðÀÚ1~',
#			 'dong50' => '¸ðÀÚ2~',
#			 'dong51' => '¿Ë~',
#			 'dong52' => '±ò±ò~',
#			 'dong53' => 'Èï~',
#			 'dong54' => '¿¡ÈÞ~',
#			 'dong55' => 'È­³²~',
#			 'dong56' => 'Èå¹Ì~',
#			 'dong57' => 'Èǽ~',
#			 'dong58' => '½ã±Û·¯½º~',
		);
			
		my $tbl = "<table border=0 cellpading=0 cellspacing=0>";
		
		for(1..42){
			$tbl .= "<tr>" if(($_-1)%7 == 0);
			$tbl .= "<td><a href=\"JavaScript:onclick=AddChar(' ".$DGR{"dong$_"}."');\"><img src=$dongury_url/dong$_.gif border=0> <font color=$CONF{'hfont_color'}>".$DGR{"dong$_"}."</font></a>";	
			$tbl .= "</tr>\n" if(($_-1)%7 == 6);
		}
		$tbl .= "</table>";
		
		$dongury_tbl = $tbl;
	}
	my(@chr, $c_tbl, $tbl_cnt);
	@chr = qw(¡º ¡» ¡¼ ¡½ ¡¾ ¡¿ ¡À ¡Å ¡Î ¡Ï ¡Ö ¡Ø ¡Ù ¡Ú ¡Û ¡Ü ¡Ý ¡Þ ¡ß ¡à ¡á ¡â ¡ã ¡ä ¡å ¡æ ¡ç ¡è ¡é  ¡ì ¡í ¡ñ ¢¡ ¢¢ ¢² ¢³ ¢´ ¢· ¢¸ ¢¹ ¢º  ¢» ¢¼ ¢½ ¢¾ ¢¿ ¢À ¢Á ¢Â ¢Ã ¢Ä  ¢Å ¢Æ ¢Ç ¢È ¢É ¢Ê ¢Ë ¢Ì ¢Í ¢Î ¢Ï ¢Ð ¢Ñ ¢Ó   ¢Ö ¢× ¢Ø ¢Ù ¢Û ¢Ü ¢Ý ¥á ¥â);
	$c_tbl = "<table border=0 cellpadding=0 cellspacing=0>\n";
	$tbl_cnt = 0;
	foreach (@chr) {
		$c_tbl .= "<tr>" if($tbl_cnt%37 == 0);
		$c_tbl .= "<td><a href=\"JavaScript:onclick=AddChar('$_');\"><font color=$CONF{'hfont_color'}>$_</font></a></td>";
		$c_tbl .= "</tr>\n" if($tbl_cnt%37 == 36);
		$tbl_cnt++;
	}
	$c_tbl .= "</table>\n";
	
	$chr_tbl = $c_tbl;
}

sub read_cookie{
    if($ENV{'HTTP_COOKIE'}) {
        my @cookies = split(/; /,$ENV{'HTTP_COOKIE'});
        foreach(@cookies) {
			my($name,$value) = split(/=/,$_);
			$COOKIE{$name} = $value;
        }
	}
}

sub login_head{
	&head unless(($act eq "multi_view") && ($FORM{'mv.x'} ne ""));
	print "<p>&nbsp;<p>&nbsp;\n";
	&Thead("430","$CONF{'cel_color1'}","0","0");
	print "<tr><td>\n";
	&Thead("100%","$CONF{'head_color'}","0","0");
	print "<tr><td height=2><img src=$img_url/zero.gif width=0 height=0 border=0></td></tr>\n";
	&Tfoot;
	&Thead("100%","$CONF{'cel_color1'}","2","0");
}

sub login_foot{
	&Thead("","","2","0");
	print "<tr><td class=ver9>ºñ¹Ð¹øÈ£</td><td>\n";
	print &Input("password","passwd","","","","10","");
	print "</td><td>\n";
	print &Input("submit",""," È® ÀÎ ");
	print "</td><td></td></tr>\n";
	&Tfoot;
	&Ffoot;
	print "</td></tr>\n";
	&Tfoot;
	&Thead("100%","$CONF{'head_color'}","0","0");
	print "<tr><td height=2><img src=$img_url/zero.gif width=0 height=0 border=0></td></tr>\n";
	&Tfoot;
	print "</td></tr>\n";
	&Tfoot;
	print "<p align=center><a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
	print "<br><br><br><br>\n";
	&foot unless(($act eq "multi_view") && ($FORM{'mv.x'} ne ""));
}

sub open_login {
	my $subject = $_[0];
	&login_head;
	print "<tr><td height=120 class=ver9><p align=center><font color=$CONF{'date_color'}>ºñ°ø°³±Û '$subject'</font>(À»)¸¦ ÀнÀ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "view");
	print &Input("hidden","page", "$FORM{'page'}");
	print &Input("hidden","number", "$FORM{'number'}");
	print &Input("hidden","simple", "$FORM{'simple'}");	
	print &Input("hidden","img", "$FORM{'img'}");	
	print &Input("hidden","category", "$FORM{'category'}");
	print &Input("hidden","keyword", "$FORM{'keyword'}");
	print &Input("hidden","start_num", "$FORM{'start_num'}");
	&login_foot;
}

sub admin_login {
	&login_head;
	print "<tr><td height=120 class=ver9><p align=center><font color=red>°ü¸®ÀÚ ¸ðµå</font>·Î Á¢¼ÓÇÕ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "loginok");
	&login_foot;
}

sub admin_chkdel {
	my(@del_num);
	&login_head;
	print "<tr><td height=120 class=ver9><p align=center><font color=red>üũµÈ Ç׸ñ</font>À» »èÁ¦ÇÕ´Ï´Ù.<br>°ü¸®ÀÚ ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.\n";
	&Fhead("POST","$cgi_url");
	my $cnt = 0;
	for (0..$CONF{'page_num'}-1){
		my($chk_num) = "num_val$_";
		if($FORM{$chk_num}){
			$del_num[$cnt] = "$FORM{$chk_num}";
			print &Input("hidden","$chk_num","$del_num[$cnt]");
			$cnt++;
		}
	}
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "multi_del");
	print &Input("hidden","page","$page");
	print &Input("hidden","total_val","$FORM{'total_val'}");
	print &Input("hidden","category","$FORM{'category'}");
	print &Input("hidden","keyword","$FORM{'keyword'}");
	print &Input("hidden","start_num","$FORM{'start_num'}");
	&login_foot;
}

sub admin_ok {
	&login_head;
	print "<tr><td height=120><p align=center><font color=red>°øÁö»çÇ×À» ¼öÁ¤ÇÕ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</font>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "admin_modify_form");
	&login_foot;
}

sub etc_del {
	&login_head;
	print "<tr><td height=120><p align=center><font color=red>°£´ÜÀÇ°ßÀ» »èÁ¦ÇÕ´Ï´Ù.<br> °ü¸®ÀÚ ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</font>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","page","$page");
	print &Input("hidden","img","$FORM{'img'}");
	print &Input("hidden","number","$FORM{'number'}");
	print &Input("hidden","sun","$FORM{'sun'}");
	if($FORM{'category'} ne ""){
		print &Input("hidden","category","$FORM{'category'}");
		print &Input("hidden","keyword","$FORM{'keyword'}");
	}
	print &Input("hidden","action", "delete_etc");
	&login_foot;
}

sub admin_remove {
	&login_head;
  	print "<tr><td height=120><p align=center><font color=red>°øÁö»çÇ×À» »èÁ¦ÇÕ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</font>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "admin_remove_ok");
	&login_foot;
}

sub etcall_del{
	&login_head;
  	print "<tr><td height=120><p align=center><font color=red>°£´ÜÀÇ°ßÀ» »èÁ¦ÇÕ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</font>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "etcdel_ok");
	print &Input("hidden","number","$FORM{'num'}");
	print &Input("hidden","page", "$FORM{'page'}");
	&login_foot;	
}

sub modify{
	&login_head;
  	print "<tr><td height=120><p align=center><font color=red>±ÛÀ» ¼öÁ¤ÇÕ´Ï´Ù.<br> ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</font>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","action", "passok");
	print &Input("hidden","page","$page");
	print &Input("hidden","number", "$FORM{'number'}");
	print &Input("hidden","simple","$FORM{'simple'}");
	&login_foot;
}

sub passok{
	my(@filea, $pass);
	$pass = crypt($FORM{'passwd'},"sp");
	open(FILE,"$main_dir/data/$FORM{'number'}");
	chomp(@filea = <FILE>);
	close (FILE);
	if($FORM{'passwd'} eq ""){
		&error("pass");
	}elsif(($filea[0] eq $pass) || ($CONF{'admin_pwd'} eq $pass)) {
		&modify_form;
	}else{
		&error("pass");
	}
}

sub write {
	if(($FORM{'name'} eq "") || ($FORM{'comments'} eq "")||($FORM{'subject'} eq "")){
			&error;
	}
	print "Set-Cookie: UN=$FORM{'name'}; expires=Sunday, 12-Dec-2002 12:12:12 GMT;\r\n";
	print "Set-Cookie: UM=$FORM{'email'}; expires=Sunday, 12-Dec-2002 12:12:12 GMT;\r\n";
	print "Set-Cookie: UH=$FORM{'homepage'}; expires=Sunday, 12-Dec-2002 12:12:12 GMT;\r\n";
	my($pass) = crypt($FORM{'passwd'},"sp");
	
	if(($CONF{'admin_only'} eq "yes") && ($CONF{'admin_pwd'} ne $pass)){
		&error("admin");
	}

	unless(($FORM{'email'} eq "") || ($FORM{'email'} =~ /.*\@.*\..*/)){
		&error("email");
	}
	
	my @not_tag = qw(name email homepage subject pre_view link_file);
	for (@not_tag) {
		$FORM{$_} =~ s/<([^>]|\n)*>//g;
	}
 
	#----------------------------- µ¿±ÛÀÌ ¸¹ÀÌ ¾µ½Ã ¿¡·¯¸Þ¼¼Áö º¸³»±â... ^^	
	if($CONF{'dgr_ok'} eq "yes"){
		my $chk_cnt = 0;
		while($FORM{'comments'} =~ /[\xA1-\xFE][^~]~/g){
			$chk_cnt++;
		}
		&error("dgr") if($chk_cnt > 50);
	}
	#-------------------------------------------------------------------

	#$FORM{'comments'} =~ s/&amp;/&amp;amp;/g;
    $FORM{'comments'} =~ s/<br>/&lt;br&gt;/g;
	$FORM{'comments'} =~ s/\r\n/<br>/g;
	&com124('name', 'email', 'homepage', 'subject', 'comments', 'pre_view', 'link_file');
#######################################################	
	my(@sub_data, @num, $num, $home);
	if($FORM{'subnumber'} eq "") {
		&read_idx;
		@num_data = split(/\./,$ary[0]);
		$num = $num_data[0] || "1";
		while(-e "$main_dir/data/$num.cgi"){
			$num++;
		}
	}
	else{
		while(-e "$main_dir/data/$FORM{'subnumber'}.cgi"){
			@sub_data = split(/-/,"$FORM{'subnumber'}");
			$sub_data[$#sub_data]++;
			$FORM{'subnumber'} = join("-",@sub_data);
		}
	}
#######################################################

	$home = (($FORM{'homepage'} ne "") && ($FORM{'homepage'} ne "http://")) ? "$FORM{'homepage'}" : "";

	&get_date;
	
	&word_chk("$FORM{'name'} $FORM{'subject'} $FORM{'comments'}"); #³ª»Û´Ü¾î üŷ
	#===================================================================================
	#µµ¹è¹æÁö ÄíÅ°Àû¿ë °°ÀºÁ¦¸ñ °°Àº³»¿ëÀÇ ±ÛÀ» ¿Ã¸±½Ã¿¡ µµ¹èÀÎÁ¤ ^.^.
	my ($time_val, $date_val, $chk_time, $chk_data, @chk, $r_ip, $r_date, $r_time);
	&read_cookie;
	if($COOKIE{'DOBAE'} eq "$ENV{'REMOTE_ADDR'}$FORM{'subject'}$FORM{'comments'}"){
		&error("dobae");
	}
	print "Set-Cookie: DOBAE=$ENV{'REMOTE_ADDR'}$FORM{'subject'}$FORM{'comments'};\r\n";

	#À¹! ÄíÅ°¼³Á¤ÇØÀç½Ã µµ¹è¹æÁöÅ° À§ÇÏ¿© T.T
	local $cook_time = 20;
	$chk_time = $hour*360 + $min*60 + $sec;
	open(IP_TIME, "$main_dir/time_chk.cgi");
	$chk_data = <IP_TIME>;
	close(IP_TIME);
	chomp(@chk = split(/\|/, $chk_data));
	$r_ip = $chk[0];
	$r_date = $chk[1];
	$r_time = $chk[2];
	$date_val = "$year-$mon-$mday";
	$time_val = $hour*360 + $min*60 + $sec + $cook_time;
	open(TIME_CHK, ">$main_dir/time_chk.cgi");
	print TIME_CHK "$ENV{'REMOTE_ADDR'}|$date_val|$time_val";
	close(TIME_CHK);	
	#if(($r_ip eq "$ENV{'REMOTE_ADDR'}") && ($r_date eq "$date_val") && ($r_time >= $chk_time)) {
	#	&error("time_chk");
	#}
	#===================================================================================

	local($org_name, $size);		
	if($FORM{'file_name'} ne ""){
		if($FORM{'link_file'} eq ""){
			&upload_file;
		}
		else{
			&error("double");
		}
	}
	elsif($FORM{'link_file'} ne ""){
		unless(($FORM{'link_file'} =~ /^http:\/\//) || ($FORM{'link_file'}=~ /^ftp:\/\//)) {
        	&error("link");
        }
	}

	my(@est, @mail, @adata, @filea, $count);
	if($FORM{'subnumber'} eq "") {
		&lock;
		open(WFILE,">$main_dir/data/$num.cgi");
		print WFILE "$pass\n";
		print WFILE "$FORM{'name'}|$FORM{'email'}|$home|$FORM{'subject'}|$date||\n";
		print WFILE "$FORM{'html'}|$FORM{'comments'}\n";
        print WFILE "|||||\n";
		print WFILE "$FORM{'auto_link'}|$FORM{'auto_br'}|$FORM{'open'}|\n";
		print WFILE "|$FORM{'ip'}|$FORM{'domain'}|$FORM{'pre_view'}|$FORM{'link_file'}|$org_name|$size|\n";
		close(WFILE);
		&unlock;
		&index_plus("$num.cgi");
	}
	else {
		open(Sum,"$main_dir/data/$FORM{'num'}");
		chomp(@est = <Sum>);
		close(Sum);   
		@mail = split(/\|/,$est[1]);
		local $addr = $mail[1];

		open(NUM,"$main_dir/num/$FORM{'num'}");
		chomp(@num = <NUM>);
		close(NUM);   
		@ans_data = split(/\|/,$num[0]);
		$ans_data[0]++;
		open(Suma,">$main_dir/num/$FORM{'num'}");
		print Suma join("|",@ans_data);
		close(Suma);

		&lock;
		open(WFILE,">$main_dir/data/$FORM{'subnumber'}.cgi");
		print WFILE "$pass\n";
		print WFILE "$FORM{'name'}|$FORM{'email'}|$home|$FORM{'subject'}|$date||\n";
		print WFILE "$FORM{'html'}|$FORM{'comments'}\n";
		print WFILE "0\n";
		print WFILE "$FORM{'auto_link'}|$FORM{'auto_br'}|$FORM{'open'}|\n";
		print WFILE "|$FORM{'ip'}|$FORM{'domain'}|$FORM{'pre_view'}|$FORM{'link_file'}|$org_name|$size|\n";
		close(WFILE);
		&unlock;
		&index_plus("$FORM{'subnumber'}.cgi");
		if(($addr) && ($CONF{'sendmail_ok'} == "yes") && ($FORM{'mail_notice'} ne "1")) {
			&sendmail if($NT ne "1"); 
		}
		if(($addr) && ($FORM{'mail_notice'} eq "1")){
			&mail_notice if($NT ne "1");
		}
	}            
	my $num_data = ($FORM{'subnumber'} ne "") ? "$FORM{'subnumber'}.cgi" : "$num.cgi";
	&send_gul("$CONF{'admin_mail'}", "$num_data") if(($CONF{'admin_sender'} eq "yes") && ($NT ne "1"));
	&load_page;
}

sub word_chk {
	my ($chk_word, @bad_list);
	local $bad_word;
	$chk_word = shift;
	open(BAD_WORD, "$id_dir/bad_word.cgi");
	chomp(@bad_list = <BAD_WORD>);
	close(BAD_WORD);
	shift(@bad_list);

	foreach (@bad_list) {
		if($chk_word =~ /$_/i) {
			$bad_word = $_;	
			&error("bad_word");
		}
	}
}

sub read_idx{
	open(INDEX, "$main_dir/idx/index.cgi");
	chomp(@ary = <INDEX>);
	close(INDEX);
	if($ary[0] eq ""){
		mkdir("$main_dir/idx",0777);
		&make_idx;
	}
}

sub index_plus{
	my(@idx_list, $plus_num, $cnt, $list, $start, $num_data);
	$plus_num = "$_[0]";
	open(IDX_DATA,"$main_dir/idx/index.cgi");
	chomp(@idx_list = <IDX_DATA>);
	close(IDX_DATA);
	unshift(@idx_list,$plus_num);  #------------------------------------ ¾´±Û ³Ñ¹ö ¹è¿­¿¡ Ãß°¡... ^.^

	$cnt = 0;
	foreach $list(@idx_list) {
		$list =~ s/.cgi//g;
		$idx[$cnt] = $list;
		$cnt++;
	}

	@idx = sort {($b <=> $a) || ($a cmp $b)}(@idx);
	
	$num_data = $#idx_list+1;
	
	if($num_data > $CONF{'max_data'}){ #ÃÖ´ë µ¥ÀÌŸ·® ÃÊ°ú½Ã ÆÄÀÏ »èÁ¦... ^^
		while($num_data > $CONF{'max_data'}){ 
			open(DEL,"$main_dir/data/$idx[$#idx_list].cgi");
			my @del = <DEL>;
			close(DEL);
			my @del_file = split(/\|/,$del[5]);
			unlink("$main_dir/files/$del_file[5]");
			unlink("$main_dir/data/$idx[$#idx].cgi");
			unlink("$main_dir/num/$idx[$#idx].cgi");
			unlink("$main_dir/etc/$idx[$#idx].cgi");
			pop(@idx);
			$num_data--;
		}
	}
	
	&lock;
	open(DATA, ">$main_dir/idx/index.cgi");
	print DATA join(".cgi\n",@idx).".cgi";
	close(DATA);
	for(1..10){
		open(PAGE,">$main_dir/idx/$_.cgi");
		$start = ($_ - 1)*$CONF{'page_num'};
		for(0..$CONF{'page_num'}-1){
			last if($idx[$start+$_] eq "");
			print PAGE "$idx[$start+$_].cgi\n";
		}
		close(PAGE);
	}

	open(NUM,">$main_dir/idx/num.cgi"); 
	print NUM $num_data;
	close(NUM);
	&unlock;
}

sub make_idx{
	my(@num_data, @ary, $list_data, $cnt); 
	#---------------------------À妽º »ý¼º ( Àüü ÆäÀÌÁö)------------------------
	opendir(DIR, "$main_dir/data");
	@num_data =  grep(!/^\.{1,2}$/, readdir(DIR));	#µ¥ÀÌŸ¸¦ ¹øÈ£¼øÀ¸·Î Á¤·Ä... ^.^
	closedir(DIR);
	
	$cnt = 0;
	foreach $list_data(@num_data) {
		$list_data =~ s/.cgi//g;
		$ary[$cnt] = $list_data;
		$cnt++;
	}

	@ary = sort {($b <=> $a) || ($a cmp $b)} @ary;

	&lock;
	open (INDEX, ">$main_dir/idx/index.cgi");
	print INDEX join(".cgi\n",@ary).".cgi" if($ary[0] ne "");
	close(INDEX);
	&unlock;
	#---------------------------À妽º »ý¼º ³¡ ---------------------------------------------------
}

sub upload_file {
	my(@a, @b, @fname_chk, $upfile, $t, $filename);
	$upfile = $FORM{'file_name'};
	chop($upfile);
	chop($upfile);

	@a = split(/\"/,$real_file);
	@b = split(/\\/,$a[3]);
	$t = @b;
	$org_name = ($b[$t-1]);
	$org_name =~ tr/ /_/; #ÆÄÀÏ¿¡ ºóÄ­ÀÌ Á¸Àç½Ã....
	$filename = "$main_dir/files/".$org_name;
	
	@fname_chk = split(/\./,$org_name);
	if(($NT && (($fname_chk[$#file_chk] eq "cgi") || ($fname_chk[$#file_chk] eq "pl") || ($fname_chk[$#file_chk] eq "asp") || $fname_chk[$#file_chk] =~ "php")) || ($fname_chk[$#file_chk] =~ "php")){
		$filename .= ".txt";
		$org_name .= ".txt";
	}

	if(-e $filename){
		&error("exist");
	}
	open(FILE, ">$filename");
	binmode FILE;
	print FILE $upfile;
	close FILE;

	$size = (-s "$main_dir/files/$org_name");
	if($size > ($CONF{'max_size'}*1048576)){
		unlink("$main_dir/files/$org_name");
		&error("size");
	}
	
	if($size >= 1048576) { 
		$size = substr(($size/1048576),0,3);
		@dot=split(/\./,$size);
		$size = $dot[1] ? "$size MB" : "$dot[0] MB";
	}
	elsif($size >= 1024) {
		$size = substr(($size/1024),0,3);
		@dot=split(/\./,$size);
		$size = $dot[1] ? "$size KB" : "$dot[0] KB";
	}
	else{
		$size = "$size byte";
	}

}

sub modify_ok {
	my $pass = crypt($FORM{'passwd'},"sp");

	if(($FORM{'org_passwd'} ne $pass) && ($CONF{'admin_pwd'} ne $pass)) {
		&error("pass");
	}

	if(($FORM{'name'} eq "") || ($FORM{'comments'} eq "")|| ($FORM{'subject'} eq "")) {
		&error;
	}

	my(@not_tag, $mod_date);
	@not_tag = qw(name email homepage subject pre_view link_file);
	for (@not_tag) {
		$FORM{$_} =~ s/<([^>]|\n)*>//g;
	}
#	$FORM{'comments'} =~ s/&/&amp;/g;
    $FORM{'comments'} =~ s/<br>/&lt;br&gt;/g;
	$FORM{'comments'} =~ s/\r\n/<br>/g;
	&com124('name', 'email', 'homepage', 'subject', 'comments', 'pre_view', 'link_file');
	&word_chk("$FORM{'name'} $FORM{'subject'} $FORM{'comments'}"); #³ª»Û´Ü¾î üŷ	

	&get_date;
	$mod_date = $date;
	&lock;
	open(WFILE,">$main_dir/data/$FORM{'number'}");
	print WFILE "$FORM{'org_passwd'}\n";
	print WFILE "$FORM{'name'}|$FORM{'email'}|$FORM{'homepage'}|$FORM{'subject'}|$FORM{'date'}|$mod_date|\n";
	print WFILE "$FORM{'html'}|$FORM{'comments'}\n";
    print WFILE "$FORM{'ansnum'}\n";
	print WFILE "$FORM{'auto_link'}|$FORM{'auto_br'}|$FORM{'open'}||\n";
	print WFILE "|$FORM{'ip'}|$FORM{'domain'}|$FORM{'pre_view'}|$FORM{'link_file'}|$FORM{'file_name'}|$FORM{'file_size'}|$FORM{'down_num'}|\n";
	close(WFILE);
	&unlock;
	&load_page;
}

sub adminwrite {
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} eq "$pass"){
		if(($FORM{'die_year'} ne "") && ($FORM{'die_mon'} ne "") && ($FORM{'die_day'} ne "")){ 
			if(($FORM{'subject'} ne "") && ($FORM{'comments'} ne "")) {
				$FORM{'subject'} =~ s/<([^>]|\n)*>//g;
#				$FORM{'comments'} =~ s/&/&amp;/g;
				$FORM{'comments'} =~ s/<br>/&lt;br&gt;/g;
				$FORM{'comments'} =~ s/\r\n/<br>/g;
				&com124('subject', 'comments', 'die_year', 'die_mon', 'die_day');
				open (NOTICE, "$main_dir/notice.cgi");
				$notice_data = <NOTICE>;
				close (NOTICE);
				if(($notice_data ne "") && ($FORM{'read_num'} eq "")){
					unlink("$main_dir/notice.cgi");
					unlink("$main_dir/num/notice.cgi");
					unlink("$main_dir/etc/notice.cgi");
				}
				&get_date;
				open(WFILE,">$main_dir/notice.cgi");
				print WFILE "$FORM{'html'}|$FORM{'subject'}|$FORM{'comments'}|$date|$FORM{'die_year'}:$FORM{'die_mon'}:$FORM{'die_day'}|\n";
				print WFILE "$FORM{'auto_link'}|$FORM{'auto_br'}|\n";
				close(WFILE);
				&load_page;
			}
			else{
				&error("notice");
			}
		}
		else{
			&error("date");
		}
	}
	else{
		&error("ok_admin");
	}
}

sub reply_form {
	my(@repl, @repla, @seper, @arp, $tomail, $html_val, $alink, $abr, $open_ok, $open_val, $link_val, $br_val, $scut, $ford); 
	&read_cookie;
	&head;
	open(REPLY, "$main_dir/data/$FORM{'number'}");
	@repl = <REPLY>;
	close(REPLY);
		
	@repla = split(/\|/, $repl[1]);
	$tomail = "$repla[1]";
	@seper = split(/\|/, $repl[2]);	
	$seper[1] =~ s/<br>/\n¢°/g;
#	$seper[1] =~ s/\n¢°<hr>/\n<hr>/g;
	$seper[1] =~ s/&/&amp;/g;
	$seper[1] =~ s/&lt;br&gt;/<br>/g;
	$seper[1] =~ s/&/&amp;/g;
	$seper[1] =~ s/</&lt;/g;
	$seper[1] =~ s/>/&gt;/g;
	chomp($seper[1]);
	$repla[3] =~ s/\"/ /g;
	$html_val = ($seper[0] eq "1") ? "checked" : "";
	@auto = split(/\|/,$repl[4]);
	$alink = $auto[0];
	$abr = $auto[1];
	$open_ok = $auto[2];
	if($open_ok eq "no"){
		$open_val = &Input("hidden","open","no");;
	}
	else{
		$open_val = "<select name=open><option value=yes selected>°ø°³<option value=no>ºñ°ø°³</select>"  if($CONF{'scr_opt'} eq "yes");
	}
	$link_val = ($alink eq "1") ? "checked" : "";
	$br_val = ($abr eq "1") ? "checked" : "";
	@arp = split(/-/,$FORM{'number'});
	$scut = @arp;
	if($scut > 0) { $ford = "¢Ñ ";}
	if($CONF{'admin_only'} eq "yes"){
		print "<p class=ver9><font color=$CONF{'head_color'}><b>[¾Ë¸²!!!]</b></font> ÀÌ °Ô½ÃÆÇÀº ÇöÀç <font color=$CONF{'head_color'}><b>°ü¸®ÀÚ¸¸</b></font> ±ÛÀ» ¾µ¼ö ÀÖ°Ô ¼³Á¤µÇ¾ú½À´Ï´Ù.\n";
	}
	my($name, $email, $home_val, $password, $html_chk, $auto_link, $auto_br, $subject, $preview, $mail_notiece, $comment, $upfile, $linkfile, $sub_btn, $reset_btn);
	$name = &Input("text","name","$COOKIE{'UN'}","","","14","30");
	$email = &Input("text","email","$COOKIE{'UM'}","","","26","");
	$home_val = $COOKIE{'UH'} ? "$COOKIE{'UH'}" : "http:\/\/";
	$password = &Input("password","passwd","","","","10","");
	$html_chk = &Checkbox("html", "1", "$html_val");
	$auto_link = &Checkbox("auto_link", "1", "$link_val");
	$auto_br = &Checkbox("auto_br", "1", "$br_val");
	$subject = &Input("text", "subject","$ford$repla[3]","","","70","");
	$preview = &Input("text", "pre_view","http:\/\/","","","70","");	
	$mail_notice = &Checkbox("mail_notice","1","checked");	
	$comment = &Textarea("70","8","comments","","","¢°[$repla[0]´Ô²²¼­ ³²±ä ³»¿ë]\n¢°$seper[1]\n\n");
	$upfile = &Input("file","file_name","","","","54","");
	$linkfile = &Input("text", "link_file","","","","54","");	
	$sub_btn = &Input("submit",""," ±Û ¿Ã¸² "); 
	$reset_btn = &Input("reset","","´Ù½ÃÀû±â "); 
	&input_java;
#	&Fhead("POST","$cgi_url","multipart/form-data","form");
	print "<form name=form method=POST action=$cgi_url enctype=multipart/form-data  onSubmit=\"chk_pwd();return false\">";
	print &Input("hidden","subnumber","$FORM{'subnumber'}");
	print &Input("hidden","action","write");
	print &Input("hidden","num","$FORM{'number'}");
	print &Input("hidden","id","$FORM{'id'}");
	print &Input("hidden","page","$page");
	print &Input("hidden","ip","$ENV{'REMOTE_ADDR'}");
	print &Input("hidden","domain","$ENV{'HTTP_USER_AGENT'}");
	&Thead("","$CONF{'head_color'}","3","");
	print "<tr bgcolor=$CONF{'cel_color1'}><td><font color=$CONF{'font_color'}><b>¨Ú</b> <b>$repla[0]</b>´Ô²²¼­ ³²±â½Å ±Û¿¡´ëÇÑ ´äº¯ ÀÛ¼º</font></td></tr>\n";
	print "<tr><td>\n";
	&Thead("","$CONF{'head_color'}","2","2");
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ÀÌ&nbsp;&nbsp; &nbsp;&nbsp;  ¸§</font></td><td>$name\n";
	print "&nbsp;&nbsp; <font color=$CONF{'hfont_color'}>e-mail</font> $email</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ȨÆäÀÌÁö</font></th><td>\n";
	print &Input("text","homepage","$home_val","","","51","");
	print "</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ºñ¹Ð¹øÈ£</font></th><td>$password $html_chk<font color=$CONF{'hfont_color'}>htmlÇã¿ë</font> $auto_link<font color=$CONF{'hfont_color'}>ÀÚµ¿¸µÅ©</font> $auto_br<font color=$CONF{'hfont_color'}>ÀÚµ¿ÁٹٲÞ</font> &nbsp; &nbsp; $open_val</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>Á¦&nbsp;&nbsp; &nbsp;&nbsp;  ¸ñ</font></th><td>$subject</td></tr>\n";
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>¹Ì¸®º¸±â</font></th><td>$preview</td></tr>\n" if($CONF{'pds_ok'} eq "yes");
	print "<tr><td>&nbsp;</td><td>$mail_notice <font color=$CONF{'hfont_color'}>´äº¯±Û ¸ÞÀÏ·Î º¸³»±â</font></td></tr>\n" if(($tomail ne "") && ($NT ne "1"));
	print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>³»&nbsp;&nbsp; &nbsp;&nbsp;  ¿ë</font></td><td>$comment</td></tr>\n";	
	&call_dgr;
	print "<tr><td valign=top><br><a href=http://my.netian.com/~ysnet/smalli/index.htm target=_blank><font color=$CONF{'hfont_color'}>µ¿ ±Û ÀÌ</font></a></td><td>$dongury_tbl</td></tr>\n" if($CONF{'dgr_ok'} eq "yes");
	print "<tr><td valign=top><br><font color=$CONF{'hfont_color'}>Ư¼ö¹®ÀÚ</font></td><td>$chr_tbl</td></tr>\n";	

	print "<tr><td align=center><font color=$CONF{'hfont_color'}>ÆÄÀÏ÷ºÎ</font></td><td>$upfile</td></tr>\n" if($CONF{'pds_ok'} eq "yes");
	print "<tr><td align=center><font color=$CONF{'hfont_color'}>¸µÅ©ÆÄÀÏ</font></td><td>$linkfile <font color=$CONF{'hfont_color'}>[ ÃÖ´ë $CONF{'max_size'} MB ]</font></td></tr>\n" if($CONF{'pds_ok'} eq "yes");
	
	print "<tr><td align=center colspan=2>$sub_btn $reset_btn</td></tr>\n";
	&Tfoot;
	print "</td></tr>\n";
	&Tfoot;
	&Ffoot;
	print "<a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><P>\n";
	&foot;
}

sub get_date {
    @week = qw(ÀÏ ¿ù È­ ¼ö ¸ñ ±Ý Åä);
    ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime)[0,1,2,3,4,5,6];
	$mon++;	
	$year += 1900;

	$date = sprintf("%04d/%02d/%02d [%02d:%02d]", $year,$mon, $mday, $hour, $min); 
	$week_val = "$week[$wday]";
}

sub load_page{
	&head;
	
	if($FORM{'simple'} eq "yes"){
		my $want_link = ($act eq "modify_ok") ? "$cgi_url?id=$FORM{'id'}&action=view&number=$FORM{'number'}&simple=yes" : "$cgi_url?id=$FORM{'id'}&action=simple_ok";
		$want_link = "$cgi_url?id=$FORM{'id'}&action=simple_ok&kind=send" if($send_end);
		print "<META HTTP-EQUIV=Refresh CONTENT=1;URL=$want_link&simple=yes>\n";			
	}
	else{
		my $ttv = "&total_val=$FORM{'total_val'}" if("$FORM{'total_val'}");
		my $shr_val = "&action=search&category=$FORM{'category'}&keyword=$FORM{'keyword'}&start_num=$FORM{'start_num'}" if("$FORM{'category'}");
		print "<META HTTP-EQUIV=Refresh CONTENT=1;URL=$cgi_url?id=$FORM{'id'}&page=$FORM{'page'}$ttv$shr_val>\n";
	}
	print "<p>&nbsp;<p>&nbsp;<p>&nbsp;<hr width=300 color=$CONF{'head_color'}>\n";
	print "<font class=ver9>Loading ......</font>\n";
	print "<hr width=300  color=$CONF{'head_color'}>\n";
	print "<br><br><a href=$cgi_url?id=$FORM{'id'}><font color=#FFA8E3>¢¸</font><font color=#92B8FF>¢¸</font> <font class=ver9>°Ô½ÃÆÇÀ¸·Î µ¹¾Æ°¡±â</font></a><p>\n" if($FORM{'simple'} ne "yes");
	&foot;
}

sub simple_ok{
	&head;
	print "<br><br>\n";
	&Thead("","","0","0",);
	print "<tr><td><img src=$img_url/sepal.gif border=0></td>\n";
	my($msg) = ($FORM{'kind'} eq "send") ? "Ã漺! ¹è´Þ ¿Ï·á ÇÏ¿´½À´Ï´Ù!" : "»èÁ¦¸¦ ¿Ï·áÇß±¸¸ÕÀ¯~";
	print "<td valign=top>$msg</td></tr>\n";
	print "<br><br><br><br>\n";
	&Tfoot;
	print "<br><div align=center><form><input type=button value=\"â´Ý±â\" onclick=\"window.close()\" style='background-color:#FAFAFA;border:1 solid #333333;height:20'></form></div>\n";
	&foot;	
}

sub search {
	if($FORM{'keyword'} eq ""){
		&error("keyword");
	}
	my(@gul_data, @line1, @line2, @line3, @search_list, $search_data, $category, $resent_num, $last_num);
	local(@ary, $down_col, $pnt_col, $all_list, $cou, $list_num, $total_page);

	if($CONF{'down_view'} eq "yes"){
		$down_col="<td width=30 align=center><font color=$CONF{'cel_color1'}>´Ù¿î</font></td>";
	}
	if($CONF{'point_ok'} eq "yes"){
		$pnt_col="<td width=27 align=center><font color=$CONF{'cel_color1'}>̵̧</font></td>";
	}
	&read_idx;
	$all_list = @ary;
	$cou = 0;
	$start_num = $FORM{'start_num'} ? "$FORM{'start_num'}" : "0";
	$end_num = $start_num + $CONF{'find_interval'} - 1;
	
	if($start_num > $all_list){
		&head;
		print "<br><br><br><br><img src=$img_url/sepal.gif><br><br>\n";
		print "<font color=$CONF{'down_color'}>$all_list°³ÀÇ ¸ðµç±ÛÀ» °Ë»öÇÏ¿´½À´Ï´Ù...<br><br>°Ë»öÇÒ µ¥ÀÌŸ°¡ ÀÌÁ¦ ´õÀÌ»ó ¾ø½À´Ï´Ù....</font><br><br><br>";
		print "<center><a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û¸ñ·Ï À¸·Î\"></a></center>\n";
		print "<br><br><br><br>\n";
		&foot;
	}

	for($start_num..$end_num){
		last if($ary[$_] eq "");
		
		open(LIST, "$main_dir/data/$ary[$_]");
		@gul_data = <LIST>;
		@line1 = split(/\|/, $gul_data[1]);
		@line2 = split(/\|/, $gul_data[2]);
		@line3 = split(/\|/, $gul_data[5]);
		close (LIST);
		
		if($FORM{'category'} eq "sub_cmt"){
			$search_data = $line1[3]." ". $line2[1];
		}
		else{
			if($FORM{'category'} eq "name") {
				$search_data =$line1[0];  #À̸§°Ë»ö
			}
			elsif($FORM{'category'} eq "subject") {
				$search_data=$line1[3];  #Á¦¸ñ°Ë»ö
			}
			elsif($FORM{'category'} eq "comment") {
				$search_data =$line2[1];  #³»¿ë°Ë»ö
			}
			elsif($FORM{'category'} eq "ip") {
				$search_data = $line3[1];
			}
		}

		if($search_data =~ /$FORM{'keyword'}/io) { 
			$search_list[$cou] = $ary[$_];
			$cou++;
		}		
	}

	#---------------------------------------------------------------------------------------------------


	@ary = undef;
	@ary = @search_list;

	$total_page = int($cou/$CONF{'page_num'});
	if(($total_page*$CONF{'page_num'}) < $cou) {$total_page += 1; }
	$page = $total_page if("$FORM{'total_val'}");
	$total_page = 1 if($total_page == 0);
	&head;

	$list_num = @ary;
	if(@quick_id){
		&quick_btn;
	}
	else{
		print "<center><b><font  class=ver9>°Ë»ö¾î</font></b> <font color=$CONF{'date_color'}>$FORM{'keyword'}</font>&nbsp;&nbsp;&nbsp; <b><font  class=ver9>°Ë»ö°á°ú</font></b> <font color=$CONF{'date_color'}>$cou</font><font class=ver9>°³</fnot></center>\n";
	}

	&print_list;

	$resent_num = $start_num + 1;
	$last_num= $end_num + 1;
	print "<center><a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û¸ñ·Ï À¸·Î\"></a></center>\n";
	print "<center><br>ÃÖ±Ù <font color=$CONF{'head_color'}><b>$resent_num</b></font>°³ºÎÅÍ <font color=$CONF{'head_color'}><b>$last_num</b></font>°³±îÁöÀÇ °Ô½Ã¹°¿¡¼­ À§¿Í°°Àº µ¥ÀÌŸ°¡ °Ë»öµÇ¾ú½À´Ï´Ù.<br>´ÙÀ½ $CONF{'find_interval'}°³ÀÇ °Ô½Ã¹°¿¡¼­ ªO±â ¿øÇÏ½Ã¸é ¾Æ·¡ 'search'¹öÆ°À» ´­·¯ÁÖ¼¼¿ä.</center>" if($all_list > $CONF{'find_interval'});
	&find if($CONF{'search_ok'} eq "yes");
	&foot;
}

#--------- | ¹®ÀÚ Á¦°Å ÇÔ¼ö... ^.^
sub com124{ 
	my @com_list = @_;

	foreach $list(@com_list){
		$FORM{$list} =~ s/\|/&#124;/g;
	}
}

sub find {
	my($start_num, $sc_val, $sub_val, $name_val, $com_val, $ip_val, $keywd); 
	$start_num = $FORM{'start_num'} + $CONF{'find_interval'} if($FORM{'start_num'} ne "");
	$start_num = 0 if($FORM{'start_num'} eq "");
	if($all_list > $CONF{'find_interval'}){
		if($FORM{'category'} eq "sub_cmt"){
			$sc_val = "selected";
		}
		elsif($FORM{'category'} eq "subject"){
			$sub_val = "selected";
		}
		elsif($FORM{'category'} eq "name"){
			$name_val = "selected";
		}
		elsif($FORM{'category'} eq "comment"){
			$com_val = "selected";
		}
		elsif($FORM{'category'} eq "ip"){
			$ip_val = "selected";
		}
		
		$keywd = "$FORM{'keyword'}";
	}
	&Fhead("POST","$cgi_url");
	&Thead("","","2","0");
	print "<tr><td><input type=hidden name=action value=search><input type=hidden name=id value=$FORM{'id'}>\n";
    print "<input type=hidden name=start_num value=$start_num>\n" if(($all_list > $CONF{'find_interval'}) || ($list_num > $CONF{'find_interval'}));
	print "<select name=category>\n";
    print "<option value=sub_cmt $sc_val>Á¦¸ñ+³»¿ë</option>\n";
    print "<option value=name $name_val>ÀÌ ¸§ </option>\n";
	print "<option value=subject $sub_val>Á¦ ¸ñ</option>\n";
    print "<option value=comment $com_val>³» ¿ë</option>\n";
    print "<option value=ip $ip_val>I P</option>\n";
    print "</select></td>\n";
 	print "<td><input type=text name=keyword  value=\"$keywd\" size=17 style=\"background-color:#FFFFFF;height:21px;border:1 solid black\"></td>\n";
	print "<td><input type=image src=$img_url/search_button.gif border=0></td>\n";
	print "</tr>\n";
	&Tfoot;
	&Ffoot;
}

sub quick_btn{
	print "<script language=\"javascript\">\n";
	print "function buildArray() {\n";
	print "var a = buildArray.arguments;\n";
	print "for (i=0; i<a.length; i++) {\n";
	print "this[i] = a[i];}\n";
	print "this.length = a.length;}\n";
	print "var list1 = new buildArray(\"\",\n";
	for(0..$#quick_id){	
		print "\"$cgi_url?id=$quick_id[$_]\"";
		($_ ne $#quick_id)? print ",\n"	: print ");\n";
	}
	print "function go(which, num, win) {\n";
	print "n = which.selectedIndex;\n";
	print "if (n != 0) {var url = eval(\"list\" + num + \"[n]\")\n";
	print "if (win) {openWindow(url);}\n";
	print "else{location.href = url;}}}\n";
	print "</script>\n";
	
	&Thead("100%","","2","0");
	if($act ne "search"){
		print "<tr><td align=right>\n";
	}
	else{
		print "<tr><td width=100>&nbsp;</td>\n";
		print "<td align=center><b><font  class=ver9>°Ë»ö¾î</font></b> <font color=red>$FORM{'keyword'}</font>&nbsp;&nbsp;&nbsp; <b><font  class=ver9>°Ë»ö°á°ú</font></b> <font color=red>$cou</font><font class=ver9>°³</fnot></td>\n";
		print "<td width=100 align=right>\n";
	}			
	print "<form name=quick><select name=quick_sel onChange=\"go(this, 1, false)\">\n";
	print "<option>¹Ù·Î°¡±â</option>\n";
	for(0..$#quick_id){
		print "<option value=$quick_id[$_]>$quick_name[$_]</option>\n";
	}
	print "</select>\n";
	print "</td></tr>\n";
	&Tfoot;
}

sub top_btn{
	my($kind, $total_data, $search_val, $prev_img, $next_img, $prev_link, $next_link);
	$kind = $_[0];
	$total_data = $FORM{'category'} ? "$cou" : "$list_num";
	$search_val = $FORM{'category'} ? "&action=search&category=$FORM{'category'}&keyword=$FORM{'keyword'}&start_num=$FORM{'start_num'}" : "";
	
	$prev_img = "<img src=$img_url/prev.gif border=0 alt=\"ÀÌÀü ÆäÀÌÁö\">";
	$next_img = "<img src=$img_url/next.gif border=0 alt=\"´ÙÀ½ ÆäÀÌÁö\">";
	$prev_link = ($page eq "1") ? "$prev_img" : "<a href=$cgi_url?id=$FORM{'id'}&page=$pre_pg$search_val>$prev_img</a>";
	$next_link = ($page eq "$total_page") ? "$next_img" : "<a href=$cgi_url?id=$FORM{'id'}&page=$next_pg$search_val>$next_img</a>";
		
	#---------------------------- ±Û¾²±â, ÀÌÀü ÆäÀÌÁö, ´ÙÀ½ÆäÀÌÁö ³ª¿À´Â °÷...
	&Thead("100%","","1","0");
		print "<tr><td width=160 align=left><a href=$cgi_url?id=$FORM{'id'}&page=$FORM{'page'}&action=input_form><img src=$img_url/write.gif border=0 alt=\"±Û ³²±â±â\"></a></td><td align=center><font class=ver8>Total <font style=\"color:$CONF{'date_color'};font-size:8pt\">$total_data</font>articles [ <font color=$CONF{'read_color'}>$page</font>/<font color=$CONF{'down_color'}>$total_page</font> page ]</font></td><td width=160 align=right>$prev_link$next_link</td></tr>\n";
	&Tfoot;
	
	&Thead("100%","$CONF{'head_color'}","0","0");
	print "<tr><td height=2><img src=$img_url/zero.gif width=0 height=0 border=0></td></tr>\n";
	&Tfoot;
}

sub erase {
	&login_head;
	print "<tr><td height=120 class=ver9><br><p align=center>ºñ¹Ð¹øÈ£¸¦ Àû¾î Áֽðí È®ÀÎ ¹öÆ°À» ´­·¯ ÁÖ¼¼¿ä.</p>\n";
	print "<ul><li>±Û <font color=red><b>$FORM{'subject'}</b></font>¸¦ »èÁ¦ÇÕ´Ï´Ù.\n";
	print "<li>À̱ÛÀÇ ´äº¯ ±Û±îÁö ¸ðµÎ »èÁ¦µË´Ï´Ù</ul>\n";
	&Fhead("POST","$cgi_url");
	print &Input("hidden", "action", "eraseok");
	print &Input("hidden", "page","$FORM{'page'}");
	print &Input("hidden", "id","$FORM{'id'}");
	print &Input("hidden", "number","$FORM{'number'}");
	print &Input("hidden", "simple","$FORM{'simple'}");
	&login_foot;
}

sub eraseok {
	if($FORM{'passwd'} eq "") {
		&error("pass");
	}
	my(@filea, @seper, @num_data, @ans_data, $pass, $ans_num, $num);
	$pass = crypt($FORM{'passwd'},"sp");
	open(FILE,"$main_dir/data/$FORM{'number'}");
	@filea = <FILE>;
	@seper = split(/\|/,$filea[5]);
	close (FILE);
	unlink ("$main_dir/files/$seper[5]");
	chop($filea[0]);

	open(FILE,"$main_dir/num/$FORM{'number'}");
	@num_data = <FILE>;
	@ans_data = split(/\|/,$num_data[0]);
	close (FILE);
	$ans_num = $ans_data[0];
	
	if(($filea[0] eq $pass) || ($CONF{'admin_pwd'} eq $pass)) {
		$num = "$FORM{'number'}";
		&lock;	
		if($ans_num > 0) {
			&auto_erase("$num");
		}
		unlink("$main_dir/data/$num");
		unlink ("$main_dir/num/$num");
		unlink ("$main_dir/etc/$num");
		#-------------------------------------------- »èÁ¦½Ã À妽º »©±â...
		my(@idx_list, @data_list, $list, $k, $num_data, $start);
		open(INDEX, "$main_dir/idx/index.cgi");
		@idx_list = <INDEX>;
		close(INDEX);
		chomp(@idx_list);
		open(DATA, ">$main_dir/idx/index.cgi");
		$k = 0;
		foreach $list(@idx_list) {
			if($list ne "$FORM{'number'}"){
				print DATA "$list\n";
				$data_list[$k] = $list;
				$k++;
			}
		}
		close(DATA);
		#------------------------------------------------
		$num_data = $#data_list+1;
		open(NUM,">$main_dir/idx/num.cgi"); 
		print NUM $num_data;
		close(NUM);
		#------------------------- ÆäÀÌÁöº° À妽º Á¤¸®
		for(1..10){
			open(PAGE,">$main_dir/idx/$_.cgi");
			$start = ($_ - 1)*$CONF{'page_num'};
			for(0..$CONF{'page_num'}-1){
				print PAGE "$data_list[$start+$_]\n";
			}
			close(PAGE);
		}
		&unlock;
		#-----------------------------------------
		&load_page;
	}
	else {
		&error("pass");
	}

}

sub admin_remove_ok {
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} ne $pass) {
		&error("pass");
	}
	
	unlink("$main_dir/notice.cgi");
	unlink("$main_dir/num/notice.cgi");
	unlink("$main_dir/etc/notice.cgi");
	&load_page;
}

sub etcdel_ok{
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} ne $pass) {
		&error("pass");
	}
	
	unlink("$main_dir/etc/$FORM{'number'}");
	if($FORM{'number'} eq "notice.cgi"){
		&view_notice;
	}
	else{
		&view;
	}
}

sub delete_etc{
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($CONF{'admin_pwd'} ne $pass) {
		&error("pass");
	}
	
	my(@etc_data, $cnt, $search_opt, $goto_url);
	open(ETC, "$main_dir/etc/$FORM{'number'}");
	@etc_data = <ETC>;
	close(ETC);
	$cnt = 0;
	open(WRITE, ">$main_dir/etc/$FORM{'number'}");
	for(0..$#etc_data){
		print WRITE "$etc_data[$_]" unless($cnt eq "$FORM{'sun'}");
		$cnt++;
	}
	close(WRITE);

	if($FORM{'number'} ne "notice.cgi"){
		$search_opt = $FORM{'category'} ? "&category=$FORM{'category'}&keyword=$FORM{'keyword'}" : "";
		$goto_url = "$cgi_url?id=$FORM{'id'}&page=$FORM{'page'}&action=view&number=$FORM{'number'}&cnt=no&img=$FORM{'img'}$search_opt";
	}
	else{
		$goto_url = "$cgi_url?id=$FORM{'id'}&action=view_notice&cnt=no";
	}
	&head;
	
	print "<META HTTP-EQUIV=Refresh CONTENT=1;URL=$goto_url>\n";
	print "<p>&nbsp;<p>&nbsp;<p>&nbsp;<hr width=300  color=$CONF{'head_color'}>\n";
	print "<font class=ver9>Loading ......</font>\n";
	print "<hr width=300 color=$CONF{'head_color'}>\n";
	print "<br><br><a href=$goto_url><font color=#FFA8E3>¢¸</font><font color=#92B8FF>¢¸</font> <font class=ver9>°Ô½ÃÆÇÀ¸·Î µ¹¾Æ°¡±â</font></a><p>\n" if($FORM{'simple'} ne "yes");
	&foot;
}

sub auto_erase{ #°ü·Ã±Û ÀÚµ¿ »èÁ¦ ÇÔ¼ö ^.^
	my(@ldata, @file_data, $num, $same_num, $find_same);
	$num = $_[0];
	$num =~ s/.cgi//g;

	&read_idx;
	$same_num=length($num)+1;
	open(DATA, ">$main_dir/idx/index.cgi");
	for(0..$#ary){
		$find_same=substr($ary[$_],0,$same_num);
		if("$num-" eq $find_same){
			open(FILE,"$main_dir/$ary[$_]");
			@ldata = <FILE>;
			@file_data = split(/\|/,$ldata[5]);
			close (FILE);
			unlink "$main_dir/data/$ary[$_]";
			unlink "$main_dir/num/$ary[$_]";
			unlink "$main_dir/etc/$ary[$_]";
		}
		else{
			print DATA "$ary[$_]\n";
		}
	}
	close(DATA);
}

#=================================== ÆäÀÌÁö À̵¿ ÇÔ¼ö ^.^  
sub pagemove{
	my($search_val) = ($act eq "search") ? "&action=search&category=$FORM{'category'}&keyword=$FORM{'keyword'}&start_num=$FORM{'start_num'}" : "";
	my ($interval, $start, $end, $prev, $next, $next_opt);
	
	&Thead("","","2","0");
	print "<tr><td align=center class=ver9><font color=$CONF{'font_color'}>";

	$interval = 10; 
	$start = (int(($page-1)/$interval))*$interval + 1;
	$end = $start + $interval -1;
	if($total_page <= $end){
		$end = $total_page;
		$next_opt = "no"
	}
	if($start == 1){
		print "[ÀÌÀü]...";
	}
	else{
		$prev = $start - 1;
		print "[<a href=$cgi_url?id=$FORM{'id'}&page=1$search_val><font color=$CONF{'font_color'}>First</font></a>]";
		print "[<a href=$cgi_url?id=$FORM{'id'}&page=$prev$search_val><font color=$CONF{'font_color'}>ÀÌÀü</font></a>]...";
	}
	
	for($start..$end){
		if($page eq $_){
			print "[<font color=$CONF{'date_color'}><b>$_</b></font>]";
		}
		else{
			print "[<a href=$cgi_url?id=$FORM{'id'}&page=$_$search_val><font color=$CONF{'font_color'}>$_</font></a>]";
		}
	}

	if($next_opt eq "no"){
		print "...[´ÙÀ½]";
	}
	else{
		$next = $end + 1;
		print "...[<a href=$cgi_url?id=$FORM{'id'}&page=$next$search_val><font color=$CONF{'font_color'}>´ÙÀ½</font></a>]";
		print "[<a href=$cgi_url?id=$FORM{'id'}&page=$total_page$search_val><font color=$CONF{'font_color'}>Last</font></a>]";
	}
	print "</font></td></tr>";
	&Tfoot;
}

sub loginok {
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($pass eq $CONF{'admin_pwd'}) {
		&head;
		print "<p>&nbsp;<p>&nbsp;\n";
		print "<font class=ver9>°ü¸®ÀÚ ¸ðµå·Î Á¢¼ÓÇÏ¿´½À´Ï´Ù.<p>\n";
		print "¿øÇÏ´Â Ç׸ñÀ» ¼±ÅÃÇϽðí \"LET'S GO!!!\"¹öÆ°À» ´­·¯ÁÖ¼¼¿ä!</font>\n";
		&Fhead("POST", "$cgi_url");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","passwd","$pass");
		print "<select name=action>\n";
		print "<option value=admin_conf selected>°Ô½ÃÆÇ È¯°æ¼³Á¤</option>\n";
		print "<option value=html_in>html »ðÀÔ</option>\n";
		print "<option value=notice_form>°øÁö»çÇ× ³²±â±â</option>\n";
		print "<option value=index_repair>À妽º ÀÚµ¿º¹±¸</option></select>\n";
		print &Input("submit","","LET'S GO!!!");
		&Ffoot;
		print "<p>&nbsp;<p>&nbsp;\n";
		&foot;
	}
	else {
		&error("pass");
	}
}

sub admin_conf {
	my($board_left, $board_center, $board_right, $only_yes, $only_no, $ip_yes, $ip_no, $point_yes, $point_no, $etc_yes, $etc_no, $io_yes, $io_no, $pds_yes, $pds_no, $dv_yes, $dv_no, $kv_yes, $kv_no, $smail_yes, $smail_no, $search_yes, $search_no, $speed_yes, $speed_on);
	if($FORM{'passwd'} eq $CONF{'admin_pwd'}){
		if($CONF{'left_right'} eq "left"){
			$board_left = "selected";
			$board_center = "";
			$board_right = "";
		}
		elsif($CONF{'left_right'} eq "center"){
			$board_left = "";
			$board_center = "selected";
			$board_right = "";		
		}
		else{
			$board_left = "";
			$board_center = "";
			$board_right = "selected";
		}
		if($CONF{'admin_only'} eq "yes"){
			$only_yes = "selected";
			$only_no = "";
		}
		else{
			$only_yes = "";
			$only_no = "selected";
		}
		if($CONF{'view_ip'} eq "yes"){
			$ip_yes = "selected";
			$ip_no = "";
		}
		else{
			$ip_yes = "";
			$ip_no = "selected";
		}
		if($CONF{'point_ok'} eq "yes"){
			$point_yes = "selected";
			$point_no = "";
		}
		else{
			$point_yes = "";
			$point_no = "selected";
		}
		if($CONF{'etc_ok'} eq "yes"){
			$etc_yes = "selected";
			$etc_no = "";
		}
		else{
			$etc_yes = "";
			$etc_no = "selected";
		}
		if($CONF{'dgr_ok'} eq "yes"){
			$dgr_yes = "selected";
			$dgr_no = "";
		}
		else{
			$dgr_yes = "";
			$dgr_no = "selected";
		}
		if($CONF{'i_opt'} eq "yes"){
			$io_yes = "selected";
			$io_no = "";
		}
		else{
			$io_yes = "";
			$io_no = "selected";
		}
		if($CONF{'scr_opt'} eq "yes"){
			$scr_yes = "selected";
			$scr_no = "";
		}
		else{
			$scr_yes = "";
			$scr_no = "selected";
		}
		if($CONF{'pds_ok'} eq "yes"){
			$pds_yes = "selected";
			$pds_no = "";
		}
		else{
			$pds_yes = "";
			$pds_no = "selected";
		}
		if($CONF{'down_view'} eq "yes"){
			$dv_yes = "selected";
			$dv_no = "";
		}
		else{
			$dv_yes = "";
			$dv_no = "selected";
		}
		if($CONF{'kind_view'} eq "yes"){
			$kv_yes = "selected";
			$kv_no = "";
		}
		else{
			$kv_yes = "";
			$kv_no = "selected";
		}
		if($CONF{'sendmail_ok'} eq "yes"){
			$smail_yes = "selected";
			$smail_no = "";
		}
		else{
			$smail_yes = "";
			$smail_no = "selected";
		}
		if($CONF{'admin_sender'} eq "yes"){
			$asender_yes = "selected";
			$asender_no = "";
		}
		else{
			$asender_yes = "";
			$asender_no = "selected";
		}
		if($CONF{'search_ok'} eq "yes"){
			$search_yes = "selected";
			$search_no = "";
		}
		else{
			$search_yes = "";
			$search_no = "selected";
		}
		if($CONF{'speed_up'} eq "no"){
			$speed_yes = "";
			$speed_no = "selected";
		}
		else{
			$speed_yes = "selected";
			$speed_no = "";
		}
		my($pass) = &Input("password","admin_pwd","","","","13","");
		my($pass_eq) = &Input("password","admin_pwd_eq","","","","13","");
		my($msize_val) = &Input("text","max_size","$CONF{'max_size'}","","","10","3");
		my($page_val) = &Input("text","page_num","$CONF{'page_num'}","","","10","3");
		my($mdata_val) = &Input("text","max_data","$CONF{'max_data'}","","","10");
		my($sublen_val) = &Input("text","sub_length","$CONF{'sub_length'}","","","10","");
		my($namelen_val) = &Input("text","name_length","$CONF{'name_length'}","","","10","");
		my($fontkind_val) = &Input("text","font_kind","$CONF{'font_kind'}","","","10","");
		my($fontsize_val) = &Input("text","font_size","$CONF{'font_size'}","","","10","");
		my($fontcol_val) = &Input("text","font_color","$CONF{'font_color'}","","","10","");
		my($linkcol_val) = &Input("text","link_color","$CONF{'link_color'}","","","10","");
		my($width_val) = &Input("text", "tbl_width", "$CONF{'tbl_width'}", "","","10","5");
		my($linelen_val) = &Input("text","line_length","$CONF{'line_length'}", "","","10","3");
		my($adminname_val) = &Input("text","admin_name","$CONF{'admin_name'}","","","10","");
		my($homeurl_val) = &Input("text","home_url","$CONF{'home_url'}","","","40","");
		my($adminmail_val) = &Input("text","admin_mail","$CONF{'admin_mail'}","","","20","");
		my($bgcol_val) = &Input("text","bgcolor","$CONF{'bgcolor'}", "", "","8","");
		my($background_val) = &Input("text","background","$CONF{'background'}","","","25","0");
		my($ncel_val) = &Input("text","ncel_color","$CONF{'ncel_color'}","","","10","");
		my($hfontcol_val) = &Input("text","hfont_color","$CONF{'hfont_color'}","","","10","");
		my($headcol_val) = &Input("text","head_color","$CONF{'head_color'}","","","10","");
		my($celcol1_val) = &Input("text","cel_color1","$CONF{'cel_color1'}","","","10","");
		my($celcol2_val) = &Input("text","cel_color2","$CONF{'cel_color2'}","","","10","");
		my($overcol_val) = &Input("text","over_color","$CONF{'over_color'}","","","10","");
		my($selcol_val) = &Input("text","select_color","$CONF{'select_color'}","","","10","");
		my($numcol_val) = &Input("text","num_color","$CONF{'num_color'}","","","10","");
		my($datecol_val) = &Input("text","date_color","$CONF{'date_color'}","","","10","");
		my($readcol_val) = &Input("text","read_color","$CONF{'read_color'}","","","10","");
		my($downcol_val) = &Input("text","down_color","$CONF{'down_color'}","","","10","");
		my($logoimg_val) = &Input("text","logo_img","$CONF{'logo_img'}","","","42","");
		my($txtlogo_val) = &Input("text","logo_txt","$CONF{'logo_txt'}","","","42","");
		my($pnt_max) = &Input("text","pnt_cnt","$CONF{'pnt_cnt'}","","","3","");
		my($find_interval) = &Input("text","find_interval","$CONF{'find_interval'}","","","4","4");
		&head;
		&Fhead("POST","$cgi_url");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","action","make_conf");
		&Thead("500","$CONF{'head_color'}","1","0");
		print "<tr><td align=center><b><font color=$CONF{'hfont_color'}>ȯ°æ ¼³Á¤</font></b></td></tr>\n";
		print "<tr><td>\n";
		&Thead("100%","","1","0");
		print "<tr bgcolor=#FFF3EF><td align=right>[ºñ¹Ð¹øÈ£ º¯°æ½Ã: ºóÄ­ ±×´ë·Î µÎ½Ã¸é ÀÌÀü ºñ¹Ð¹øÈ£ Àû¿ëµÊ]\n";
		print "<br>ºñ¹Ð¹øÈ£ $pass &nbsp;´Ù½ÃÈ®ÀÎ $pass_eq</td></tr>\n";
#--------------------------- À̹ÌÁö ½ºÅ² ȯ°æ¼³Á¤ ºÎºÐ	--------------------------------------------
		&chk_skindir("img");
		print "<tr bgcolor=#FFF3EF><td align=right>À̹ÌÁö ½ºÅ² <select name=img_skin>";
			print "<option value=\"\">»ç¿ë¾ÈÇÔ</option>";
		for(0..$#skin){
			next if($skin[$_] eq "default");
			$skin_chk = ($CONF{'img_skin'} eq "$skin[$_]") ? "selected" : "";
			print "<option value=$skin[$_] $skin_chk>$skin[$_]</option>";
		}
		print "</select></td></tr>\n";
#-----------------------------------------------------------------------------------------------
#--------------------------- CGI ½ºÅ² ȯ°æ¼³Á¤ ºÎºÐ	--------------------------------------------
		&chk_skindir("cgi");
		print "<tr bgcolor=#FFF3EF><td align=right>CGI ½ºÅ² <select name=skin>";
			print "<option value=\"\">»ç¿ë¾ÈÇÔ</option>";
		for(0..$#skin){
			next if($skin[$_] eq "default");
			$skin_chk = ($CONF{'skin'} eq "$skin[$_]") ? "selected" : "";
			print "<option value=$skin[$_] $skin_chk>";
			$skin[$_] =~ s/\.cgi//;
			print "$skin[$_]</option>";
		}
		print "</select></td></tr>\n";
#-----------------------------------------------------------------------------------------------
		print "<tr bgcolor=#FFF3EF><td align=right> °Ô½ÃÆÇ À§Ä¡Á¤¿­\n";
		print "<select name=left_right>\n";
		print "<option value=left $board_left>¿ÞÂÊÁ¤¿­\n";
		print "<option value=center $board_center>Áß°£Á¤¿­\n";
		print "<option value=right $board_right>¿À¸¥ÂÊ Á¤¿­</select></td></tr>\n";

		print "<tr bgcolor=#FFF3EF><td align=right> °ü¸®ÀÚ¸¸ ±Û¾²±â\n";
		print "<select name=admin_only>\n";
		print "<option value=yes $only_yes>YES\n";
		print "<option value=no $only_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#FFF3EF><td align=right> IPÁ¤º¸ º¸±â\n";
		print "<select name=view_ip>\n";
		print "<option value=yes $ip_yes>YES\n";
		print "<option value=no $ip_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#FFF3EF><td align=right> °£´ÜÀÇ°ß ³²±â±â »ç¿ë\n";
		print "<select name=etc_ok>\n";
		print "<option value=yes $etc_yes>YES\n";
		print "<option value=no $etc_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#FFF3EF><td align=right> ºñ°ø°³ ±Û ³²±â±â Çã¿ë\n";
		print "<select name=scr_opt>\n";
		print "<option value=yes $scr_yes>YES\n";
		print "<option value=no $scr_no>NO</select></td></tr>\n";	
		print "<tr bgcolor=#FFF3EF><td align=right> ÀÔ·ÂÆû¿¡¼­ µ¿±ÛÀÌ»ç¿ë\n";
		print "<select name=dgr_ok>\n";
		print "<option value=yes $dgr_yes>YES\n";
		print "<option value=no $dgr_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#FFF3EF><td align=right> ¸®½ºÆ® È­¸é¿¡¼­ Ȩ,¸ÞÀÏ Á¤º¸ º¸À̱â\n";
		print "<select name=i_opt>\n";
		print "<option value=yes $io_yes>YES\n";
		print "<option value=no $io_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#FFF3EF><td align=right>$pnt_max ¸íÀÌ»ó Ãßõ½Ã ¾ÆÀÌÄÜ Ä®¶óÈ­ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ÃßõÁ¡¼öÁ¦ »ç¿ë\n";
		print "<select name=point_ok>\n";
		print "<option value=yes $point_yes>YES\n";
		print "<option value=no $point_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right> ÀÚ·á½Ç·Î »ç¿ëÇϱâ\n"; 
		print "<select name=pds_ok>\n";
		print "<option value=yes $pds_yes>YES\n";
		print "<option value=no $pds_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right> ÆÄÀÏŸÀÔ º¸À̱â\n";
		print "<select name=kind_view>\n";
		print "<option value=yes $kv_yes>YES\n";
		print "<option value=no $kv_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right> ´Ù¿î¼ö º¸À̱â\n";
		print "<select name=down_view>\n";
		print "<option value=yes $dv_yes>YES\n";
		print "<option value=no $dv_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right>ÆÄÀÏ´ç ¿Ã¸±¼ö ÀÖ´Â ÃÖ´ë ¿ë·®(MB) $msize_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>ÇÑÆäÀÌÁö´ç ³ªÅ¸³¯ ±Û °¹¼ö $page_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>µ¥ÀÌŸ ÃÖ´ë ÀúÀå °¹¼ö $mdata_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>Á¦¸ñ ÃÖ´ë±æÀÌ $sublen_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>À̸§ ÃÖ´ë±æÀÌ $namelen_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>±âº» ±Û²Ã Á¾·ù $fontkind_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>±âº» ±ÛÀÚ Å©±â $fontsize_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>±âº» ±ÛÀÚ »ö±ò $fontcol_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>¸µÅ© ±ÛÀÚ »ö±ò $linkcol_val</td></tr>\n";
		print "<tr bgcolor=#FDEDFF><td align=right>°Ô½ÃÆÇ ³ÐÀÌ $width_val</td></tr>\n";
#		print "<tr bgcolor=#FDEDFF><td align=right>½©°£°Ý $linelen_val</td></tr>\n";
		print "<tr bgcolor=#FCFFE7><td align=right>°ü¸®ÀÚ À̸§ $adminname_val</td></tr>\n";
		print "<tr bgcolor=#FCFFE7><td align=right>ȨÆäÀÌÁö URL $homeurl_val</td></tr>\n";
		print "<tr bgcolor=#FCFFE7><td align=right>°ü¸®ÀÚ À̸ÞÀÏ ÁÖ¼Ò $adminmail_val</td></tr>\n";
		if($NT ne "1"){
			print "<tr bgcolor=#FCFFE7><td align=right>±Ûµî·Ï½Ã °ü¸®ÀÚ¿¡°Ô ¸ÞÀÏ·Î ³²±ä±Û º¸³»±â\n";
			print "<select name=admin_sender>\n";
			print "<option value=yes $asender_yes>YES\n";
			print "<option value=no $asender_no>NO</select></td></tr>\n";

			print "<tr bgcolor=#FCFFE7><td align=right>´äº¯µî·Ï½Ã ±Û¾´ÀÌ¿¡°Ô ¸ÞÀÏ·Î ´äº¯±Û º¸³»±â\n";
			print "<select name=sendmail_ok>\n";
			print "<option value=yes $smail_yes>YES\n";
			print "<option value=no $smail_no>NO</select></td></tr>\n";
		}
		print "<tr bgcolor=#EDFFF0><td align=right>¹è°æ»ö $bgcol_val or ¹è°æ À̹ÌÁö URL $background_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'ncel_color'}><td align=right>°øÁö»çÇ× °­Á¶»ö $ncel_val</td></tr>\n";
		my($hcolor)=($CONF{'head_color'})? "$CONF{'head_color'}" : "#ffffff";
		print "<tr bgcolor=$CONF{'hfont_color'}><td align=right><font color=$hcolor>Çìµå ±ÛÀÚ»ö±ò</font> $hfontcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'head_color'}><td align=right><font color=$CONF{'hfont_color'}>Çìµå »ö±ò(ÂðÇÑ»ö)</font> $headcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'cel_color1'}><td align=right><font color=$CONF{'font_color'}>½© »ö±ò1(¿¬ÇÑ»ö)</font> $celcol1_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'cel_color2'}><td align=right><font color=$CONF{'font_color'}>½© »ö±ò2(¿¬ÇÑ»ö)</font> $celcol2_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'over_color'}><td align=right><font color=$CONF{'font_color'}>Ä¿¼­À§Ä¡½Ã ½©»ö</font> $overcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'select_color'}><td align=right><font color=$CONF{'font_color'}>Àаí ÀÖ´Â ±Û Ç¥½Ã»ö</font> $selcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'num_color'}><td align=right><font color=$CONF{'cel_color1'}>¼ýÀÚ Ç¥½Ã»ö</font> $numcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'date_color'}><td align=right><font color=$CONF{'cel_color1'}>³¯Â¥ Ç¥½Ã»ö</font> $datecol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'read_color'}><td align=right><font color=$CONF{'cel_color1'}>ÀÐÀº¼ö Ç¥½Ã»ö</font> $readcol_val</td></tr>\n";
		print "<tr bgcolor=$CONF{'down_color'}><td align=right><font color=$CONF{'cel_color1'}>´Ù¿î¼ö Ç¥½Ã»ö</font> $downcol_val</td></tr>\n";
#--------------------------- ±×¶óµ¥ÀÌ¼Ç È¯°æ¼³Á¤ ºÎºÐ	--------------------------------------------
		print "<tr  bgcolor=$CONF{'cel_color1'}><td align=right><font color=$CONF{'font_color'}>±×¶óµ¥ÀÌ¼Ç »ç¿ë</font>\n";
		print "<select name=templet>\n";
		my(@tpl, @tpl_list, $tpl_data, $tpl_chk, $tpl_maker, $tpl_mail, $tpl_where, $tpl_name);
		opendir(TPL_DIR, "$tpl_dir/tpl");
		@tpl = sort (grep (!/^\.{1,2}$/, readdir(TPL_DIR)));
		closedir(TPL_DIR);
		
		print "<option value=\"\">»ç¿ë¾ÈÇÔ</option>";
		for(0..$#tpl){
			open(NAME, "$tpl_dir/tpl/$tpl[$_]");
			$tpl_data = <NAME>;
			close(NAME);
			@tpl_list = split(/\|/,$tpl_data);
			
			$tpl_name =  $tpl_list[0];
			if($CONF{'templet'} eq "$tpl[$_]"){ 
		    	$tpl_chk = "selected";
				$tpl_maker = $tpl_list[7];
				$tpl_mail = $tpl_list[8];
				$tpl_where = $tpl_list[9];
			}
			else{
				$tpl_chk = "";
			}
			print "<option value=$tpl[$_] $tpl_chk>$tpl_name</option>";
		}
		print "</select></td></tr>\n";
		print "<tr bgcolor=$CONF{'cel_color1'}><td align=right><font color=$CONF{'font_color'}>ÅÛÇø´ Á¦ÀÛÀÚ Á¤º¸ -</font> <a href=mailto:$tpl_mail><img src=$img_url/mail.gif border=0> <font color=$CONF{'font_color'}>$tpl_maker</font></a> &nbsp; <a href=$tpl_where target=_blank><img src=$img_url/home.gif border=0> <font color=$CONF{'font_color'}>$tpl_where</font></a></td></tr>\n" if($CONF{'templet'} ne "");
#-----------------------------------------------------------------------------------------------
		print "<tr bgcolor=#EFFBFF><td align=right>logo À̹ÌÁö URL $logoimg_val</td></tr>\n";
		print "<tr bgcolor=#EFFBFF><td align=right>ÅؽºÆ® ·Î°í $txtlogo_val</td></tr>\n";
		for(0..6){
			my $sun = $_ + 1;
			print "<tr bgcolor=#EFFBFF><td align=right>»¡¸®°¡±â$sun. ID ".&Input("text", "quick_id$_","$quick_id[$_]","","","17","");
			print "NAME ".&Input("text", "quick_name$_","$quick_name[$_]","","","17","")."</td></tr>\n";
		}
		print "<tr bgcolor=#F6FDFF><td align=right>°Ë»ö µ¥ÀÌŸ°£°Ý(1000°³ ÀÌÇÏ) $find_interval</td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right> °Ë»öâ º¸À̱â\n";
		print "<select name=search_ok>\n";
		print "<option value=yes $search_yes>YES\n";
		print "<option value=no $search_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right> ¼Óµµ ºü¸£°Ô\n";
		print "<select name=speed_up>\n";
		print "<option value=yes $speed_yes>YES\n";
		print "<option value=no $speed_no>NO</select></td></tr>\n";
		print "<tr bgcolor=#F6FDFF><td align=right>½¬´Â ¿äÀÏ &nbsp;"; 
		&get_date;

		my @en_week = qw(sun mon tue wed thu fri sat);	
		for(0..6){
			print &Checkbox("$en_week[$_]","$week[$_]","$lock_week[$_]");
			print "$week[$_] &nbsp;";
		}
		
		print "</td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		print "<br>";
		&ok_admin;
		print "<br>";
		print &Input("submit","","µî·ÏÇϱâ").&Input("reset","","´Ù½ÃÀû±â");
		&Ffoot; 
		&foot;
	}
	else{
		&error("pass");
	}
}

sub chk_skindir{
	my($kind, $dir);
	
	$kind = shift;
	if($kind eq "img"){
		$dir = "$img_dir/skin";
	}
	else{
		$dir = "$cgiskin_dir";
	}
	opendir(SKIN_DIR, "$dir");
	@skin = sort grep (!/^\.{1,2}$/,readdir(SKIN_DIR));
	closedir(SKIN_DIR);
}

sub point_up{
	my(@num_list, @pnt_data, $man_num, $all_pnt, $search_opt, $goto_url);
	local $cook = "$FORM{'id'}$FORM{'action'}$FORM{'number'}";
	&cookie;
	if($COOKIE{$cook} ne "$ENV{'REMOTE_ADDR'}$cook"){
		open(POINT,"$main_dir/num/$FORM{'number'}");
		@num_list = <POINT>;
		close(POINT);
		@pnt_data = split(/\|/,"$num_list[0]");
		$man_num = $pnt_data[3];
		$all_pnt = $pnt_data[4];
		$man_num++;
		$all_pnt += $FORM{'point_val'};
		open(DATA,">$main_dir/num/$FORM{'number'}");
		print DATA "|$pnt_data[1]|$pnt_data[2]|$man_num|$all_pnt|";
		close(DATA);

		$search_opt = $FORM{'category'} ? "&category=$FORM{'category'}&keyword=$FORM{'keyword'}" : "";
		$goto_url = "$cgi_url?id=$FORM{'id'}&page=$FORM{'page'}&action=view&number=$FORM{'number'}&cnt=no&img=$FORM{'img'}&simple=$FORM{'simple'}$search_opt";
		&head;
		print "<META HTTP-EQUIV=Refresh CONTENT=1;URL=$goto_url>\n";
		print "<p>&nbsp;<p>&nbsp;<p>&nbsp;<hr width=300 color=$CONF{'head_color'}>\n";
		print "<font class=ver9><font class=ver9>Loading ......</font></font>\n";
		print "<hr width=300 color=$CONF{'head_color'}>\n";
		print "<br><br><a href=$goto_url>¢¸</font><font color=#92B8FF>¢¸</font> <font class=ver9><font class=ver9>°Ô½ÃÆÇÀ¸·Î µ¹¾Æ°¡±â</font></font></a><p>\n" if($FORM{'simple'} ne "yes");
		&foot;
	}
	else{
		&error("ip");
	}
}

sub html_in{
	my(@html_up, @html_down);
	if($FORM{'passwd'} eq $CONF{'admin_pwd'}){
		&head;
		&Fhead("POST","$cgi_url");
		print &Input("hidden","action","html_write");
		print &Input("hidden", "id", "$FORM{'id'}");
		&Thead("600","$CONF{'head_color'}","1","0");
		print "<tr><td>\n";
		&Thead("100%","$CONF{'cel_color1'}","3","0");
		print "<tr><td>\n";
		&Thead("100%","$CONF{'cel_color2'}","0","3");

		open(UPHTML,"$main_dir/up.htm");
		@html_up = <UPHTML>;
		close(UPHTML);
		print "<tr><td colspan=4 class=ver9><p align=center><b>¨Ú</b> °Ô½ÃÆÇ À§¿¡ »ðÀ﵃ htmlÄÚµå <b>&lt;body&gt;...</font><br><textarea name=html_up rows=6 cols=70>\n";
		foreach $_(@html_up) {
			$_ =~ s/\r?\n/\n/g;
			print "$_";	
		}	
		print "</TextArea></td></tr>\n";

		open(DOWNHTML,"$main_dir/down.htm");
		@html_down = <DOWNHTML>;
		close(DOWNHTML);
		print "<tr><td colspan=4 class=ver9><p align=center><b>¨Ú</b> °Ô½ÃÆÇ ¾Æ·¡¿¡ »ðÀ﵃ htmlÄÚµå <b>...&lt;/body&gt;</b><br><textarea name=html_down rows=6 cols=70>\n";
		foreach $_(@html_down) {
			$_ =~ s/\r?\n/\n/g;
			print "$_";	
		}	
		print "</TextArea></td></tr>\n";
		print "<tr><td align=center>\n";
		&ok_admin;
		print "</td></tr>\n";
		print "<tr><td align=center>\n";
		print &Input("submit", "", " ¿Ï ·á ");
		print &Input("reset", "", "´Ù½ÃÀû±â");
		print "</td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		&Ffoot;
		&foot;
	}
	else{
		&error("pass");
	}
}

sub index_repair{
	if($FORM{'passwd'} eq $CONF{'admin_pwd'}){
		&head;
		&Fhead("POST","$cgi_url");
		print &Input("hidden","action","repair_idx");
		print &Input("hidden", "id", "$FORM{'id'}");
		&Thead("600","$CONF{'head_color'}","1","0");
		print "<tr><td>\n";
		&Thead("100%","$CONF{'cel_color1'}","3","0");
		print "<tr><td>\n";
		&Thead("100%","$CONF{'cel_color2'}","0","3");
		print "<tr><td align=center><br><br><font color=$CONF{'font_color'}>À妽ºÆÄÀÏÀ» ÀÚµ¿º¹±¸ ÇÕ´Ï´Ù....<br><br>°ü¸®ÀÚ ºñ¹Ð¹øÈ£¸¦ ÀûÀ¸½Ã°í 'º¹±¸Çϱâ' ¹öÆ°À» ´­·¯ÁÖ¼¼¿ä.</font><br><br>\n";
		print "<font color=666666>(¡Ø ÀÌ ¼­ºñ½º´Â °Ô½ÃÆÇ¿¡ ¿Ã¸° °Ô½Ã¹° ¼ö¿Í ³ªÅ¸³ª´Â ±Û¼ö°¡<br> ÀÏÄ¡ÇÏÁö ¾ÊÀ»¶§ »ç¿ëÇÏ½Ã¸é µË´Ï´Ù.)</font><br><br><br><br>";
		print "</td></tr>\n";
		print "<tr><td align=center>\n";
		&ok_admin;
		print "</td></tr>\n";
		print "<tr><td align=center>\n";
		print &Input("submit", "", "º¹±¸Çϱâ");
		print &Input("reset", "", "´Ù½ÃÀû±â");
		print "<br><br></td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		print "</td></tr>\n";
		&Tfoot;
		&Ffoot;
		&foot;
	}
	else{
		&error("pass");
	}
}

sub html_write{
	my $pass = crypt($FORM{'passwd'},"sp");
	if($pass eq $CONF{'admin_pwd'}){
		open(UPDATA, ">$main_dir/up.htm");
		print UPDATA "$FORM{'html_up'}";
		close(UPDATA);
	
		open(DOWNDATA, ">$main_dir/down.htm");
		print DOWNDATA "$FORM{'html_down'}";
		close(DOWNDATA);
		&load_page;
	}
	else{
		&error("ok_admin");
	}
}

sub repair_idx{
	my($pass) = crypt($FORM{'passwd'},"sp");
	if($pass ne $CONF{'admin_pwd'}){
		&error("ok_admin");
	}
	
	for(1..10){
		unlink "$main_dir/idx/$_.cgi";
	}
	unlink "$main_dir/idx/index.cgi";
	&make_idx;
	&load_page;
}

#µ¥ÀÌŸ ±æÀÌ Á¦ÇÑ ÇÔ¼ö ----------------------------------------------------------
sub cut_len{
	my($val, $cut_len) = @_;
	
	if(length($val) > $cut_len){
		$val = substr($val,0,$cut_len);
		chop $val if(($val =~ tr/[\xA1-\xFE]//)%2 != 0);
		$val = "$val...";
	}
	
	return $val;
}

sub make_conf{
	my($pass) = crypt($FORM{'passwd'},"sp");

	if($pass eq $CONF{'admin_pwd'}){ 
		if($FORM{'admin_pwd'} eq ""){
			$FORM{'admin_pwd'} = $CONF{'admin_pwd'};
		}
		elsif($FORM{'admin_pwd'} eq $FORM{'admin_pwd_eq'}){
		
			$FORM{'admin_pwd'} = crypt($FORM{'admin_pwd'},"sp");
		}
		else{
			&error("pass");
		}

		for(0..6){
			my $qid_val = "quick_id$_";
			my $qname_val = "quick_name$_";
			$FORM{'quick_id'} .= "$FORM{$qid_val}|";
			$FORM{'quick_name'} .= "$FORM{$qname_val}|";
		}
		$FORM{'lock_week'} = "$FORM{'sun'}|$FORM{'mon'}|$FORM{'tue'}|$FORM{'wed'}|$FORM{'thu'}|$FORM{'fri'}|$FORM{'sat'}|";
		open(SAVE,">$main_dir/conf.cgi");
		
		$CONF{'scr_opt'} = $FORM{'scr_opt'};           #¾÷±×·¹À̵åÀÚ¸¦ À§ÇØ...
		$CONF{'admin_sender'} = $FORM{'admin_sender'}; #¾÷±×·¹À̵åÀÚ¸¦ À§ÇØ...
		$CONF{'link_color'} = $FORM{'link_color'};     #¾÷±×·¹À̵åÀÚ¸¦ À§ÇØ...
		foreach (sort keys %CONF) {
			print SAVE "$_ = $FORM{$_}\n";
		}
		close(SAVE);
		
		#------------------------- ÆäÀÌÁöº° À妽º Á¤¸®
		$CONF{'page_num'} = $FORM{'page_num'};
		&read_idx;
		my $num_data = @ary;
		unless($num_data eq "0"){
			&lock;
			open(NUM,">$main_dir/idx/num.cgi"); 
			print NUM $num_data;
			close(NUM);
			for(1..10){
				open(PAGE,">$main_dir/idx/$_.cgi");
				my $start = ($_ - 1)*$CONF{'page_num'};
				for(0..$CONF{'page_num'}-1){
					print PAGE "$ary[$start+$_]\n";
				}
				close(PAGE);
			}
			&unlock;
		}
		#-----------------------------------------
		&load_page;
	}
	else{
		&error("ok_admin");
	}
}

sub view_notice{
	my(@views, @notice, @auto, $html, $subject, $comments, $rdate, $auto_link, $auto_br, $read_num, $plus_num);
	open(VFILE,"$main_dir/notice.cgi");
	@views = <VFILE>;
	close(VFILE);	
	@notice = split(/\|/,$views[0]);
	$html = $notice[0];
	$subject = $notice[1];
	$comments = $notice[2];
	$rdate=substr($notice[3],0,18);
	@auto = split(/\|/, $views[1]);
	$auto_link = $auto[0];
	$auto_br = $auto[1];
	unless($views[1] =~ /\|/) { #3Â÷ ¾÷±×·¹À̵å ÀÚ¸¦ À§ÇØ... ³ªÁß¿¡ »èÁ¦????
		$auto_br = "1";
		$auto_link = "1" if(chomp($views[1]) eq "1");
	}
	open(NUM,"$main_dir/num/notice.cgi");
	$read_num = <NUM>;
	close(NUM);
	$cook = "$FORM{'id'}$FORM{'action'}";
	&cookie;
	if($COOKIE{$cook} ne "$ENV{'REMOTE_ADDR'}$cook"){
		$plus_num = ($FORM{'cnt'} ne "no") ? $read_num + 1 : $read_num;
	}
	else{
		$plus_num = $read_num;
	}
	
	if($FORM{'cnt'} ne "no"){
		&lock if($CONF{'speed_up'} eq "no");
		open(NFI,">$main_dir/num/notice.cgi");
		print NFI "$plus_num";
		close(NFI);
		&unlock if($CONF{'speed_up'} eq "no");
	}
	if ($html ne "1") { 
        $comments =~ s/<br>/\r\n/g;
	    $comments =~ s/</&lt;/g;
        $comments =~ s/>/&gt;/g;
        $comments =~ s/"/&quot;/g;
#	    $comments =~ s/&lt;hr&gt;/<hr>/g;
		$comments =~ s/\r?\n/<br>/g;
	}	
	else{
		$comments =~ s/&lt;br&gt;/<br>/g;
		$comments =~ s/&lt;p&gt;/<p>/g;
	}
	$comments =~ s/<br>/\r\n/g if($auto_br ne "1");

	if($auto_link eq "1"){
		$comments =~ s/(http:\/\/)([\w\+\-\/\=\?\.\~\&]+)/<img src=$img_url\/home.gif width=10 height=10> <a href=\"$1$2\" target=\"_new\"><font color=$CONF{'link_color'}>$1$2<\/font><\/a>/g;
		if($NT eq "1"){
			$comments =~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"mailto:$1\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;
		}
		else{
			$comments=~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/<img src=$img_url\/mail.gif width=14 height=10> <a href=\"javascript:newin(400, 267, 'sendmail.cgi?name=$1&mail=$1&prog=$sendmail&home_url=$CONF{'home_url'}','spmail')\"><font color=$CONF{'link_color'}>$1<\/font><\/a>/g;			
		}
	}

	$comments = &view_dongury("$comments") if($CONF{'dgr_ok'} eq "yes");
	
	&head;
	print "<p>\n";
	&Thead("100%","","1","0");
	print "<tr><td colspan=2 class=ver9>ÀÛ¼ºÀÏÀÚ - <font color=$CONF{'date_color'}>$rdate</font></td></tr>\n";
	print "<tr><td>\n";
	&Thead("100%","0","2","0");
	print "<tr bgcolor=$CONF{'head_color'}><td><font color=$CONF{'hfont_color'}><b>¨Ú</b> <b>$subject</font></b></td>\n";
	print "<td align=right><font color=$CONF{'hfont_color'}>Á¶È¸¼ö [ <b>$plus_num</b> ]</font>\n";
	print "<a href=$cgi_url?id=$FORM{'id'}&action=admin_ok><img src=$img_url/modify.gif border=0 alt=\"¼öÁ¤Çϱâ\"></a>\n";
	print "<a href=$cgi_url?id=$FORM{'id'}&action=admin_remove><img src=$img_url/remove.gif border=0 alt=\"»èÁ¦Çϱâ\"></a> &nbsp;</tr>\n";
	&Tfoot;
	print "</td></tr>\n";
	print "<tr><td colspan=2>\n";
	&Thead("100%","$CONF{'cel_color1'}","3","0");
	print "<tr><td height=220 valign=top  class=ver9><p class=cont>$comments</p>";
	print "</td></tr>\n";
	print "<tr><td>";
#---------------------------------------------------------------------------------
	if($CONF{'etc_ok'} eq "yes"){
		print "<script language=\"javascript\">\n";
		print "function clearField(field){\n";
		print "if (field.value == field.defaultValue) {\n";
		print "field.value = \"\"\;\n";
		print "}\n";
		print "}\n";
		print "function checkField(field){\n";
		print "if (field.value == \"\") {\n";
		print "field.value = field.defaultValue\;\n";
		print "}\n";
		print "}\n";
		print "</script>\n";
		&Fhead("POST","$cgi_url");
		print &Input("hidden","action","etc_write");
		print &Input("hidden","id","$FORM{'id'}");
		print &Input("hidden","page","$FORM{'page'}");
		print &Input("hidden","cnt","no");
		print &Input("hidden","number","notice.cgi");
		print &Input("hidden","simple","$FORM{'simple'}");

		if($FORM{'category'}){
			print &Input("hidden","category","$FORM{'category'}");
			print &Input("hidden","keyword","$FORM{'keyword'}");
		}
		&Thead("100%","","3","0");
		print "<tr><td><input type=text name=etc size=40 maxlength=47  value=\"¡Ø °£´ÜÀÇ°ß ³²±â±â\" onBlur=\"checkField(this)\" onFocus=\"clearField(this)\" style=\"background-color:#F6F6F6;border:1 solid black\">\n";
		print &Input("submit","", "³²±â±â");
		print " &nbsp;<a href=$cgi_url?id=$FORM{'id'}&action=etcall_del&num=notice.cgi&page=$page><img src=$img_url/etc_del.gif border=0 alt=\"°£´ÜÀÇ°ß Àüü±Û »èÁ¦\"></a></td></tr>\n";
		my(@etc, @color, $end_num, $gd, $color_val);
		if(-e "$main_dir/etc/notice.cgi"){
			open (ETC, "$main_dir/etc/notice.cgi");
			@etc = <ETC>;
			close (ETC);
			chop(@etc);
			$end_num = @etc;
			@color= ('#FF0000', '#FF0000', '#FF9F47', '#FF9F47', '#009900', '#009900', '#0C2099', '#0C2099', '#991098', '#991098');
			for(0..$end_num-1){
				if($etc[$_] ne ""){
					my @gubun = split(/\|/, $etc[$_]);
					$gd = $_ + 1;
					print "<tr><td><a href=$cgi_url?id=$FORM{'id'}&action=etc_del&number=notice.cgi&sun=$_><img src=$img_url/etc.gif border=0 alt=\"$gd¹ø° ÀÇ°ß »èÁ¦Çϱâ [IP: $gubun[1]]\"></a> <font color=$color[$_]>$gubun[0]</font></td></tr>\n";
				}
			}
		}
		&Tfoot;
		&Ffoot;
	}
#----------------------------------------------
	print "</td></tr>\n";
	&Tfoot;

	&Thead("100%","","0","0");
	print "<tr><td background=$img_url/spot.gif><img src=$img_url/spot.gif border=0></td></tr>\n";
	&Tfoot;

	print "</td></tr>\n";
	&Tfoot;
	print "<p align=center><a href=$cgi_url?id=$FORM{'id'}><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><p>\n";
	&foot;
}

sub color_man{
	my ($R, $G, $B) = @_;
	$R = &unhex($R);
	$G = &unhex($G);
	$B = &unhex($B);

	return '#'.$R.$G.$B;
}

sub unhex{
	my(@hex, %HEX, $num, $val);	
	$num = shift;

	for(1..5){
		$hex[$_] = $num%16;
		last if($num < 16);
		$num = ($num-$hex[$_])/16;
	}
	
	%HEX = (15 => F, 14 => E, 13 => D, 12 => C, 11 => B, 10 => A);
	
	foreach (reverse @hex){
		$val .= ($_ >= 10 ) ? $HEX{$_} : $_;		
	}
	$val = "0$val" if(length($val) == 1);
	
	return $val;
}

sub error {
	local($err) = $_[0];
	&head;
	print "<br><br><br><br>";
	print "<font color=$CONF{'font_color'}>";
	if($err eq "id") {
		print "<h2><u style=\"\">°Ô½ÃÆÇÀ̸§ ¿¡·¯</u></h2>\n";
		print "±ÍÇÏ°¡ ¿ä±¸ÇÏ´Â °Ô½ÃÆÇÀ» ãÀ» ¼ö ¾øÀ¾´Ï´Ù<br>\n";
		print "¹Ýµå½Ã board.cgi?<font color=red>id=db</font> Çü½ÄÀ¸·Î ºÒ·¯¾ß ÇÕ´Ï´Ù.\n";
	}
	elsif($err eq "bad_link"){
		print "<h2><u style=\"\">¹«´Ü¸µÅ© ¿¡·¯</u></h2>\n";
		print "¹«´Ü¸µÅ©´Â »ï°¡ÇØ ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "bad_ip"){
		print "<h2><u style=\"\">´ç½ÅÀº ºÒ·®»ç¿ëÀÚÀÔ´Ï´Ù.</u></h2>\n";
		print "´ç½ÅÀº ºÒ·®»ç¿ëÀÚ·Î µî·ÏµÇ¾ú½À´Ï´Ù...\n";
	}
	elsif($err eq "bad_word"){
		print "<h2><u style=\"\">³ª»Û ´Ü¾î»ç¿ë ¿¡·¯</u></h2>\n";
		print "<font color=red>'$bad_word'</font>(ÀÌ)¶ó´Â ´Ü¾î´Â »ç¿ë±ÝÁöµÈ ´Ü¾îÀÔ´Ï´Ù.<br>\n";
		print "¹Ù¸£°í °í¿î¸»À» »ç¿ëÇØ ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "dobae"){
		print "<h2><u style=\"\">µµ¹è±Û ¿¡·¯</u></h2>\n";
		print "µµ¹è(°°Àº±ÛÀ» ¿©·¯¹ø ¿Ã¸®´Â ÇàÀ§)´Â »ï°¡ÇØ ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "time_chk"){
		print "<h2><u style=\"\">ŸÀÓäŷ ¿¡·¯</u></h2>\n";
		print "µµ¹è(°°Àº±ÛÀ» ¿©·¯¹ø ¿Ã¸®´Â ÇàÀ§)¸¦ ¹æÁöÇϱâ À§ÇÏ¿©<br>\n";
		print "±ÛÀ» ³²±â½ÅÈÄ $cook_timeÃÊ°£Àº ±ÛÀ» ³²±â½Ç ¼ö ¾ø½À´Ï´Ù...<br>\n";
		print "ÇöÀç½Ã°£ÀÌÈÄ $cook_timeÃÊ°¡ Áö³­ÈÄ¿¡¸¸ ±ÛÀ» ¿Ã¸®½Ç ¼ö ÀÖ½À´Ï´Ù...";
	}
	elsif($err eq "no_dir"){
		print "<h2><u style=\"\">°Ô½ÃÆÇ ¾ÆÀ̵𠿡·¯</u></h2>\n";
		print "±ÍÇÏ°¡ ¿ä±¸ÇÏ´Â °Ô½ÃÆÇÀÇ ¾ÆÀ̵ð µð·ºÅ丮¸¦ ãÀ» ¼ö ¾øÀ¾´Ï´Ù<br>\n";
		print "<br>spboardµð·ºÅ丮¼ÓÀÇ idµð·ºÅ丮 ¼Ó¿¡´Ù°¡<br>\n";
		print "<font color=red>$FORM{'id'}</font> µð·ºÅ丮¸¦ ¸¸µå½Ã°í Æ۹̼ÇÀ» 777·Î ÁÖ¼Å¾ß ÇÕ´Ï´Ù.\n";		
	}
	elsif($err eq "ip") {
		print "<H2><u>Áߺ¹Ãßõ ¿¡·¯</u></H2>\n";
		print "Áߺ¹ÃßõÀº »ï°¡ÇØ ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "pass") {
		print "<H2><u>ºñ¹Ð¹øÈ£ ¿¡·¯</u></H2>\n";
		print "ºñ¹Ð¹øÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù.\n";
	}
	elsif($err eq "ok_admin") {
		print "<H2><u>ºñ¹Ð¹øÈ£ ¿¡·¯</u></H2>\n";
		print "°ü¸®ÀÚ ºñ¹Ð¹øÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù.\n";
	}
	elsif($err eq "admin") {
		print "<H2><u>ºñ¹Ð¹øÈ£ ¿¡·¯</u></H2>\n";
		print "ÇöÀç ÀÌ °Ô½ÃÆÇÀº °ü¸®ÀÚ¸¸ ±ÛÀ» ³²±â½Ç ¼ö ÀÖ½À´Ï´Ù.<br> °ü¸®ÀÚ ºñ¹Ð¹øÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù.\n";
	}
	elsif($err eq "email") {
		print "<H2><u>email ¿¡·¯</u></H2>\n";
		print "À̸ÞÀÏ Çü½ÄÀÌ À߸øµÇ¾ú³×¿ä...\n";
	}
	elsif($err eq "exist") {
		print "<H2><u>°°Àº À̸§ÀÇ ÆÄÀÏÀÌ Á¸ÀçÇÕ´Ï´Ù. </u></H2>\n";
		print "ÆÄÀÏÀ̸§À» ¹Ù²Ù½ÅÈÄ ¿Ã·ÁÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "keyword") {
		print "<H2><u>°Ë»ö¾î ÀÔ·Â ¿¡·¯</u></H2>\n";
		print "°Ë»ö¾î¸¦ ÀÔ·ÂÇϽÃÁö ¾ÊÀ¸¼Ì¾î¿ä<br>°Ë»öÇÏ·Á¸é °Ë»ö¾î¸¦ ÀÔ·ÂÇϼ¼¿ä\n";
	}
	elsif($err eq "size") {
		print "<H2><u>ÆÄÀÏÀÇ »çÀÌÁî°¡ ³Ê¹« Ä¿¿ä... </u></H2>\n";
		print "ÇöÀç ¿Ã¸±¼ö ÀÖ´Â <font color=blue>ÃÖ´ë ¿ë·®</font>Àº ÆÄÀÏ´ç <font color=red>$CONF{'max_size'} MB</font> ÀÔ´Ï´Ù.<br>ÀÚ·á½ÇÀÇ ¿ë·®°ü°è·Î »çÀÌÁî°¡ ÃÖ´ë¿ë·®º¸´Ù ÀÛÀº ÆÄÀÏÀ» ¿Ã·ÁÁÖ¼¼¿ä.\n";
	}
	elsif($err eq "double") {
		print "<H2><u>µÑÁß Çϳª¸¸ °¡´ÉÇÕ´Ï´Ù.</u></H2>\n";
		print "<font color=red>ÆÄÀϸµÅ©</font>³ª <font color=red>ÆÄÀϾ÷·Îµå</font> µÑÁß Çϳª¸¸ ¼±ÅÃÇØ ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "link") {
		print "<H2><u>ÆÄÀÏ ¸µÅ©´Â <font color=red>http:\/\/</font> ¶Ç´Â <font color=red>ftp:\/\/</font> ·Î ½ÃÀÛ ÇØ¾ß ÇÕ´Ï´Ù.</u></H2>";
	}
	elsif($err eq "notice") {
		print "<H2><u>°øÁö»çÇ× ÀÔ·Â ¿¡·¯!!!</u></H2>\n";
		print "Á¦¸ñÀ̳ª ³»¿ëÀ» ²À Àû¾î ÁÖ¼¼¿ä...\n";
	}
	elsif($err eq "dgr"){
		print "<H2><u>µ¿±ÛÀ̸¦ ³Ê¹« ¸¹ÀÌ »ç¿ëÇ߳׿ä...</u></H2>\n";
		print "µ¿±ÛÀÌ´Â ÃÖ´ë 50°³±îÁö »ç¿ë°¡´ÉÇÕ´Ï´Ù...\n";
	}
	elsif($err eq "date") {
		print "<H2><u>³¯Â¥ ÀÔ·Â ¿¡·¯!!!</u></H2>\n";
		print "³¯Â¥°¡ Àç´ë·Î ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù...\n";
	}
	elsif($err eq "send"){
		print "<H2><u>¸ÞÀÏ ÀÔ·Â ¿¡·¯!!!</u></H2>\n";
		print "¹Þ´ÂÀÌ À̸ÞÀÏÀÌ Àç´ë·Î ÀԷµÇÁö ¾Ê¾Ò½À´Ï´Ù...\n";
	}
	elsif($err eq "no_select"){
		print "<H2><u>¼±ÅÃÇϽŠ±ÛÀÌ ¾ø³×¿ä!!!</u></H2>\n";
		print "Àå¹Ù±¸´Ï¿¡ ´ã¾Æ º¸±â ¿øÇϽô ±ÛµéÀ» üũÇØ ÁÖ¼¼¿ä...\n";
	}
	else{
		print "<H2><u>°Ô½ÃÆÇ ÀÛ¼º ¿¡·¯</u></H2>\n";
		print "À̸§, Á¦¸ñ, ³»¿ë¶õÀº ¹Ýµå½Ã ä¿ì¼Å¾ß ÇÕ´Ï´Ù\n";
	}
	print "</font>";
	print "<br><br><br>\n";
	print "<a href=\"javascript:history.go(-1)\">¢¸µ¹¾Æ°¡±â(BACK)</a><p>\n";
	print "<br><br><a href=$cgi_url?id=$FORM{'id'}&page=$page><img src=$img_url/backtolist.gif border=0 alt=\"±Û ¸ñ·ÏÀ¸·Î\"></a><br><br><br><br><br><br>\n";
	&foot;	
}

sub Input{
	my($type, $name, $value, $back_color, $solid_color, $size, $maxlength) = @_;
	$back_color = "#FAFAFA" if($back_color eq "");
	$solid_color = "#333333" if($solid_color eq "");
	my($name_val) = $name ? "name=$name" : '';
	my($value_val) = ($value ne "") ? "value=\"$value\"" : '';
	my($size_val) = $size ? "size=$size" : '';
	my($max_len) = $maxlength ? "maxlength=$maxlength" : '';
	my($input_style) = "style='background-color:$back_color;border:1 solid $solid_color;height:20'" if($type ne "hidden");
	return "<input type=$type $name_val $value_val $size_val $max_len $input_style>\n";
}

sub Textarea{
	my($cols, $rows, $name, $back_color, $solid_color,$comment) = @_;
	my($textarea_style);
	$back_color = "#FAFAFA" if($back_color eq "");
	$solid_color = "#333333" if($solid_color eq "");
	$textarea_style = "style='background-color:$back_color;border:1 solid $solid_color'";
	return "<textarea cols=$cols rows=$rows name=$name $textarea_style>$comment</textarea>\n";
}

sub Checkbox{
	my($name, $value, $check_val) = @_;
	$check_val = $check_val ? "checked" : "";
	return "<input type=checkbox name=$name value=$value $check_val>\n";
}

#Å×ÀÌºí °ü·Ã ÇÔ¼ö---------------------------------------------------------------
sub Thead{
	my($width, $bgcolor, $cellpadding, $cellspacing) = @_;
	my($wid_val) = $width ? "width=$width" : '';
	my($bgcolor_val) = $bgcolor ? "bgcolor=$bgcolor" : '';
	print "<div align=center><table $wid_val border=0 $bgcolor_val cellpadding=$cellpadding cellspacing=$cellspacing>";
}

sub Tfoot{
	print "</table></div>\n";
}

#form °ü·Ã ÇÔ¼ö ----------------------------------------------------------------
sub Fhead{
	my($method, $action, $enctype, $name) = @_;
	my($enc_val) = $enctype ? "enctype=$enctype" : ''; 
	my($name_val) = $name ? "name=$name" : '';
	print "<form method=$method action=$action $enc_val $name_val>\n";
}

sub Ffoot{
	print "</form>\n";
}

sub head {
	my($os_data) = $ENV{'HTTP_USER_AGENT'};
	print "Content-type: text/html\n\n";
	print "<!---------------------------------------------------------------------------------->\n";
	print "<!-- ¡Ú Program Name - Sepal's SPBOARD v4.5                                       -->\n";
	print "<!-- ¡Ú Programer - Kim se youn (madgf\@hanmail.net, sepal\@spfamily.com)           -->\n";
	print "<!-- ¡Ú Homepage - http://sepal.woorizip.com or http://www.spfamily.com           -->\n";
	print "<!-- ¡Ú Last Modified - 2001.01.19                                                -->\n";
	print "<!--                                                         ¡Ú made in KOREA ¡Ú  -->\n";
	print "<!---------------------------------------------------------------------------------->\n\n";
	print "<html>\n";
	print "<head>\n";
	if($FORM{'simple'} eq "yes"){
		print "<title>Simple view window ^.^</title>\n";
		$CONF{'left_right'} = "center";
	}
	else{
		print "<title>SPBOARD v4.5</title>\n";	
	}
#	my $CONF{'font_size'} = $CONF{'font_size'} ? "$CONF{'font_size'}" : "9pt"; 
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-KR\">\n";
	print "<style type='text/css'>\n";
	print "<!--\n";
	print "A:link {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:visited {color:$CONF{'link_color'};text-decoration:none;}\n";
	print "A:active {color:$CONF{'date_color'};text-decoration:underline;}\n";
	print "A:hover {color:$CONF{'num_color'};text-decoration:underline;}\n";
	print ".ver8 {color:$CONF{'font_color'};font-size:8pt}\n";
	print ".ver9 {color:$CONF{'font_color'};font-size:$CONF{'font_size'}}\n";
	print "p,br,body,select,input,form,textarea,option {font-size:$CONF{'font_size'};font-family:$CONF{'font_kind'};}\n";
	print "td {color:$CONF{'font_color'};font-size:$CONF{'font_size'};font-family:$CONF{'font_kind'};}\n";
	print ".cont{line-height:140%}\n" if(($os_data =~ /MSIE/) || ($FORM{'img'} ne "ok")); #³Ý½ºÄÉÀÌÇÁ¿¡¼­ À̹ÌÁöÆÄÀÏÀ϶§ line-height ¿É¼Ç ¾ø¾Ö±â...
	print "-->\n";
	print "</style>\n";
	print "<script language=\"JavaScript\">\n";
	print "<!--\n";
	print "	function newin(width,height,url,name) {\n";
	print "	msgWindow=window.open(url,name,'statusbar=no,scrollbars=yes,status=yes,resizable=yes,width='+width+',height='+height)\n";
	print "	}\n";
	print "	function AddChar(ch) {\n";
	print "	document.form.comments.value+=ch;\n";
	print " document.form.comments.focus();\n";
	print "}\n";
	print "//-->\n";
	print "</script>\n";
	print "</head>\n";
	my($back, $color_val);
	if($CONF{'background'} ne ""){
		$back="background=$CONF{'background'}";
	}
	else{
		$back="bgcolor=$CONF{'bgcolor'}";
	}
	print "<body $back topmargin=0 leftmargin=0>\n";
	#------------------------------------------------------ À­ºÎºÐ htmlÅ×±× ³Ö±â
	if((-e "$main_dir/up.htm") && ($FORM{'simple'} ne "yes")){
		open(UPDATA,"$main_dir/up.htm");
		my @html_up = <UPDATA>;
		close(UPDATA);
		foreach $_(@html_up) {
			print "$_";	
		}		
		print "<br>\n" if($html_up[0] ne "");
	}
	#----------------------------------------------------------------
#---------------------------------------------- È­¸é ¹è¿­ Á¤¿­ ¿À¸¥ÂÊ ¿ÞÂÊ Áß°£...
	
	$CONF{'left_right'} ||= "center";
	$CONF{'tbl_width'} = "98%" if($FORM{'simple'} eq "yes");

	&Thead("100%","","10","0");
	print "<tr><td align=$CONF{'left_right'}>\n";
	print "<table border=0 cellpadding=0 cellspacing=0 width=$CONF{'tbl_width'}>\n";
	print "<tr><td align=center>\n";
#---------------------------------------------
	if($FORM{'simple'} ne "yes"){
		if($CONF{'logo_img'} ne ""){
			print "<a href=$cgi_url?id=$FORM{'id'}&action=admin_login><img src=$CONF{'logo_img'} border=0 alt=\"°ü¸®ÀÚ ¸ðµå·Î Á¢¼ÓÇÕ´Ï´Ù.\"></a>\n";
		}
		elsif($CONF{'logo_txt'} ne ""){
			&Thead("","$CONF{'cel_color1'}","0","0");
			print "<tr><td>\n";

			&Thead("100%","","0","0");
			$color_val = $CONF{'head_color'} ? "bgcolor=$CONF{'head_color'}": "";
			print "<tr><td $color_val height=2><img src=$img_url/zero.gif width=0 height=2 border=0></td></tr>\n";
			&Tfoot;
			&Thead("100%","$CONF{'cel_color1'}","0","0");
			print "<tr><td height=2><img src=$img_url/zero.gif width=0 height=2 border=0></td></tr>\n";
			&Tfoot;
			&Thead("100%","","3","0");
			print "<tr><td  align=center> &nbsp; <a href=$cgi_url?id=$FORM{'id'}&action=admin_login>";
			print "<font color=$CONF{'font_color'}>$CONF{'logo_txt'}</font></a> &nbsp; </td></tr>\n";
			&Tfoot;
			&Thead("100%","","0","0");
			print "<tr><td $color_val height=2><img src=$img_url/zero.gif width=0 height=2 border=0></td></tr>\n";
			&Tfoot;

			print "</td></tr>\n";
			&Tfoot;
		}
	}
	if(($quick_name[0] eq "") || ($act eq "input_form")){
		print "<p>\n";
	}
}

sub foot {
	print "<center><a href=$cgi_url?id=$FORM{'id'}&action=admin_login><img src=$img_url/admin.gif border=0 alt=\"°ü¸®ÀÚ ¸ðµå·Î Á¢¼ÓÇÕ´Ï´Ù.\"></a></center>\n" if(($FORM{'simple'} ne "yes") && ($err eq ""));
	if($customer eq "0"){
		if($CONF{'img_skin'} ne ""){
			open(SKIN,"$img_dir/skin/$CONF{'img_skin'}/$CONF{'img_skin'}.txt");
			my @skin_data = <SKIN>;
			close(SKIN);
			my @skin = split(/\|/, "$skin_data[0]");
			my($name) = $skin[1];
			my($home) = $skin[2];
			print "<br><center class=ver8><a href=\"http://www.spfamily.com\" target=\"_blank\"><font color=silver>Powered by sepal</font></a><font color=silver> / </font><a href=\"$home\" target=\"_blank\"><font color=silver>Designed by $name</font></a></center>\n" if($FORM{'simple'} ne "yes");
		}
		else{
			print "<br><center class=ver8><a href=\"http://www.spfamily.com\" target=\"_blank\"><font color=silver>POWERED BY SEPAL - SPBOARD v4.5</font></a></center>\n" if($FORM{'simple'} ne "yes");
		}
	}
	else{
		print "<br><center class=ver8><a href=\"$CONF{'home_url'}\" target=\"_parent\"><font color=$CONF{'font_color'}>$copyright</font></a></center>\n" if($FORM{'simple'} ne "yes");
		
	}
	print "</td></tr>\n";
	print "</table>\n";
	print "</td></tr>\n";
	&Tfoot;
	#----------------------------------------------- ¹ØºÎºÐ htmlÅ×±× ³Ö±â
	if((-e "$main_dir/down.htm") && ($FORM{'simple'} ne "yes")){
		open(DOWNDATA,"$main_dir/down.htm");
		my @html_down = <DOWNDATA>;
		close(DOWNDATA);
		foreach $_(@html_down) {
			print "$_";	
		}		
	}
	#----------------------------------------------------------------
	print "<br><br></body>\n";
	print "</html>\n";
	exit;
}

sub lock{
	my($lock_file, $lock_sec, $chk_cnt, $sleep_sec);
	
	$lock_file = "locking";
	$lock_sec = 2; #lock°Å´Â ½Ã°£(ÃÊ)
	$chk_cnt = $lock_sec*10;
	$sleep_sec = 0.1;
	
	while ($chk_cnt--){
		if(-e "$main_dir/idx/$lock_file"){
			select (undef,undef,undef,$sleep_sec);
		}
		else{
			open (LOCK,">$main_dir/idx/$lock_file");
			close (LOCK);
			return 1;
		}
	}
	return 0;
}

sub unlock{
	my ($lock_file) = "locking";
	unlink ("$main_dir/idx/$lock_file");
}

sub mail_notice{
	my $from_man = $FORM{'email'} ? "<a href=mailto:$FORM{'email'}>$FORM{'name'}</a>" : "$FORM{'name'}";
	if ($FORM{'html'} ne "1") {
        $FORM{'comments'} =~ s/<br>/\r\n/g;
	    $FORM{'comments'} =~ s/</&lt;/g;
        $FORM{'comments'} =~ s/>/&gt;/g;
        $FORM{'comments'} =~ s/"/&quot;/g;
		$FORM{'comments'} =~ s/\r?\n/<br>/g;
		$FORM{'comments'} =~ s/<br>/\r\n/g if($FORM{'auto_br'} ne "1");
	}
	else{
		$FORM{'comments'} =~ s/<br>/\r\n/g if($FORM{'auto_br'} ne "1");
		$FORM{'comments'} =~ s/&lt;br&gt;/<br>/g;
		$FORM{'comments'} =~ s/&lt;p&gt;/<p>/g;
	}	
	open (MAIL, "|$sendmail -t") || die "È­ÀÏ ¿­±â ½ÇÆÐ!\n";
	print MAIL "To: $addr\n";
	print MAIL "From: $FORM{'name'}<$FORM{'email'}>\n";
	print MAIL "Subject: $FORM{'name'}´Ô²²¼­ º¸³»´Â ´äº¯±Û...\n";
	print MAIL "Content-Type: text/html; charset=euc-kr\n";
	print MAIL "<style type=text/css>\n";
	print MAIL "a:link, a:visited, a:active { text-decoration:none; color:$CONF{'link_color'}; }\n";
	print MAIL "a:hover { text-decoration:underline; color:red; }\n";
	print MAIL "td  { font-size:9pt }\n";
	print MAIL ".main {font-size:9pt}\n";
	print MAIL "</style>\n";
	print MAIL "<div align=center><table width=100% cellpadding=1 cellspacing=0 bgcolor=$CONF{'head_color'}>\n";
	print MAIL "<tr><td align=center><font face=±¼¸² class=main color=$CONF{'cel_color1'}>¢Ã$FORM{'name'}´ÔÀÌ ³²±â½Å ´äº¯±ÛÀÔ´Ï´Ù.¢Ã</font></td></tr>\n";
	print MAIL "<tr><td>\n";	
	print MAIL "<table width=100% cellpadding=3 cellspacing=0 bgcolor=#ffffff>\n";
	print MAIL "<tr><td bgcolor=$CONF{'cel_color1'}><font face=±¼¸² class=main>\n";
	print MAIL "</font></td></tr>\n";	
	print MAIL "<tr><td>\n";		
	print MAIL "<font face=±¼¸² class=main>\n";
	print MAIL "°Ô½ÃÆÇ DB¸í: $FORM{'id'}<br>\n";	
	print MAIL "ÀÛ¼ºÀÚ: $from_man<br>\n";
	print MAIL "ÀÛ¼ºÀϽÃ: $date<br>\n";
	print MAIL "Ȩ URL: <a href=$FORM{'homepage'} target=_blank>$FORM{'homepage'}</a><br>\n" if($FORM{'homepage'});
	print MAIL "Á¦¸ñ:$FORM{'subject'}<br>\n";		
	print MAIL "<hr color=$CONF{'head_color'} size=1\">\n";
	print MAIL "<font class=ver9>$FORM{'comments'}\n";
	print MAIL "<p align=right>This message from <a href=$CONF{'home_url'} target=_blank>$CONF{'home_url'}</a>&nbsp; &nbsp; </p></font>\n";
    print MAIL "</font></td></tr>\n";
	print MAIL "</table>\n";
	print MAIL "</td></tr>\n";	
	print MAIL "</table></div>\n";
	close (MAIL);
}

sub sendmail {
	open (MAIL, "|$sendmail -t");
	print MAIL "To: $addr\n";
	print MAIL "From: $CONF{'admin_name'}<$CONF{'admin_mail'}>\n";
	print MAIL "Subject: ´äº¯ÀÌ µî·ÏµÇ¾ú½À´Ï´Ù.\n\n";
	print MAIL "\n\n$FORM{'name'}´Ô²²¼­ ±ÍÇÏÀÇ ±Û¿¡´ëÇÑ ´äº¯À» µî·ÏÇÏ¿´À¾´Ï´Ù.\n";
	print MAIL "¾Æ·¡ Ȩ¿¡ ¹æ¹®ÇϽþî È®ÀÎÇϽñ⠹ٶø´Ï´Ù.\n\n";
	print MAIL "¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß\n";
	print MAIL "\t This message from $CONF{'home_url'}\n";
	print MAIL "¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß¡ß\n\n";
	close (MAIL);
}