>Для того шоб закрить окно его нада сначала открить самому, тобиш окно
>должно бить дочерним от твоего
>(ето проблема встречаєтся только в IE)
> <INPUT TYPE="button" VALUE="Open" onClick = "window3=window.open('','messageWindow', 'scrollbars=yes,width=175, height=300')">
>
> <INPUT TYPE="button" VALUE="Close" onClick="window3.close()">
Извините ,но у меня не тот уровень.
текст файла такой :
#!/usr/bin/perl
#Get data from memory --------
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'});
}
else{
$bufer=$ENV{'QUERY_STRING'};
}
#End -------------------------
# Decode data ----------------
@pairs = split(/&/, $bufer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$htm=qq~Content-type: text/html\n\n
<html>
<head>
<title></title>
<LINK REV="made" HREF="mailto:">
<META NAME="author" content="WayFarer">
<META name="keywords" content="">
<META name="description" content="">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=koi8-r">
<base href="http://noc.konotop.org/">
</style>
</head>
<body>~;
$num=$FORM{num};
$stat=$FORM{stat};
if($bufer eq ''){}
elsif($stat eq 'out'){&disconnectip;}
elsif($stat eq 'in'){&connection;}
$htm.=qq~
<script language="JavaScript">
<!--
self.close();
//--></script>
</body></html>~;
print "$htm";
sub connection{
$ip="192.168.0.20$num";
system("sudo","/sbin/iptables","-A","inaccess","-s","$ip","-j","ACCEPT") == 0 || die "system failed: $?";
}
sub disconnectip{
$ip="192.168.0.20$num";
system("sudo","/sbin/iptables","-D","inaccess","-s","$ip","-j","ACCEPT") == 0 || die "system failed: $?";
}
При запросе данной странички ,надо чтоб она сама закрылась . Умоляю!!!!
Вариант для распечатки
WEB технологии (Public)
on
25-Май-04, 12:37 (MSK)
