clausecker · April 8, 2021 22:19
diff --git a/locate.sh b/locate.sh
 #!/bin/sh

 PATH="$PATH:/usr/local/bin"
 export LC_CTYPE=C
 export LC_COLLATE=C

 # decode URL encoded $1 and print result to stdout
 urldecode() {
 	gawk "BEGIN { print \"$(echo "$1" | sed -e 's/"/\\"/' -e 's/+/ /g' -e 's/%/\\x/g')\" }" </dev/null
 }

 # apply shell scaping to $1 and print it to stdout with a newline
 # do not escape underscores (for reasons)
 shellescape() {
 	echo "$1" | sed -e 's/[^a-zA-Z0-9,._+@%/-]/\\&/g'
 }

 # generates variable assignments from urlencoded $* (already splitted at &)
 makeassign() {
 	IFS=\&
 	for key in $1
 	do
 		keyval="$(urldecode "$key")"
 		printf "key_%s=" "${keyval%%=*}"
 		shellescape "${keyval#*=}"
 	done
 }

 # apply HTML escaping to stdin
 htmlescape() {
 	echo "$1" | sed -e 's/&/\&amp;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g' -e 's/"/\&quot;/g'
 }

 # present the results of locate(1) in a nice way
 present() {
 	# limit number of results?
 	if [ "$key_l" ]
 	then
 		# apply HTML escapes, add links, add ... if too many lines
 		sed -e 's/&/\&amp;/g
 			s/</\&lt;/g
 			s/>/\&gt;/g
 			s/"/\&quot;/g
 			s,^.*$,<a href="&">&</a><br />,
 			$s,<br />,,
 			'$((key_l+1))' {
 				s/^.*$/.../
 				q
 			}'
 	else
 		# apply HTML escapes, add links
 		sed -e 's/&/\&amp;/g
 			s/</\&lt;/g
 			s/>/\&gt;/g
 			s/"/\&quot;/g
 			s,^.*$,<a href="&">&</a><br />,
 			$s,<br />,,'
 	fi
 }

 # generate key_... variables from QUERY_STRING
 eval "$(makeassign "$QUERY_STRING")"

 # normalise number of results
 # all is intentionally undocumented
 if [ "$key_l" = 'all' ]
 then
 	key_l=
 else
 	[ "$key_l" -gt 0 ] 2>/dev/null || key_l=1000
 fi

 echo Content-Type: text/html
 echo
 cat <<.
 <!DOCTYPE html>
 <html lang="de">
 <head>
 <title>Location Service</title>
 <meta charset="UTF-8" />
 <meta name="author" content="Robert Clausecker &lt;[email protected]&gt;" />
 <style>
 .results {
 	font-family:monospace;
 }
 .results a {
 	text-decoration:none;
 }
 </style>
 </head>
 <body>
 <h1>Location Service</h1>
 <p>Use <a href="http://www.freebsd.org/cgi/man.cgi?query=locate">locate(1)</a> to locate files.<br />
 Globs can be used.</p>
 <form action="locate.sh" method="get" accept-charset="UTF-8">
 <p><input name="q" type="text" size="80" value="$(htmlescape "$key_q")" />&nbsp;\
 <input type="submit" value="locate" /><br />
 <input name="l" type="number" value="$key_l" size="10" /> show that many results<br />
 <input name="i" type="checkbox" value="yes" $(echo "${key_i:+checked}") /> ignore case</p>
 </form>
 .

 # where we asked to search for anything?
 if [ "$key_q" ]
 then
 	printf '<hr />\n<p class="results">'
 	[ "$key_i" ] && key_i=-i
 	# need to redirect stderr to prevent "locate: [show only ### lines]" message
 	[ "$key_q" ] && locate $key_i -- "$key_q" | present
 	printf '</p>'
 fi

 cat <<.
 </body>
 </html>
 .
	#!/bin/sh

	PATH="$PATH:/usr/local/bin"
	export LC_CTYPE=C
	export LC_COLLATE=C

	# decode URL encoded $1 and print result to stdout
	urldecode() {
	gawk "BEGIN { print \"$(echo "$1" \| sed -e 's/"/\\"/' -e 's/+/ /g' -e 's/%/\\x/g')\" }" </dev/null
	}

	# apply shell scaping to $1 and print it to stdout with a newline
	# do not escape underscores (for reasons)
	shellescape() {
	echo "$1" \| sed -e 's/[^a-zA-Z0-9,._+@%/-]/\\&/g'
	}

	# generates variable assignments from urlencoded $* (already splitted at &)
	makeassign() {
	IFS=\&
	for key in $1
	do
	keyval="$(urldecode "$key")"
	printf "key_%s=" "${keyval%%=*}"
	shellescape "${keyval#*=}"
	done
	}

	# apply HTML escaping to stdin
	htmlescape() {
	echo "$1" \| sed -e 's/&/\&/g' -e 's/</\</g' -e 's/>/\>/g' -e 's/"/\"/g'
	}

	# present the results of locate(1) in a nice way
	present() {
	# limit number of results?
	if [ "$key_l" ]
	then
	# apply HTML escapes, add links, add ... if too many lines
	sed -e 's/&/\&/g
	s/</\</g
	s/>/\>/g
	s/"/\"/g
	s,^.*$,<a href="&">&</a><br />,
	$s,<br />,,
	'$((key_l+1))' {
	s/^.*$/.../
	q
	}'
	else
	# apply HTML escapes, add links
	sed -e 's/&/\&/g
	s/</\</g
	s/>/\>/g
	s/"/\"/g
	s,^.*$,<a href="&">&</a><br />,
	$s,<br />,,'
	fi
	}

	# generate key_... variables from QUERY_STRING
	eval "$(makeassign "$QUERY_STRING")"

	# normalise number of results
	# all is intentionally undocumented
	if [ "$key_l" = 'all' ]
	then
	key_l=
	else
	[ "$key_l" -gt 0 ] 2>/dev/null \|\| key_l=1000
	fi

	echo Content-Type: text/html
	echo
	cat <<.
	<!DOCTYPE html>
	<html lang="de">
	<head>
	<title>Location Service</title>
	<meta charset="UTF-8" />
	<meta name="author" content="Robert Clausecker <[email protected]>" />
	<style>
	.results {
	font-family:monospace;
	}
	.results a {
	text-decoration:none;
	}
	</style>
	</head>
	<body>
	<h1>Location Service</h1>
	<p>Use <a href="http://www.freebsd.org/cgi/man.cgi?query=locate">locate(1)</a> to locate files.<br />
	Globs can be used.</p>
	<form action="locate.sh" method="get" accept-charset="UTF-8">
	<p><input name="q" type="text" size="80" value="$(htmlescape "$key_q")" /> \
	<input type="submit" value="locate" /><br />
	<input name="l" type="number" value="$key_l" size="10" /> show that many results<br />
	<input name="i" type="checkbox" value="yes" $(echo "${key_i:+checked}") /> ignore case</p>
	</form>
	.

	# where we asked to search for anything?
	if [ "$key_q" ]
	then
	printf '<hr />\n<p class="results">'
	[ "$key_i" ] && key_i=-i
	# need to redirect stderr to prevent "locate: [show only ### lines]" message
	[ "$key_q" ] && locate $key_i -- "$key_q" \| present
	printf '</p>'
	fi

	cat <<.
	</body>
	</html>
	.