Update examples and README
This commit is contained in:
parent
74687cfaea
commit
97ecaab98c
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user