Javascript CGI脚本-如何创建确认框弹出窗口？
我正在运行一个CGI脚本来阻止安全设备中的地址（使用wget命令），我希望在加载过程中弹出一个确认框，并询问是/否问题，如果答案为否-退出，如果答案为是，则继续阻止地址。有什么想法吗Javascript CGI脚本-如何创建确认框弹出窗口？,javascript,perl,cgi,Javascript,Perl,Cgi,我正在运行一个CGI脚本来阻止安全设备中的地址（使用wget命令），我希望在加载过程中弹出一个确认框，并询问是/否问题，如果答案为否-退出，如果答案为是，则继续阻止地址。有什么想法吗 #!/usr/bin/perl -w use CGI qw(:standart escapeHTML); use CGI qw(:param); use LWP::Simple; $pass ='xxxxxx'; $rip = param('ip'); $addr=$ENV{'REMOTE_ADDR'}; prin
#!/usr/bin/perl -w
use CGI qw(:standart escapeHTML);
use CGI qw(:param);
use LWP::Simple;
$pass ='xxxxxx';
$rip = param('ip');
$addr=$ENV{'REMOTE_ADDR'};
print "Content-type: text/html \n\n";
print "<html>";
print "<head> <title>Block IP </title></head>";
print "<body>";
if($rip=~m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
{
system("wget \'https://x.x.x.x/policy/test?
deviceuser=user1&passd=$password&ip=$rip&policy=Quar_1D\' -O \/dev\/null --no-
check-certificate 2>&1 | grep response -A 3");
print "<script type='text/javascript'>";
}
else
{
if(!$rip)
{
print '<script type=\'text/javascript\'>
var gip=prompt(\'enter an ip to block\',\'\');
if (!gip) {
window.location=\'http://x.x.x.x/cgi-bin/block.cgi\';
} else {
window.location="http://x.x.x.x/cgi-bin/block_tp.cgi?ip="+gip;
}';
}
}
print "</script></body></html>";
#/usr/bin/perl-w
使用CGI qw（：标准escapeHTML）；
使用CGI qw（：参数）；
使用LWP：：Simple；
$pass='xxxxxx'；
$rip=参数（“ip”）；
$addr=$ENV{'REMOTE_addr'}；
打印“内容类型：text/html\n\n”；
打印“”；
打印“块IP”；
打印“”；
如果（$rip=~m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/）
{
系统（“wget”https://x.x.x.x/policy/test?
deviceuser=user1&passd=$password&ip=$rip&policy=Quar\u 1D\'-O\/dev\/null--否-
检查证书2>&1 | grep响应-A 3“；
打印“”；
}
其他的
{
如果（！$rip）
{
印刷品
var gip=prompt（\'输入要阻止的ip\'，\'\'）；
如果（！gip）{
window.location=\'http://x.x.x.x/cgi-bin/block.cgi\';
}否则{
window.location=”http://x.x.x.x/cgi-bin/block_tp.cgi?ip=“+gip；
}';
}
}
打印“”；
- 您使用
而不是更现代的-w使用警告 - 您没有
（因此，您没有声明任何变量）使用strict - 加载CGI模块两次
- 您拼写的
错误（但您没有使用任何标准函数）：standard - 您可以显式加载
，但从不使用它escapeHTML - 您加载LWP:：Simple，但随后忽略它，转而将其输出到
wget - 对于调用
的结果，您什么也不做wget - 不必要地转义引号字符