05/02/17 19:25:48
【 CGI名 】PerlGate Ver.2.02
【配布先URL】URLﾘﾝｸ(www.din.or.jp)
【設置サーバ】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";
＞ }