Logged In as [* user.login *] (change pwd, logout).
[* cgi.param('error') *]
Welcome to the JavaScript Authors Upload Server (JAUSE).
You have been logged out.
[*
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;
-*]