stanley lieberimport4a0aa0c11 years agoHistory
77 lines · 2.0 KB · rc
RawDownload
fn conf_enable_barf{	barf_base_uri=$conf_wd	barf_root=`{pwd}	conf_enable_app barf} fn barf_init{	p=`{echo $req_path | sed 's!^'^$barf_base_uri^'!!'}	barf_dir=`{basename -d $"p | sed 's!^\.$!!'}	barf_items=`{cat $barf_root/_werc/barf/items}	. ./apps/barf/lib/core	. ./apps/barf/barf/config	. $barf_root/_werc/barf/config	. ./apps/barf/lib/$barf_type	if(test -f $barf_root/_werc/barf/lib/$barf_type)		. $barf_root/_werc/barf/lib/$barf_type	if(~ $require_login 1 && ! ~ $req_path $barf_base_uri^login){		check_user		if(~ $#logged_user 0)			post_redirect /login	}	if(~ $REQUEST_METHOD GET && ~ $REQUEST_URI *'='*){		load_get_args		parse_get_args	}	if(~ $REQUEST_METHOD POST)		parse_post_args	if(~ $a_func add_post){		if(~ $allow_anon 1 || {check_user && ! ~ $#logged_user 0})			add_post			post_redirect /	}	if(~ $a_func delete_post edit_post){		if(check_user && ! ~ $#logged_user 0){			switch($a_func){			case delete_post				delete_post			case edit_post				edit_post			}		}	}	get_start	get_stop	get_tags	if(~ $req_path $barf_base_uri){		extraHeaders=$"extraHeaders ^ \'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$base_url^$barf_base_uri'index.rss" />'		handler_body_main=(tpl_handler `{barf_template barf})	}	if not if(~ $req_path $barf_base_uri^index.rss){		barf_type=rss		. ./apps/barf/lib/rss		barf_setup_feed_handlers barf.tpl 'text/xml; charset=utf-8'	}	if not if(~ $req_path $barf_base_uri^login){		barf_type=login		handler_body_main=(tpl_handler `{barf_template barf})	}} fn barf_setup_feed_handlers{	handler_body_main=NOT_USED_by_barf_feeds	res_tail=()	http_content_type=$2	headers=()	master_template=apps/barf/lib/$1} fn barf_template{	if(test -f $barf_root/$"barf_dir/_werc/barf/lib/$1.tpl)		echo -n $barf_root/$"barf_dir/_werc/barf/lib/$1.tpl	if not if(test -f $barf_root/_werc/barf/lib/$1.tpl)		echo -n $barf_root/_werc/barf/lib/$1.tpl	if not		get_lib_file barf/$1.tpl apps/barf/lib/$1.tpl}