ＣＧＩ設置について質問　【Part2】

ＣＧＩ設置について質 ..

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

54:nobodyさん
 05/02/17 19:25:48 
【　 CGI名 　】PerlGate Ver.2.02 
【配布先URL】ttp://www.din.or.jp/~hideyuki/home/cgi/gate.html 
【設置サーバ】XREA広告免除 
【 質問内容 】上記のCGIをアイフレーム（155x18程度の大きさ）で使用しているのですが、 
PWを入力後Enterボタンを押すとそのままの小さなフレームに、ページが表示されてしまいます。 
そのページを_blankか_topで表示させたいとおもっています。 
 
やり方を教えて頂けませんでしょうか？ 
おそらくここ　を弄ればいいのだと思うのですがどうもよくわからなくて・・。 
＞##### アクセス制限ページ出力 
＞sub PrintSecret { 
＞    if ($type == 0) { 
＞        open(PAGE,"$secret"); 
＞        @contents = <PAGE>; 
＞        close(PAGE); 
＞        print "Content-type: text/html\n\n"; 
＞        foreach (@contents) { print $_; } 
＞    } 
＞    elsif ($type == 1) { 
＞        print "Content-type: text/html\n\n"; 
＞        print "<HTML>\n<HEAD>\n<TITLE>$title</TITLE>\n</HEAD>\n"; 
＞        print "<FRAMESET ROWS=\"*,0\" FRAMEBORDER=0 FRAMESPACING=0 BORDER=0>\n"; 
＞        print "<FRAME SRC=\"$secret\" NAME=\"private\" SCROLLING=\"AUTO\" FRAMEBORDER=0>\n"; 
＞        print "</FRAMESET>\n"; 
＞        print "<NOFRAMES>\n"; 
＞        print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"1\;URL=$secret\">\n"; 
＞        print "</NOFRAMES>\n"; 
＞        print "</HTML>\n"; 
＞    }

次ページ