<%args> $recaptcha_challenge_field => undef $recaptcha_response_field => undef $username => undef $realname => undef $email => undef % unless(defined($email)) { Register As A Jbovlaste Editor

DO NOT MAKE AN ACCOUNT UNLESS:

- You want to create new words on jbovlaste (this site)

- You are willing to be on the jbovlaste mailing list for discussions of how best to create new words

If you just want to look up words, GO HERE

You do not need to register if you only want to read the data that's already here.

Thanks for your interest in becoming an editor. There is plenty of work to do, and we welcome all experienced Lojbanists. If you create an account, you can add words and definitions, change existing words and definitions, and cast votes that will be used for ranking words and definitions.

After your account is created, you will be added to the Jbovlaste mailing list at jbovlaste@lojban.org. This list will be used for important announcements and (occasionally) discussions that are relevant for the project. Reading this mailing list is mandatory for all Jbovlaste editors.

<%perl> # reCaptcha Output form # Public key print $c->get_html( '6Lf1RwAAAAAAANZIsJS0Ra-ycdARlCNMTzOkkC-v' ); Please use simple alphanumeric characters only.
User Name
Real Name
E-Mail Address
<%perl> # Check the form results (both of them) } else { # Verify ReCaptcha submission my $result = $c->check_answer( # Private key '6Lf1RwAAAAAAAP6IcWCSHjdtZ5yh1y2muHE7f1Zy', $ENV{'REMOTE_ADDR'}, $recaptcha_challenge_field, $recaptcha_response_field ); # Munge the input $username =~ s/[^a-zA-Z0-9_-]//g; $realname =~ s/[^a-zA-Z0-9 _-]//g; $email =~ s/[^a-zA-Z0-9@._-]//g; #print "
".Dumper(\$result)."
"; #print "
 $username, $realname, $email.\n
"; if ( $result->{is_valid} && $username && $realname && $email ) { Account Created

You will get a mail shortly with your password in it; please use that to log in. You will be automatically in the jbovlaste mailing list using the address you just entered.

Please read all of the help section before you start entering data.

If you need any help, please let the admins know.

<%perl> # Make up a password my $password = chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60) . chr(int(rand(62))+60); # Munge it the same way the login form does my $dbpassword = $password; $dbpassword =~ y/A-Za-z/N-ZA-Mn-za-m/; $dbh->do("INSERT INTO users (username, password, email, realname, votesize) VALUES (?, ?, ?, ?, ?)", undef, $username, md5_hex($dbpassword), $email, $realname, 1); #Now send mail to the user utils::sendemail( [ $email ], "New jbovlaste Account", " Someone from the IP address $ENV{'REMOTE_ADDR'} registered the following account on jbovlaste.lojban.org: User Name: $username Real Name: $realname Password: $password If this means nothing to you, please discard this e-mail. ", $session{'username'} ); } else { if( $result->{is_valid} ) { ReCaptcha correct, but input invalid, sorry. Try again. <%perl> } else { ReCaptcha failed, sorry. Try again. <%perl> } } } <%method title> New Account Creation <%init> our($dbh,%session); use utils; use Unicode::String; use Digest::MD5 qw(md5_hex); $r->content_type("text/html; charset=utf-8"); use Captcha::reCAPTCHA; my $c = Captcha::reCAPTCHA->new;