Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » NetPlex/!Netplex/!Help/HTML/cgi-bin/form
NetPlex/!Netplex/!Help/HTML/cgi-bin/form
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD |
| Filename: | NetPlex/!Netplex/!Help/HTML/cgi-bin/form |
| Read OK: | ✔ |
| File size: | 0322 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >cgi-bin.form (Netplex Example)
20REM =========================================================================
30REM Accepts input from a POST operation and reports back the submitted data.
40REM =========================================================================
50
60LIBRARY "<Netplex$Dir>.CGILibrary"
70REM Set up error handler, redirection and library variables.
80PROCcgi_init
90
100PROCcgi_header("text/html",-1)
110
120PRINT "<HTML>";
130PRINT "<HEAD>";
140PRINT "<TITLE>Form</TITLE>";
150PRINT "</HEAD>";
160PRINT "<BODY>";
170PRINT "<H1>Form</H1>";
180PRINT "<HR>";
181PRINT "<PRE>";
190
200IF VAL(FNsystem_getvar("CGI$ContentLength")) <= 0 THEN
210 PRINT "No Form data was submitted.";
220ELSE
240 REPEAT
250 e$=FNcgi_nextelementdecoded
260 PRINT e$;"<BR>";
270 UNTIL e$=""
290ENDIF
300
301PRINT "</PRE>";
310PRINT "</BODY>";
320PRINT "</HTML>";
330
340END
&� >cgi-bin.form (Netplex Example)
O� =========================================================================
N� Accepts input from a POST operation and reports back the submitted data.
(O� =========================================================================
2
<!ț "<Netplex$Dir>.CGILibrary"
F>� Set up error handler, redirection and library variables.
P
�cgi_init
Z
d �cgi_header("text/html",-1)
n
x� "<HTML>";
�� "<HEAD>";
� � "<TITLE>Form</TITLE>";
�� "</HEAD>";
�� "<BODY>";
�� "<H1>Form</H1>";
�
� "<HR>";
�� "<PRE>";
�
�3� �(�system_getvar("CGI$ContentLength")) <= 0 �
�& � "No Form data was submitted.";
��
� �
�" e$=�cgi_nextelementdecoded
� e$;"<BR>";
� e$=""
"�
,
-� "</PRE>";
6� "</BODY>";
@� "</HTML>";
J
T�
� 00000000 0d 00 0a 26 f4 20 3e 63 67 69 2d 62 69 6e 2e 66 |...&. >cgi-bin.f|
00000010 6f 72 6d 20 20 28 4e 65 74 70 6c 65 78 20 45 78 |orm (Netplex Ex|
00000020 61 6d 70 6c 65 29 0d 00 14 4f f4 20 3d 3d 3d 3d |ample)...O. ====|
00000030 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000070 3d 3d 3d 3d 3d 0d 00 1e 4e f4 20 41 63 63 65 70 |=====...N. Accep|
00000080 74 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 61 20 |ts input from a |
00000090 50 4f 53 54 20 6f 70 65 72 61 74 69 6f 6e 20 61 |POST operation a|
000000a0 6e 64 20 72 65 70 6f 72 74 73 20 62 61 63 6b 20 |nd reports back |
000000b0 74 68 65 20 73 75 62 6d 69 74 74 65 64 20 64 61 |the submitted da|
000000c0 74 61 2e 0d 00 28 4f f4 20 3d 3d 3d 3d 3d 3d 3d |ta...(O. =======|
000000d0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000110 3d 3d 0d 00 32 04 0d 00 3c 21 c8 9b 20 22 3c 4e |==..2...<!.. "<N|
00000120 65 74 70 6c 65 78 24 44 69 72 3e 2e 43 47 49 4c |etplex$Dir>.CGIL|
00000130 69 62 72 61 72 79 22 0d 00 46 3e f4 20 53 65 74 |ibrary"..F>. Set|
00000140 20 75 70 20 65 72 72 6f 72 20 68 61 6e 64 6c 65 | up error handle|
00000150 72 2c 20 72 65 64 69 72 65 63 74 69 6f 6e 20 61 |r, redirection a|
00000160 6e 64 20 6c 69 62 72 61 72 79 20 76 61 72 69 61 |nd library varia|
00000170 62 6c 65 73 2e 0d 00 50 0d f2 63 67 69 5f 69 6e |bles...P..cgi_in|
00000180 69 74 0d 00 5a 04 0d 00 64 1f f2 63 67 69 5f 68 |it..Z...d..cgi_h|
00000190 65 61 64 65 72 28 22 74 65 78 74 2f 68 74 6d 6c |eader("text/html|
000001a0 22 2c 2d 31 29 0d 00 6e 04 0d 00 78 0f f1 20 22 |",-1)..n...x.. "|
000001b0 3c 48 54 4d 4c 3e 22 3b 0d 00 82 0f f1 20 22 3c |<HTML>";..... "<|
000001c0 48 45 41 44 3e 22 3b 0d 00 8c 1c f1 20 22 3c 54 |HEAD>";..... "<T|
000001d0 49 54 4c 45 3e 46 6f 72 6d 3c 2f 54 49 54 4c 45 |ITLE>Form</TITLE|
000001e0 3e 22 3b 0d 00 96 10 f1 20 22 3c 2f 48 45 41 44 |>";..... "</HEAD|
000001f0 3e 22 3b 0d 00 a0 0f f1 20 22 3c 42 4f 44 59 3e |>";..... "<BODY>|
00000200 22 3b 0d 00 aa 16 f1 20 22 3c 48 31 3e 46 6f 72 |";..... "<H1>For|
00000210 6d 3c 2f 48 31 3e 22 3b 0d 00 b4 0d f1 20 22 3c |m</H1>";..... "<|
00000220 48 52 3e 22 3b 0d 00 b5 0e f1 20 22 3c 50 52 45 |HR>";..... "<PRE|
00000230 3e 22 3b 0d 00 be 04 0d 00 c8 33 e7 20 bb 28 a4 |>";.......3. .(.|
00000240 73 79 73 74 65 6d 5f 67 65 74 76 61 72 28 22 43 |system_getvar("C|
00000250 47 49 24 43 6f 6e 74 65 6e 74 4c 65 6e 67 74 68 |GI$ContentLength|
00000260 22 29 29 20 3c 3d 20 30 20 8c 0d 00 d2 26 20 20 |")) <= 0 ....& |
00000270 f1 20 22 4e 6f 20 46 6f 72 6d 20 64 61 74 61 20 |. "No Form data |
00000280 77 61 73 20 73 75 62 6d 69 74 74 65 64 2e 22 3b |was submitted.";|
00000290 0d 00 dc 05 cc 0d 00 f0 07 20 20 f5 0d 00 fa 22 |......... ...."|
000002a0 20 20 20 20 65 24 3d a4 63 67 69 5f 6e 65 78 74 | e$=.cgi_next|
000002b0 65 6c 65 6d 65 6e 74 64 65 63 6f 64 65 64 0d 01 |elementdecoded..|
000002c0 04 14 20 20 20 20 f1 20 65 24 3b 22 3c 42 52 3e |.. . e$;"<BR>|
000002d0 22 3b 0d 01 0e 0d 20 20 fd 20 65 24 3d 22 22 0d |";.... . e$="".|
000002e0 01 22 05 cd 0d 01 2c 04 0d 01 2d 0f f1 20 22 3c |."....,...-.. "<|
000002f0 2f 50 52 45 3e 22 3b 0d 01 36 10 f1 20 22 3c 2f |/PRE>";..6.. "</|
00000300 42 4f 44 59 3e 22 3b 0d 01 40 10 f1 20 22 3c 2f |BODY>";..@.. "</|
00000310 48 54 4d 4c 3e 22 3b 0d 01 4a 04 0d 01 54 05 e0 |HTML>";..J...T..|
00000320 0d ff |..|
00000322 
.