web/job_submit.html | 42 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
New commits:
commit 3819cc50e2e7cc93272fc24b9f11bf3f847b370a
Author: adam stokes <ajs(a)redhat.com>
Date: Thu May 14 12:23:50 2009 -0400
- working on job submissions, file upload in progress
diff --git a/web/job_submit.html b/web/job_submit.html
new file mode 100644
index 0000000..730225d
--- /dev/null
+++ b/web/job_submit.html
@@ -0,0 +1,42 @@
+<& header.html &>
+<div id="content">
+<h3>Form submitted</h3>
+</div>
+
+<& footer.html &>
+<%init>
+use File::Path;
+
+# create path if doesn't exist
+if ($form_identifier && ! -f "/cores/$form_identifier") {
+ mkpath("/cores/$form_identifier", {verbose => 1});
+}
+
+# File uploads
+if ($form_file) {
+ my $query = $m->cgi_object;
+
+ # get a filehandle for the uploaded file
+ my $fh = $query->upload('form_file');
+
+ # setup file
+ open FORMFILE, '>>/tmp/formfile';
+
+ # print out the contents of the uploaded file
+ while (<$fh>) {
+ print FORMFILE $_;
+ }
+ close($fh);
+
+ close FORMFILE;
+}
+</%init>
+
+<%args>
+
+$form_identifier
+$form_file
+$form_submitter
+$form_url
+</%args>
+
Show replies by date