You're right, I'm calling this via inside a OO Perl Module, its a simple wrapper to the DB_File module, but it also does a bunch of other things. This is for a simple web-based database admin screen. Info from a form is sent to a script, that calls this Module kinda like 

 
my $input = CGI -> new(); 

my $image = $input -> param('image'); 
# some more form fields fetched through param()...

my $info = new -> JustinDb(); 
   $info       ->savethis(-name => 'image', 
                         -value => $image);

[download]

the _file_upload() is always internal. This module is one of many, and the module itself 'knows' what kind of form field the info was sent from. Yes I'm tricky :) That part is checking out fine. it looks to see if this particular info is handed to it from a fileupload field, and if it is, saves the file to the $img_dir variable.

I've been fiddling with this some more, and filenames called 1photo.gif will work, but photo.gif will not work! this is incredibly weird. This is my problem and I'm still scratchin my head.

 

-justin simoni
!skazat!

In reply to Re: Re: YAF(ile)U(ploading)Q(uestion) by skazat
in thread YAF(ile)U(ploading)Q(uestion) by skazat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.