On Thu, 21 Dec 2000, byron wise wrote:
> I have a script that uploads a file from a browser. I'm not getting the
> permissions on this that I want. how can I change them at time of upload?
> <snip>
> sub upload_file
> {
> my $temp_dirpath = shift @_;
> my $buffer = '';
> open (HANDLE, ">$temp_dirpath") or die "Can't open this file now: $!
>\n";
> while (read($file_name, $buffer, 2096))
> {
> print HANDLE $buffer;
> }
> close HANDLE;
> }
> </snip>
>
Set the umask to allow the permission bits you want then
use chmod to set the bits the way you want them.
**** [EMAIL PROTECTED] <Carl Jolley>
**** All opinions are my own and not necessarily those of my employer ****
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
