[CGI] Formulier "Upload" werkt niet.

[Verwijderd]

Het door mij aangepast upload-script (zie hieronder) krijg ik niet aan de praat. Kan iemand mij een tip geven!

+++++++++++++++++++++++++++++++++++
#!/usr/bin/perl
# Copyright (c) 1996 Steven E. Brenner
# $Id: fup.cgi,v 1.2 1996/03/30 01:33:46 brenner Exp $

require 5.001;
use strict;
require "cgi-lib.pl";

MAIN:
{
my (%cgi_data, # The form data
%cgi_cfn, # The uploaded file(s) client-provided name(s)
%cgi_ct, # The uploaded file(s) content-type(s). These are
# set by the user's browser and may be unreliable
%cgi_sfn, # The uploaded file(s) name(s) on the server (this machine)
$ret, # Return value of the ReadParse call.
$buf # Buffer for data read from disk.
);

# When writing files, several options can be set..
# Spool the files to the /tmp directory
$cgi_lib::writefiles = "/home/........................./images/upload/"; #vanwege deze post even verwijderd

# Limit upload size to avoid using too much memory
$cgi_lib::maxdata = 50000;

# Start off by reading and parsing the data. Save the return value.
# Pass references to retreive the data, the filenames, and the content-type
$ret = &ReadParse(\%cgi_data,\%cgi_cfn,\%cgi_ct,\%cgi_sfn);

# A bit of error checking never hurt anyone
if (!defined $ret) {
&CgiDie("Error in reading and parsing of CGI input");
} elsif (!$ret) {
# &CgiDie("Missing parameters\n",
# "Please complete the form <a href='fup.html'>fup.html</a>.\n");
print &PrintHeader;
print &HtmlTop("File Upload Test");
print <<EOTEST;
<H1>Upload test</H1>
<FORM METHOD="post" ENCTYPE="application/x-www-form-encoded">
Uw naam:<INPUT TYPE="text" NAME="naam">
<P>
Hondennaam:<INPUT TYPE="text" NAME="hondnaam">
<P>
Pasfoto:<INPUT TYPE="file" NAME="pasfoto">
<P>
Verzend<INPUT TYPE="submit" NAME="submit">
<P>
Bedankt ...
</FORM>
</
EOTEST
print &HtmlBot;
exit;


} elsif (!defined $cgi_data{'pasfoto'} or !defined $cgi_data{'hondnaam'}) {
&CgiDie("Data missing\n",
"Please complete the form <a href='fup.html'>fup.html</a>.\n");
}


# Now print the page for the user to see...
print &PrintHeader;
print &HtmlTop("File Upload Results");

print <<EOT;
<p>Bedankt voor de foto van uw hond<br>
<blockquote>$cgi_data{'hondnaam'}</blockquote><br>
<p>The file has been spooled to disk as: <i>$cgi_sfn{'pasfoto'}</i><br>
The file's reported name on the client machine is:
<i>$cgi_cfn{'pasfoto'}</i> or $cgi_data{'pasfoto'}<br>
The file's reported Content-type (possibly none) was:
<i>$cgi_ct{'pasfoto'}</i><br>
<hr>
The contents of $cgi_data{'pasfoto'} are as follows:<br>
EOT

print "[img]\"../pasfotos/".$cgi_data{'pasfoto'}."\"[/img]\n";

# Print the contents of the uploaded file
# open (UPFILE, $cgi_sfn{'upfile'}) or
# &CgiError("Error: Unable to open file $cgi_sfn{'upfile'}: $!\n");


# unlink ($cgi_sfn{'pasfoto'}) or
# &CgiError("Error: Unable to delete file",
# "Error: Unable to delete file $cgi_sfn{'pasfoto'}: $!\n");
# cleanup - delete the uploaded file
# Note that when using spooling of files to disk, the uploaded file's
# name on the server machine is in both %cgi_data and %cgi_sfn
# (that is, the first and fourth parameters to ReadParse). However,
# for technical reasons, the data in %cgi_data are tainted. The data in
# %cgi_sfn are not tainted, but the keys can contain only a limited
# set of characters ([-\w] in cgi-lib 2.8)

print "<hr>File $cgi_data{'pasfoto'} has now been removed\n";
print &HtmlBot;


# The following lines are solely to suppress 'only used once' warnings
$cgi_lib::writefiles = $cgi_lib::writefiles;
$cgi_lib::maxdata = $cgi_lib::maxdata;

}
++++++++++++++++++++++++++++++++++++++++++++++++++++

[gorgi_19]

gorgi_19 schreef op woensdag 16 maart 2005 @ 23:08:
Neem eens contact op met de maker van het script, of zoek een ander script op een site als bijvoorbeeld www.hotscripts.com Programming & Webscripting gaat over het zelf programmeren en de problemen die hierbij komen, we geven geen support op scripts van anderen

Zie ook P&W FAQ - De "quickstart"

[ Voor 9% gewijzigd door gorgi_19 op 17-03-2005 20:17 ]