| 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 |
#!/usr/bin/perl
# Geschrieben von: Sven Wappler swappler@www.myowndesign.de # Geschrieben am: 23.8.01 # Weitere Skripte: http://www.myowndesign.de/scripts # # --------------------------------------------------------------------- # -- WICHTIG: -- # - Dieses Script benötigt wahrscheinlich Perl 5. (Nur auf Perl 5 getestet) # - Dieses Script benötigt Chmod '755'. # - Setzen sie das Verzeichnis, in dem die Dateien abgespeichert werden, auf Chmod '777' # --------------------------------------------------------------------- # # Das Skript ist Freeware. Die Benutzung geschieht auf eigene Gefahr. # Wenn sie Fragen haben oder Verbesserungsvorschläge, dann schreiben # sie doch bitte eine Mail an mich. # # Geschichte: Weil ich keine Upload-Skript gefunden habe, was meinen Wünschen entspricht, # habe ich einfach ein paar Skripte gesucht und die Sachen, die ich wollte # genommen, und in eine Datei geschrieben.
#---------------------------------------------------- # Die folgenden Variablen müssen verändert werden:
# Absoluter Pfad zum Ordner, wo die Datei abgelegt wird (kein Slash am Ende!). Z.B:
# Ihre Email Adresse. Nicht den "\" vor dem @ vergessen! $url = "http://www.ihredomain.de/tmp"; # URL zum Ordner, wo die Datei abgelegt wird (kein Slash am Ende!).Z.B:
# URL nach dem erfolgreichem Upload $overwrite = 0; # Überschreiben: '1' = ja (Es muss 'a+rw' gegeben sein), '0' = nein $maximum_size = 51200; # Limit: Die Größe in Bytes, die erlaubt ist. '0' = kein Limit (1KB = 1024 Bytes) $exton = "1"; # '1' = Dateiformat wird überprüft , '0' = Dateiformat wird nicht überprüft $ext_file = "ext.txt"; # Name der Datei, in der die zugelassenen Dateiformate stehen #---------------------------------------------------- # Die Einstellungen für die Seiten $overwrite_url = ""; # Z.B. "http://www.ihredomain.de/upload/overwrite.htm # URL zur Datei, die angezeigt wird, wenn Datei schon vorhanden ist. Wenn leer, wird eine
# URL zur Datei, die angezeigt wird, wenn keine Datei ausgewählt wurde. Wenn leer, wird
# URL zur Datei, die bei Erfolg angezeigt wird. Wenn leer, wird eine Seite automatisch
# URL zur Datei, die bei einer leeren Datei angezeigt wird. Wenn leer, wird eine Seite
# URL zur Datei, die beim falschen Dateiformat angezeigt wird. Wenn leer, wird eine Seite
# URL zur Datei, die angezeigt wird, wenn Datei zu groß ist. Wenn leer, wird eine Seite
# Ende des editierbaren Teils # ____________________________________________________
| Alle Einträge zum Thema: | Zur Liste |
#!/usr/bin/perl
# Geschrieben von: Sven Wappler swappler@www.myowndesign.de # Geschrieben am: 23.8.01 # Weitere Skripte: http://www.myowndesign.de/scripts # # --------------------------------------------------------------------- # -- WICHTIG: -- # - Dieses Script benötigt wahrscheinlich Perl 5. (Nur auf Perl 5 getestet) # - Dieses Script benötigt Chmod '755'. # - Setzen sie das Verzeichnis, in dem die Dateien abgespeichert werden, auf Chmod '777' # --------------------------------------------------------------------- # # Das Skript ist Freeware. Die Benutzung geschieht auf eigene Gefahr. # Wenn sie Fragen haben oder Verbesserungsvorschläge, dann schreiben # sie doch bitte eine Mail an mich. # # Geschichte: Weil ich keine Upload-Skript gefunden habe, was meinen Wünschen entspricht, # habe ich einfach ein paar Skripte gesucht und die Sachen, die ich wollte # genommen, und in eine Datei geschrieben.
#---------------------------------------------------- # Die folgenden Variablen müssen verändert werden:
# Absoluter Pfad zum Ordner, wo die Datei abgelegt wird (kein Slash am Ende!). Z.B:
# Ihre Email Adresse. Nicht den "\" vor dem @ vergessen! $url = "http://www.ihredomain.de/tmp"; # URL zum Ordner, wo die Datei abgelegt wird (kein Slash am Ende!).Z.B:
# URL nach dem erfolgreichem Upload $overwrite = 0; # Überschreiben: '1' = ja (Es muss 'a+rw' gegeben sein), '0' = nein $maximum_size = 51200; # Limit: Die Größe in Bytes, die erlaubt ist. '0' = kein Limit (1KB = 1024 Bytes) $exton = "1"; # '1' = Dateiformat wird überprüft , '0' = Dateiformat wird nicht überprüft $ext_file = "ext.txt"; # Name der Datei, in der die zugelassenen Dateiformate stehen #---------------------------------------------------- # Die Einstellungen für die Seiten $overwrite_url = ""; # Z.B. "http://www.ihredomain.de/upload/overwrite.htm # URL zur Datei, die angezeigt wird, wenn Datei schon vorhanden ist. Wenn leer, wird eine
# URL zur Datei, die angezeigt wird, wenn keine Datei ausgewählt wurde. Wenn leer, wird
# URL zur Datei, die bei Erfolg angezeigt wird. Wenn leer, wird eine Seite automatisch
# URL zur Datei, die bei einer leeren Datei angezeigt wird. Wenn leer, wird eine Seite
# URL zur Datei, die beim falschen Dateiformat angezeigt wird. Wenn leer, wird eine Seite
# URL zur Datei, die angezeigt wird, wenn Datei zu groß ist. Wenn leer, wird eine Seite
# Ende des editierbaren Teils # ____________________________________________________
$| = 1;
sub program {
$query = new CGI;
$name = $query->param('filename'); $filename = $query->param('file'); if($filename eq ""){ &no_file; }
$ext = "";
if($name ne ""){
$filename = "$name\.$ext";
}
@ext = <FILE>; close(FILE); $value_ext = "0";
foreach $i (@ext){ $i =~ s/[\n\r]//g; if($ext eq $i){ $value_ext = "1"; } } if($exton == 0){$value_ext = "1";} if($value_ext ne "1"){ &wrong_ext; } if ($filename =~ /\//) { @array = split(/\//, $filename); $real_name = pop(@array); } elsif ($filename =~ /\\/) { @array = split(/\\/, $filename); $real_name = pop(@array); } else { $real_name = "$filename"; }
$outfile = "$path" . "/" . "$real_name"; $filename = $query->param('file');
&overwrite if ((-e "$outfile") && (!$overwrite)); if (!open(OUTFILE, ">$outfile")) { print "Content-Type: text/html\n\n"; print "<html><head><title>Fehler: Datei konnte nicht geöffnet werden!</title></head>\n"; print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n"; print "<p><font size=\"+1\" face=\"Arial\">Fehler: Die Output Datei zum schreiben konnte nicht geöffnet werden!</font></p>\n"; print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n"; print "Stellen sie sicher, dass der folgende Pfad die Rechte '777' hat:<br>\n"; print "$path\n"; print "</font></p>"; print "</body></html>"; exit 0; } undef $bytesread; undef $buffer;
while ($bytes = read($filename,$buffer,1024)) { $bytesread += $bytes;
print OUTFILE $buffer; }
push(@Files_Written, "$outfile"); $totalbytes += $bytesread; $Confirmation{$filename} = $bytesread; close($filename); close(OUTFILE);
if ($totalbytes > $maximum_size && $maximum_size > 0) {
unlink $outfile;
&limit;
}
if ((stat $outfile)[7] < 1) {
unlink $outfile;
∅
}
&success;
}
# Automatische Seiten
sub success {
if ($success_url) {
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Danke für den Upload</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Danke für den Upload</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\">Die Datei war $totalbytes Bytes
groß.<br>\n";
print "Sie können die Datei <a href=\"$url/$real_name\">$url/$real_name</a> durch
print "</font></p>\n"; print "</body></html>"; exit 0; } }
if ($overwrite_url) {
print "Location: $overwrite_url\n\n\n";
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Fehler: Der Dateiname wird schon
verwendet!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Fehler: Der Dateiname wird schon
verwendet!</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n";
print "Klicken sie <a href=\"javascript:history.back()\">hier</a> und wählen
print "</body></html>"; exit 0; } }
if ($empty_url) {
print "Location: $empty_url\n\n\n";
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Fehler: Die Datei konnte nicht übertragen
werden!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Fehler: Die Datei konnte nicht
übertragen werden!</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\">Entweder konnte die Datei nicht
übertragen werden oder die Datei ist leer.<br><br>\n";
print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n";
print "Entweder klicken sie <a href=\"javascript:history.back()\">hier</a> und
wählen eine volle \n";
print "Datei zum hochladen aus oder wenn sie sicher sind, dass die Datei voll ist,
print "</body></html>"; exit 0; } }
if ($wrong_ext_url) {
print "Location: $wrong_ext_url\n\n\n";
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Fehler: Falsches Dateiformat!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Fehler: Falsches
Dateiformat!</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n";
print "Entweder klicken sie <a href=\"javascript:history.back()\">hier</a> und
wählen eine andere \n";
print "Datei zum hochladen aus oder wenn sie nur dieses Format hochladen können,
print "</body></html>"; exit 0; } }
if ($limit_url) {
print "Location: $limit_url\n\n\n";
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Fehler: Limit wurde erreicht!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Fehler: Limit wurde
erreicht!</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n";
print "Entweder versuchen sie die Datei zu verkleinern oder sie kontaktieren \n";
print "den <a href=\"mailto:$email\">Administrator.</a> und bitten ihn, das Limit
hochzusetzen.</font></p>\n";
print "</body></html>";
exit 0;
}
}
if ($blank_url) {
print "Location: $blank_url\n\n\n";
exit 0;
} else {
print "Content-Type: text/html\n\n";
print "<html><head><title>Fehler: Keine Datei ausgewählt!</title></head>\n";
print "<body bgcolor=\"#FFFFFF\" text=\"#000000\">\n";
print "<p><font size=\"+1\" face=\"Arial\">Fehler: Sie haben keine Datei für
die Übertragung ausgewählt!</font></p>\n";
print "<p><font face=\"Arial\" size=\"2\"><b>Vorgehensweise:</b><br>\n";
print "Klicken sie <a href=\"javascript:history.back()\"> hier</a> und wählen
print "</body></html>"; exit 0; } }
<html> <head> </head> <body text="#000000" bgcolor="#FFFFFF" link="#0000EE" vlink="#551A8B" alink="#FF0000"> <font face="Arial"><font size=-1>Mit diesem Formular können Dateien im Format <b><i>jpg</i></b> oder <b><i>jpeg</i></b> mit einer Maximalgröße von <b><i>50KB</i></b> von der Festplatte auf den Server geladen werden.</font></font><form ENCTYPE="multipart/form-data" ACTION="/cgi-bin/upload.cgi" METHOD="POST"> <table BORDER=0 CELLSPACING=0 CELLPADDING=0 > <tr> <td WIDTH="200"><font face="Arial"><font size=+0>Name der Datei:</font></font> <br><font size=-2><font face="Arial">(optional und </font><b><blink><font face="Arial,Helvetica">ohne</font></blink></b><font face="Arial"> Dateiendung)</font></font></td>
</tr>
<td><font face="Arial"><font size=+0>Datei zum Hochladen:</font></font></td>
</tr> </table> <input TYPE="SUBMIT" VALUE="Hochladen"></form> </body> </html>
| Liste der Einträge von 52051 bis 52201: | 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 |