Wer sich viel mit Perlscripten befasst wird sicher auch nicht immer Lust haben die CHMOD der Dateien per FTP
selbst zu vergeben. Warum auch, es gibt ja den chmod Befehl.
# Verzeichnis mit mkdir anlegen und CHMOD 777 für dieses Verzeichnis festlegen
mkdir "$datenpfad/$verzeichnis",0777;
chmod 0777,"$datenpfad/$verzeichnis/";
# Hier ein Beispiel wo der aufruf in einer Subroutine erfolgt und nach dem
# erstellen der mitglied.dat diese CHMOD 666 erhält.
sub neuedatei {
open(FILE, ">$datenpfad/mitglied.dat");
close(FILE);
$cmd = "chmod 0666 $datenpfad/mitglied.dat";
system $cmd;
}
Wer Verzeichnisse anlegt die Daten enthalten aber keine Index.html Datei kann das anlegen eines Verzeichnisses und das anlegen einer Index.html
gleich miteinander verbinden.
# Verzeichnisanlegen und dann Subroutine starten
mkdir "$datenpfad/$verzeichnis",0777;
chmod 0777,"$datenpfad/$verzeichnis/";
&erstelle_index("$datenpfad/$verzeichnis");
Subroutine zum erstellen der Index Datei. Das kann je nach Bedarf auch eine ganz andere Datei sein.
So etwa auch eine .htaccess Datei.
sub erstelle_index {
open(INDEX_FILE, ">$datenpfad/$verzeichnis/index.html");
print INDEX_FILE<<HTML_CODE;
<HTML>
<HEADER><TITLE>Zugriff verweigert</TITLE>
</HEADER>
<BODY BGCOLOR="WHITE" TEXT="BLACK">
<font face="arial, helvetica" size=2>
Der Zugriff auf dieses Verzeichnis wurde verweigert.
<P>
<a href="$homepageurl">Link zur Homepage</a><P>
</BODY>
</HTML>
HTML_CODE
chmod(0777, "$datenpfad/$verzeichnis/index.html");
}
|
