Janus Web Server application example - Revision history

JAL: minor cleanup

2016-04-07T20:58:57Z

minor cleanup

← Older revision		Revision as of 20:58, 7 April 2016
Line 1:		Line 1:
	The code for the following sample Web application is in file <var>SIRIUS</var>		The code for the following sample Web application is in file <var>SIRIUS</var>
	~~(file <var>JANUS</var>, if prior to <var class="product">Sirius Mods</var> version 6.8)~~		on the Sirius product tape, which should be installed in the <var class="product">Janus Web Server</var> Online.
	on the Sirius product tape, which should be installed in the <var class="product">Janus Web Server</var> ~~online.~~

	~~Several more examples of web applications are provided on the [http://www.sirius-software.com/demo.html Sirius web site]~~.

	__TOC__		__TOC__
Line 19:		Line 16:
	Sirius [[List_of_$functions\|$functions]], such as those for creating and manipulating		Sirius [[List_of_$functions\|$functions]], such as those for creating and manipulating
	[[$lists]] which provide a useful way to manipulate arrays of data.		[[$lists]] which provide a useful way to manipulate arrays of data.
	~~These functions are available as a separately purchased option.~~

	<p class="code">PROCEDURE DEMO_COMMAND		<p class="code">PROCEDURE DEMO_COMMAND
Line 130:		Line 126:
	==Sample configuration deck==		==Sample configuration deck==
	This is a sample set of <var>JANUS</var> subcommands that define a web server.		This is a sample set of <var>JANUS</var> subcommands that define a web server.
	These commands are described further in [[Defining Web rules~~\|"Defining Web rules"~~]].		These commands are described further in [[Defining Web rules]].
	<p class="code">* If the port is running, stop it and delete it.		<p class="code">* If the port is running, stop it and delete it.

Line 214:		Line 210:

	</p>		</p>
	For more configuration commands, see [[Defining Web rules~~\|"Defining Web rules"~~]].		<p>
			For more configuration commands, see [[Defining Web rules]]. </p>

	[[Category: Janus Web Server]]		[[Category: Janus Web Server]]

JAL: /* Sample application: command processor */

2012-10-30T00:16:32Z

Sample application: command processor

← Older revision		Revision as of 00:16, 30 October 2012
Line 23:		Line 23:
	<p class="code">PROCEDURE DEMO_COMMAND		<p class="code">PROCEDURE DEMO_COMMAND

	* Submit a command-level command to ~~<var class="product">~~Model 204~~</var>~~.		* Submit a command-level command to Model 204.

	* This sample program provides both the form and the		* This sample program provides both the form and the
Line 127:		Line 127:
	END PROCEDURE DEMO_COMMAND		END PROCEDURE DEMO_COMMAND
	</p>		</p>

	==Sample configuration deck==		==Sample configuration deck==
	This is a sample set of <var>JANUS</var> subcommands that define a web server.		This is a sample set of <var>JANUS</var> subcommands that define a web server.

JALWiccan: 1 revision

2012-10-30T00:09:06Z

1 revision

← Older revision	Revision as of 00:09, 30 October 2012
(No difference)

JAL2 at 00:08, 30 October 2012

2012-10-30T00:08:55Z

← Older revision		Revision as of 00:08, 30 October 2012
Line 23:		Line 23:
	<p class="code">PROCEDURE DEMO_COMMAND		<p class="code">PROCEDURE DEMO_COMMAND

	* Submit a command-level command to Model 204.		* Submit a command-level command to <var class="product">Model 204</var>.

	* This sample program provides both the form and the		* This sample program provides both the form and the

JAL2 at 00:33, 16 March 2012

2012-03-16T00:33:05Z

← Older revision		Revision as of 00:33, 16 March 2012
Line 183:		Line 183:
	JANUS WEB JANWEB ON / SEND HTML_MAIN		JANUS WEB JANWEB ON / SEND HTML_MAIN
	JANUS WEB JANWEB ON /JANUS SEND HTML_MAIN		JANUS WEB JANWEB ON /JANUS SEND HTML_MAIN

	* These re-mappings aren't really necessary, they are		* These re-mappings aren't really necessary, they are
	* just done so Model 204 procedures that have similar		* just done so Model 204 procedures that have similar

JAL2: Created page with "The code for the following sample Web application is in file `SIRIUS` (file `JANUS`, if prior to `Sirius Mods` version 6.8) on the Siri..."

2012-02-24T00:23:56Z

Created page with "The code for the following sample Web application is in file <var>SIRIUS</var> (file <var>JANUS</var>, if prior to <var class="product">Sirius Mods</var> version 6.8) on the Siri..."

New page

The code for the following sample Web application is in file <var>SIRIUS</var>
(file <var>JANUS</var>, if prior to <var class="product">Sirius Mods</var> version 6.8)
on the Sirius product tape, which should be installed in the <var class="product">Janus Web Server</var> online.

Several more examples of web applications are provided on the [http://www.sirius-software.com/demo.html Sirius web site].

__TOC__

==Sample application: command processor==
This sample application demonstrates a simple way to execute <var class="product">Model 204</var>
commands from a web browser.
While this is a modest use of the <var class="product">Web Server</var>, and one that you may not ever implement in a production
application system, it presents an example whose purpose is readily understood.
More important, it describes the use of forms for obtaining
and processing user input and demonstrates the common processes used in
a simple web server program.

Note that this example does take advantage of several special purpose
Sirius [[List_of_$functions|$functions]], such as those for creating and manipulating
[[$lists]] which provide a useful way to manipulate arrays of data.
These functions are available as a separately purchased option.

<p class="code">PROCEDURE DEMO_COMMAND

* Submit a command-level command to Model 204.

* This sample program provides both the form and the
* response to the form. You determine whether a user is
* getting a form or submitting it by querying the
* 'METHOD' parameter in the form's header (using
* $Web_Hdr_Parm). If METHOD=POST, you are supposed
* to respond to the user's request.

Begin

* Declare and initialize.

%listo is float
%rc is float
%x is float

%cform is string len 10
%command is string len 100
%listo = $listnew

* Set the global "TITLE" and use $Web_Sub to make it
* appear on the page.

%rc = $setg('TITLE', -
'Data Access Demonstrations /' -
WITH ' Janus Web Server' )
%rc = $web_type('TEXT/HTML')
%rc = $web_sub('@@')

* Route terminal output to the user.

%rc = $web_on

* Get the value of the form parameter 'CFORM'.

%cform = $upcase($web_form_parm('CFORM'))

* Send the page header that's in procedure 'HTML_HEADER'
* (use 'MORE' so we can continue sending).

%rc = $web_procsend(,'HTML_HEADER','MORE')

* Send the body of the page.

Print '<H1>Model 204 Command Processor</H1>'
Print '<hr>'
Print 'Here's a novel idea: Bring all the power and'
Print 'elegance of a 3270 screen into your Web'
Print 'browser. This shows how terminal output is'
Print 'routed to your browser.'
Print '<p>'
Print 'Would you like to'
Print '<A HREF="/DEMO_COMMAND">see the code</A>'
Print 'that generates this form?'
Print '</p>'
Print '<hr>'

* Send the body of the form.

Print '<FORM NAME="CFORM" METHOD="POST"'
Print ' ACTION="' WITH $WEB_HDR_PARM('URL') WITH '">'

Print 'Command: <INPUT TYPE="TEXT" SIZE=50' WITH ' NAME="CMD"'
Print 'VALUE="' WITH %CFORM WITH '">'
Print '<INPUT TYPE="SUBMIT" VALUE="Submit">'
Print '</FORM>'

* If the form was POST'ed to us, process the command.

If $web_hdr_parm('method') eq 'post' Then
%command = $upcase($web_form_parm('CMD'))
If $index(%command,'EOJ') or -
$index(%command,'EOD') or -
$index(%command,'BUMP') or -
$index(%command,'JANUS FORCE') or -
$index(%command,'JANUS DRAIN') or -
$index(%command,'INITIALIZE') Then
Print '<b>Good try.</b> But it wouldn't' -
With ' have worked'
Print 'anyway because you don't have the'
Print 'privilege for that command.'
Stop
End If
* Submit command for "sdaemon" processing.

%rc = $comndl( $upcase($web_form_parm('CMD')), , %listo)

* Print the return.

Print '<tt>'
For %x from 1 to $listcnt(%listo)
Print $listinf(%listo,%x) With '<br>'
End For
Print '</tt>'
End If

* Send the pre-defined page footer from procedure 'HTML_FOOTER'.

%rc = $web_procsend(,'HTML_FOOTER')

End
END PROCEDURE DEMO_COMMAND
</p>

==Sample configuration deck==
This is a sample set of <var>JANUS</var> subcommands that define a web server.
These commands are described further in [[Defining Web rules|"Defining Web rules"]].
<p class="code">* If the port is running, stop it and delete it.

JANUS FORCE JANWEB
JANUS DELETE JANWEB

* Redefine the web port, allowing 100 connections

JANUS DEFINE JANWEB 80 WEBSERV 100 WEBUSER WEBUSER -
DEBUG 3 UPCASE OBSIZE 10240 OPEN FILE JANWEB

* Build a set of IP addresses that we'll grant access to.

JANUS DELETEIPGROUP SIRIUS
JANUS DEFINEIPGROUP SIRIUS 198.242.244.0/255.255.255.0 -
166.84.192.69

* Build a set of userids that we'll grant access to.

JANUS DELETEUSGROUP SIRIUS
JANUS DEFINEUSGROUP SIRIUS ALAN* ALEX* TOM* DME* JEFF* -
GARY* DAVE* PETE* DARREN* EUROPE*

* Turn off redirection.

JANUS WEB JANWEB NOREDIRECT *

* Let everybody in.

JANUS WEB JANWEB ALLOW *

* Now selectively protect certain "directories",
* providing access only to the above-defined IPGROUP and USGROUP.

JANUS WEB DISALLOW /MANUALS/*
JANUS WEB DISALLOW /FIXES/*

JANUS WEB JANWEB ALLOW /MANUALS/* IPGROUP SIRIUS USGROUP SIRIUS

JANUS WEB JANWEB ALLOW /FIXES/* IPGROUP SIRIUS USGROUP SIRIUS

* Set some content types for which Janus Web doesn't supply defaults.

JANUS WEB JANWEB TYPE *.HTM TEXT/HTML
JANUS WEB JANWEB TYPE *.PDF APPLICATION/PDF
JANUS WEB JANWEB TYPE *.JAV APPLET/JAVA
JANUS WEB JANWEB TYPE *.JAVA APPLET/JAVA

* Set the rules for what we do when specific URLs come in.

JANUS WEB JANWEB ON /* SEND *
JANUS WEB JANWEB ON / SEND HTML_MAIN
JANUS WEB JANWEB ON /JANUS SEND HTML_MAIN

* These re-mappings aren't really necessary, they are
* just done so Model 204 procedures that have similar
* contents can be sorted together because they start
* with the same characters. In other words, when a URL
* comes in for the picture 'FASTCAR.GIF' we will have
* actually stored it in a procedure called GIF_FASTCAR
* just to make procedure management simpler.

JANUS WEB JANWEB ON /*.HTML SEND HTML_*
JANUS WEB JANWEB ON /*.HTM SEND HTML_*
JANUS WEB JANWEB ON /*.GIF SEND GIF_*
JANUS WEB JANWEB ON /*.JPG SEND JPG_*
JANUS WEB JANWEB ON /*.JAV SEND JAVA_*
JANUS WEB JANWEB ON /*.JAVA SEND JAVA_*
JANUS WEB JANWEB ON /*.PDF SEND PDF_*

* These ON commands invoke procedures. If a URL
* requests anything in directory CMD or COMMAND, we
* just execute the URL itself at the Model 204 command level.

JANUS WEB JANWEB ON /COMMAND/* CMD *
JANUS WEB JANWEB ON /CMD/* CMD *
JANUS WEB JANWEB ON /DEMO/* CMD 'IN FILE JANWEB INCLUDE *'
JANUS WEB JANWEB ON /SUBSYS/* CMD 'APSYMGMT *'

* Start the server.

JANUS START JANWEB

</p>
For more configuration commands, see [[Defining Web rules|"Defining Web rules"]].

[[Category: Janus Web Server]]