Software Repo random bits of code

#xibit is an app that generates image galeries for werc.
#the license the mit license, see the license file in the distribution's root
directory
#until the time i change my mind
#comments and suggestions can come to
http://redmine.9souldier.org/projects/xibit0/issues/new or johnny@9souldier.org
fn conf_enable_xibit {
 xibit_uri=$conf_wd
}
fn xibit_init {
 xibit_root=$sitedir$"xibit_uri
 if(! ~ $#xibit_uri 0 && test -d $xibit_root^/_werc/xibit -w
 $xibit_root^/_werc/xibit && convert -help > /dev/null) {
	xibitdir=$xibit_root^/_werc/xibit
	xibit_uri_file=`{echo $req_path |sed 's,^.*/([^/]+),ドル1,円g'}
	mkdir -p $xibitdir/previews
	mkdir -p $xibitdir/thumbs
	if (! ~ $#xibit_check_user 0 && ! check_user) # XXX Perm checking should
	be done in config file instead.
	 handler_body_main=(echo '<a href="/_users/login">please log
	 in</a>')
	if not {
	 extraHeaders=($extraHeaders '<style>' `{cat
	 apps/xibit/xibit.css} '</style>')
	 if( ~ $req_path */index */)
		handler_body_main=xibit_thumb_handler
	 if not {
		handler_body_main=xibit_img_handler
		ll_add handlers_body_foot xibit_thumb_handler
	 }
	}
 }
}
fn xibit_thumb_handler {
 cd $xibit_root
 for(pic in `{ls *.^$fmts >[2] /dev/null}){
	if(! test -f _werc/xibit/thumbs/^$pic)
	 convert $pic -resize $thumbsize _werc/xibit/thumbs/^$pic
	if(! test -f _werc/xibit/previews/^$pic)
	 convert $pic -resize $previewsize _werc/xibit/previews/^$pic
	xibit_pics=($xibit_pics $pic)
 }
 cd $werc_root
 if(! ~ $req_path */details)
	template apps/xibit/thumbs.tpl
 if not
	template apps/xibit/details.tpl
}
fn xibit_img_handler {
 for(f in $xibit_root/^$xibit_uri_file.^$fmts) {
	if(test -f $file) {
	 xibit_img=`{echo $f | sed 's,^.*/([^/]+),1,円g'}
	 xibit_preview=_werc/xibit/previews/^$xibit_img
	 if(test -r $xibitdir^/captions/^$xibit_img^.md)
	 xibit_caption_file=$xibitdir^/captions/^$xibit_img^.md
	 template apps/xibit/image.tpl
	}
 }
}