|
|
|
use CGI ':standard';use CGI::Carp qw(fatalsToBrowser); my $files_location; my $ID; my @fileholder;$files_location = "/data/";$ID = param('file_name');if ($ID eq '') { print "Content-type: text/html\n\n"; print "You must specify a file to download."; } else { if(-e "$files_location/$ID") { } else { print header; print qq{<hmtl><head><title>The file doesn't exist.</title> </head><body><br/><br/> <br/><center><h1>The file does not exist.</h1></center></body></html>}; exit; } open(DLFILE, "<$files_location/$ID") || Error('open', 'file'); @fileholder = <DLFILE>; close (DLFILE) || Error ('close', 'file'); #open (LOG, ">>/usr50/home/webdata/public_html/test.log") || Error('open', 'file'); #print LOG "$ID\n"; #close (LOG); print "Content-Type:application/x-download\n"; print "Content-Disposition:attachment;filename=$ID\n\n"; print @fileholder} |
|
京ICP备14020293号-2
本网站内容均收集于互联网，如有问题请联系QQ:389897944予以删除
窥视卡
雷达卡
楼主
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡