札幌Web制作のシンクグラフィカ

久保田さん (2016-01-07 15:02:50) portal.kimono-hearts.co.jp/lp/entry_form_girls/entry_form_girls.html

誠にありがとうございます！

フォームのバージョンが古いからか、
「print "Accept-Ranges: bytes￥n";」が見当たりませんでした。
以下、main.cgiの内容を転載いたします。
どうぞ宜しくお願い致します。
-----------


&_POST;

($sec,$min,$hour,$day,$mon,$year) = localtime(time);
$config{’CSVDownloadName’} = sprintf("%04d-%02d-%02d.csv",$year+1900,$mon+1,$day,$hour,$min,$sec);

if($config{"password"} ne $null && $config{"password"} eq $_POST{’password’} && ($config{’CSVDownloadURIPassCode’} eq $null || $config{’CSVDownloadURIPassCode’} eq $_GET{’key’})){
$HostName = &_GETHOST;
if(($config{’CSVDownloadHostName’} eq $HostName || $config{’CSVDownloadHostName’} eq $null) && ($config{’CSVDownloadIPAddress’} eq $ENV{’REMOTE_ADDR’} || $config{’CSVDownloadIPAddress’} eq $null)){
if($_POST{’method’} eq ’download’){
if(-f $config{"file.csv"}){
$size = -s $config{"file.csv"};
$csv = &_LOAD($config{"file.csv"});
if($config{’CryptKey’} ne $null){
$csv = &_CSVDECRYPT($csv);
}
use Encode;
Encode::from_to($csv,’utf8’,’cp932’);
print "Content-type:application/octet-stream;charset=Shift_JIS; name=¥"$config{’CSVDownloadName’}¥"¥n";
print "Content-Disposition: attachment; filename=¥"$config{’CSVDownloadName’}¥"¥n";
print "Content-length: ${size}¥n¥n";
print $csv;
}
else {
&_Error(0);
}
}
elsif($_POST{’method’} eq ’delete’){
&_SAVE($config{"file.csv"},’’);
print "Location: $ENV{’HTTP_REFERER’}#Complete¥n¥n";
}
}
else {
&_Error(0);
}
}
else {
if($config{"password"} ne $null){
if($config{’CSVDownloadURIPassCode’} eq $null || $config{’CSVDownloadURIPassCode’} eq $_GET{’key’}){
## Display Process
$html = &_LOAD("./librarys/CSVExport/download.tpl");
$HostName = &_GETHOST;
$html =~ s//$HostName/ig;
$html =~ s//$ENV{’REMOTE_ADDR’}/ig;
print "Pragma: no-cache¥n";
print "Cache-Control: no-cache¥n";
print "Content-type: text/html; charset=UTF-8¥n¥n";
print $html;
}
else {
&_Error(0);
}
}
else {
&_Error(0);
}
}
exit;