D3WWW - GNU HTTP Integration Toolset for D3/Pick

	Welcome to the D3WWW Home Page

*Updated 06/24/04 - Get/Store Cookies, C-based CGI app, and pseudo T-LOAD.*

What exactly is D3WWW, you ask? An HTTP Integration toolkit/API originally designed for use with RainingData's D3. 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 command line TCL features of D3: simple PickBASIC coding, reliable connections, and user license friendly. Utilization of the standardized CGI environment, cross-platform compatible Perl coding, and standard TCP/IP sockets. Easy to implement API, with subroutines to call for web content display/output, obtaining form values, setting browser pragma, and setting/retrieving cookies.
So, what exactly do I need, to get this running? A licensed copy of D3 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. You can also opt to run the C-based CGI program, if you have a C compiler installed to compile the source. Xinetd, Inetd, or some kind of standard I/O based socket service to call D3. An example configuration is currently provided for Xinetd. A PC with a terminal emulator, so you can copy and paste the source into the appropriate D3 apps. You can also opt to download the pseudo file and perform a T-LOAD.
What does the code look like for the API? Hello World Example: .001 SUBROUTINE HELLOWORLD .002 INCLUDE D3WINCLUDE .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 D3WINCLUDE .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 Cookie set and read example .001 SUBROUTINE TESTCOOKIE .002 INCLUDE D3WINCLUDE .003 CNAME = "test-cookie" .004 CVALUE = "1a2b3c4d5e" .005 EXPDATE = DATE() + 30 .006 EXPTIME = TIME() + 5 .007 SECURE = 0 .008 PATH = "/" .009 DOMAIN = "mydomainname.com" .010 CALL SETCOOKIE(CNAME,CVALUE,EXPDATE,EXPTIME,SECURE,PATH,DOMAIN) .011 COOKIEVAL = "" .012 COOKIENAME = CNAME .013 CALL GETCOOKIE(COOKIENAME,COOKIEVAL) .014 CALL HTTPWRITE("<HTML>") .015 CALL HTTPWRITE("<BODY BGCOLOR=#FFFFFF TEXT=#000000>") .016 CALL HTTPWRITE("COOKIE: ":COOKIENAME:" = ":COOKIEVAL) .017 CALL HTTPWRITE("</BODY></HTML>") HTML Form Processing .001 SUBROUTINE PRAGMATEST .002 INCLUDE D3WINCLUDE .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

Get It Now.

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