Merge lp:~jeff-apple/openvista-gtm-integration/bug368789 into lp:openvista-gtm-integration

[jeff.apple]

[Jon Tai (jontai)]

Looks good, please commit.

review: Approve

=== modified file 'mumps/MSCZJOBU.m'
--- mumps/MSCZJOBU.m	2009-04-28 18:34:54 +0000
+++ mumps/MSCZJOBU.m	2009-05-01 17:47:24 +0000
@@ -31,25 +31,19 @@
 	;  PID CAN BE A SINGLE PID, I.E. $J
 	;  PID CAN BE A "*" WHICH SENDS AN INTERRUPT TO ALL MUMPS PROCESSES
 	;
-	Q:$G(PID)=""
-	;
-	I PID="*" D  Q  ; ALL PIDS
-	. N ARRAY
-	. D PIDS(.ARRAY)
-	. N %J S %J=""
-	. F  S %J=$O(ARRAY(%J)) Q:%J=""  D 
-	. . S A="test1",c="mupip intrpt "_%J_" > /dev/null"
-	. . OPEN A:(COMM="mupip intrpt "_%J)::"PIPE" U A C A
-	;
-	;  JUST 1 PID
-	Q:PID'?1N.N
-	S A="test1"
-	OPEN A:(COMM="mupip intrpt "_PID)::"PIPE" U A C A
+	N CMD
+	S PID=$G(PID)
+	Q:(PID="")!'((PID="*")!(PID=+PID))
+	;
+	S DEV="gtmsignaldev"
+	S CMD="gtmsignal -q "_$S(PID="*":"-a",1:PID)
+	OPEN DEV:(COMM=CMD)::"PIPE" U DEV C DEV
 	Q
 	;
 KILL(PID)	; Send PID to mupip to kill process
 	Q:PID'?1N.N
-	ZSYSTEM "mupip stop "_PID_" > /dev/null"
+	S DEV="gtmsignaldev"
+	OPEN DEV:(COMM="gtmsignal -q -s "_PID)::"PIPE" U DEV C DEV
 	Q
 	;
 UNLOCK(NODE,PROC)	; Use lke to remove lock on NODE.

=== added file 'packages/rpm/openvista'
--- packages/rpm/openvista	1970-01-01 00:00:00 +0000
+++ packages/rpm/openvista	2009-04-30 06:48:24 +0000
@@ -0,0 +1,5 @@
+#%PAM-1.0
+auth     include        system-auth
+account  include        system-auth
+password include        system-auth
+session  include        system-auth

=== renamed file 'packages/rpm/openvista-libs.spec' => 'packages/rpm/openvista-libs-5.3003.spec'
--- packages/rpm/openvista-libs.spec	2009-04-23 05:35:22 +0000
+++ packages/rpm/openvista-libs-5.3003.spec	2009-04-30 07:03:03 +0000
@@ -1,6 +1,12 @@
-Name:		openvista-libs
+%ifarch x86_64
+%define gtm_dist /opt/lsb-gtm/V5.3-003_x86_64
+%else
+%define gtm_dist /opt/lsb-gtm/V5.3-003_i686
+%endif
+
+Name:		openvista-libs-5.3003
 Version:	0.8
-Release:	1
+Release:	2
 Summary:	GT.M External Calls for OpenVista
 License:	AGPL
 Vendor:		Medsphere Systems Corporation
@@ -8,10 +14,17 @@
 Group:		Applications/System
 Packager:	Jonathan Tai <[e-mail]>
 
-Requires:	pam fis-gtm-5.3003
-BuildRequires:	pam-devel fis-gtm-5.3003
-
-Source:		openvista-libs-%{version}.tar.bz2
+Provides:	openvista-libs
+
+Requires(post):		/usr/sbin/semanage, /sbin/restorecon
+Requires(postun):	/usr/sbin/semanage
+
+Requires:	pam, fis-gtm-5.3003
+BuildRequires:	pam-devel, fis-gtm-5.3003
+
+Obsoletes:	openvista-libs
+
+Source:		openvista-libs-5.3003-%{version}.tar.bz2
 BuildRoot:	%{_tmppath}/%{name}-root
 
 %description
@@ -21,7 +34,8 @@
 
 This package provides a shared library that OpenVista code running in GT.M
 calls out to for PAM authentication and duplicating a device onto a spawned
-child's stdin/stdout.
+child's stdin/stdout.  This package also provides an suid wrapper around GT.M
+utilities used to send signals to other GT.M processes.
 
 %prep
 %setup
@@ -30,24 +44,18 @@
 cd src/libopenvista
 ./compile.sh
 
+cd ../../
+
+cd src/suidwrapper
+./compile.sh
+
 %install
 rm -rf %{buildroot}
 
-install -d %{buildroot}%{_libdir}/openvista
-install -m 755 src/libopenvista/libopenvista.so %{buildroot}%{_libdir}/openvista
-
-install -d %{buildroot}%{_datadir}/openvista
-install -m 644 src/libopenvista/openvista.xc %{buildroot}%{_datadir}/openvista
-
-install -d %{buildroot}%{_sysconfdir}/pam.d
-cat > %{buildroot}%{_sysconfdir}/pam.d/openvista <<EOF
-#%PAM-1.0
-auth     include        system-auth
-account  include        system-auth
-password include        system-auth
-session  include        system-auth
-EOF
-chmod 644 %{buildroot}%{_sysconfdir}/pam.d/openvista
+install -d %{buildroot}%{gtm_dist}
+install -m 550 src/libopenvista/libopenvista.so %{buildroot}%{gtm_dist}
+install -m 440 src/libopenvista/openvista.xc %{buildroot}%{gtm_dist}
+install -m 4550 src/suidwrapper/gtmsignal %{buildroot}%{gtm_dist}
 
 %clean
 rm -rf %{buildroot}
@@ -58,17 +66,18 @@
 %doc COPYING
 %doc COPYING.AGPL
 %doc NEWS
-%{_libdir}/openvista/libopenvista.so
-%{_datadir}/openvista/openvista.xc
-%{_sysconfdir}/pam.d/openvista
+%defattr(-,bin,gtm)
+%{gtm_dist}/libopenvista.so
+%{gtm_dist}/openvista.xc
+%{gtm_dist}/gtmsignal
 
 %post
 # See http://fedoraproject.org/wiki/PackagingDrafts/SELinux
-/usr/sbin/semanage fcontext -a -t textrel_shlib_t %{_libdir}/openvista/libopenvista.so 2>/dev/null || :
-/sbin/restorecon %{_libdir}/openvista/libopenvista.so || :
+/usr/sbin/semanage fcontext -a -t textrel_shlib_t %{gtm_dist}/libopenvista.so 2>/dev/null || :
+/sbin/restorecon %{gtm_dist}/libopenvista.so || :
 
 %postun
 # See http://fedoraproject.org/wiki/PackagingDrafts/SELinux
 if [ $1 -eq 0 ]; then
-    /usr/sbin/semanage fcontext -d -t textrel_shlib_t %{_libdir}/openvista/libopenvista.so 2>/dev/null || :
+    /usr/sbin/semanage fcontext -d -t textrel_shlib_t %{gtm_dist}/libopenvista.so 2>/dev/null || :
 fi

=== modified file 'packages/rpm/openvista-utils.spec'
--- packages/rpm/openvista-utils.spec	2009-04-23 23:17:19 +0000
+++ packages/rpm/openvista-utils.spec	2009-04-30 06:48:24 +0000
@@ -1,6 +1,6 @@
 Name:		openvista-utils
 Version:	0.8
-Release:	1
+Release:	2
 Summary:	Utilities for configuring and managing OpenVista
 License:	AGPL
 Vendor:		Medsphere Systems Corporation
@@ -9,16 +9,22 @@
 Packager:	Jonathan Tai <[e-mail]>
 
 Requires(pre):		/usr/sbin/useradd
-Requires(post):		/sbin/chkconfig
+Requires(post):		/sbin/chkconfig, /sbin/service
 Requires(preun):	/sbin/chkconfig
-Requires(postun):	/usr/sbin/userdel
+Requires(postun):	/usr/sbin/userdel, /sbin/service
 
-Requires:	/bin/bash, coreutils, openssh, /usr/bin/logger, /usr/bin/rsync, /bin/tar, /usr/bin/bzip2, /usr/bin/find, vixie-cron, fis-gtm, openvista-libs
+Requires:	/bin/bash, coreutils, openssh, /usr/bin/logger, /usr/bin/rsync, /bin/tar, /usr/bin/bzip2, /usr/bin/find, vixie-cron
+Requires:	fis-gtm, openvista-libs
+Requires:	httpd, mod_ssl, pam
 
 # RPM should have a suggests tag...
-# Suggests:	putty-tools, openvista-webdav-config, bash-completion, /usr/bin/pbzip2
-
-Source:		openvista-utils-%{version}.tar.bz2
+# Suggests:	/usr/bin/puttygen, bash-completion, /usr/bin/pbzip2
+
+Obsoletes:	openvista-webdav-config
+
+Source0:	openvista-utils-%{version}.tar.bz2
+Source1:	webdav.conf
+Source2:	openvista
 BuildArch:	noarch
 BuildRoot:	%{_tmppath}/%{name}-root
 
@@ -56,16 +62,16 @@
 install scripts/usr/bin/ovimport %{buildroot}%{_bindir}/
 
 install -d %{buildroot}%{_mandir}/man1/
-install docs/man1/ovinstanceadd.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovinstancedel.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovrestore.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/openvista.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovtied.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovcc.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovbackup.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovpurgejournals.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovswitchjournals.1 %{buildroot}%{_mandir}/man1/
-install docs/man1/ovimport.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovinstanceadd.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovinstancedel.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovrestore.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/openvista.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovtied.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovcc.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovbackup.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovpurgejournals.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovswitchjournals.1 %{buildroot}%{_mandir}/man1/
+install -m 644 docs/man1/ovimport.1 %{buildroot}%{_mandir}/man1/
 gzip %{buildroot}%{_mandir}/man1/ovinstanceadd.1
 gzip %{buildroot}%{_mandir}/man1/ovinstancedel.1
 gzip %{buildroot}%{_mandir}/man1/ovrestore.1
@@ -92,6 +98,18 @@
 
 install -d %{buildroot}/opt/openvista
 
+install -d %{buildroot}%{_sysconfdir}/httpd/conf.d
+install -m 644 %{SOURCE1} %{buildroot}%{_sysconfdir}/httpd/conf.d/
+
+install -d %{buildroot}%{_sysconfdir}/httpd/conf
+touch %{buildroot}%{_sysconfdir}/httpd/conf/webdav.htpasswd
+
+install -d %{buildroot}/var/www/html/webdav
+
+install -d %{buildroot}%{_sysconfdir}/pam.d
+
+install -m 644 %{SOURCE2} %{buildroot}%{_sysconfdir}/pam.d/
+
 %clean
 rm -rf %{buildroot}
 
@@ -128,6 +146,10 @@
 %config %{_sysconfdir}/cron.d/openvista
 %{_sysconfdir}/cron.daily/openvista
 %attr(2750,root,openvista) %dir /opt/openvista
+%{_sysconfdir}/httpd/conf.d/webdav.conf
+%config %{_sysconfdir}/httpd/conf/webdav.htpasswd
+%dir /var/www/html/webdav
+%{_sysconfdir}/pam.d/openvista
 
 %pre
 /usr/sbin/useradd -G gtm openvista 2> /dev/null || :
@@ -138,6 +160,8 @@
 /sbin/chkconfig --add openvista
 /sbin/chkconfig openvista on
 
+/sbin/service httpd reload > /dev/null 2>&1 || :
+
 %preun
 if [ $1 = 0 ]; then
     /sbin/chkconfig --del openvista-databases
@@ -154,3 +178,5 @@
     /usr/sbin/groupdel openvista 2> /dev/null || :
 fi
 
+/sbin/service httpd reload > /dev/null 2>&1 || :
+

=== removed file 'packages/rpm/openvista-webdav-config.spec'
--- packages/rpm/openvista-webdav-config.spec	2009-04-24 20:40:45 +0000
+++ packages/rpm/openvista-webdav-config.spec	1970-01-01 00:00:00 +0000
@@ -1,56 +0,0 @@
-Name:		openvista-webdav-config
-Version:	0.8
-Release:	1
-Summary:	WebDAV configuration for OpenVista
-License:	AGPL
-Vendor:		Medsphere Systems Corporation
-URL:		https://medsphere.org/community/project/gtm
-Group:		Applications/System
-Packager:	Jonathan Tai <[e-mail]>
-
-Requires:	httpd, mod_ssl
-
-Source:		webdav.conf
-BuildArch:	noarch
-BuildRoot:	%{_tmppath}/%{name}-root
-
-%description
-OpenVista is a cost-effective, open, trusted and complete EHR which enhances
-patient safety, increases clinical and operational efficiency and provides an
-opportunity to improve quality of care delivery.
-
-This package provides a configuration file for the Apache web server to enable
-WebDAV.  WebDAV is used by OpenVista's document imaging feature.
-
-%prep
-
-%build
-
-%install
-rm -rf %{buildroot}
-
-install -d %{buildroot}%{_sysconfdir}/httpd/conf.d
-install %{SOURCE0} %{buildroot}%{_sysconfdir}/httpd/conf.d/
-
-install -d %{buildroot}%{_sysconfdir}/httpd/conf
-touch %{buildroot}%{_sysconfdir}/httpd/conf/webdav.htpasswd
-
-install -d %{buildroot}/var/www/html/webdav
-
-%clean
-rm -rf %{buildroot}
-
-%files
-%defattr(-,root,root)
-%{_sysconfdir}/httpd/conf.d/webdav.conf
-%{_sysconfdir}/httpd/conf/webdav.htpasswd
-%dir /var/www/html/webdav
-
-%post
-/sbin/service httpd reload > /dev/null 2>&1 || :
-
-%postun
-if [ $1 = 0 ]; then
-    /sbin/service httpd reload > /dev/null 2>&1 || :
-fi
-

=== modified file 'rpmbuild.sh'
--- rpmbuild.sh	2009-04-22 04:16:31 +0000
+++ rpmbuild.sh	2009-04-30 06:48:24 +0000
@@ -40,7 +40,7 @@
     cp -f "$dir/packages/rpm/$package.spec" "$topdir/SPECS/"
 
     case $package in
-        openvista-utils|openvista-libs)
+        openvista-utils)
             # create source tarabll
             rm -rf "$topdir/SOURCES/${package}-$version"
             cp -R "$dir" "$topdir/SOURCES/${package}-$version"
@@ -49,15 +49,19 @@
             tar -c --bzip2 -f "$topdir/SOURCES/${package}-$version.tar.bz2" -C "$topdir/SOURCES" "${package}-$version"
             rm -rf "$topdir/SOURCES/${package}-$version"
 
-            ( cd "$topdir/SPECS" && rpmbuild -ba "$package.spec" )
-            ;;
-        openvista-webdav-config)
             cp -f "$dir/packages/rpm/webdav.conf" "$topdir/SOURCES/"
+            cp -f "$dir/packages/rpm/openvista" "$topdir/SOURCES/"
 
             ( cd "$topdir/SPECS" && rpmbuild -ba "$package.spec" )
             ;;
-        putty-tools)
-            # assume sources are already present
+        openvista-libs*)
+            # create source tarabll
+            rm -rf "$topdir/SOURCES/${package}-$version"
+            cp -R "$dir" "$topdir/SOURCES/${package}-$version"
+            rm -rf "$topdir/SOURCES/${package}-$version/.bzr"
+            rm -f "$topdir/SOURCES/${package}-$version.tar.bz2"
+            tar -c --bzip2 -f "$topdir/SOURCES/${package}-$version.tar.bz2" -C "$topdir/SOURCES" "${package}-$version"
+            rm -rf "$topdir/SOURCES/${package}-$version"
 
             ( cd "$topdir/SPECS" && rpmbuild -ba "$package.spec" )
             ;;
@@ -67,6 +71,11 @@
             # this package must be built as root; assume sudo does not require a password
             ( cd "$topdir/SPECS" && sudo rpmbuild -ba "$package.spec" )
             ;;
+        putty-tools)
+            # assume sources are already present
+
+            ( cd "$topdir/SPECS" && rpmbuild -ba "$package.spec" )
+            ;;
     esac
 done
 

=== modified file 'scripts/usr/lib/openvista/functions'
--- scripts/usr/lib/openvista/functions	2009-04-17 05:09:55 +0000
+++ scripts/usr/lib/openvista/functions	2009-04-30 06:48:24 +0000
@@ -54,7 +54,7 @@
     gtmgbldir="$root/$instance/globals/mumps.gld"
     gtm_zinterrupt='I $$JOBEXAM^ZU($ZPOSITION)'
     gtm_prompt=`echo "$instance>" | tr '[:lower:]' '[:upper:]'`
-    GTMXC_openvista='/usr/share/openvista/openvista.xc'
+    GTMXC_openvista="$root/$instance/gtm/openvista.xc"
     PATH="$PATH:$root/$instance/gtm"
 
     export gtm_dist

=== modified file 'scripts/usr/sbin/ovinstanceadd'
--- scripts/usr/sbin/ovinstanceadd	2009-04-23 23:19:47 +0000
+++ scripts/usr/sbin/ovinstanceadd	2009-04-30 17:08:04 +0000
@@ -119,6 +119,21 @@
     exit 1
 fi
 
+grep "^apache:" /etc/passwd > /dev/null || {
+    echo "ovinstanceadd: user 'apache' not found in /etc/passwd" >&2
+    exit 1
+}
+
+if [ ! -d "/var/www/html/webdav" ]; then
+    echo "ovinstanceadd: /var/www/html/webdav does not exist" >&2
+    exit 1
+fi
+
+if [ ! -f "/etc/httpd/conf/webdav.htpasswd" ]; then
+    echo "ovinstanceadd: /etc/httpd/conf/webdav.htpasswd does not exist" >&2
+    exit 1
+fi
+
 {
     # use mkdir to create the instance root because it will fail if the
     # directoy already exists - this avoids a race condition.  Also, creating
@@ -296,28 +311,24 @@
     exit 1
 }
 
-if grep "^apache:" /etc/passwd > /dev/null && [ -d "/var/www/html/webdav" ]; then
-    install -o apache -g apache -m 755 -d "/var/www/html/webdav/$instance" || {
-        echo "ovinstanceadd: Unable to create webdav root" >&2
-        exit 1
-    }
-
-    ln -s "/var/www/html/webdav/$instance" "$root/$instance/images"
-fi
-
-if [ -x /usr/bin/htpasswd ] && [ -f /etc/httpd/conf/webdav.htpasswd ]; then
-    (
-        umask 077
-        tr -dc '_A-Z-a-z-0-9' < /dev/urandom | head -c16 > "$root/$instance/etc/$instance-webdav_password"
-    )
-    [ -f "$root/$instance/etc/$instance-webdav_password" ] || {
-        echo "ovinstanceadd: Unable to generate WebDAV password" >&2
-        exit 1
-    }
-
-    htpasswd -b -m "/etc/httpd/conf/webdav.htpasswd" "$instance" "`cat \"$root/$instance/etc/$instance-webdav_password\"`" > /dev/null 2>&1 || {
-        echo "ovinstanceadd: Unable to update /etc/httpd/conf/webdav.htpasswd" >&2
-        exit 1
-    }
-fi
+install -o apache -g apache -m 755 -d "/var/www/html/webdav/$instance" || {
+    echo "ovinstanceadd: Unable to create webdav root" >&2
+    exit 1
+}
+
+ln -s "/var/www/html/webdav/$instance" "$root/$instance/images"
+
+(
+    umask 077
+    tr -dc '_A-Z-a-z-0-9' < /dev/urandom | head -c16 > "$root/$instance/etc/$instance-webdav_password"
+)
+[ -f "$root/$instance/etc/$instance-webdav_password" ] || {
+    echo "ovinstanceadd: Unable to generate WebDAV password" >&2
+    exit 1
+}
+
+htpasswd -b -m "/etc/httpd/conf/webdav.htpasswd" "$instance" "`cat \"$root/$instance/etc/$instance-webdav_password\"`" > /dev/null 2>&1 || {
+    echo "ovinstanceadd: Unable to update /etc/httpd/conf/webdav.htpasswd" >&2
+    exit 1
+}
 

=== modified file 'scripts/usr/sbin/ovinstancedel'
--- scripts/usr/sbin/ovinstancedel	2009-04-22 04:16:31 +0000
+++ scripts/usr/sbin/ovinstancedel	2009-04-30 17:08:04 +0000
@@ -92,6 +92,11 @@
     exit 1
 fi
 
+if [ ! -f "/etc/httpd/conf/webdav.htpasswd" ]; then
+    echo "ovinstancedel: /etc/httpd/conf/webdav.htpasswd does not exist" >&2
+    exit 1
+fi
+
 $skip_confirmation || {
     echo "All routines, database files, journals, backups, tied accounts, and images" >&2
     echo "associated with '$instance' will be PERMANENTLY deleted." >&2
@@ -143,12 +148,10 @@
     exit 1
 }
 
-if [ -x /usr/bin/htpasswd ] && [ -f /etc/httpd/conf/webdav.htpasswd ]; then
-    htpasswd -D "/etc/httpd/conf/webdav.htpasswd" "$instance" > /dev/null 2>&1 || {
-        echo "ovinstancedel: Unable to update /etc/httpd/conf/webdav.htpasswd" >&2
-        exit 1
-    }
-fi
+htpasswd -D "/etc/httpd/conf/webdav.htpasswd" "$instance" > /dev/null 2>&1 || {
+    echo "ovinstancedel: Unable to update /etc/httpd/conf/webdav.htpasswd" >&2
+    exit 1
+}
 
 rm -rf "/var/www/html/webdav/$instance" || {
     echo "ovinstancedel: Unable to remove WebDAV root" >&2

=== modified file 'src/libopenvista/compile.sh'
--- src/libopenvista/compile.sh	2009-04-23 05:09:48 +0000
+++ src/libopenvista/compile.sh	2009-04-30 06:54:29 +0000
@@ -18,6 +18,6 @@
 # Oaks Way, Suite 200, Carlsbad, CA 92008 or at [e-mail]. 
 
 gcc -c -FPIC myconv.c
-gcc -c -FPIC dopam.c
+gcc -c -FPIC -I /opt/lsb-gtm/V5.3-003_i686 dopam.c
 gcc -c -FPIC -I /opt/lsb-gtm/V5.3-003_i686 gtmserver.c
 gcc -o libopenvista.so -shared myconv.o dopam.o gtmserver.o -lpam

=== modified file 'src/libopenvista/dopam.c'
--- src/libopenvista/dopam.c	2009-02-18 08:00:39 +0000
+++ src/libopenvista/dopam.c	2009-04-30 06:54:29 +0000
@@ -22,10 +22,11 @@
 #include <security/pam_appl.h>
 
 #include "authdata.h"
+#include "gtmxc_types.h"
 
 extern int myconv(int n, const struct pam_message **msg, struct pam_response **resp, void *data);
 
-int dopam(int count, char *user, char *password, char *pam_mod)
+xc_long_t dopam(int count, char *user, char *password, char *pam_mod)
 {
   int pam_err;
   pam_handle_t *pamh;

=== modified file 'src/libopenvista/openvista.xc'
--- src/libopenvista/openvista.xc	2009-04-23 04:45:12 +0000
+++ src/libopenvista/openvista.xc	2009-04-30 06:48:24 +0000
@@ -1,3 +1,3 @@
-/usr/lib/openvista/libopenvista.so
+/opt/lsb-gtm/V5.3-003_i686/libopenvista.so
 dopam: xc_long_t dopam(I:xc_char_t*, I:xc_char_t*, I:xc_char_t*)
 gtmserver: xc_long_t gtmserver(I:xc_long_t, I:xc_char_t*)

=== added directory 'src/suidwrapper'
=== added file 'src/suidwrapper/compile.sh'
--- src/suidwrapper/compile.sh	1970-01-01 00:00:00 +0000
+++ src/suidwrapper/compile.sh	2009-04-30 03:43:02 +0000
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+gcc -O2 gtmsignal.c -o gtmsignal

=== added file 'src/suidwrapper/gtmsignal.c'
--- src/suidwrapper/gtmsignal.c	1970-01-01 00:00:00 +0000
+++ src/suidwrapper/gtmsignal.c	2009-05-01 16:09:10 +0000
@@ -0,0 +1,184 @@
+#include <stdio.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <getopt.h>
+#include <limits.h>
+#include <dirent.h>
+#include <string.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+
+#define MUPIP_CMD "mupip"
+#define MUMPS_CMD "mumps"
+
+char mupip[PATH_MAX+1];
+char mumps[PATH_MAX+1];
+int quiet = 0;
+
+#define ERR_PRINT(...) if (!quiet) fprintf( stderr, __VA_ARGS__ )
+
+int is_int( char *str ) {
+  long long_val;
+  char *end_ptr;
+  if (!str) {
+    return -1;
+  }
+  end_ptr = str;
+  long_val = strtol( str, &end_ptr, 10 );
+  if (end_ptr==str || *end_ptr!='\0' || long_val>INT_MAX || long_val<INT_MIN) {
+    return 0;
+  }
+  return 1;
+}
+
+void send_signal_to_id( char* id, int do_stop ) {
+  int child_pid;
+  if (!(child_pid=fork())) {
+    /* suppress warnings and messages from mupip */
+    int fd = open("/dev/null", O_RDWR);
+    if (-1 != fd) {
+      dup2(fd, STDIN_FILENO);
+      dup2(fd, STDOUT_FILENO);
+      dup2(fd, STDERR_FILENO);
+      close( fd );
+    }
+    if (-1 == execl( mupip, mupip, do_stop ? "stop" : "intrpt", id, (char*)0 ) ) {
+      ERR_PRINT( "Error invoking mupip command.\n" );
+      exit( -1 );
+    }
+  } else {
+    waitpid( child_pid, 0, 0 );
+  }
+}
+
+int is_mumps_process( char *id ) {
+  char pid_exe[PATH_MAX+1];
+  char target[PATH_MAX+1];
+  int size;
+  sprintf( pid_exe, "/proc/%s/exe", id );
+  size = readlink(pid_exe, target, PATH_MAX);
+  target[size] = '\0';
+  return !strcmp(target, mumps);
+}
+
+void send_signal_to_ids( char **ids, int do_stop ) {
+  int i;
+  for (i=0; ids[i]; ++i) {
+    if (is_mumps_process(ids[i])) {
+      send_signal_to_id( ids[i], do_stop );
+    }
+  }
+}
+
+void send_signal_to_all( int do_stop ) {
+  struct dirent *dir_entry;
+  FILE *fp;
+  char *open_paren, *close_paren, *space;
+  DIR *dir = opendir("/proc");
+  if (dir) {
+    while ( dir_entry = readdir(dir) ) {
+      if (is_int(dir_entry->d_name) && is_mumps_process(dir_entry->d_name)) {
+        send_signal_to_id( dir_entry->d_name, do_stop );
+      }
+    }
+    closedir( dir );
+  }
+}
+
+void find_paths() {
+  char proc_exe[PATH_MAX];
+  ssize_t size;
+  int pid = getpid();
+  struct stat status;
+  sprintf(proc_exe, "/proc/%d/exe", pid);
+  size = readlink(proc_exe, mupip, PATH_MAX+1);
+  if (0>=size) {
+    ERR_PRINT( "Could not determine where to find %s.\n", MUMPS_CMD );
+    exit( -1 );
+  }
+  mupip[size]='\0';
+  strcpy(mumps, mupip);
+  strcpy(strrchr(mupip, '/')+1, MUPIP_CMD);
+  strcpy(strrchr(mumps, '/')+1, MUMPS_CMD);
+  if (-1 == stat(mupip, &status)) {
+    ERR_PRINT( "Could not find '%s'.\n", mupip );
+    exit( -1 );
+  }
+}
+
+void print_usage(FILE *fp, const char* name) {
+  fprintf( fp, "Usage: %s [OPTION] [pid]...\n", name );
+  fprintf( fp, "Send mupip STOP or INTRPT to GT.M processes.\n" );
+  fprintf( fp, "\nOptions\n" );
+  fprintf( fp, "  -a, --all    send signal to all GT.M processes\n" );
+  fprintf( fp, "  -s, --stop   send STOP instead of INTRPT\n" );
+  fprintf( fp, "  -h, --help   print this help\n" );
+  fprintf( fp, "  -q, --quite  quiet; do not display warnings\n" );
+}
+
+int main( int argc, char **argv ) {
+  int do_stop = 0;
+  int all = 0;
+  char **pids = 0;
+  int array_index = 0;
+
+  find_paths();
+  while (1) {
+    static struct option long_options[] = 
+    {
+      {"stop", no_argument, 0, 's'},
+      {"all", no_argument, 0, 'a'},
+      {"quiet", no_argument, 0, 'q'},
+      {"help", no_argument, 0, 'h'},
+      {0, 0, 0, 0}
+    };
+    int c = getopt_long( argc, argv, "saqh", long_options, 0 );
+    if (c==-1)
+      break;
+      switch (c) {
+      case 's':
+        do_stop = 1;
+        break;
+      case 'a':
+        all = 1;
+        break;
+      case 'q':
+        quiet = 1;
+        break;
+      case 'h':
+        print_usage(stdout, argv[0]);
+        exit( 0 );
+      case '?':
+        print_usage(stderr, argv[0]);
+        exit(-1);
+      default:
+        abort();
+    }
+  }
+
+  if (optind < argc && !all) {
+    pids = malloc((argc-optind+1)*sizeof(char*));
+    pids[argc-optind] = 0;
+    while (optind < argc) {
+      if (!is_int(argv[optind])) {
+        ERR_PRINT( "Invalid process number '%s'.\n", argv[optind] );
+        exit( -1 );
+      }
+      pids[array_index++] = argv[optind];
+      ++optind;
+    }
+  }
+
+  if (all) {
+    send_signal_to_all( do_stop );
+  } else if (pids) {
+    send_signal_to_ids( pids, do_stop );
+    free( pids );
+  } else {
+    ERR_PRINT( "No process IDs were given.\n" );
+    exit( -1 );
+  }
+
+  return 0;
+}
+