<?php

# This form requires wfpl. See: http://sametwice.com/wfpl

# 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(__DIR__.'/'.'inc/wfpl/format.php');~opt_email {~
require_once(__DIR__.'/'.'inc/wfpl/email.php');~}~~uploads_include {~
require_once(__DIR__.'/'.'inc/wfpl/upload.php');~}~

$GLOBALS['~file_name~_field_to_caption'] = array(~name_to_caption {~
	'~name~' => '~caption phpsq~'~ sep {~,~}~~}~
);

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 {~
	session_auth_must('admin_~file_name~');
~}~~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 (_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 {~

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(__DIR__.'/'.'inc/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');
}

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~}~';~}~
			}
		}
		# else fall through to display the form again. Field values are in $data~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');~}~
}