Start Socket Server

[Enzo]

Hello again,

what is the best method for start a Socket Server routine in
a linux server? I need run this routine when the Linux box
start every morning.

Now, I use the mumps -r ^ROUTINE, but only for test purposes.

It's posibly run as a service in xinetd?

Thanks in advance,

Enzo

[K.S. Bhaskar]

Take a look at the VistA VA Demo Toaster posted at http://sourceforge.net/projects/worldvista to see how mumps -run GTMLNX^XWBTCPM is started up by inetd when a connection request comes in at port 9297.  Look at files /etc/services, /etc/inetd.conf and /var/VAVistADemo20060926/gtm_V5.2-000/cprs_direct.

Regards
-- Bhaskar

[Enzo]

Hi Bhaskar,
I couldn't download the file because this are too big.
Is there any link to get it via ftp, with resume option
for break connections?

thanks and kind regards,

Enzo

[K.S. Bhaskar]

Enzo --

I am sure that there are utilities to download files resuming after lost connections, but I do not know what they are.  If you send me your mailing address at bhaskar at users dot sourceforge dot net, I can mail you a CD.  However the following should cover the essentials:

bash-2.05b# tail -6 /etc/services
dircproxy       57000/tcp                       # Detachable IRC Proxy
tfido           60177/tcp                       # fidonet EMSI over telnet
fido            60179/tcp                       # fidonet EMSI over telnet

# Locally defined - for VistA CPRS GUI
cprs-gui        9297/tcp                        # direct connect VistA CPRS GUI
bash-2.05b# tail -6 /etc/inetd.conf

vboxd   stream  tcp     nowait  root    /usr/sbin/tcpd  /usr/sbin/vboxd

# Local services - allow VistA CPRS GUI to connect
cprs-gui        stream  tcp     nowait  dsl     /home/dsl/myVistA/gtm_V5.2-000/cprs_direct
bash-2.05b# cat /home/dsl/myVistA/gtm_V5.2-000/cprs_direct
#!/bin/bash
#
# cprs_direct - start a process to serve the CPRS Gui client

# Set up the environment for VistA
export HOME=/home/`whoami`
cd `dirname $0`
source ./env

# Run the server for the CPRS GUI client
cd ../tmp
mumps -run GTMLNX^XWBTCPM
bash-2.05b#

Regards
-- Bhaskar

[Enzo]

Hello Bhaskar,

I have modified the inetd.conf and the services files for calling
my mumps script:

inetd.conf:
gtm-web        stream    tcp    nowait    gtm    /home/gtm/m_script

services:
gtm-web        11111/tcp  # sockets server

m_script:
#!/bin/bash
gtm_dist=/usr/local/gtm
export gtm_dist
gtmroutines="/home/gtm/ .  $gtm_dist"
export gtmroutines
gtmgbldir=/home/gtm/mumps.gld
export gtmgbldir
PATH=$PATH:$gtm_dist
export PATH
EDITOR=/usr/bin/mcedit
export EDITOR
cd /home/gtm
mumps -run W

If I run this script manually, thats rules fine, but
when I call the php script from a web page to request data through the 11111 port
I receive the message: '%GTM-F-FORCEDHALT, Image HALTed by MUPIP STOP'
and the mozilla hangs until the mumps process ends (KILL).

Any idea?

Thank you again!!

Enzo

[Enzo]

This routine, called via inetd, never makes the OPEN in W+8 ... why?

The socket server routine:

W   ;*** Socket Server ***
    N cmd,d,dat,dev,i,l,log,por,sck,tim
    K ^LOG
    S $ZTRAP="ZGOTO "_$ZLEVEL_":ERR"
    S por=11111
    S tim=30
    S log=1
    S dev="SCK$"_$J
    O dev:(ZLISTEN=por_":TCP":DELIMITER=$C(13):ATTACH="listener"):tim:"SOCKET" E  Q
    U dev
    W /LISTEN(1)
E   ;
    U dev:(SOCKET="listener")
    F  W /WAIT(tim) Q:$KEY'=""
    S cmd=$P($KEY,"|",1),sck=$P($KEY,"|",2)
    I cmd="CONNECT" G E
    I cmd'="READ" G E
    U dev:(SOCKET=sck:EXCEPTION="G ERR")
    R dat:tim
    I $DEVICE C dev:(SOCKET=sck) D LOG("Error: $DEVICE="_$DEVICE) G E
    I $KEY'=$C(13) G E
    I log D LOG(dat)
    S cmd=$P(dat," "),dat=$P(dat," ",2,32767)
    I cmd="get" W @dat,! C dev:(SOCKET=sck) G E
    I cmd="xec" X @dat C dev:(SOCKET=sck) G E
    I cmd="do"  D @dat C dev:(SOCKET=sck) G E
    G E
LOG(t) ;===== Login =====
    S ^LOG($H)=$G(t)
    Q
ERR ;===== Error =====
    D LOG($ZSTATUS)
    C dev:(SOCKET=sck)
    G E

[Sam Weiner]

When started by inetd, $PRINCIPAL is set to the socket passed
by inetd so it doesn't need to be opened though a USE to set
up delimiters and other device parameters is.  $KEY will
contain "ESTABLISHED|socket_handle|remote_ip_address".

Trying to open a socket on the same port inetd is serving
will cause interference.

The "%GTM-F-FORCEDHALT, Image HALTed by MUPIP STOP"
message means a SIGTERM was sent to the GT.M process.

Sam

[Enzo]

Hallo Sam,

thanks for your response!
With only 'USE' the socket, the routine works fine.

Cheers,

Enzo