Новые ответы

Помогите начинающему ,

Иван, 25-Май-04, 12:37 [смотреть все]

Помогите начинающему ! Нужен скрипт закрывающий окно браузера без разговоров после выполнения внутреннего скрипта . Пожалуста!!!!!

Ответить | Сообщить модератору

Помогите начинающему , fam, 12:56 , 25-Май-04 (1)
Для того шоб закрить окно его нада сначала открить самому, тобиш окно должно бить дочерним от твоего
(ето проблема встречаєтся только в 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()">
Ответить | Сообщить модератору

Помогите начинающему , Иван, 20:23 , 25-Май-04 (2)
>Для того шоб закрить окно его нада сначала открить самому, тобиш окно
>должно бить дочерним от твоего
>(ето проблема встречаєтся только в 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">
</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: $?";
}
При запросе данной странички ,надо чтоб она сама закрылась . Умоляю!!!!
Ответить | Сообщить модератору

Помогите начинающему , fam, 20:33 , 25-Май-04 (3)
>$htm.=qq~
><script language="JavaScript">
></script>
></body></html>~;
>print "$htm";
есшо раз говорю нельзя закрить коно не не отрив его
self.close();
непойдёт
Ответить | Сообщить модератору

Помогите начинающему , Иван, 10:41 , 26-Май-04 (4)
>>$htm.=qq~
>><script language="JavaScript">
>></script>
>></body></html>~;
>>print "$htm";
>есшо раз говорю нельзя закрить коно не не отрив его
>self.close();
>непойдёт
Т.е. надо
$htm=qq~Content-type: text/html\n\n
<html>
<head>
    <title></title>
    <INPUT TYPE="button" VALUE="Open">
    <onClick= "window3=window.open                                        ('','messageWindow','scrollbars=yes,width=175, height=300')">
    <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>~;

$htm.=qq~
<INPUT TYPE="button" VALUE="Close"   onClick="window3.close()">
</body></html>~;
print "$htm";

Ответить | Сообщить модератору