Re: Perl code Question - renaming a file for upload

Should I use the rename function before the file is uploaded or after? -
 I'm not sure if I can change the name of the file before its uploaded - 
it seems I might have to change it on the server after the upload?
Modified script below -

Thanks in advance -



Douglas Brantz wrote:
> That didn't seem to work - still uploads file with original name. In 
> the example I upload 1 file and form# 405 is added to the beginning of 
> the file name for Mysql -
> below the list you see the File that is getting uploaded.
>
> current: 405File1faapage.pdf
> proposed:
> syll1:
> syll2:
> csheet:
> psheet:
>
> File being uploaded: File1faapage.pdf
>
> --------------------------------------------------------------------------------------- 
>
>
> Greg Meckes wrote:
>> Couldn't you just say?:
>>
>> open (STORAGE, ">$dir/$p$file_name")
>>
>>
>>
>> --- Douglas Brantz <[email protected]> wrote:
>>
>>  
>>> I need to upload a file to the server and I have that working, but I 
>>> want to add the form# to the front of the file:
>>> I can do this to the filename stored in Mysql but how do I change 
>>> the name of the file being uploaded to the server?
>>> -
>>> The variable for form number is $p
>>>
>>> I thought I could do this somewhere in this part of the code?
>>>
>>> sub Get_File_Name{
>>> if ($ENV{HTTP_USER_AGENT}=~/win/i){
>>> fileparse_set_fstype("MSDOS");
>>> }
>>> elsif($ENV{HTTP_USER_AGENT}=~/mac/i){
>>> fileparse_set_fstype("MacOS");
>>> }
>>> my $full_name = shift;
>>> $full_name = basename($full_name);
>
>>> $full_name = "$p$full_name";  ##>> Added this so I can get the file 
>>> name with form# for Mysql
>>>     $full_name =~ s!\s!\_!g;
>>> return($full_name);
>>> }
>>> sub Store_File{
>>> my $file_handle = shift;
>>> my $file_name = shift;
>>> my $data;
>>> #my $mime = uploadInfo($File_handle)->{'Content-Type'};
>>> open (STORAGE, ">$dir/$file_name")  ##  Tried 
>>> "..>$dir/$p$file_name");  but it didnt' work.
>>> or die "Error: $!\n";
>>> #if($mime !~ /text/){
>>> binmode ($file_handle);
>>> binmode (STORAGE);
>>> #}
>>> while( read($file_handle, $data, 1024) ){
>>> print STORAGE $data;
>>> }
>>> close STORAGE;
>>> }
>>>
>>> -- 
>>> Douglas Brantz
>>> Computer consultant
>>> College of Fine & Applied Arts
>>> Appalachian State University
>>> Boone, NC 28608
>>>
>>> 828-262-6549 – office
>>> 828-262-6312 - fax
>>>
>>>
>>> -- 
>>> MySQL Perl Mailing List
>>> For list archives: http://lists.mysql.com/perl
>>> To unsubscribe:    
>>> http://lists.mysql.com/[email protected]
>>>
>>>
>>>     
>>
>>
>>   
>

-- 
Douglas Brantz
Computer consultant
College of Fine & Applied Arts
Appalachian State University
Boone, NC 28608

828-262-6549 – office
828-262-6312 - fax


-- 
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe:    http://lists.mysql.com/[email protected]