Location Problem (gelöst) - #150686 (Perl/CGI)

Gustl

2011-07-23 11:14

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo,

was komisch war:
Wenn ich

Code (perl): (dl )

#!/usr/bin/perl

durch

Code (perl): (dl )

#!/usr/bin/perl -w

ersetze funktioniert die Weiterleitung auch. Kann mir wer erklären wieso dies so ist? Ich dachte immer das bei der Option -w nicht nur die Fehler sondern auch die Warnungen ausgegeben werden!?

Dennoch habe ich ein Problem, mein Grundgedanke ist es ein downloadscript zu schreiben welches einen zähler hochzählt, die Datei zum download anbietet und dann wieder auf die vorherige Seite führt. Aber 2x Location nacheinander geht nicht, da er ja mit \n\n wohl abschließt.

Code (perl): (dl )

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use strict;
use lib 'module';
use CGI;
use WebDB;
use Globals;                  

my $C = new CGI;

my $dl       = $C->param('dl');

my $ref_link = $ENV{HTTP_REFERER};
my $url = $Glob::path."downloads/".$dl;

print "Location: $url\n\n";  #<- Da hört er dann auf :( 
print "Location: $ref_link\n\n";
exit;

Danke und Gruß