Just curious, 'file tail' did not work for you? I thought it worked
cross platform...
--brett
On Wed, 2002-09-04 at 07:37, [EMAIL PROTECTED] wrote:
> In a message dated 9/4/2002 10:08:21 AM Eastern Daylight Time,
> [EMAIL PROTECTED] writes:
>
>
> > Will someone give me a working example of how to upload a file?
>
>
>
> First I wrote a proc (below) to drop the path and get the filename by itself.
> I'm sure can be tweaked if I were to use string last instead of string
> first, but for the most part it works for me. Also I have not tried this on
> a non-windows machine so I'm not sure how it accomodates other platforms'
> pathing schemas. I'm sure someone can fix it if it doesn't, though :) Since
> 100% of the users of the applications I write are on windows, it hasn't been
> a priority to check that!
>
> At any rate, once you have the file name by itself, you need to access the
> uploaded data and copy that to wherever you want to put it. Posted file data
> can be accessed through file_control_name.tmpfile. In the example below, the
> file upload control on the form is named f.
>
> <snip>
>
> set myfile [dropPathDOS [ns_queryget f]]
>
> #convert spaces in win32 filename to underscore
> regsub -all " " $myFile "_" myFile
>
> ns_cp [ns_queryget f.tmpfile] [ns_info pageroot]/my_uploads_folder/$myFile
>
>
>
>
> proc dropPathDOS { filepath } {
>
> #############################################
> # #
> # Drops the path from a DOS path\file name #
> # #
> #############################################
>
> set lastSlash 0
>
> while { $lastSlash >= 0 } {
>
> set filepath [string range $filepath [expr $lastSlash + 1] end]
>
> set lastSlash [string first \\ $filepath]
>
> }
>
> return $filepath
>
> }
--
Brett Schwarz
brett_schwarz AT yahoo.com
