#!/bin/sh

. alterator-sh-functions

licensedirs="/usr/share/alt-notes 
             /usr/share/alt-license 
	     /var/lib/install3/licenses"

on_message() {
	case "$in_action" in
        	read)
			local name="${in_name:-license}"
			local license_file= path lang languages

			languages="$(printf '%s' "$in_language" |tr ';' ' ') all"
	
			for path in $licensedirs; do
			    for lang in $languages; do
			    	    case "$lang" in
				    	    POSIX|C|all) lang="all";;
					    *) lang="$(printf %s "${lang%%_*}" |tr '[A-Z]' '[a-z]')";;
				    esac

		    		license_file="$path/$name.$lang.html"
				[ ! -s "$license_file" ] || break 2
			    done
			done

			if [ -s "$license_file" ]; then
				printf '(text "%s")' "$(cat "$license_file" |simple_quote)"
			else
				write_error "`_ "File not found"` $name"
			fi
                        ;;
		*)
			echo '#f'
			;;
        esac
}

message_loop
