URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID8
Нить номер: 2346
[ Назад ]
Исходное сообщение
"Помогите начинающему "
Отправлено Иван , 25-Май-04 12:37 
Помогите начинающему ! Нужен скрипт закрывающий окно браузера без разговоров после выполнения внутреннего скрипта . Пожалуста!!!!!
Содержание
Сообщения в этом обсуждении
"Помогите начинающему "
Отправлено fam , 25-Май-04 12:56 
Для того шоб закрить окно его нада сначала открить самому, тобиш окно должно бить дочерним от твоего
(ето проблема встречаєтся только в 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()">

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

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

"Помогите начинающему "
Отправлено Иван , 26-Май-04 10:41 
>>$htm.=qq~
>><script language="JavaScript">
>><!--
>>self.close();
>>//--></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";