#!/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_seminar/"; #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_seminar/"; #idµð·ºÅ丮°¡ Àִ°÷ÀÇ URL $cgi_url = "/spboard_seminar/board.cgi"; #ÀÌ cgiÆÄÀÏÀÇ URL $img_url = "/spboard_seminar/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 "\n"; print "
/g;
}
if($auto_link eq "1"){
$cmt_data[1] =~ s/(http:\/\/)([\w\+\-\/\=\?\.\~\&]+)/ $1$2<\/font><\/a>/g;
if($NT eq "1"){
$cmt_data[1] =~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/ $1<\/font><\/a>/g;
}
else{
$cmt_data[1] =~ s/([\w\-]+\@[\w\-+\.]+[\w\-]+)/ $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 = "";
}
else{
$img_view = "";
}
}
my($os_data) = $ENV{'HTTP_USER_AGENT'};
$CONF{'font_size'} = "10pt"; #ÇÁ¸°Æ® ÇÒ¶§ ±ÛÀÚ Å©±â... ^^
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n\n";
print "\n";
print " \n";
print "ÀÛ¼ºÀÚ: $name \n";
print "$cmt_data[1] \n";
&Tfoot;
print "\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 = "\n";
print "Á¦¸ñ: $subject
ÀÛ¼ºÀÏ: $wdate\n";
print "$mail_val $home_val