MWWWW - GNU HTTP Integration Toolset for Pick/MV

	Welcome to the MVWWW Home Page

What exactly is MVWWW, you ask? An HTTP Integration toolkit/API designed for use with multi-valued database management systems. Utilization of 'tried and true' Xinetd or Inetd service handler, for socket management. Non-*nix O/S ports of this service are available. Utilization of file queueing, for cross-flavor portability. Utilization of the standardized CGI environment, cross-platform compatible Perl or C coding, and standard TCP/IP sockets. Easy to implement API, with subroutines to call for web content display/output, obtaining form values, and setting browser pragma.
So, what exactly do I need, to get this running? A copy of OpenQM, D3, or Universe and a supported operating system to run it on. A web server that is CGI compliant and Perl 5.x to run the Perl script. Xinetd, Inetd, or some kind of standard I/O based socket service. An example configuration is currently provided for Xinetd.
What does the code look like for the API? Hello World Example: .001 SUBROUTINE HELLOWORLD .002 INCLUDE MVWINCLUDE .003 CALL HTTPWRITE("<HTML>") .004 CALL HTTPWRITE("<BODY BGCOLOR=#FFFFFF TEXT=#000000>") .005 CALL HTTPWRITE("<BR><BR>Hellow World!<BR>") .006 CALL HTTPWRITE("</BODY>") .007 CALL HTTPWRITE("</HTML>") .008 RETURN Pragma setting example .001 SUBROUTINE PRAGMATEST .002 INCLUDE MVWINCLUDE .003 CALL SETPRAGMA("Content-type: application/msword") .004 CALL HTTPWRITE("Hellow World!") .005 CALL HTTPWRITE(CHAR(13):CHAR(10)) .006 CALL HTTPWRITE("Hellow World Again!") .007 RETURN HTML Form Processing .001 SUBROUTINE FORMTEST .002 INCLUDE MVWINCLUDE .003 CALL GETFORMVAL("field1", FIELD1) .004 CALL GETFORMVAL("field2", FIELD2) .005 CALL GETFORMVAL("field3", FIELD3) .006 CALL HTTPWRITE("<HTML>") .007 CALL HTTPWRITE("<BODY BGCOLOR=#FFFFFF TEXT=#000000>") .008 CALL HTTPWRITE("<BR>":FIELD1:"<BR>":FIELD2:"<BR>":FIELD3:"<BR>") .009 CALL HTTPWRITE("</BODY>") .010 CALL HTTPWRITE("</HTML>") .011 RETURN Using Static Templates for Dynamic Output .001 SUBROUTINE TESTTEMPLATE .002 INCLUDE MVWBP MVWINCLUDE .003 CALL SETTEMPLATE("CGIAPP","mvwww.cgi") .004 CALL SETTEMPLATE("MVWAPP","testtemplate") .005 CALL SETTEMPLATE("ROW1","testing row 1") .006 CALL SETTEMPLATE("ROW2","testing row 2") .007 CALL USETEMPLATE("test.html",ERROR) .008 RETURN ------------------------------------------------- Static Template Code ------------------------------------------------- <HTML> <BODY BGCOLOR=#FFFFFF TEXT=#000000> <FORM ACTION="%%CGIAPP%%" METHOD=POST> <INPUT TYPE=HIDDEN NAME="mvwrun" VALUE="%%MVWAPP%%"> <TABLE BORDER=1 CELLPADDING=1 CELLSPACING=1> <TR><TD>%%ROW1%%</TD></TR> <TR><TD>%%ROW2%%</TD></TR> </TABLE> </FORM> </BODY> </HTML>

Get It Now.

Go To PickSource, for other Pick snippets and related content.