Paßwortgeschützter Bereich - #2297 (Perl/CGI)

Drain

2003-09-03 13:24

User since
2003-08-21
26 Artikel
BenutzerIn
[default_avatar]

1)
Was bewirkt die Abfrage

Code (perl): (dl )

if (-f "/secure/$url")

2)
Das mit der Variable $url habe ich noch nicht ganz verstanden. Darin soll wohl der Name der zu schützenden Datei gespeichert sein (z.B. geheim.htm oder geheim.pl).
Die Abfrage

Code (perl): (dl )

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
";
}

hat also eigentlich gar nichts mit dem Login zu tun, sondern ist eine reine Vorsichtsmaßnahme. Wenn ich also sicher weiß, daß diese Datei existiert, brauch ich die Abfrage doch gar nicht.

3) In der while-Schleife steht "print;". Was soll das? Was soll er schreiben?

Grüße Drain\n\n