source vendor/md5.tcl
source env.tcl
source wing.tcl
package require md5
package require wapp
sqlite3 db "./register.db"
proc wapp-default {} {
set B [wapp-param BASE_URL]
wingcss
wapp-trim {
See the Wapp
EnvironmentHello, World!
use POST
} return } wapp-set-param TODAY $systemTime wapp-set-param IPHASH $iphash set body [wapp-param CONTENT "send content please
} return } db eval {BEGIN} db eval {INSERT INTO hits(ip_address_hash, date) VALUES ($iphash, date($systemTime, 'unixepoch'))} set pkgs [split $body "\n"] foreach pkg $pkgs { db eval {INSERT INTO package_installs(package_name, date) VALUES ($pkg, date($systemTime, 'unixepoch'))} } db eval {COMMIT} wapp-reply-code 200 wapp-trim {we promise to do our best to keep this data safe. thank you for your donation.
} } wapp-start $::argv