Bill,
Just wanted to thank you for all your help (and let everyone know I was
finally able to get my files to upload correctly... hooray!)!
As you suggested, I tested the filenames on the server by pushing the names
into an array and tested the names against each other. It worked
beautifully!
Creating the local scalar, $lcfile, was causing problems so I took it out
and I did the lowercase like this instead and it's working...
$file = lc($file);
open (SAVEFILE, ">$savedir$file") || dienice("Can't open filehandle:
$!\n");
Thanks again! This list is definitely a keeper!
- - - - - - - - - -
Jared Hess ([EMAIL PROTECTED])
Technical Writer / Webmaster
Wilcox Associates, Inc. (www.wilcoxassoc.com)
-----Original Message-----
From: $Bill Luebkert <[EMAIL PROTECTED]>
To: Jared Hess <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
<[EMAIL PROTECTED]>
Date: Friday, March 09, 2001 2:58 AM
Subject: Re: zero filesize when uploading
>
>We can't fully evaluate it since we can't see all of the code.
>
>When testing for dup name in filename_test, test if lc $a eq lc $b (where
$a
>is say the new file and $b is the old file) or take all of the files in the
>dir and put the lc names into a hash and then see if lc $a exists in the
hash
>(faster). That way it will catch any dups ignoring case. Drop the lc
$file
>that you have above and save it for the last minute as in below.
>
>Than when you open the file for write:
>
>change:
>
>open (SAVEFILE, ">$savedir$file") || dienice("Can't open filehandle:
$!\n");
>
>to:
>
>my $lcfile = lc $file; # doing the lc here should only affect the new file
you are writing
>open (SAVEFILE, ">$savedir$lcfile") || dienice("Can't open filehandle:
$!\n");
>
>--
> ,-/- __ _ _ $Bill Luebkert ICQ=14439852
> (_/ / ) // // DBE Collectibles http://www.todbe.com/
> / ) /--< o // // Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
>-/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
