Re: [webmin-devel] Example of using ui_upload?

Jeffrey Kesselman <[email protected]> Wed, 12 Jan 2011 10:22:26 -0500
Newsgroups gmane.comp.web.webmin.devel
Message-ID <[email protected]>
Hmm. ReadParseMime() is giving me a "Error - Missing Headers".  Im sure Im
doing something stupid but I've been over it 3 times.

This is my submit code (pardon the commented out lines pls):

#!/opt/local/bin/perl

require 'nphos-lib.pl';

#my $bodyTags=
"onLoad=window.setTimeout('window.location.reload()',10*1000);";
ui_print_header('RedDwarf Deployment Directory', 'NPHOS',
'',undef,0,0,0,undef,u
ndef,$bodyTags,undef);
#print ui_form_start('delete_deployed.cgi','post');
#print ui_columns_start(["Select","File name"]);
#my @filenames = list_directory("/opt/local/reddwarf/10.2.1/deploy");
#foreach $filename (@filenames){
#   ui_checked_columns_row($filename,undef,'file_select_check',$filename);
#}
#print ui_columns_end();
#print ui_form_end([[undef,"Delete checked files"]]);
#print ui_hr();
#print ui_subheading('File Upload');
print ui_form_start("upload_deployed.cgi","form-data");
print ui_upload("upload_file");
print ui_form_end([["ok","Upload file"]]);
ui_print_footer(undef,"NPHOS Platform page");


And this is upload_deployed.cgi:

#!/opt/local/bin/perl

require 'nphos-lib.pl';

ReadParseMime();
#my $filename = $in{'filename'};
#open(FILE, "/opt/local/reddwarf/10.2.1/deploy/$filename");
#print FILE $in{'upload_file'};
#close(FILE);


On Wed, Jan 12, 2011 at 10:03 AM, Jeffrey Kesselman <[email protected]>wrote:

> One more stupid Q sorry, how do I fetch the name of the uploaded file?  Is
> it another key on $in?
>
> On Tue, Jan 11, 2011 at 11:09 PM, Jamie Cameron <[email protected]>wrote:
>
>> On 11/Jan/2011 19:22 Jeffrey Kesselman <[email protected]> wrote ..
>> > I want to only allow my users to upload and delte fiels from specific
>> > directories so I am building my own file management interface.
>> >
>> > Is there a minimal working example of both setting up the ui_upload
>> > interface and handling the resulting form-data?
>> >
>> > Its all a bit greek to me right at the moment...
>>
>> The code for the form would be like :
>>
>> print ui_form_start("upload.cgi", "form-data");
>> print "Choose a file : ",ui_upload("file");
>> print ui_form_end([ [ "ok", "Upload" ] ]);
>>
>> And for the parser upload.cgi :
>>
>> ReadParseMime();
>> open(FILE, ">/path/to/destfile");
>> print FILE $in{'file'};
>> close(FILE);
>>
>>  - Jamie
>>
>>
>> ------------------------------------------------------------------------------
>> Protect Your Site and Customers from Malware Attacks
>> Learn about various malware tactics and how to avoid them. Understand
>> malware threats, the impact they can have on your business, and how you
>> can protect your company and customers by using code signing.
>> http://p.sf.net/sfu/oracle-sfdevnl
>> -
>> Forwarded by the Webmin development list at [email protected]
>> To remove yourself from this list, go to
>> http://lists.sourceforge.net/lists/listinfo/webadmin-devel
>>
>
>

------------------------------------------------------------------------------
Protect Your Site and Customers from Malware Attacks
Learn about various malware tactics and how to avoid them. Understand 
malware threats, the impact they can have on your business, and how you 
can protect your company and customers by using code signing.
http://p.sf.net/sfu/oracle-sfdevnl

-
Forwarded by the Webmin development list at [email protected]
To remove yourself from this list, go to
http://lists.sourceforge.net/lists/listinfo/webadmin-devel