radiofreqs/radiofreqs-signup-form
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update examples and README

Browse Source
This commit is contained in:
nonlinear 2019-06-05 12:42:16 -07:00
parent 74687cfaea
commit 97ecaab98c
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
README.md
View File

@ -1,3 +1,8 @@
# radiofreqs-signup-form
# RadioFreqs.space HTML Signup Form
An HTML signup form processor written in RETRO forth for the RadioFreqs.space project
An HTML signup form processor written in RETRO forth for the RadioFreqs.space project.
# References
* RETRO - http://forthworks.com/retro
* RETRO Examples - http://forth.works/examples/index.html

6
signup-server.forth
View File

@ -1,7 +1,7 @@
#!/usr/bin/env retro
Copyright 2019 Matthew Wishek
LICENSE: TBD
LICENSE: GPLv3
An HTML form processor written Retro, a dialect of Forth
(http://forth.works)
@ -569,7 +569,7 @@ nl
'Registered_usernames_(via_finger) s:put nl
'------- s:put nl
'crc dup s:put sp user:exists? [ 'yes ] [ 'no ] choose s:put nl
'heyme dup s:put sp user:exists? [ 'yes ] [ 'no ] choose s:put nl
'fakeuser dup s:put sp user:exists? [ 'yes ] [ 'no ] choose s:put nl
'root dup s:put sp user:exists? [ 'yes ] [ 'no ] choose s:put nl
'nonlinear dup s:put sp user:exists? [ 'yes ] [ 'no ] choose s:put nl
@ -579,7 +579,7 @@ nl
'Email s:put nl
'------- s:put nl
{ 'matthew\%40wishek.com 'm@m.m 'hello\%20at\%20hello.com 'me@m.m s:empty 'matthew\%2Btest\%40wishek.com } &usernames a:copy
{ 'example\%40example.com 'm@m.m 'hello\%20at\%20hello.com 'me@m.m s:empty 'example\%2Btest\%40example.com } &usernames a:copy
&usernames [ s:format dup s:put sp s:keep
&Form email! email-validate