#!/usr/local/bin/perl # 개발자: Steve Yeong-Ching Hsueh (steveh@pbsi.com ; ychsueh@cts.com ) # 수정 보완: 김홍남 (powerbbs@kntl.co.kr) # 이 프로그램은 넷스케이프 2.0에서 FORM을 통해 파일을 업로드할때 그 파일을 # 디코딩해 주는 프로그램이다. 정확히 말하면, 업로드된 데이터를 실제 파일로 # 변환해 주는 프로그램이라고 하겠다. 이 프로그램은 RFC 1867에 명시된 # 파일업로드에 관련된 내용을 기준으로 개발되었다. # 모든 파일업로드와 다운로드는 현재 CGI 프로그램의 디렉토리를 기준으로 가능하다. # 이 CGI 프로그램의 메인 함수이다. # 입력과 출력은 모두 없다. # 처리가 완료되면 1, 그렇지 않으면 0을 리턴한다. # 파일에 있는 데이터를 읽어 버퍼에 저장한다. # 입력은 파일명이고, 출력은 파일 내용이다. # 처리가 완료되면 $content를, 그렇지 않으면 0을 리턴한다. require 'cgilib.pl'; # 이 프로그램에서 필요한 인자를 초기화해 준다. # 처리가 완료되면 1, 그렇지 않으면 0을 리턴한다. sub init { # URL에서 해당 CGI 프로그램의 실제 경로를 저장한다. $thisurl = $ENV{'SERVER_URL'}.$ENV{'SCRIPT_NAME'}; # 업로드된 파일이 존재할 디렉토리 $upload_dir = './upload/'; # mailto에 대한 E-Mail 주소 $authorurl = 'powerbbs@kntl.co.kr'; 1; } sub read_file { local($fname) = @_; local($content); open(FILE, "<$fname") || return ''; while() { $content .= $_; } close(FILE); $content; } # 디렉토리에 있는 파일이나 디렉토리 정보들을 읽는다. # 입력은 $target_dir이고, 출력은 $dir_content이다. # 처리가 완료되면 $dir_content를, 그렇지 않으면 0을 리턴한다. # ./와 ../와 숨겨진 파일들은 표시되지 않는다. 모든 파일들은 \n으로 분리된다. sub read_dir { local($target_dir) = @_ ; local($filename, $dir_content); return 0 if(!$target_dir); opendir(DIR, $target_dir) || return 0; # ./를 제거한다. $target_dir =~ s/^\.\///; # 상위 디렉토리를 찾는다. $target_dir =~ /(.+)\/(.+)\/$/; # 상위 레벨을 글로벌로서 저장한다. $GLOBAL{'UP_LEVEL'} = $1; if($target_dir) { $dir_content = "..back\n\n\n"; } while($filename = readdir(DIR)) { # hidden 파일은 제외한다. if($filename =~ /^\.|^\#|~$/) { next; } $dir_content .= "$target_dir$filename\n"; } closedir(DIR); $dir_content; } # HTML 문서로 출력되기 위한 출력 형식 지정 # 입력은 $dir_content 출력은 형식화된 dir 내용 # 처리가 완료되면 $formated_content를, 그렇지 않으면 0을 리턴한다. sub format_html_output { local($content) = @_; local(@filelist, $formated_content, $up_level); return 0 if(!$content); @filelist = split(/\n/, $content); $formated_content = "