#!/usr/local/bin/perl ################################################################################################################# # File Upload Script Version 5.003 #수정 버젼 : Version 6.0 # Modifier : Younsb http://younsb.iri-c.ac.kr #최근 수정일 1998, 3,17 일 #이스크립트는 이전 버전과는 완전히 새로운 #자료실용 스크립트로 아래의 변수를 자신의 컴에 맞게 수정하시오 #새로운 기능 #자동 페이지 기능 #GCI.PM 화일 위치문제 해결 # --------------------------------------------------------------------- # Configurable Options Follow: ################################################################################################################## #여기서 부터 수정 BEGIN { push (@INC, "/perl/lib"); #GCI.PM 화일의 위치 절대경로 $base_dir = "/internet/premech/public_html/member/cgi/thesis"; #upload 기본 디랙토리 정대경로 $base_url = "http://www.keti.re.kr/~premech/member/cgi/thesis"; #upload 의 기본 URL $cgi_url = "http://www.keti.re.kr/~premech/member/cgi/thesis/upload.cgi"; #이 cgi화일의 url $overwrite = 0; # 기존화일 덮어쓰기 허용여부. $password = 'happy6104'; #관리자 비밀번호 맞게 수정하시오 #$file_type1 = "gif"; #업로드 화일 형식을 지정할 때 #$file_type2 = "jpg"; #업로드 화일 형식 $candown = "1"; #내려받기 허용하려면 1 아니면 0 $max_byte ="12000000"; #최대 허용화일크기 $Windows = 1; #OS가 MS Windows 이면 1 아니면 0 ##################################################################################################################### #수정 끝 $path = "$base_dir/files"; #화일저장위치의 DIR(절대 경로) $url = "$base_url/files"; #화일 저장위치의 URL $upload_url = "$base_url/upload.html"; #upload.html의 url $up_file = "$base_dir/filelist.txt"; #화일 내용을 기록하는 화일로 그것의 위치(절대경로) $rem_gif = "http://www.keti.re.kr/~premech/cgi-bin/board/icon/delete.gif"; #삭제라는 동봉된 이미지 upload 디랙토리에 두십시오 $page = '1'; #시작 페이지 $datafile = "data.txt"; #화일 저장 디랙토리에 data.txt 를 놓으십시오 $exclusive_lock = 2; # 손대지 마시오 '2' $unlock_lock = 8; #손대지 마시오 '8' $userid = 2301; # --> This Number is the specific ID $groupid = 1000; # --> This Number is the specific Group } ##################################################################################################################### # --------------------------------------------------------------------- # --> 손대지 마시오 <-- # ##################################################################################################################### $| = 1; &GetInput; if($action eq "remove") { &remove; } if ($action eq "preview") { &Redirect_User; } if ($action eq "upload") { &Process_File; &write_data; if($temp_dir) { &remove_temp; } } if(param('f_name')) { &hit; &down; } if(($action eq search) && ($keyword ne "")) { &search; } &Redirect_User; ################################################################################## sub GetInput { use CGI qw(:standard); $CGI::OS = 'WINDOWS' if ($Windows); $query = new CGI; if ($query->param('save-as-filename') !~ /^[ \t]*$/) { $filename = $query->param('save-as-filename'); $yourname = $query->param('yourname'); $email_ne = $query->param('emailname'); $comments = $query->param('comments'); $content = $query->param('content'); $action = $query->param('action'); $remove_file = $query->param('remove_file'); $number = $query->param('number'); $passwd = $query->param('passwd'); $npage = param('pg'); $keyword = param('keyword'); } else { $filename = $query->param('upload-file'); $yourname = $query->param('yourname'); $emailname = $query->param('emailname'); $comments = $query->param('comments'); $content = $query->param('content'); $action = $query->param('action'); $remove_file = $query->param('remove_file'); $number = $query->param('number'); $passwd = $query->param('passwd'); $npage = $query->param('pg'); $keyword = param('keyword'); } # # END OF SUB # } # ###################################################################### sub Process_File { &Exit_Not_A_Netscape_User if ($ENV{'HTTP_USER_AGENT'} !~ /^Mozilla\/[432]/); if ($yourname eq ""){ &get_error; } if ($filename =~ /\//) { @array = split(/\//, $filename); $real_name = pop(@array); } elsif ($filename =~ /\\/) { @array = split(/\\/, $filename); $real_name = pop(@array); } else { $real_name = "$filename"; } $outfile = "$path" . "/" . "$real_name"; $filename = $query->param('upload-file'); @name_check = split(/\./, $filename); #######화일 형식 지정 if ($file_type1 NE '') { if (($name_check[1] ne '$file_type1') && ($name_check[1] ne '$file_type2')) { &Exit_Not_A_Gif; } } @TempCheck = split (/\\/, $filename); $ii = "$#TempCheck"; $newname = "$TempCheck[$ii]"; $outfile1 = "$path" . "/" . "$newname"; &Exit_File_Exists if ((-e "$outfile1") && (!$overwrite)); # &Exit_Size_Error if ((stat $tmpfilename)[7] < 1); if (!open(OUTFILE, ">$outfile1")) { print "Content-type: text/plain\n\n"; print "-------------------------\n"; print "Error:\n"; print "-------------------------\n"; print "File: $outfile1\n"; print "-------------------------\n"; print "화일 열기에 문제가 있습니다.\n"; print "$path\n"; print "경로는 권한 설정을 '777'로 해주어야 합니다.\n\n"; print "만약 덮어쓰기를 허용하려면\n"; print "지금 존재하는 화일의 권한을 '666' 으로 하십시오.\n\n"; print "Error: $!\n"; exit; } while ($bytesread = read($filename,$buffer,1024)) { $totalbytes += $bytesread; binmode OUTFILE; print OUTFILE $buffer; } close($filename); close(OUTFILE); if ($totalbytes > $max_byte) { unlink $outfile1; &Exit_Size_Error; } if ((stat $outfile1)[7] < 1) { unlink $outfile1; &Exit_Size_Error; } chmod (0644, "$outfile1") if (!$Windows); chown ($userid, $groupid, "$outfile1") if (!$Windows); # # END OF SUB # } ###################################화일 메세지 기록 sub write_data { &get_Date; &get_number; $newnum = $numm; &increment_num ; open (UPFILE,">>$up_file") || die "Can't Open $up_file: $!\n"; print UPFILE "$newnum|$passwd|$newname|$yourname|$email_ne|$comments|$shortdate|$totalbytes|0|$content\n"; close(UPFILE); } ############################################# sub Redirect_User { open (FILE,"$up_file") || die "Can't Open $up_file: $!\n"; @LINES=; close(FILE); $SIZE=@LINES; $totpge = $SIZE/15; $totpga = int($totpge); if ($totpge > $totpga) { $totpg = $totpga+1; } else {$totpg = $totpga; } if ($npage ne "") {$page = $npage;} $nextpg = $page+1; $prepg = $page-1; $start = ($page-1)*15+1; $stop = ($page*15); if ($stop > $SIZE) {$stop = $SIZE;} print "Content-type: text/html\n\n"; print "화일 리스트\n"; print "