also noch ein versuch das neue jump script

[Alain]

hi,
so ich habe das script nun nochmal über-bearbeitet ganz nach dem style von selhtml.
Es geht so,aber es wäre mir lieb,falls jemand noch einen fehler findet,es mir mit einem kurzen hinweis mitteilen könnte.
Hier das script:
#!/usr/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my $url = CGI::param('url')||'';
if ($url)
{
redirect();
}
else
{
$cgi->default_dtd('-//W3C//DTD HTML 4.01 Transitional//EN');
print $cgi->header(-type    =>'text/html'),
$cgi->start_html('Error request'),
$cgi->b('<H3>Error - select a page first...and then click on "go"</h3><br>
Please use your browser's back button to return to the main site and try it again.'),
$cgi->end_html();
}

exit(1);

sub redirect {
print $cgi->redirect($url);
}

Gruss
Alain