Opened by rewal at 2008-05-07 11:30
User since
2007-11-26
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-11-26
8 Artikel
BenutzerIn
Also ich habe das jetzt ausprobiert. Der Child soll das ganze mit dem "rsh " und so weiter erledigen, der Parent gibt HTML aus:
...
#! /usr/bin/perl
BEGIN { unshift @INC, '/home/bin/perl/lib'; }
use CGI::Carp qw(fatalsToBrowser);
use CGI;
# get the parameters
my $cgi=new CGI();
my $USER=$cgi->param('user');
my $HOST=$cgi->param('host');
my $IP=$cgi->param('ip_address');
my $child=fork();
if ($child == 0)
{
close STDIN;
close STDOUT;
close STDERR;
qx(rsh -l $USER $HOST xterm -sb -ls -geometry 80x24 -display $IP:0.0);
}
else
{
# get the html output here
# the site will immediately redirect to the referer site
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Login $USER\@$HOST</title>\n";
print "<meta http-equiv=\"refresh\" content=\"0; URL=".$cgi->referer()."\">\n";
print "</head><body></body>\n";
print $cgi->end_html;
exit 0;
}
...
Und das funktioniert! Danke für eure Hilfe!
P.S. Inzwieschen hatte ich noch eine Möglichkeit gefunden: ich starte mit einer Javascript-Funktion mein CGI-Skript in einem neuen Fenster und schließe sofort diesen Fenster;-) Ist zwar ein bisschen schmutzug aber funktioniert auch;-)
...
#! /usr/bin/perl
BEGIN { unshift @INC, '/home/bin/perl/lib'; }
use CGI::Carp qw(fatalsToBrowser);
use CGI;
# get the parameters
my $cgi=new CGI();
my $USER=$cgi->param('user');
my $HOST=$cgi->param('host');
my $IP=$cgi->param('ip_address');
my $child=fork();
if ($child == 0)
{
close STDIN;
close STDOUT;
close STDERR;
qx(rsh -l $USER $HOST xterm -sb -ls -geometry 80x24 -display $IP:0.0);
}
else
{
# get the html output here
# the site will immediately redirect to the referer site
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Login $USER\@$HOST</title>\n";
print "<meta http-equiv=\"refresh\" content=\"0; URL=".$cgi->referer()."\">\n";
print "</head><body></body>\n";
print $cgi->end_html;
exit 0;
}
...
Und das funktioniert! Danke für eure Hilfe!
P.S. Inzwieschen hatte ich noch eine Möglichkeit gefunden: ich starte mit einer Javascript-Funktion mein CGI-Skript in einem neuen Fenster und schließe sofort diesen Fenster;-) Ist zwar ein bisschen schmutzug aber funktioniert auch;-)