File update_init_script.patch of Package ooRexx

diff -Naur ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid
--- ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid	2013-07-07 17:45:27.000000000 -0300
+++ ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid	2013-07-09 10:53:16.745136187 -0300
@@ -1,111 +1,425 @@
-#! /bin/bash
+#!/bin/bash
 #
-# The following is LSB information
+# Start/stop rexx api daemon, based on OpenSUSE's "/etc/init.d/skeleton.compat"
+#
+# Author: Perry Werneck <perry.werneck@gmail.com> 2013
+#
+# /etc/init.d/rxapid
+#
+#
+# chkconfig: 345 99 00
+# description: Start and stop rxapi daemon
+# 
 ### BEGIN INIT INFO
-# Provides: rxapi
-# Required-Start: $local_fs $network $time
-# Required-Stop: $local_fs $network $time
-# Default-Start:  2 3 4 5
-# Default-Stop: 0 1 6
-# Short-Description: start and stop rxapi daemon
-# Description: rxapid provides the communication service for between all running
-#	 ooRexx scripts
-### END INIT INFO#
-#
-# rxapid.sh    Start/Stop the rxapi daemon.
-#
-# description: rxapi is a standard UNIX program which coordinates the sharing
-#              of data betwenn multiple instances of ooRexx scripts.
-# processname: rxapi
-# pidfile:     /var/run/rxapi.pid
-
-# Work around for Debian-based systems, maybe there is a better way...
-is_debian_like=0
-
-# Source function library.  If none of these work, then we haven't installed
-# on this platform yet and the installer will need to figure out what will
-# work.
-if [ -e /etc/rc.d/init.d/functions ]; then
-   . /etc/init.d/functions
-elif [ -e /etc/rc.status ]; then
-   . /etc/rc.status
-elif [ -e /lib/lsb/init-functions ]; then
-   . /lib/lsb/init-functions
-   is_debian_like=1
-fi
+# Provides:          rxapi
+# Required-Start:    $syslog $remote_fs 
+# Should-Start:      $time
+# Required-Stop:     $syslog $remote_fs
+# Should-Stop:       
+# Default-Start:     3 5
+# Default-Stop:      0 1 2 6
+# Short-Description: Start and stop rxapi daemon
+# Description:       Srxapid provides the communication service for between all running ooRexx scripts
+### END INIT INFO
+# 
+# Any extensions to the keywords given above should be preceeded by 
+# X-VendorTag- according to LSB.
+# 
+# Notes on Required-Start/Should-Start:
+# * There are two different issues that are solved by Required-Start
+#    and Should-Start
+# (a) Hard dependencies: This is used by the runlevel editor to determine
+#     which services absolutely need to be started to make the start of
+#     this service make sense. Example: nfsserver should have
+#     Required-Start: $portmap
+#     Also, required services are started before the dependent ones.
+#     The runlevel editor will warn about such missing hard dependencies
+#     and suggest enabling. During system startup, you may expect an error,
+#     if the dependency is not fulfilled.
+# (b) Specifying the init script ordering, not real (hard) dependencies.
+#     This is needed by insserv to determine which service should be
+#     started first (and at a later stage what services can be started
+#     in parallel). The tag Should-Start: is used for this.
+#     It tells, that if a service is available, it should be started
+#     before. If not, never mind.
+# * When specifying hard dependencies or ordering requirements, you can 
+#   use names of services (contents of their Provides: section)
+#   or pseudo names starting with a $. The following ones are available
+#   according to LSB (1.1):
+#	$local_fs		all local file systems are mounted
+#				(most services should need this!)
+#	$remote_fs		all remote file systems are mounted
+#				(note that /usr may be remote, so
+#				 many services should Require this!)
+#	$syslog			system logging facility up
+#	$network		low level networking (eth card, ...)
+#	$named			hostname resolution available
+#	$netdaemons		all network daemons are running
+#   The $netdaemons pseudo service has been removed in LSB 1.2.
+#   For now, we still offer it for backward compatibility.
+#   These are new (LSB 1.2):
+#	$time			the system time has been set correctly	
+#	$portmap		SunRPC portmapping service available
+#   UnitedLinux/SUSE/Novell extensions:
+#	$ALL			indicates that a script should be inserted
+#				at the end
+# * The services specified in the stop tags 
+#   (Required-Stop/Should-Stop)
+#   specify which services need to be still running when this service
+#   is shut down. Often the entries there are just copies or a subset 
+#   from the respective start tag.
+# * Should-Start/Stop are now part of LSB as of 2.0,
+#   formerly SUSE/Unitedlinux used X-UnitedLinux-Should-Start/-Stop.
+#   insserv does support both variants.
+# * X-UnitedLinux-Default-Enabled: yes/no is used at installation time
+#   (%fillup_and_insserv macro in %post of many RPMs) to specify whether
+#   a startup script should default to be enabled after installation.
+#
+# Note on runlevels:
+# 0 - halt/poweroff 			6 - reboot
+# 1 - single user			2 - multiuser without network exported
+# 3 - multiuser w/ network (text mode)  5 - multiuser w/ network and X11 (xdm)
+# 
+# Note on script names:
+# http://www.linuxbase.org/spec/refspecs/LSB_1.3.0/gLSB/gLSB/scrptnames.html
+# A registry has been set up to manage the init script namespace.
+# http://www.lanana.org/
+# Please use the names already registered or register one or use a
+# vendor prefix.
 
-prog="rxapi"
+# Check for missing binaries (stale symlinks should not happen)
+# Note: Special treatment of stop for LSB conformance
+RXAPI_BIN=/usr/bin/rxapi
+test -x $RXAPI_BIN || { echo "$RXAPI_BIN not installed"; 
+        if [ "$1" = "stop" ]; then exit 0;
+        else exit 5; fi; }
 
-start() {
-	echo -n $"Starting $prog: "
-        if [ -e /etc/rc.d/init.d/functions ]; then
-	   daemon /usr/bin/rxapi
-        elif [ -e /lib/lsb/init-functions ]; then
-	   start_daemon /usr/bin/rxapi
-        else
-	   startproc /usr/bin/rxapi
-        fi
-	RETVAL=$?
-	echo
-	if [ $is_debian_like -eq 0 ]; then
-	    [ $RETVAL -eq 0 ] && touch /var/lock/subsys/rxapi
-	else
-	    [ $RETVAL -eq 0 ] && touch /var/lock/rxapi
+#---[ binfmt calls ]--------------------------------------------------------------------------------
+
+BINFMT_NAME=ooRexx
+BINFMT_MISC=/proc/sys/fs/binfmt_misc
+BINFMT_MAGIC="/**/@REXX"
+BINFMT_MAGIC_HEX="2f2A2a2f4052455858"
+BINFMT_INTERP=/usr/bin/rexx
+BINFMT_TYPE=M
+BINFMT_OFFSET=
+BINFMT_MASK=
+
+binfmt_check_file() {
+	file="$1"
+
+	if [ $(grep -ci "magic ${BINFMT_MAGIC_HEX}" ${file}) != 0 ]; then
+		if [ $(grep -ci "enabled" ${file}) != 0 ]; then
+			return 153
+		fi
+		return 151
 	fi
-	return $RETVAL
+
+	return 155
 }
 
-stop() {
-	echo -n $"Stopping $prog: "
-	if [ $is_debian_like -eq 0 ]; then
-	    killproc rxapi
-	else
-	    killproc -p /var/run/ooRexx.pid rxapi
+binfmt_mount() {
+
+	if [ ! -e ${BINFMT_MISC}/register ] || [ ! -e ${BINFMT_MISC}/status ]; then
+		mkdir -p ${BINFMT_MISC} 2> /dev/null
+
+		if [ -d ${BINFMT_MISC} ]; then
+			mount -t binfmt_misc none ${BINFMT_MISC} 2> /dev/null
+		else
+			return 4
+		fi
 	fi
-	RETVAL=$?
-	echo
-	if [ $is_debian_like -eq 0 ]; then
-	    [ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/rxapi
-	else
-	    [ $RETVAL -eq 0 ] && rm -f /var/lock/rxapi
+
+	if [ -e ${BINFMT_MISC}/register ] && [ -e ${BINFMT_MISC}/status ]; then
+		return 0
 	fi
-	return $RETVAL
-}
 
-rhstatus() {
-	status /usr/bin/rxapi
+	return 5
 }
 
-restart() {
-  	stop
-	start
+binfmt_register() {
+
+    	# first make sure that nothing else has registered the ooRexx magic
+	for file in ${BINFMT_MISC}/*; do
+		filename="`basename ${file}`"
+		if [ "${filename}" != "register" ] && [ "${filename}" != "status" ]; then
+
+			binfmt_check_file ${file}
+			is_registered=$?
+
+			if [ ${is_registered} -eq 153 ] && [ "${filename}" != "${BINFMT_NAME}" ]; then
+				logger -t "${BINFMT_NAME}" "Magic is already registered on ${filename}"
+				return 156
+			elif [ ${is_registered} -eq 154 ] && [ "${filename}" = "${BINFMT_NAME}" ]; then
+				# the registration exists, but is disabled, so re-enable it
+				logger -t "${BINFMT_NAME}" "Magic is already registered on ${filename} but its disabled, re-enabling it"
+				echo 1 > ${BINFMT_MISC}/${BINFMT_NAME} 2> /dev/null
+				if [ $? -ne 0 ]; then
+					return 4
+				fi
+			fi
+		fi
+	done
+
+	if [ ! -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+		echo ":${BINFMT_NAME}:${BINFMT_TYPE}:${BINFMT_OFFSET}:${BINFMT_MAGIC}:${BINFMT_MASK}:${BINFMT_INTERP}:" > ${BINFMT_MISC}/register
+		if [ ! -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+			return 4
+		fi
+	fi
+
+	logger -t "${BINFMT_NAME}" "Magic is now registered"
+
+	return 0
+
 }
 
-force-reload() {
-	echo -n $"Force-reload not supported."
-	echo
+binfmt_unregister() {
+
+	if [ -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+		binfmt_check_file ${BINFMT_MISC}/${BINFMT_NAME}
+
+		if [ $? -eq 153 ]; then
+			echo -1 > ${BINFMT_MISC}/${BINFMT_NAME} 2> /dev/null
+			if [ $? -ne 0 ]; then
+				return 4
+			fi
+			logger -t "${BINFMT_NAME}" "Magic is now disabled"
+		fi
+	fi
+
 	return 0
 }
 
-# See how we were called.
+
+#---[ Start/Stop service ]--------------------------------------------------------------------------
+
+# Source LSB init functions
+# providing start_daemon, killproc, pidofproc, 
+# log_success_msg, log_failure_msg and log_warning_msg.
+# This is currently not used by UnitedLinux based distributions and
+# not needed for init scripts for UnitedLinux only. If it is used,
+# the functions from rc.status should not be sourced or used.
+#. /lib/lsb/init-functions
+
+# Shell functions sourced from /etc/rc.status:
+#      rc_check         check and set local and overall rc status
+#      rc_status        check and set local and overall rc status
+#      rc_status -v     be verbose in local rc status and clear it afterwards
+#      rc_status -v -r  ditto and clear both the local and overall rc status
+#      rc_status -s     display "skipped" and exit with status 3
+#      rc_status -u     display "unused" and exit with status 3
+#      rc_failed        set local and overall rc status to failed
+#      rc_failed <num>  set local and overall rc status to <num>
+#      rc_reset         clear both the local and overall rc status
+#      rc_exit          exit appropriate to overall rc status
+#      rc_active        checks whether a service is activated by symlinks
+
+# Use the SUSE rc_ init script functions;
+# emulate them on LSB, RH and other systems
+
+# Default: Assume sysvinit binaries exist
+start_daemon() { /sbin/start_daemon ${1+"$@"}; }
+killproc()     { /sbin/killproc     ${1+"$@"}; }
+pidofproc()    { /sbin/pidofproc    ${1+"$@"}; }
+checkproc()    { /sbin/checkproc    ${1+"$@"}; }
+if test -e /etc/rc.status; then
+    # SUSE rc script library
+    . /etc/rc.status
+else
+    export LC_ALL=POSIX
+    _cmd=$1
+    declare -a _SMSG
+    if test "${_cmd}" = "status"; then
+	_SMSG=(running dead dead unused unknown reserved)
+	_RC_UNUSED=3
+    else
+	_SMSG=(done failed failed missed failed skipped unused failed failed reserved)
+	_RC_UNUSED=6
+    fi
+    if test -e /lib/lsb/init-functions; then
+	# LSB    
+    	. /lib/lsb/init-functions
+	echo_rc()
+	{
+	    if test ${_RC_RV} = 0; then
+		log_success_msg "  [${_SMSG[${_RC_RV}]}] "
+	    else
+		log_failure_msg "  [${_SMSG[${_RC_RV}]}] "
+	    fi
+	}
+	# TODO: Add checking for lockfiles
+	checkproc() { return pidofproc ${1+"$@"} >/dev/null 2>&1; }
+    elif test -e /etc/init.d/functions; then
+	# RHAT
+	. /etc/init.d/functions
+	echo_rc()
+	{
+	    #echo -n "  [${_SMSG[${_RC_RV}]}] "
+	    if test ${_RC_RV} = 0; then
+		success "  [${_SMSG[${_RC_RV}]}] "
+	    else
+		failure "  [${_SMSG[${_RC_RV}]}] "
+	    fi
+	}
+	checkproc() { return status ${1+"$@"}; }
+	start_daemon() { return daemon ${1+"$@"}; }
+    else
+	# emulate it
+	echo_rc() { echo "  [${_SMSG[${_RC_RV}]}] "; }
+    fi
+    rc_reset() { _RC_RV=0; }
+    rc_failed()
+    {
+	if test -z "$1"; then 
+	    _RC_RV=1;
+	elif test "$1" != "0"; then 
+	    _RC_RV=$1; 
+    	fi
+	return ${_RC_RV}
+    }
+    rc_check()
+    {
+	return rc_failed $?
+    }	
+    rc_status()
+    {
+	rc_failed $?
+	if test "$1" = "-r"; then _RC_RV=0; shift; fi
+	if test "$1" = "-s"; then rc_failed 5; echo_rc; rc_failed 3; shift; fi
+	if test "$1" = "-u"; then rc_failed ${_RC_UNUSED}; echo_rc; rc_failed 3; shift; fi
+	if test "$1" = "-v"; then echo_rc; shift; fi
+	if test "$1" = "-r"; then _RC_RV=0; shift; fi
+	return ${_RC_RV}
+    }
+    rc_exit() { exit ${_RC_RV}; }
+    rc_active() 
+    {
+	if test -z "$RUNLEVEL"; then read RUNLEVEL REST < <(/sbin/runlevel); fi
+	if test -e /etc/init.d/S[0-9][0-9]${1}; then return 0; fi
+	return 1
+    }
+fi
+
+# Reset status of this service
+rc_reset
+
+# Return values acc. to LSB for all commands but status:
+# 0	  - success
+# 1       - generic or unspecified error
+# 2       - invalid or excess argument(s)
+# 3       - unimplemented feature (e.g. "reload")
+# 4       - user had insufficient privileges
+# 5       - program is not installed
+# 6       - program is not configured
+# 7       - program is not running
+# 8--199  - reserved (8--99 LSB, 100--149 distrib, 150--199 appl)
+# 
+# Note that starting an already running service, stopping
+# or restarting a not-running service as well as the restart
+# with force-reload (in case signaling is not supported) are
+# considered a success.
 
 case "$1" in
-  start)
-  	start
+    start)
+
+	binfmt_mount
+	if [ "$?" == "0" ]; then
+		binfmt_register
+	fi
+
+	echo -n "Starting ooRexx api "
+
+	## Start daemon with startproc(8). If this fails
+	## the return value is set appropriately by startproc.
+	start_daemon -p /var/run/ooRexx.pid $RXAPI_BIN
+
+	# Remember status and be verbose
+	rc_status -v
 	;;
-  stop)
-  	stop
+
+    stop)
+
+	binfmt_unregister
+
+	echo -n "Shutting down ooRexx api "
+
+	killproc -p /var/run/ooRexx.pid $RXAPI_BIN
+
+	# Remember status and be verbose
+	rc_status -v
+
 	;;
-  restart)
-  	restart
+
+    try-restart|condrestart)
+	## Do a restart only if the service was active before.
+	## Note: try-restart is now part of LSB (as of 1.9).
+	## RH has a similar command named condrestart.
+	if test "$1" = "condrestart"; then
+		echo "${attn} Use try-restart ${done}(LSB)${attn} rather than condrestart ${warn}(RH)${norm}"
+	fi
+	$0 status
+	if test $? = 0; then
+		$0 restart
+	else
+		rc_reset	# Not running is not a failure.
+	fi
+	# Remember status and be quiet
+	rc_status
+	;;
+
+    restart)
+	## Stop the service and regardless of whether it was
+	## running or not, start it again.
+	$0 stop
+	$0 start
+
+	# Remember status and be quiet
+	rc_status
+	;;
+
+    force-reload)
+	$0 try-restart
+	rc_status
 	;;
-  status)
-  	rhstatus
+
+    reload)
+	## Otherwise if it does not support reload:
+	rc_failed 3
+	rc_status -v
+	;;
+
+    status)
+	echo -n "Checking for ooRexx api "
+	## Check status with checkproc(8), if process is running
+	## checkproc will return with exit status 0.
+
+	# Return value is slightly different for the status command:
+	# 0 - service up and running
+	# 1 - service dead, but /var/run/  pid  file exists
+	# 2 - service dead, but /var/lock/ lock file exists
+	# 3 - service not running (unused)
+	# 4 - service status unknown :-(
+	# 5--199 reserved (5--99 LSB, 100--149 distro, 150--199 appl.)
+	
+	# NOTE: checkproc returns LSB compliant status values.
+	checkproc -p /var/run/ooRexx.pid $RXAPI_BIN
+	# NOTE: rc_status knows that we called this init script with
+	# "status" option and adapts its messages accordingly.
+	rc_status -v
 	;;
-  force-reload)
-  	force-reload
+
+    probe)
+	## Optional: Probe for the necessity of a reload, print out the
+	## argument to this init script which is required for a reload.
+	## Note: probe is not (yet) part of LSB (as of 1.9)
+
+	test /var/run/ooRexx.pid && echo reload
 	;;
-  *)
-	echo $"Usage: $0 {start|stop|restart|status|force-reload}"
+
+    *)
+	echo "Usage: $0 {start|stop|status|try-restart|restart|force-reload|reload|probe}"
 	exit 1
+	;;
 esac
+rc_exit
diff -Naur ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid.in ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid.in
--- ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid.in	2013-07-07 17:44:00.000000000 -0300
+++ ooRexx-4.1.3/rexxapi/server/platform/unix/rxapid.in	2013-07-09 10:53:13.145262247 -0300
@@ -1,111 +1,425 @@
-#! /bin/bash
+#!/bin/bash
 #
-# The following is LSB information
+# Start/stop rexx api daemon, based on OpenSUSE's "/etc/init.d/skeleton.compat"
+#
+# Author: Perry Werneck <perry.werneck@gmail.com> 2013
+#
+# /etc/init.d/rxapid
+#
+#
+# chkconfig: 345 99 00
+# description: Start and stop rxapi daemon
+# 
 ### BEGIN INIT INFO
-# Provides: rxapi
-# Required-Start: $local_fs $network $time
-# Required-Stop: $local_fs $network $time
-# Default-Start:  2 3 4 5
-# Default-Stop: 0 1 6
-# Short-Description: start and stop rxapi daemon
-# Description: rxapid provides the communication service for between all running
-#	 ooRexx scripts
-### END INIT INFO#
-#
-# rxapid.sh    Start/Stop the rxapi daemon.
-#
-# description: rxapi is a standard UNIX program which coordinates the sharing
-#              of data betwenn multiple instances of ooRexx scripts.
-# processname: rxapi
-# pidfile:     /var/run/rxapi.pid
-
-# Work around for Debian-based systems, maybe there is a better way...
-is_debian_like=0
-
-# Source function library.  If none of these work, then we haven't installed
-# on this platform yet and the installer will need to figure out what will
-# work.
-if [ -e /etc/rc.d/init.d/functions ]; then
-   . /etc/init.d/functions
-elif [ -e /etc/rc.status ]; then
-   . /etc/rc.status
-elif [ -e /lib/lsb/init-functions ]; then
-   . /lib/lsb/init-functions
-   is_debian_like=1
-fi
+# Provides:          rxapi
+# Required-Start:    $syslog $remote_fs 
+# Should-Start:      $time
+# Required-Stop:     $syslog $remote_fs
+# Should-Stop:       
+# Default-Start:     3 5
+# Default-Stop:      0 1 2 6
+# Short-Description: Start and stop rxapi daemon
+# Description:       Srxapid provides the communication service for between all running ooRexx scripts
+### END INIT INFO
+# 
+# Any extensions to the keywords given above should be preceeded by 
+# X-VendorTag- according to LSB.
+# 
+# Notes on Required-Start/Should-Start:
+# * There are two different issues that are solved by Required-Start
+#    and Should-Start
+# (a) Hard dependencies: This is used by the runlevel editor to determine
+#     which services absolutely need to be started to make the start of
+#     this service make sense. Example: nfsserver should have
+#     Required-Start: $portmap
+#     Also, required services are started before the dependent ones.
+#     The runlevel editor will warn about such missing hard dependencies
+#     and suggest enabling. During system startup, you may expect an error,
+#     if the dependency is not fulfilled.
+# (b) Specifying the init script ordering, not real (hard) dependencies.
+#     This is needed by insserv to determine which service should be
+#     started first (and at a later stage what services can be started
+#     in parallel). The tag Should-Start: is used for this.
+#     It tells, that if a service is available, it should be started
+#     before. If not, never mind.
+# * When specifying hard dependencies or ordering requirements, you can 
+#   use names of services (contents of their Provides: section)
+#   or pseudo names starting with a $. The following ones are available
+#   according to LSB (1.1):
+#	$local_fs		all local file systems are mounted
+#				(most services should need this!)
+#	$remote_fs		all remote file systems are mounted
+#				(note that /usr may be remote, so
+#				 many services should Require this!)
+#	$syslog			system logging facility up
+#	$network		low level networking (eth card, ...)
+#	$named			hostname resolution available
+#	$netdaemons		all network daemons are running
+#   The $netdaemons pseudo service has been removed in LSB 1.2.
+#   For now, we still offer it for backward compatibility.
+#   These are new (LSB 1.2):
+#	$time			the system time has been set correctly	
+#	$portmap		SunRPC portmapping service available
+#   UnitedLinux/SUSE/Novell extensions:
+#	$ALL			indicates that a script should be inserted
+#				at the end
+# * The services specified in the stop tags 
+#   (Required-Stop/Should-Stop)
+#   specify which services need to be still running when this service
+#   is shut down. Often the entries there are just copies or a subset 
+#   from the respective start tag.
+# * Should-Start/Stop are now part of LSB as of 2.0,
+#   formerly SUSE/Unitedlinux used X-UnitedLinux-Should-Start/-Stop.
+#   insserv does support both variants.
+# * X-UnitedLinux-Default-Enabled: yes/no is used at installation time
+#   (%fillup_and_insserv macro in %post of many RPMs) to specify whether
+#   a startup script should default to be enabled after installation.
+#
+# Note on runlevels:
+# 0 - halt/poweroff 			6 - reboot
+# 1 - single user			2 - multiuser without network exported
+# 3 - multiuser w/ network (text mode)  5 - multiuser w/ network and X11 (xdm)
+# 
+# Note on script names:
+# http://www.linuxbase.org/spec/refspecs/LSB_1.3.0/gLSB/gLSB/scrptnames.html
+# A registry has been set up to manage the init script namespace.
+# http://www.lanana.org/
+# Please use the names already registered or register one or use a
+# vendor prefix.
 
-prog="rxapi"
+# Check for missing binaries (stale symlinks should not happen)
+# Note: Special treatment of stop for LSB conformance
+RXAPI_BIN=@prefix@/bin/rxapi
+test -x $RXAPI_BIN || { echo "$RXAPI_BIN not installed"; 
+        if [ "$1" = "stop" ]; then exit 0;
+        else exit 5; fi; }
 
-start() {
-	echo -n $"Starting $prog: "
-        if [ -e /etc/rc.d/init.d/functions ]; then
-	   daemon @prefix@/bin/rxapi
-        elif [ -e /lib/lsb/init-functions ]; then
-	   start_daemon @prefix@/bin/rxapi
-        else
-	   startproc @prefix@/bin/rxapi
-        fi
-	RETVAL=$?
-	echo
-	if [ $is_debian_like -eq 0 ]; then
-	    [ $RETVAL -eq 0 ] && touch /var/lock/subsys/rxapi
-	else
-	    [ $RETVAL -eq 0 ] && touch /var/lock/rxapi
+#---[ binfmt calls ]--------------------------------------------------------------------------------
+
+BINFMT_NAME=ooRexx
+BINFMT_MISC=/proc/sys/fs/binfmt_misc
+BINFMT_MAGIC="/**/@REXX"
+BINFMT_MAGIC_HEX="2f2A2a2f4052455858"
+BINFMT_INTERP=@prefix@/bin/rexx
+BINFMT_TYPE=M
+BINFMT_OFFSET=
+BINFMT_MASK=
+
+binfmt_check_file() {
+	file="$1"
+
+	if [ $(grep -ci "magic ${BINFMT_MAGIC_HEX}" ${file}) != 0 ]; then
+		if [ $(grep -ci "enabled" ${file}) != 0 ]; then
+			return 153
+		fi
+		return 151
 	fi
-	return $RETVAL
+
+	return 155
 }
 
-stop() {
-	echo -n $"Stopping $prog: "
-	if [ $is_debian_like -eq 0 ]; then
-	    killproc rxapi
-	else
-	    killproc -p /var/run/ooRexx.pid rxapi
+binfmt_mount() {
+
+	if [ ! -e ${BINFMT_MISC}/register ] || [ ! -e ${BINFMT_MISC}/status ]; then
+		mkdir -p ${BINFMT_MISC} 2> /dev/null
+
+		if [ -d ${BINFMT_MISC} ]; then
+			mount -t binfmt_misc none ${BINFMT_MISC} 2> /dev/null
+		else
+			return 4
+		fi
 	fi
-	RETVAL=$?
-	echo
-	if [ $is_debian_like -eq 0 ]; then
-	    [ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/rxapi
-	else
-	    [ $RETVAL -eq 0 ] && rm -f /var/lock/rxapi
+
+	if [ -e ${BINFMT_MISC}/register ] && [ -e ${BINFMT_MISC}/status ]; then
+		return 0
 	fi
-	return $RETVAL
-}
 
-rhstatus() {
-	status @prefix@/bin/rxapi
+	return 5
 }
 
-restart() {
-  	stop
-	start
+binfmt_register() {
+
+    	# first make sure that nothing else has registered the ooRexx magic
+	for file in ${BINFMT_MISC}/*; do
+		filename="`basename ${file}`"
+		if [ "${filename}" != "register" ] && [ "${filename}" != "status" ]; then
+
+			binfmt_check_file ${file}
+			is_registered=$?
+
+			if [ ${is_registered} -eq 153 ] && [ "${filename}" != "${BINFMT_NAME}" ]; then
+				logger -t "${BINFMT_NAME}" "Magic is already registered on ${filename}"
+				return 156
+			elif [ ${is_registered} -eq 154 ] && [ "${filename}" = "${BINFMT_NAME}" ]; then
+				# the registration exists, but is disabled, so re-enable it
+				logger -t "${BINFMT_NAME}" "Magic is already registered on ${filename} but its disabled, re-enabling it"
+				echo 1 > ${BINFMT_MISC}/${BINFMT_NAME} 2> /dev/null
+				if [ $? -ne 0 ]; then
+					return 4
+				fi
+			fi
+		fi
+	done
+
+	if [ ! -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+		echo ":${BINFMT_NAME}:${BINFMT_TYPE}:${BINFMT_OFFSET}:${BINFMT_MAGIC}:${BINFMT_MASK}:${BINFMT_INTERP}:" > ${BINFMT_MISC}/register
+		if [ ! -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+			return 4
+		fi
+	fi
+
+	logger -t "${BINFMT_NAME}" "Magic is now registered"
+
+	return 0
+
 }
 
-force-reload() {
-	echo -n $"Force-reload not supported."
-	echo
+binfmt_unregister() {
+
+	if [ -e ${BINFMT_MISC}/${BINFMT_NAME} ]; then
+		binfmt_check_file ${BINFMT_MISC}/${BINFMT_NAME}
+
+		if [ $? -eq 153 ]; then
+			echo -1 > ${BINFMT_MISC}/${BINFMT_NAME} 2> /dev/null
+			if [ $? -ne 0 ]; then
+				return 4
+			fi
+			logger -t "${BINFMT_NAME}" "Magic is now disabled"
+		fi
+	fi
+
 	return 0
 }
 
-# See how we were called.
+
+#---[ Start/Stop service ]--------------------------------------------------------------------------
+
+# Source LSB init functions
+# providing start_daemon, killproc, pidofproc, 
+# log_success_msg, log_failure_msg and log_warning_msg.
+# This is currently not used by UnitedLinux based distributions and
+# not needed for init scripts for UnitedLinux only. If it is used,
+# the functions from rc.status should not be sourced or used.
+#. /lib/lsb/init-functions
+
+# Shell functions sourced from /etc/rc.status:
+#      rc_check         check and set local and overall rc status
+#      rc_status        check and set local and overall rc status
+#      rc_status -v     be verbose in local rc status and clear it afterwards
+#      rc_status -v -r  ditto and clear both the local and overall rc status
+#      rc_status -s     display "skipped" and exit with status 3
+#      rc_status -u     display "unused" and exit with status 3
+#      rc_failed        set local and overall rc status to failed
+#      rc_failed <num>  set local and overall rc status to <num>
+#      rc_reset         clear both the local and overall rc status
+#      rc_exit          exit appropriate to overall rc status
+#      rc_active        checks whether a service is activated by symlinks
+
+# Use the SUSE rc_ init script functions;
+# emulate them on LSB, RH and other systems
+
+# Default: Assume sysvinit binaries exist
+start_daemon() { /sbin/start_daemon ${1+"$@"}; }
+killproc()     { /sbin/killproc     ${1+"$@"}; }
+pidofproc()    { /sbin/pidofproc    ${1+"$@"}; }
+checkproc()    { /sbin/checkproc    ${1+"$@"}; }
+if test -e /etc/rc.status; then
+    # SUSE rc script library
+    . /etc/rc.status
+else
+    export LC_ALL=POSIX
+    _cmd=$1
+    declare -a _SMSG
+    if test "${_cmd}" = "status"; then
+	_SMSG=(running dead dead unused unknown reserved)
+	_RC_UNUSED=3
+    else
+	_SMSG=(done failed failed missed failed skipped unused failed failed reserved)
+	_RC_UNUSED=6
+    fi
+    if test -e /lib/lsb/init-functions; then
+	# LSB    
+    	. /lib/lsb/init-functions
+	echo_rc()
+	{
+	    if test ${_RC_RV} = 0; then
+		log_success_msg "  [${_SMSG[${_RC_RV}]}] "
+	    else
+		log_failure_msg "  [${_SMSG[${_RC_RV}]}] "
+	    fi
+	}
+	# TODO: Add checking for lockfiles
+	checkproc() { return pidofproc ${1+"$@"} >/dev/null 2>&1; }
+    elif test -e /etc/init.d/functions; then
+	# RHAT
+	. /etc/init.d/functions
+	echo_rc()
+	{
+	    #echo -n "  [${_SMSG[${_RC_RV}]}] "
+	    if test ${_RC_RV} = 0; then
+		success "  [${_SMSG[${_RC_RV}]}] "
+	    else
+		failure "  [${_SMSG[${_RC_RV}]}] "
+	    fi
+	}
+	checkproc() { return status ${1+"$@"}; }
+	start_daemon() { return daemon ${1+"$@"}; }
+    else
+	# emulate it
+	echo_rc() { echo "  [${_SMSG[${_RC_RV}]}] "; }
+    fi
+    rc_reset() { _RC_RV=0; }
+    rc_failed()
+    {
+	if test -z "$1"; then 
+	    _RC_RV=1;
+	elif test "$1" != "0"; then 
+	    _RC_RV=$1; 
+    	fi
+	return ${_RC_RV}
+    }
+    rc_check()
+    {
+	return rc_failed $?
+    }	
+    rc_status()
+    {
+	rc_failed $?
+	if test "$1" = "-r"; then _RC_RV=0; shift; fi
+	if test "$1" = "-s"; then rc_failed 5; echo_rc; rc_failed 3; shift; fi
+	if test "$1" = "-u"; then rc_failed ${_RC_UNUSED}; echo_rc; rc_failed 3; shift; fi
+	if test "$1" = "-v"; then echo_rc; shift; fi
+	if test "$1" = "-r"; then _RC_RV=0; shift; fi
+	return ${_RC_RV}
+    }
+    rc_exit() { exit ${_RC_RV}; }
+    rc_active() 
+    {
+	if test -z "$RUNLEVEL"; then read RUNLEVEL REST < <(/sbin/runlevel); fi
+	if test -e /etc/init.d/S[0-9][0-9]${1}; then return 0; fi
+	return 1
+    }
+fi
+
+# Reset status of this service
+rc_reset
+
+# Return values acc. to LSB for all commands but status:
+# 0	  - success
+# 1       - generic or unspecified error
+# 2       - invalid or excess argument(s)
+# 3       - unimplemented feature (e.g. "reload")
+# 4       - user had insufficient privileges
+# 5       - program is not installed
+# 6       - program is not configured
+# 7       - program is not running
+# 8--199  - reserved (8--99 LSB, 100--149 distrib, 150--199 appl)
+# 
+# Note that starting an already running service, stopping
+# or restarting a not-running service as well as the restart
+# with force-reload (in case signaling is not supported) are
+# considered a success.
 
 case "$1" in
-  start)
-  	start
+    start)
+
+	binfmt_mount
+	if [ "$?" == "0" ]; then
+		binfmt_register
+	fi
+
+	echo -n "Starting ooRexx api "
+
+	## Start daemon with startproc(8). If this fails
+	## the return value is set appropriately by startproc.
+	start_daemon -p /var/run/ooRexx.pid $RXAPI_BIN
+
+	# Remember status and be verbose
+	rc_status -v
 	;;
-  stop)
-  	stop
+
+    stop)
+
+	binfmt_unregister
+
+	echo -n "Shutting down ooRexx api "
+
+	killproc -p /var/run/ooRexx.pid $RXAPI_BIN
+
+	# Remember status and be verbose
+	rc_status -v
+
 	;;
-  restart)
-  	restart
+
+    try-restart|condrestart)
+	## Do a restart only if the service was active before.
+	## Note: try-restart is now part of LSB (as of 1.9).
+	## RH has a similar command named condrestart.
+	if test "$1" = "condrestart"; then
+		echo "${attn} Use try-restart ${done}(LSB)${attn} rather than condrestart ${warn}(RH)${norm}"
+	fi
+	$0 status
+	if test $? = 0; then
+		$0 restart
+	else
+		rc_reset	# Not running is not a failure.
+	fi
+	# Remember status and be quiet
+	rc_status
+	;;
+
+    restart)
+	## Stop the service and regardless of whether it was
+	## running or not, start it again.
+	$0 stop
+	$0 start
+
+	# Remember status and be quiet
+	rc_status
+	;;
+
+    force-reload)
+	$0 try-restart
+	rc_status
 	;;
-  status)
-  	rhstatus
+
+    reload)
+	## Otherwise if it does not support reload:
+	rc_failed 3
+	rc_status -v
+	;;
+
+    status)
+	echo -n "Checking for ooRexx api "
+	## Check status with checkproc(8), if process is running
+	## checkproc will return with exit status 0.
+
+	# Return value is slightly different for the status command:
+	# 0 - service up and running
+	# 1 - service dead, but /var/run/  pid  file exists
+	# 2 - service dead, but /var/lock/ lock file exists
+	# 3 - service not running (unused)
+	# 4 - service status unknown :-(
+	# 5--199 reserved (5--99 LSB, 100--149 distro, 150--199 appl.)
+	
+	# NOTE: checkproc returns LSB compliant status values.
+	checkproc -p /var/run/ooRexx.pid $RXAPI_BIN
+	# NOTE: rc_status knows that we called this init script with
+	# "status" option and adapts its messages accordingly.
+	rc_status -v
 	;;
-  force-reload)
-  	force-reload
+
+    probe)
+	## Optional: Probe for the necessity of a reload, print out the
+	## argument to this init script which is required for a reload.
+	## Note: probe is not (yet) part of LSB (as of 1.9)
+
+	test /var/run/ooRexx.pid && echo reload
 	;;
-  *)
-	echo $"Usage: $0 {start|stop|restart|status|force-reload}"
+
+    *)
+	echo "Usage: $0 {start|stop|status|try-restart|restart|force-reload|reload|probe}"
 	exit 1
+	;;
 esac
+rc_exit
openSUSE Build Service is sponsored by