#!/opt/local/bin/perl
#my $bodyTags= "xonLoad=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 <at> filenames = list_directory("/opt/local/reddwarf/10.2.1/deploy");
#foreach $filename ( <at> 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");
#!/opt/local/bin/perl
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
<jeffpk <at> nphos.com> wrote:
One more stupid Q sorry, how do I fetch the name of the uploaded file? Is it another key on $in?
On 11/Jan/2011 19:22 Jeffrey Kesselman <jeffpk <at> nphos.com> 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 webmin-devel <at> webmin.com
To remove yourself from this list, go to
http://lists.sourceforge.net/lists/listinfo/webadmin-devel
RSS Feed