# This form requires wfpl. See: http://jasonwoof.org/wfpl
-if(!file_exists('code/wfpl/template.php')) { die('This form requires <a href="http://jasonwoof.org/wfpl">wfpl</a>.'); }
-require_once('code/wfpl/template.php');
+# This form was initially auto-generated. If you would like to alter the
+# parameters and generate a new one try this URL:
+#
+# ~metaform_url~
+
+
+# SETUP
+~opt_email {~
+# To send results by e-mail, all you have to do is set your e-mail address here:
+$GLOBALS['~file_name~_form_recipient'] = 'fixme@example.com';
+~}~~opt_db {~
+# To save results to a database, you'll need to create the ~table_name~ table.
+# The file ~file_name~.sql should help with this
+#
+# if you rename any of the database fields, you'll need to update this:
+define('~file_name upper~_DB_FIELDS', '~db_fields~');
+~}~~upload_settings {~
+# Set this to the path to your uploads directory. It can be relative to the
+# location of this script. IT MUST END WITH A SLASH
+$GLOBALS['upload_directory'] = 'uploads/';
+~}~~file_settings {~
+$GLOBALS['~name~_file_name'] = uniqid() . getmypid() . '.txt'; # comment this out to use uploader's filename
+~}~~image_settings {~
+$GLOBALS['~name~_max_width'] = '400';
+$GLOBALS['~name~_max_height'] = '400';~thumb_settings {~
+$GLOBALS['~name~_thumb_max_width'] = '70';
+$GLOBALS['~name~_thumb_max_height'] = '70';
+$GLOBALS['~name~_file_name'] = uniqid() . getmypid() . '.jpg'; # comment this out to use uploader's filename
+~}~~}~
+
require_once('code/wfpl/format.php');
-#require_once('code/wfpl/db.php'); # fixme
+require_once('code/wfpl/email.php');~uploads_include {~
+require_once('code/wfpl/upload.php');~}~
-function ~form_name~_get_fields() {
- $GLOBALS['~form_name~_fields'] = array();<!--~formats start~-->
+$GLOBALS['~file_name~_field_to_caption'] = array(~name_to_caption {~
+ '~name~' => '~caption phpsq~'~ sep {~,~}~~}~
+);
- $value = format_~format~($_REQUEST['~name~']);
- tem_set('~name~', $value);<!--~db_field start~-->
- $GLOBALS['~form_name~_fields'][] = $value;<!--~end~--><!--~end~-->
-}
-
+function ~file_name~_get_fields() {
+ $data = array();
+~formats {~
+ $data['~name~'] = format_~format~(_REQUEST_cut('~name~')~pulldown_format_extra {~, '~name~'~}~);~}~~image_upload {~
+
+ if($_FILES['~name~'] && $_FILES['~name~']['error'] == 0) {
+ $data['~name~'] = convert_uploaded_image('~name~', $GLOBALS['upload_directory'] . $GLOBALS['~name~_file_name'], $GLOBALS['~name~_max_width'], $GLOBALS['~name~_max_height']~thumb_upload_params {~, $GLOBALS['~name~_thumb_max_width'], $GLOBALS['~name~_thumb_max_height']~}~);
+ } else {
+ if(_REQUEST_cut('delete_~name~') == 'Yes') {
+ $data['~name~'] = '';
+ } else {
+ $data['~name~'] = format_image_w_h~thumb_w_h {~_thumb_w_h~}~(_REQUEST_cut('old_~name~'));
+ }
+ }
+ unset($_FILES['~name~']);~}~~file_upload {~
+
+ $~name~_filename_tmp = $GLOBALS['~name~_file_name'];
+ if(!$~name~_filename_tmp) {
+ $~name~_filename_tmp = format_filename(_REQUEST_cut('~name~'));
+ }
+ if($_FILES['~name~'] && $_FILES['~name~']['error'] == 0) {
+ $data['~name~'] = save_uploaded_file('~name~', $GLOBALS['upload_directory'] . $~name~_filename_tmp);
+ } else {
+ if(_REQUEST_cut('delete_~name~') == 'Yes') {
+ $data['~name~'] = '';
+ } else {
+ $data['~name~'] = format_path(_REQUEST_cut('old_~name~'));
+ }
+ }
+ unset($_FILES['~name~']);~}~
+
+ return $data;
+}~opt_public_something {~
+
+
+function ~public_file_name~_main() {~opt_public_display {~
+ $id = _REQUEST_cut('id');
+ if($id) {
+ return ~file_name~_main_display($id);~opt_public_form unset {~
+ } else {
+ message("Error: Broken Link (~singular cap~ #$id not found)");
+ return './'; # FIXME where should this go?~}~
+ }~}~~opt_public_form {~
+ return ~file_name~_main_form();~}~
+}~}~
+
+
+function ~file_name~_main() {~opt_pass {~
+ if(logged_in_as_admin()) {
+ tem_set('admin_privs');
+ } else {
+ $_REQUEST['url'] = this_url();
+ return 'admin_login';
+ }
+~}~~opt_db {~
+ $id = _REQUEST_cut('edit_id');
+ if($id) {
+ return ~file_name~_main_form($id);
+ }
+
+ $id = _REQUEST_cut('~file_name~_delete_id');
+ if($id) {
+ return ~file_name~_main_delete($id);
+ }
-if(isset($_REQUEST['~always_field~'])) {
- ~form_name~_get_fields();
+ if(_REQUEST_cut('new')) {
+ return ~file_name~_main_form();
+ }
+~}~~opt_listing {~
+ if(_REQUEST_cut('list')) {
+ return ~file_name~_main_listing();
+ }
+~}~~opt_display {~
+ $id = _REQUEST_cut('id');
+ if($id) {
+ return ~file_name~_main_display($id);
+ }
+~}~~opt_listing {~
+ if(_REQUEST_cut('download_csv')) {
+ return ~file_name~_csv_download();
+ }
+
+ if(isset($_POST['~always_field~'])) {
+ return ~file_name~_main_form();
+ }
+
+ # default action:
+ return ~file_name~_main_listing();~}~~opt_listing unset {~
+ return ~file_name~_main_form();~}~
+}~opt_display {~
+
+function ~file_name~_main_display($id) {
+ $data = db_get_assoc('~table_name~', 'id,'.~file_name upper~_DB_FIELDS, 'where id=%i', $id);
+ if(!$data) {
+ message("Error: Broken Link (~singular cap~ #$id not found)");~opt_public_something {~
+ return './' . $GLOBALS['wfpl_basename'];~}~~opt_public_something unset {~
+ return './~file_name~';~}~
+ }
+ tem_set('display', $data);
+}~}~~opt_db {~
- if("you're happy with the values") {
- #db_insert('~form_name~', '~db_fields~', $GLOBALS['~form_name~_fields']); # fixme
- header('Content-type: text/plain');
- print "e-mailing this: \n\n";
- tem_output('~form_name~.email.txt');
- exit();
+function ~file_name~_main_delete($id) {
+ db_delete('~table_name~', 'where id=%i', $id);
+ message('~singular cap~ deleted.');
+ return './~file_name~';
+}~}~~opt_listing {~
+
+function ~file_name~_csv_download() {
+ require_once('code/wfpl/csv.php');
+ $rows = db_get_rows('~table_name~', 'id,'.~file_name upper~_DB_FIELDS, 'order by id');
+ $fields = explode(',', 'id,'.~file_name upper~_DB_FIELDS);
+ $header = array();
+ foreach ($fields as $field) {
+ if (isset($GLOBALS['~file_name~_field_to_caption'][$field])) {
+ $header[] = $GLOBALS['~file_name~_field_to_caption'][$field];
+ } else {
+ $header[] = $field;
+ }
}
+ array_unshift($rows, $header);
+ array2d_to_csv_download($rows, '~file_name~.csv');
}
-tem_output('~form_name~.html');
+function ~file_name~_main_listing() {
+ $data = array();
+ $desc = '';
+ $sort = _REQUEST_cut('sort');
+ if($sort && substr($sort, 0, 1) === '-') {
+ $sort = substr($sort, 1);
+ $desc = ' DESC ';
+ } else {
+ $data["sorting-by-$sort"] = '-';
+ }
+ $legal_sorts = explode(',', ~file_name upper~_DB_FIELDS);
+ if(!$sort || !in_array($sort, $legal_sorts)) {
+ $sort = '~always_field~';
+ }
-?>
+ $data['rows'] = db_get_assocs('~table_name~', 'id~listing_fields_1 {~,~name~~}~', "order by $sort $desc limit 1000");
+ tem_set('listings', $data);
+}~}~
+
+function ~file_name~_main_form($id = false) {~pulldowns {~
+ pulldown('~name~', ~pulldown_options~);~}~~has_pulldowns {~
+~}~~opt_db {~
+ if($id) {
+ tem_set('id', $id);
+ }
+~}~
+ if(isset($_POST['~always_field~'])) {
+ $data = ~file_name~_get_fields();
+
+ if("you're happy with the POSTed values") {~opt_db {~
+ if($id) {
+ db_update_assoc('~table_name~', $data, 'where id=%i', $id);
+ message('~singular cap~ updated.');
+ } else {
+ db_insert_assoc('~table_name~', $data);
+ message('~singular cap~ saved.');
+ }~}~~opt_email {~
+ if($GLOBALS['~file_name~_form_recipient'] != 'fixme@example.com') {
+ $to = $GLOBALS['~file_name~_form_recipient'];
+ $from = 'noreply@~this_domain~';
+ $reply_to = $to;
+ if(isset($data['email']) and valid_email($data['email'])) {
+ $reply_to = $data['email'];
+ if($data['name'] and ereg('^[a-zA-Z0-9_\' -]*$', $data['name']) !== false) {
+ $reply_to = "$data[name] <$reply_to>";
+ }
+ }
+ $subject = '~plural cap~ form submitted';
+ $email_template = new tem();
+ $email_template->load('~public_file_name~.email.txt');
+ $email_template->sets($data);
+ $message = $email_template->run();
+ $cc = '';
+ $bcc = '';
+ if(email($from, $to, $subject, $message, $reply_to, $cc, $bcc)) {
+ message('Due to an internal error, your message could not be sent. Please try again later.');
+ $error = true;
+ } else {
+ message('Message sent');
+ }
+ }~}~
+ if($error !== true) {~opt_public_something {~
+ if($GLOBALS['wfpl_basename'] == '~file_name~') {
+ return './~file_name~';
+ } else {
+ # FIXME create this page or change this to go elsewhere
+ return './~public_file_name~_thanks';
+ }~}~~opt_public_something unset {~~opt_db unset {~
+ # FIXME create this page or change this to go elsewhere~}~
+ return './~file_name~~opt_db unset {~_thanks~}~';~}~
+ }
+ }
+ # otherwise, we display the form again. We've got the form field
+ # values in $data and will put those back in the filds below. You
+ # should add some message asking people to fix their entry in
+ # whatever way you require.~opt_db {~
+ } elseif($id) {
+ # we've recieved an edit id, but no data. So we grab the values to be edited from the database
+ $data = db_get_assoc('~table_name~', ~file_name upper~_DB_FIELDS, 'where id=%i', $id);~}~
+ } else {
+ # form not submitted, you can set default values like so:
+ #$data = array('~always_field~' => 'Yes');
+ $data = array();
+ }~upload_max {~
+
+ tem_set('$upload_max_filesize', upload_max_filesize());~}~
+
+ tem_set('form', $data);~show_extra_headers {~
+ tem_set('$head');~}~
+}