I believe that I've come up with a solution to the problem seeker has here. The core of the problem is that the standard html upload field object absolutely CANNOT accept a default value. So if you do the following:
<input name="File3" type="FILE" id="File3" value="image.jpg">
image.jpg will not upload when you submit the form. This means you cannot populate the form with the previosly uploaded resource as follows:
<input name="File3" type="FILE" id="File3" value="<%File3%>">
When you view the source of the form you will see the value of <%File3%> in the form element but it will be removed upon submission of the form.
Similarly it is IMPOSSIBLE to populate the form by cutting and pasting or any sort of Javascript.
So there's the problem. If you want the user to be able to preserve the previosly uploaded photo upon modification you must ask him/her to upload it again. This is a pretty clunky UI to say the least.
I have have 5 file upload fields like seeker and I’m using Paul’s upload mod as well as his password modify mod. I’m pretty sure the things I did will work with upload mod alone.
So basically the way to fix it is to have a hidden form field that passes back and forth the name of any previously uploaded file. By using this, as well as being able to test
if the form field has a new upload in it we can keep the old file, delete the old file and or add the new file.
Here what you need to do:
For each upload field of your modify (modify.html – I’m using templates) page put in a hidden that contains the value of File(x) as follows:
# first, if the user has previously uploaded an image, show it to them:
<%if File1%>
<img src="<%upload_url%>/<%File1%>"><br><br>
<%endif%>
# here’s the upload form field
<input name="File1" type="FILE" value="">
# Here’s the hidden field that holds the file name of the previously uploaded file.
# Note: If no file has previously been uploaded the value field will be empty.
<input type="hidden" name="File1Transfer" value="<%File1%>">
# Do this for each file upload making sure
# that File(x) and File(x)Transfer have the same number for x.
# Next, in modify.cgi replace Paul’s sub parse_me_and_upload with the following.
# Be sure to back up the original sub parse_me_and_upload in
# case this one doesn’t work.
sub parse_me_and_upload {
use CGI qw(:standard);
my (%in);
my ($fnum,$file_field,$file_name,$ext,$bytes_count,$size,$buff);
my ($num)=1;
my ($IN) = new CGI;
# create a hash for all input - name => value
for ($IN->param) { $in{$_} = $IN->param($_) }
# loop through the input
for (keys %in) {
# if the field name matches File(DIGIT) this is a file upload field...
if (/^(File\d*)$/i) {
# establish and number associative files in array
# $in{$file_field} = name of file being uploaded from form.
# $1 = Form element name ie. File1
# Increment the form element counter
$fnum = $num++;
# do some stuff that I've yet to understand.
$file_field = $1;
$in{$file_field} =~ /([^\/\\]+)$/ and $file_name = $1;
# If the File(X) field is empty
if (length($in{$file_field}) < 1 ) {
# just to copy the value of File(X)Transfer
# into $in{$file_field}. This will either be an empty string or
# the previously uploaded filename.
$in{$file_field} = "$in{'File' . $fnum . 'Transfer'}";
# Other wise the File(x) form upload element has something in it.
}else{
# So first remove any previously uploaded files in that file(x) position
if (length($in{'File' . $fnum . 'Transfer'}) > 1) {
unlink "$upload_path/$in{'File' . $fnum . 'Transfer'}";
}
# Now let's go ahead and upload that new file
$rand = sprintf "%05d", rand 1_000_000;
$file_name = $rand . $file_name; # Prevent files being overwritten by giving them a random prefix
open U, ">$upload_path/$file_name" or &cgierr("Can't open $upload_path/$file_name : $!");
binmode U; # needed for Windows servers
while ($bytes_count = read($in{$file_field},$buff,2096)) {
$size += $bytes_count;
print U $buff;
}
close U;
$in{$file_field} = $file_name;
# create an array of upload fields so we can unlink if there's a booboo
push @uploads, $in{$file_field}
}
}
}
# return the %in hash as normal
return %in
}
# Also, in sub process_form change the following
# First make sure the link isn't already in there.
open (MOD, "<$db_modified_name") or &cgierr ("error opening modified database: $db_modified_name. Reason: $!");
while (<MOD>) {
chomp;
@values = split /\|/;
if ($values[0] eq $in{$db_key}) {
close MOD;
&site_html_modify_failure("A request to modify this record has already been received. Please try again later.");
# remove any new uploads.
unlink "$upload_path/$_" foreach @uploads; # <--- New Line Here...
return;
}
}
close MOD;
Well, I think that's it. This all worked for me. Hopefully it works for you too.
ps. if anyone can tell me how to limit the size of a file upload that would be fantastic!
) 
Re: [speedmax] NEW - Upload Mod
Re: [shiner] NEW - Upload Mod
