CGI: Common Gateway Interface part 13

CGI: Common Gateway ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

92:nobodyさん
 06/04/24 11:08:37 
ｽﾚﾀｲ改悪した香具師出てこい

93:nobodyさん
 06/05/05 18:12:31 2ybRB6BX
GWage

94:nobodyさん
 06/05/10 09:42:13 wL7/1KsY
（ﾟдﾟ）<ｼﾒｼﾞ

95:nobodyさん
 06/05/18 22:34:58 
他のスレから来ました。 
Perlで他のサイトを取得して表示したいと思っています。 
（著作権侵害とかそういうことをしたいのではないです） 
 
お時間のある方にお願いしますが、次のコードで@niftyのトップページを取得してみたら 
どうなるか教えていただけませんでしょうか？ 
 
print "Content-Type: text/html\n"; 
print "\n"; 
use LWP::Simple; 
print get( 'http://www.nifty.com/' ); 
 
私のところだと、ブラウザ上での表示がぐちゃぐちゃになるんですが…。

96:nobodyさん
 06/05/19 11:46:32 eK6CUNW8
>>95 
403ｴﾗｰがでます

97:nobodyさん
 06/05/31 19:45:21 qTr6Ebfx
誘導していただいたのでこちらにて質問させてください。 
 
HTTPレスポンスヘッダに206を指定しファイルをCGI経由でDL  
させようとすると、500エラーが出てしまいます。  
具体的には下記のようにしております。  
 
 
print "HTTP/1.1 206 Partial Content\n";  
print "Last-Modified: Wed, 24 May 2006 18:41:30 GMT\n";  
print "Pragma: no-cache\n";  
print "Accept-Ranges: bytes\n";  
 
my $range = $ENV{'HTTP_RANGE'};  
if($range =~ m/^bytes=(\d+)\-(\d+)$/){  
my $offset = $1;  
my $end = $2;  
my $len = $end - $offset + 1;  
 
print "Content-Range: bytes $offset-$end/$len\n";  
 
$filesize = $len;  
}  
 
print "Content-Length: " . $filesize . "\n";  
print "Content-Type: $content_type\n\n";  
 
print while(<IMG>);  
close(IMG);  
 
エラー内容は「Bad header=HTTP/1.1 206 Partial Content」ですので  
これを外せばエラーは出ないのですが、206を返す手段があれば  
ご教示いただきたく思っております。 宜しくお願いいたします。

次ページ