Opened by Drain at 2003-08-29 16:21
User since
2003-08-04
232 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
232 Artikel
BenutzerIn
Was er sagen will ist, dass sich das Perlscript die Dateien, die du dem User geben willst, selber holt. Also sind die Dateien nur über genau dein Script erreichbar, auf keinenfall anders.
So bastelst du z.b. sowas:
/cgi-bin/login.pl <- dein Auth-Script
/secure/ <- dem Verzeichnis nur dem Script rechte geben, nicht aber allen. Oder du schmeisst dieses Verzeichnis einfach ins cgi-bin worauf es automatisch gegen Griffe von aussen gesichert ist.
Dann machst du im Scritp eine abfrage nach der Variable "url" z.b.
Wenn der User sich nun richtig eingeloggt hat:
Natürlich musst du noch abfragen ob es html dateein oder bilder oder wasauchimmer sind, die du zurückgeben willst...
aber im groben sollte des klappen (*hoff*)\n\n
<!--EDIT|Thorium|1062164975-->
So bastelst du z.b. sowas:
/cgi-bin/login.pl <- dein Auth-Script
/secure/ <- dem Verzeichnis nur dem Script rechte geben, nicht aber allen. Oder du schmeisst dieses Verzeichnis einfach ins cgi-bin worauf es automatisch gegen Griffe von aussen gesichert ist.
Dann machst du im Scritp eine abfrage nach der Variable "url" z.b.
Wenn der User sich nun richtig eingeloggt hat:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12
if (-f "/secure/$url") { open (FILE, "/secure/$url") || die("Fehler open $url: $!"); # binmode(FILE); (nur bei Bildern und sonnstigem); # binmode(STDOUT); (same) while (<FILE>) { print; } close(FILE); } else { print "Datei existiert nicht "; }
Natürlich musst du noch abfragen ob es html dateein oder bilder oder wasauchimmer sind, die du zurückgeben willst...
aber im groben sollte des klappen (*hoff*)\n\n
<!--EDIT|Thorium|1062164975-->
Per|li|nist der; -en, -en <zu â...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.