Dateien schützen... auch so???

[Andres Freund]

Hi

Recht unverständlich.
Könntest du das script nicht posten???

Wär echt nett!

Gruss Markus

Ist halt Perl, da ich kein PhP kann. Ich musste das Script schnell aus dem Kopf schreiben, weil ich das alte nicht mehr gefunden habe. Mir fällt momentan nicht mehr ein wie man einen Dateinamen für die Zips vergibt. Bei einigen Browsern wird für die Zip Datei nähmlich der Namen zip.pl vorgeschlagen, was natürlich nicht sonderlich praktisch ist. Aber da kann dir sicher jemand aus dem Forum helfen.

Ich weiß nicht inwiefern das Script portabel auf PhP ist.

#######################
aufruf:
<a href="zip.pl?pw=123&datei=123.zip">Zip Datei herunterladen</a>

###zip.pl##############
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $cgi = new CGI;
my $name = $cgi->param("datei");#hiermit bekommst du die Parameter aus der Url
my $pw = $cgi->param("pw");#hiermit bekommst du die Parameter aus der Url
if ($pw == 123)# hierfür besser ein session Mechanismus. aber ich hatte keine Zeit mehr.
{
     print "Content-type: application/x-zip-compressed\n\n"; #damit es der Browser richtig speichert.
     open (DATEI ,"$name");
     binmode DATEI;
     my @data = <DATEI>;
     close (DATEI);
     print @data;
}
else
{
     print "Content-Type: text/html\n\n";
     print "Sorry Pw ist falsch";
}
#########################

Falls was nicht klar ist, ich bin für Fragen offen.
mfg
Andres Freund