https://pickwiki.org/index.php?action=history&feed=atom&title=CGI.MASTERCGI.MASTER - Revision history2026-04-29T00:35:33ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=CGI.MASTER&diff=1672&oldid=prevConversion script: link fix2015-02-26T23:48:54Z<p>link fix</p>
<p><b>New page</b></p><div>HomePage>>SourceCode>>[[PerlSource]]<br />
<br />
A program that listens on a named pipe for requests, converts parameters from key=value pairs into a dynamic array and calls a subroutine to actually create some HTML. Phew! Is it really worth it?<br />
<br />
<pre><br />
sunset /info[[/DEVEL/BP]].DEV> cat CGI.MASTER<br />
***************************************************************************<br />
* Program: CGI.MASTER<br />
* Author : Ian [[McGowan]]<br />
* Date : 01/06/1997<br />
* Edited : 16:57:35 Aug 03 2000 By MGC <br />
* Comment: Klugy web <> unidata interface<br />
***************************************************************************<br />
* 04/29/1998 IAN Added code to check for already running phantom<br />
* 04/23/1998 IAN Modified to use named pipes, instead of polling<br />
* 11/08/1998 IAN Modified to use consistent delimeter (LF)<br />
<br />
* @AM seperates records in the input<br />
* @VM seperates fields in a record<br />
<br />
ACC=FIELD(@SENTENCE,' ',2)<br />
IF ACC = '' THEN<br />
PRINT 'MUST SPECIFY AN ACCOUNT!' ; STOP<br />
END<br />
<br />
* Check to see if we're already running in this account<br />
MY.PID=@USERNO<br />
OSREAD OLD.PID FROM "/samba_share/web/":ACC THEN<br />
PRINT "Checking to see if process alive: ":OLD.PID:<br />
EXECUTE \!ps -ef | awk '{print $2}' | grep \:OLD.PID CAPTURING OUTPUT<br />
IF OUTPUT # "" THEN<br />
PRINT 'Phantom is already running as PID ':OLD.PID<br />
PRINT 'Use stopcgi ':ACC:' to stop it'<br />
PRINT 'and startcgi ':ACC:' to start it'<br />
STOP<br />
END<br />
PRINT " Not!"<br />
END<br />
PRINT "CGI.MASTER started as PID:":MY.PID<br />
PRINT TIMEDATE()<br />
OSWRITE MY.PID ON "/samba_share/web/":ACC<br />
<br />
INPUT.FILE="/samba_share/web/in/":ACC:"/in_from_perl"<br />
OPEN "VOC" TO VOC ELSE STOP 201, "VOC"<br />
<br />
LOOP<br />
OSREAD REQUEST FROM INPUT.FILE ON ERROR REQUEST='' ELSE REQUEST=""<br />
<br />
IF REQUEST = '' THEN<br />
* Slow it down if out of control<br />
PRINT 'NULL REQUEST - ':TIMEDATE()<br />
SLEEP 1<br />
END ELSE<br />
GOSUB PROCESS.REQUEST<br />
END<br />
REPEAT<br />
STOP<br />
<br />
PROCESS.REQUEST:<br />
* The calling program sends us the location to put the output file<br />
OUTPUT.FILE=REQUEST<1><br />
OUTPUT='CGI.MASTER: Internal CGI error'<br />
COMMAND=''<br />
KEY.REC='' ; VALUE.REC=''<br />
I=DCOUNT(REQUEST,@AM)<br />
FOR F=2 TO I<br />
L=REQUEST<F><br />
KEY=FIELD(L,'=',1)<br />
VALUE=FIELD(L,'=',2,999)<br />
BEGIN CASE<br />
CASE KEY='command'<br />
COMMAND=VALUE<br />
CASE 1<br />
KEY.REC<-1>=KEY<br />
VALUE.REC<-1>=VALUE<br />
END CASE<br />
NEXT F<br />
IF COMMAND = '' THEN<br />
OUTPUT='CGI.MASTER: No command received'<br />
END ELSE<br />
READV DUMMY FROM VOC, COMMAND, 1 THEN<br />
* Verify that subroutine exists<br />
IF DUMMY='C' THEN<br />
* This next line means we will run the new version of any recompiled subs<br />
* adding a small amount of overhead to each call...<br />
EXECUTE \NEWPCODE\<br />
CALL @COMMAND(VALUE.REC,KEY.REC,OUTPUT)<br />
END ELSE<br />
OUTPUT='CGI.MASTER: ':COMMAND:" is a VOC item, not a subroutine"<br />
END<br />
END ELSE<br />
OUTPUT='CGI.MASTER: ':COMMAND:" is not a cataloged subroutine"<br />
END<br />
END<br />
OSWRITE OUTPUT ON OUTPUT.FILE<br />
RETURN<br />
</pre></div>Conversion script