※ ChatGPTを利用し、要約された質問です（原文：半自作cgiが思うように動作しません。）
半自作cgiで画像を表示させる方法
このQ&Aのポイント
半自作cgiで画像を表示させる方法について教えてください。
クリックさせずに最初に開いたウインドウを自動的に閉じる方法を知りたいです。
また、画像表示ウインドウのサイズを指定することは可能でしょうか。
HTMLページから、$Dataというファイル名を持って来て、
このcgiで、$Data.jpgとなり、
その画像を、新しいウインドウ（サイズ指定）で表示させたいのです。。。
このcgiで新しくウインドウを開き、何かしらをクリックさせてから、サイズ指定のウインドウで画像を表示させるのはできるのですが、
クリックさせずに、しかも、最初に開いたウインドウは勝手に閉じさせたいのですが、
どこをどう直せばいいのでしょうか？
#! /usr/bin/perl
print "Content-type: text/html\n\n";
$Data = $ENV{'QUERY_STRING'};
$tail = ".jpg";
&header;
print "<SCRIPT LANGUAGE='JavaScript'>\n";
print "function newwindow(imgurl) {\n";
print "nwin = window.open('img/$Data$tail\', 'Newwindow','width=300,height=210');\n";
print "nwin.document.open();\n";
print "nwin.document.write(\"<html><head>\")\; \n";
print "nwin.document.write(\"</head><body><img src=\"img/$Data$tail\'>\")\;\n";
print "nwin.document.write(\"<br><INPUT type='BUTTON' value='CLOSE' onclick='window.close()'>\")\; \n";
print "nwin.document.write(\"</body></html>\"); \n";
print "nwin.document.close()\;\n";
print "return false;\n";
print "}\n";
print "</SCRIPT>\n";
print "<BODY onload='window.close()'></body></html>\n";
sub header {
print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<title>$Data</title>
</head>
EOM
}
お礼
ありがとうございました。 お陰様で出来上がったのですが、 Googleのポップアップブロックによって、表示されなくなってしまいました。 よって、今回は使いませんでした。 でも、本当に勉強になりました。ありがとうございました。