| 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 |
#########################################################################################################
<schnipp> <FORM METHOD="POST" ACTION="http://www.xyz.de/cgi-bin/baseportal.pl?htx=/uploader" ENCTYPE="multipart/form-data" target="vorschaubild" name="vorschaubild"> <INPUT TYPE="hidden" NAME="mode=" value="binary"> <INPUT TYPE="file" NAME="uploaded_file=" SIZE=30 MAXLENGTH=80> <TABLE BORDER=0> <TR> <TD style='font-family:Arial;color:#FFFFFF;font-size:10.0pt'>Speichern:</TD> <TD style='font-family:Arial;color:#FFFFFF;font-size:10.0pt'><INPUT TYPE="radio" NAME="status=" checked value="write">wenn schon eine Datei besteht diese nicht überschreiben</TD> </TR> <TR> <TD></TD> <TD style='font-family:Arial;color:#FFFFFF;font-size:10.0pt'><INPUT TYPE="radio" NAME="status=" value="overwrite"> bestehende Datei überschreiben</TD> </TR> </TABLE> <INPUT TYPE="submit" NAME="button" VALUE="Bild hochladen"> </FORM> <schnapp>
<schnipp> <perl>
out "Bin drin<br>"; out $mode."<br>"; out $uploaded_file."<br>"; out $status."<br>";
out "Bin im schreiben hier<br>"; binmode FILE; binmode $fh;
{
print FILE $buffer;
}
</perl> <schnapp>
###################################################################
<schnipp> <FORM METHOD="GET" ACTION="http://www.xyz.de/cgi-bin/baseportal.pl?htx=/uploader1" ENCTYPE="multipart/form-data" target="vorschaubild" name="vorschaubild"> <input TYPE=HIDDEN NAME="htx" VALUE="/bildarchiv/uploader1"> <INPUT TYPE="file" NAME="datei" SIZE=30 MAXLENGTH=80><br> <br> <INPUT TYPE="submit" NAME="button" VALUE="Vorschaubild hochladen"> </FORM> <schnapp> ###################################################################
<schnipp> <perl>
$CGI::POST_MAX=1024 * 10000;
my $interndatei = $q->param("datei") || out "Keine Datei angekommen";
my $fh = $q->upload($interndatei);
out "Filehandle: ".$fh."<br>";
$interndateiname =~s/^[-.]+//;
while (read($fh,$buffer,1024))
{
print FILE $buffer;
}
</perl> <schnapp>
#############################################################################
@Pouraga...
<perl>
<schnipp> <perl>
$baseDir = "/var/www/bp-files/"; $fh=$baseDir.$datei; out "Datei auf Server: ".$fh."<br>";
while (read(FILEIN,$buffer,1024))
{
print FILE $buffer;
}
#################################################################################################### </perl> <schnapp>
@CB / Pouraga....
$CGI::POST_MAX=1024 * 100000;
<schnipp> my $filesize=sprintf "%d KB", (-s $filename)/1024; print "<script language=\"JavaScript\" type=\"text/javascript\">\n";
<schnapp>
| Liste der Einträge von 15300 bis 15375: | 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 |