Hallo Leute ... schlagt mich bitte nicht ;-)
Ich habe mir ein Script zusammengeklau.. ähhh gebastelt. Habe selbst nicht wirklich eine Ahnung von Perl. Nun hätte ich gerne, dass die im Script kommentierte URL, direkt als neues Browser-Fenster im Client geöffnet wird.
Könnt Ihr mir da was zum basteln an die Hand geben? Danke schon mal Bernd.
----SNIP---
# #!c:/Perl/perl.exeuse strict;
use CGI;
my $query = new CGI;
print $query->header();
print "<body bgcolor=\"#FFFFCC\">\n";
if ($query->param("command") eq "WebCam AN !")
{
my $dauer = $query->param("dauer");
my $refresh_target = $query->url();
{
print $query->start_html(-head => $query->meta({-http_equiv => 'refresh', -content => "1; URL=\"$refresh_target\""}));
{
print "<font color=\"green\"><h3>Bitte ca. 5 sec. warten ...</h3>";
}
}
system "net start activewebcam >1.txt";
print `C:\\Programme\\TOOLS\\Sleep\\sleep.exe 2 >1.txt`;
print "<font color=\"green\"><h3>Die WebCam ist eingeschaltet !</h3>";
# die nachfolgende URL soll eigendlich bein Browser des Clients automatisch im neuen Fenster geöffnet werden!
print '<a href="https://www.bs-privat.homeip.net:444/webcam/hobbyraum/wc-hobbyraum-1.htm">http://bs-privat.homeip.net:4972</a>';
system `C:\\Programme\\TOOLS\\Sleep\\sleep.exe $dauer`;
system "net stop activewebcam >1.txt";
}
else
{
print $query->start_html();
print "<font color=\"red\"><h3>WebCam ist aus !";
print "<font color=\"black\"><h3>zum starten der WebCam ... ";
print $query->startform("", "", "");
print "für ", $query->textfield(-name => 'dauer',-default => '12',-size=>1)," sec. ";
print "drücke ... ", $query->submit(-name => 'command', value => 'WebCam AN !'), "</h3>";
print "</p>";
print $query->endform();
}
print $query->end_html();
{
# system "C:\\Programme\\TOOLS\\Sleep\\sleep.exe 1";
# system `c:\\Programme\\Tools\\kill\\kill /f broadcaster`;
}
----SNIP---
Datum: 23.07.2005-09:11
Url aus Perlscript öffnen
