Hallo,

ich mache mit einem Perl-Script verschiedene FTP-Aktionen. Am Ende wird
die bearbeitete Webseite mit einem Browser zur Kontrolle angezeigt.
So endet das Script:
.................

$url = "http://www.........";

system "start $url";
sleep 3;
exit;
.................

Ich hätte nun gerne, dass das Browserfenster, ohne eine weitere Aktion
meinerseits, nach ca. 5 Sekunden wieder geschlossen wird.
Ist das irgendwie möglich?

Grüße, Hago

Hago Ziegler schrieb:
> Hallo,
>
> ich mache mit einem Perl-Script verschiedene FTP-Aktionen. Am Ende wird
> die bearbeitete Webseite mit einem Browser zur Kontrolle angezeigt.
> So endet das Script:
> ................
>
> $url = "http://www.........";
>
> system "start $url";
> sleep 3;
> exit;
> ................
>
> Ich hätte nun gerne, dass das Browserfenster, ohne eine weitere Aktion
> meinerseits, nach ca. 5 Sekunden wieder geschlossen wird.
> Ist das irgendwie möglich?
>
> Grüße, Hago

Ich denke, das musst Du dem Browser mitteilen - und der kann ja nur den
Quelltext der Seite interpretieren.
Also kleines JavaScript auf der Seite mit setTimeout.
Geht natürlich nur bei aktivierten JS beim User.
Sonst sehe ich keine Möglichkeit.

Gruß Jürgen

Hallo Jürgen,


> Also kleines JavaScript auf der Seite mit setTimeout.

Dann schließt das Fenster aber bei jedem Nutzer.
Das will ich nicht.
Es soll nur auf meinem Bildschirm geschlossen werden, nachdem durch mein
Script die FTP-Aktionrn durchgeführt wurden, sonst nie.


Hago

Hago Ziegler schrieb:
> Hallo Jürgen,
>
>
>> Also kleines JavaScript auf der Seite mit setTimeout.
>
> Dann schließt das Fenster aber bei jedem Nutzer.
> Das will ich nicht.
> Es soll nur auf meinem Bildschirm geschlossen werden, nachdem durch mein
> Script die FTP-Aktionrn durchgeführt wurden, sonst nie.
>
>
> Hago
>
Dann bleibt noch die Möglichkeit, die HTML-Seite serverseitig zu
generieren und den Quellcode in Abhängigkeit von irgendwelchen
Bedingungen zu gestalten, so dass nur bei FTP-Aktion das JS eingebaut wird.
Gruß Jürgen

Hallo Jürgen,

vielleicht habe ich mich missverständlich ausgedrückt.
Das Perl-Script liegt nicht auf dem Server, sondern hier auf meinem
Rechner.

Ich hatte mir eigentlich sowas erhofft wie "wait 5; kill browser;"

Hago

Hago Ziegler:

> Dann schließt das Fenster aber bei jedem Nutzer.
> Das will ich nicht.
> Es soll nur auf meinem Bildschirm geschlossen werden, nachdem durch mein
> Script die FTP-Aktionrn durchgeführt wurden, sonst nie.

Dann schick in der URL im system-Befehl einen Parameter mit
und frag den browserseitig im JavaScript-Code ab. Ist der
Parameter gesetzt, schließ das Fenster, ansonsten eben nicht.

LG, Ferry

--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol [at] adv.magwien.gv.at

Hago Ziegler schrieb:
> Hallo Jürgen,
>
> vielleicht habe ich mich missverständlich ausgedrückt.
> Das Perl-Script liegt nicht auf dem Server, sondern hier auf meinem
> Rechner.

Win32?

Gruß,
Peter

Peter Arnhold schrieb:

>> Das Perl-Script liegt nicht auf dem Server, sondern hier auf meinem
>> Rechner.
>
> Win32?

Ja

Hago

Hago Ziegler schrieb:
> Peter Arnhold schrieb:
>
>>> Das Perl-Script liegt nicht auf dem Server, sondern hier auf meinem
>>> Rechner.
>>
>> Win32?
>
> Ja

use Win32::OLE;

my $IE = Win32::OLE->new('InternetExplorer.Application') or die;
$IE->{'Visible'} = 1;
$IE->Navigate( 'http://www.google.de' );

sleep 5;
$IE->Quit();

Gruß,
Peter

Hallo Ferry

> Dann schick in der URL im system-Befehl einen Parameter mit
> und frag den browserseitig im JavaScript-Code ab. Ist der
> Parameter gesetzt, schließ das Fenster, ansonsten eben nicht.

Ah, danke. das ist schon mal 'ne gute Idee.
Allerdings wird, wenn man den Befehl zum Schließen vom Server aus gibt, ja
sicherlich ein Fenster aufgehen und mich fragen, ob der Browser wirklich
geschlossen werden darf. Dann habe ich nichts gewonnen.
Das ist ja gerade mein Anliegen, dass er von selbst geschlossen wird.

Hago

Hallo Peter,

> use Win32::OLE;
> my $IE = Win32::OLE->new('InternetExplorer.Application') or die;
> $IE->{'Visible'} = 1;
> $IE->Navigate( 'http://www.google.de' );
> sleep 5;
> $IE->Quit();

Toll, klappt genau, wie ich es wollte.
Danke.

Gruß, Hago