| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
| Alle Einträge zum Thema: | Zur Liste |
#!/usr/bin/perl
$absfilepath="/html/files" # Hier kommt das Verzeichnis der Dateien auf dem Server hin (absolut)
$query = CGI::new();
$newname = $query->param("newname");
$redirect = $query->param("redirect");
$matched=1;
if (-e $newname) {
$errmsg .= "Der neue Dateiname existiert bereits. Die Datei wurde nicht umbenannt.<br>";
} else {
if (-e $oldname) {
chdir($absfilepath);
rename($oldname, $newname);
} else {
$errmsg .= "Die angegebene Datei existiert nicht.<br>";
}
}
if ($redirect) {
print "Location: $redirect&errors=$errmsg\n\n";
} else {
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<title>Fileupload</title>
</head>
<body>
<p>
<b>ErrorMessages:</b><br>$errmsg
</p>
</body>
</html>
EOF
}
<form action="www.deinserver.de/pfadzumscript/rename.cgi"> <input type="hidden" name="oldname" value="ALTERDATEINAME.EXT"> <input type="hidden" name="newname" value="NEUERDATEINAME.EXT"> <input type="hidden" name="redirect" value="BASEPORTAL-AUFRUF ZU EINEM TEMPLATE"> </form>
| Liste der Einträge von 49650 bis 49800: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |