[* USE cgi = CGI; USE jsan = JSAN.Server; error = ''; show = 'jause-home'; login = ''; user = {}; IF cgi.param('new-account'); show = 'new-account'; create = jsan.account_create( login => cgi.param('login'), name => cgi.param('name'), pass => cgi.param('pass'), pass2 => cgi.param('pass2'), email => cgi.param('email'), url => cgi.param('url'), ); IF create.error; error = create.error; END; ELSIF cgi.param('login-account'); show = 'login-account'; in = jsan.login( login => cgi.param('login'), pass => cgi.param('pass'), ); IF in.error; error = in.error; ELSE; user = jsan.user_info(id => in.id).account; login = in.seed; END; ELSIF cgi.param('password-recover'); show = 'password-recover'; in = jsan.password_recover( login => cgi.param('login'), email => cgi.param('email'), ); IF in.error; error = in.error; END; ELSIF cgi.param('password-change'); show = 'password-change'; in = jsan.password_change( oldpass => cgi.param('oldpass'), pass => cgi.param('pass'), pass2 => cgi.param('pass2'), seed => cgi.cookie('key'), ); IF in.error; error = in.error; END; ELSIF cgi.param('upload-dist'); show = 'upload-dist'; uploaded = jsan.upload_dist( files => [ { filename => cgi.param('dist') } ], seed => cgi.cookie('key'), ); IF uploaded.error; error = uploaded.error; END; END; -*]
Logged In as [* user.login *] (change pwd, logout).
[* cgi.param('error') *]

Welcome to the JavaScript Authors Upload Server (JAUSE).

Apply for a JAUSE Account
Login to JAUSE
Forgot password?
Recover Password
Change Password
Upload Distribution

You have been logged out.