<?lassoscript

include:'/includes/tags.lasso';
include:'/includes/session.lasso';

// Redirect site visitors at IP to www.thriftyfun.com
if: (server_name >> '216.168.63.') && (_client_ip_old != '24.113.96.24');
	tf_redirect: -type='301';
/if;

var: 'thriftyfun_serve_database' = 'thrifty_fun';

// This redirect allows next/prev to show targeted ads
if: ((action_param: 'redirect') == 'true') && ((var: 'tf_index') != '');
	redirect_url: $tf_index + '.tip.html';
/if;

var:'body'='/includes/page_cache.lasso';

var: 'redirect_count' = (integer: (action_param: 'redirect_count'));

if: (var: 'mode') == 'redirect' && (var:'tf_index')!='';
	var: 'Search_Author' = '';
	var: 'Search_Mode' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_Category' = '';
	var: 'Search_SubCategory' = '';
	var: 'search_status' = 'active';
	var: 'search_'+$section_name+'_category' = '';
	var: 'mode' = 'direct';
/if;

if: (var: 'mode') == 'direct' && (var:'tf_index')=='';
	var: 'mode' = 'clear';
/if;

if: (var: 'mode') == 'mode';
	var: 'Search_Author' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_Category' = '';
	var: 'Search_SubCategory' = '';
	var: 'tf_index' = '';
	var: 'mode' = 'search';
/if;

if: (var: 'mode') == 'category';
	var: 'Search_Author' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_SubCategory' = '';
	var: 'tf_index' = '';
	var: 'mode' = 'search';
/if;

if: (var: 'mode') == 'subcategory';
	var: 'Search_Author' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'tf_index' = '';
	var: 'mode' = 'search';
/if;

if: (var: 'mode') == 'clear';
	var: 'Search_Author' = '';
	var: 'Search_Mode' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_Category' = '';
	var: 'Search_SubCategory' = '';
	var: 'search_status' = 'active';
	var: 'tf_index' = '';
	var: 'skiprecords' = '0';
/if;


if: false && (var: 'mode') == 'direct';
	var: 'Search_Author' = '';
	var: 'Search_Mode' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_Category' = '';
	var: 'Search_SubCategory' = '';
	var: 'skiprecords' = '0';
	var: 'feedback_skiprecords' = '0';
/if;

if: (var: 'mode') == 'author';
	var: 'Search_Mode' = '';
	var: 'tf_index' = '';
	var: 'Search_Mode' = '';
	var: 'Search_Keyword' = '';
	var: 'Search_FullText' = '';
	var: 'Search_Category' = '';
	var: 'Search_SubCategory' = '';
/if;


if:(Action_Param:'feedback_quote')!='';
	var:'feedback_quote'='(quote)'+(Action_Param:'feedback_quote')+'(/quote)';
/if;

if:(Action_Param:'feedback_status')=='';
var:'feedback_status'='none';
else:(Action_Param:'feedback_status')>>'Preview Your Post';
var:'feedback_status'='preview';
else:(Action_Param:'feedback_status')>>'Post Feedback Now';
var:'feedback_status'='completed';
else:(Action_Param:'feedback_status')>>'Preview Changes' || (Action_Param:'feedback_status')>>'update_preview';
var:'feedback_status'='update_preview';
else:(Action_Param:'feedback_status')>>'Post Changes';
var:'feedback_status'='update_completed';
else:(Action_Param:'feedback_status')>>'Cancel';
var:'feedback_status'='cancel';
/if;
	

var:'done'='false';

while:$done=='false';
	
	var:'feedback_index'='tff' + (math_random:-min='10000000',-max='99999999');
	
	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-KeyField='ID',
			-op='eq','tff_index'=(var:'feedback_index'),
			-search,
			-returnfield='id',
			-maxrecords=1,
			-uselimit;
		if:(found_count)==0;
			var:'done'='true';
		/if;
	/inline;
	
/while;

var:'feedback_subject'=(Action_Param:'feedback_subject');
var:'feedback_text'=(Action_Param:'feedback_text');
var:'feedback_delete'=(Action_Param:'feedback_delete');
var:'feedback_active'=(Action_Param:'feedback_active');
var:'feedback_article'=(Action_Param:'feedback_article');
var:'feedback_update_index'=(Action_Param:'feedback_update_index');
var:'feedback_author'=(Action_Param:'feedback_author');
var:'feedback_guest'=(Action_Param:'feedback_guest');
var:'feedback_date'=(Action_Param:'feedback_date');
var:'feedback_time'=(Action_Param:'feedback_time');
var:'feedback_image_index'=(Action_Param:'feedback_image_index');

if:(var:'status')=='logged';
	var:'feedback_mod'='active';
else;
	var:'feedback_mod'='new';
/if;


if:(Action_Param:'locate')=='feedback';
	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-keyfield='id',
			-op='eq', 'tff_index'=(var:'feedback_update_index'),
			-maxrecords=1,
			-uselimit,
			-search;
		var:'feedback_date'=(field:'tff_creation_date');
		var:'feedback_time'=(field:'tff_creation_time');
		var:'feedback_subject'=(field:'tff_subject');
		var:'feedback_text'=(field:'tff_text');
		var:'feedback_image_index'=(field:'tff_image_index');
	/inline;
/if;


if:(var:'feedback_image_index')=='';

var:'done'='false';

	while:$done=='false';
		
		var:'feedback_image_index'=(math_random:-min='10000000',-max='99999999');
		
		inline: -database='thrifty_fun',
				-table='tf_feedback',
				-KeyField='ID',
				-op='eq','tff_image_index'=(var:'feedback_image_index'),
				-search,
				-returnfield='id',
				-maxrecords=1,
				-uselimit;
			if:(found_count)==0;
				var:'done'='true';
			/if;
		/inline;
		
	/while;

/if;


	// Image Processing
		
		var: 'image_inline' = array;
		var: 'uploads' = file_uploads;
		if: $uploads->size > 0;
			var: 'raw_data' = (file_read: $uploads->(get: 1)->(find: 'upload.name'));
		protect;
			var: 'image' = (image: -binary=$raw_data);
		if: $image->width > 400;
			$image->(scale: -width=400);
		/if;
			$image_inline->(insert: 'image_data' = (encode_base64: $image->data));
			$image_inline->(insert: 'image_width' = (integer: $image->width));
			$image_inline->(insert: 'image_height' = (integer: $image->height));
			$image_inline->(insert: 'image_type' = (string: $image->format));
		handle: true;
		/handle;
		/protect;	
		/if;
		
		if: $uploads->size > 0;
		
		inline: -database='thrifty_fun',
			-table='images',
			-keyfield='id',
			-op='eq','tff_image_index'=(var:'feedback_image_index'),
			-search;
		
		if:(found_count)==0;
		
		inline: -database='thrifty_fun',
			-table='images',
			-keyfield='id',
			$image_inline,
			'tff_image_index'=(var:'feedback_image_index'),
			-add; 
			var:'image_width'=(field:'image_width');
		/inline;
		
		else;
		
		inline: -database='thrifty_fun',
			-table='images',
			-keyfield='tff_image_index',
			-keyvalue=(var:'feedback_image_index'),
			$image_inline,
			-update;
			var:'image_width'=(field:'image_width');
		/inline;
		
		/if;
		
		/inline;
		
		else:(var:'feedback_status')=='update_preview'||(var:'feedback_status')=='preview';

		
		inline: -database='thrifty_fun',
			-table='images',
			-keyfield='id',
			-op='eq','tff_image_index'=(var:'feedback_image_index'),
			-search;
			var:'image_width'=(field:'image_width');
		/inline;
			
		/if;

		
if:(var:'feedback_status')=='update_completed';
	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-keyfield='tff_index',
			-keyvalue=(var:'feedback_update_index'),
			'tff_subject'=(var:'feedback_subject'),
			'tff_text'=(var:'feedback_text'),
			'tff_creation_date'=(var:'feedback_date'),
			'tff_creation_time'=(var:'feedback_time'),
			-maxrecords=0,
			-update;
		
		var:'cache_index'=(var:'tf_index');

		inline: -database='thrifty_fun',
				-table='tf_feedback',
				-keyfield='id',
				-op='eq','tff_status'='active',
				-op='eq','tff_article'=(var:'cache_index'),
				-returnfield='id',
				-search,
				-maxrecords=1;
			var:'tf_feedback_count'=(found_count);
		/inline;
		
		var:'tf_feedback'=(include:'/includes/feedback_cache_ignited.lasso');
		
		inline: -database='thrifty_fun',
				-table='tf_articles',
				-KeyField='tf_index',
				-KeyValue=(var:'cache_index'),
				'tf_feedback'=(var:'tf_feedback'),
				'tf_feedback_count'=(var:'tf_feedback_count'),
				'last_update'=date->(format: '%Q %T'),
				-update;
		/inline;
					
		var:'feedback_subject'='';
		var:'feedback_text'='';
		var:'feedback_image_index'='';
	/inline;
/if;

if:(var:'feedback_status')=='completed';

	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-keyfield='id',
			'tff_creation_date'=(Date->Format:'%Q'),
			'tff_creation_time'=(Date->Format:'%T'),
			'tff_status'=(var:'feedback_mod'),
			'tff_index'=(var:'feedback_index'),
			'tff_article'=(var:'feedback_article'),
			'tff_subject'=(var:'feedback_subject'),
			'tff_author'=(var:'feedback_author'),
			'tff_text'=(var:'feedback_text'),
			'tff_guest'=(var:'feedback_guest'),
			'tff_image_index'=(var:'feedback_image_index'),
			'tff_ip'=(client_ip),
			-maxrecords=0,
			-add;
		
		var:'cache_index'=(var:'feedback_article');

		inline: -database='thrifty_fun',
				-table='tf_feedback',
				-keyfield='id',
				-op='eq','tff_status'='active',
				-op='eq','tff_article'=(var:'cache_index'),
				-returnfield='id',
				-search,
				-maxrecords=1;
			var:'tf_feedback_count'=(found_count);
		/inline;
		
		var:'tf_feedback'=(include:'/includes/feedback_cache_ignited.lasso');

		inline: -database='thrifty_fun',
				-table='tf_articles',
				-KeyField='tf_index',
				-KeyValue=(var:'cache_index'),
				'tf_feedback'=(var:'tf_feedback'),
				'tf_feedback_count'=(var:'tf_feedback_count'),
				'last_update'=date->(format: '%Q %T'),
				-update;
		/inline;
					
		inline: -database='thrifty_fun',
				-table='tf_content',
				-keyfield='tf_index',
				-keyvalue=(var:'tf_index'),
				'mod_time'=(Date->Format:'%Q %T'),
				-update;
		/inline;
	
		if:(var:'feedback_mod')=='new';
			var:'feedback_note'='Thank you for posting feedback! Feedback posted by guests is now moderated to prevent offensive material from being posted (Sadly we have had a problem with this lately).  A moderator will approve your post shortly.  Thank you for your contribution!';
		/if;
		
		var:'feedback_subject'='';
		var:'feedback_text'='';
		var:'feedback_image_index'='';
	/inline;
/if;

if:(var:'feedback_status')=='Cancel';
	var:'feedback_subject'='';
	var:'feedback_text'='';
	var:'feedback_image_index'='';
/if;

if:(var:'feedback_delete')!='';

	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-keyfield='tff_index',
			-KeyValue=(var:'feedback_delete'),
			'tff_status'='delete',
			-maxrecords=0,
			-update;
			
		var:'cache_index'=(var:'tf_index');
				
		inline: -database='thrifty_fun',
				-table='tf_feedback',
				-keyfield='id',
				-op='eq','tff_status'='active',
				-op='eq','tff_article'=(var:'cache_index'),
				-returnfield='id',
				-search,
				-maxrecords=1;
			var:'tf_feedback_count'=(found_count);
		/inline;
		
		var:'tf_feedback'=(include:'/includes/feedback_cache_ignited.lasso');
				
		inline: -database='thrifty_fun',
				-table='tf_articles',
				-KeyField='tf_index',
				-KeyValue=(var:'cache_index'),
				'tf_feedback'=(var:'tf_feedback'),
				'tf_feedback_count'=(var:'tf_feedback_count'),
				'last_update'=date->(format: '%Q %T'),
				-update;
		/inline;

	/inline;

/if;

if:(var:'feedback_active')!='';
	
	inline: -database='thrifty_fun',
			-table='tf_feedback',
			-keyfield='tff_index',
			-KeyValue=(var:'feedback_active'),
			'tff_status'='active',
			-maxrecords=0,
			-update;
		var:'cache_index'=(var:'tf_index');
	/inline;

/if;

var: 'tf_inline' = (array: -search='', -database=$thriftyfun_serve_database, -table='tf_articles', -keyfield='id');

if: (var: 'tf_index') != '';

	$tf_inline->(insert: -op='eq');
	$tf_inline->(insert: 'tf_index'=(var: 'tf_index'));

	var: 'maxRecords' = 1;
	$tf_inline->(insert: -MaxRecords=(var:'maxRecords'));

else;

	if: (var: 'search_author') != '';
		$tf_inline->(insert: 'tf_author'=(var:'search_author'));
	/if;
	
	if: (var: 'search_mode') != '' || (var: 'search_category') != '' || (var: 'search_subcategory') != '';
	
		// tf_topic_join and tf_category_join
		var: 'join' = 'LEFT JOIN tf_topic_join ON (tf_topic_join.tf_index = tf_articles.tf_index)';
//		$tf_inline->(insert: -op='neq'); $tf_inline->(insert: 'top_index'=null);
//		$tf_inline->(insert: -groupby='tf_articles`.`tf_index');
	
		$join += ' AND (tf_topic_join.browse_status = \"Y\")';

		$tf_inline->(insert: -op='eq'); $tf_inline->(insert: 'browse_status' = 'Y');
		if: (var: 'search_subcategory') != '';
			$tf_inline->(insert: -op='eq'); $tf_inline->(insert: 'top_index' = (var: 'search_subcategory'));
		else: (var: 'search_category') != '';
			$tf_inline->(insert: -op='eq'); $tf_inline->(insert: 'top_index' = (var: 'search_category'));
		else: (var: 'search_mode') != '';
			$tf_inline->(insert: -op='eq'); $tf_inline->(insert: 'top_index' = (var: 'search_mode'));
		/if;
	
		$tf_inline->(insert: -Join=$join);
	/if;
	
	if: (var: 'search_keyword') != '';
		$tf_inline->(insert: -op='cn');
		$tf_inline->(insert: 'tf_title'=(var:'search_keyword'));
	/if;
	
	if: (var: 'search_fulltext') != '';
		$tf_inline->(insert: -op='ft');
		$tf_inline->(insert: 'tf_search'=(var:'search_fulltext'));
	/if;
	
	var: 'maxRecords' = 10;
	$tf_inline->(insert: -MaxRecords=(var:'maxRecords'));
	$tf_inline->(insert: -SkipRecords=(integer: (var:'skipRecords')));

	if: (var: 'search_fulltext') == '';
		$tf_inline->(insert: -SortField='tf_creation_datetime');
		$tf_inline->(insert: -SortOrder='descending');
	/if;
	
/if;

if:(var:'admin_status') != 'master';

		$tf_inline->(insert: -op='eq');
		$tf_inline->(insert: 'tf_status'='active');
		
else;

	if: (var: 'search_status') != '';
		$tf_inline->(insert: -op='eq');
		$tf_inline->(insert: 'tf_status'=(var:'search_status'));
	/if;

/if;

// No Search - Redirect to home page
if: ($tf_inline->(find: -op)->size < 2) && ((var: 'join') == '');
	redirect_url: 'http://www.thriftyfun.com/';
/if;

var: 'sql1' = (string_replace: (cu_sql_search: $tf_inline) - 'SQL_CALC_FOUND_ROWS', -find='*', -replace='tf_articles.tf_index');
inline: -database=$thriftyfun_serve_database, -table='tf_articles', -keyfield='id', -sql=$sql1;
var: 'tf_indices' = array;
records; $tf_indices->(insert: (field: 'tf_index')); /records;
if: $tf_indices->size == 1;
	var: 'sql2' = 'SELECT * FROM tf_articles WHERE tf_index = "' + $tf_indices->(get: 1) + '"';
else;
	var: 'sql2' = 'SELECT * FROM tf_articles WHERE tf_index IN ("' + $tf_indices->(join: '","') + '") ORDER BY tf_creation_datetime DESC';
/if;
inline: -database=$thriftyfun_serve_database, -table='tf_articles', -keyfield='id', -sql=$sql2;

var: 'found_count' = found_count;

//	inline: -database=$thriftyfun_serve_database, -table='tf_articles', -keyfield='id', -sql='SELECT FOUND_ROWS() AS cnt';
//		var: 'found_count' = (integer: (field: 'cnt'));
//	/inline;
	
	var:'tf_title'=(field:'tf_title');
	var:'feedback_article'=(field:'tf_index');
	
	if: ((var:'tf_index') != '') && (found_count == 0);
		$redirect_count += 1;
		
		if: $redirect_count > 2;
			redirect_url: '/redirect_error.lasso?tf_index='+(var:'tf_index');
		else;
			redirect_url: '/default.ldml?mode=redirect&tf_index='+(var:'tf_index')+'&redirect_count='+ $redirect_count;
		/if;
	/if;
		
	include:'/includes/template.lasso';
	
/inline;

/inline;

handle: false && (Error_Code == 0);
//	$__html_reply__->trim;
	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='\r\n|\n', -replace='\r');
	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='[ \t]+', -replace=' ');
	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find=' ?\r ?', -replace='\r');
//	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='>\r+<', -replace='>\r<');
	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='\r\r+', -replace='\r\r');

//	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='viewsec_(.*?)\\.html', -replace='cache.ldml?search_mode=\\1&\\1_skiprecords=0&search_author=none&mode=search');
//	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='(tf[0-9]*?)\\.tip\\.html', -replace='cache.ldml?tf_index=\\1&mode=direct');
//	var: '__html_reply__' = (string_replaceregexp: $__html_reply__, -find='default\\.ldml', -replace='cache.ldml');
/handle;

?>