";
$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") ? "![\"$list[0]님]($img_url/home.gif){kind=small}
": "
";
$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 = "![\"$list[0]님에게]($img_url/mail.gif){kind=small}
";
}
else{
$mailto = "$w_name";
$mail_img = "";
}
}
else {
$mailto = "$w_name";
$mail_img= "
";
}
my($icon_td, $num_col, $pnt_kind, $m_subject, $mh_td, $chk_td, $over_msg, $color_val);
$icon_td = ($CONF{'kind_view'} eq "yes") ? " $m_subject\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 =
" if($FORM{'number'} ne $ary[0]); print " $prev_data" if($FORM{'number'} ne $ary[$list_num-1]); print "
\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
";
}
elsif($e_val > 70 && $e_val <= 90){
$face_val = "
";
}
elsif($e_val > 50 && $e_val <= 70){
$face_val = "
";
}
elsif($e_val > 30 && $e_val <= 50){
$face_val = "
";
}
elsif($e_val > 10 && $e_val <= 30){
$face_val = "
";
}
else{
$face_val = "
";
}
$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]";
}
$f_name = &encode("$f_name");
@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 = ";
$ad_home = "";
$ad_td = "
$subject전자우편: $mail" if($mail); $home = $gul_data[2]; $home_val = "
홈페이지: $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]; $open_val = $auto[2]; if($open_val eq "no"){ $pass = $FORM{'passwd'}; if(($pass ne $CONF{'admin_pwd'}) && ($pass ne $wpass)){ &error("haker"); } } if ($cmt_data[0] ne "1") { $cmt_data[1] =~ s/
/\r\n/g; $cmt_data[1] =~ s//>/g; $cmt_data[1] =~ s/"/"/g; # $cmt_data[1] =~ s/<hr>/
/g; $cmt_data[1] =~ s/\r?\n/
/g; $cmt_data[1] =~ s/
/\r\n/g if($auto_br ne "1"); } else{ $cmt_data[1] =~ s/
/\r\n/g if($auto_br ne "1"); $cmt_data[1] =~ s/<br>/
/g; $cmt_data[1] =~ s/<p>/
/g;
}
if($auto_link eq "1"){
$cmt_data[1] =~ s/(http:\/\/|https:\/\/|mms:\/\/|ftp:\/\/)([\w\+\-\/\=\?\.\~\&\;\:\xA1-\xFE]+)/ \n";
print "작성자: $name \n";
print "$cmt_data[1]
$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 = "\n";
print "제목: $subject
작성일: $wdate\n";
print "$mail_val $home_val