#!/bin/sh

module_id() {
    ## used to read from assets, but sometimes assets is corrupted
    # grep "Module ID" /proc/hal/assets | sed "s/.*://"
    echo ' iPAQ' `cat /proc/hal/model`
}

case `module_id` in
	" iPAQ 3100" | " iPAQ 3800")
		ARGS="-rotate 90" ;;
	" iPAQ 3600" | " iPAQ 3700" | " iPAQ 3900" )
		ARGS="-rotate 270" ;;
esac

exec xtscal-bin $ARGS $*
