version 1.40.2.5.2.2, 2012/02/08 19:08:41
|
version 1.40.2.5.2.3, 2012/02/11 23:30:16
|
Line 543 sub process_email_request {
|
Line 543 sub process_email_request {
|
$env{'form.recaptcha_challenge_field'}, |
$env{'form.recaptcha_challenge_field'}, |
$env{'form.recaptcha_response_field'}, |
$env{'form.recaptcha_response_field'}, |
); |
); |
|
# PRIVATE key from https://www.google.com/recaptcha |
if (!$captcha_result->{is_valid}) { |
if (!$captcha_result->{is_valid}) { |
$output = &invalid_state('captcha',$domdesc,$contact_name, |
$output = &invalid_state('captcha',$domdesc,$contact_name, |
$contact_email); |
$contact_email); |
Line 609 sub send_token {
|
Line 610 sub send_token {
|
if ($token !~ /^error/ && $token ne 'no_such_host') { |
if ($token !~ /^error/ && $token ne 'no_such_host') { |
my $esc_token = &escape($token); |
my $esc_token = &escape($token); |
my $showtime = localtime(time); |
my $showtime = localtime(time); |
my $mailmsg = &mt('A request was submitted on [_1] for creation of a [_1] account.',$showtime,$domdesc).). "\n". |
my $mailmsg = &mt('A request was submitted on [_1] for creation of a [_1] account.',$showtime,$domdesc)."\n". |
&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]', |
&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]', |
"\n\n".&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token); |
"\n\n".&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token); |
my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name, |
my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name, |
Line 1199 sub linkto_email_help {
|
Line 1200 sub linkto_email_help {
|
|
|
sub create_recaptcha { |
sub create_recaptcha { |
my $captcha = Captcha::reCAPTCHA->new; |
my $captcha = Captcha::reCAPTCHA->new; |
|
# generate PUBLICKEY from https://www.google.com/recaptcha |
return $captcha->get_options_setter({theme => 'white'})."\n". |
return $captcha->get_options_setter({theme => 'white'})."\n". |
$captcha->get_html('PUBLICKEY'); # generate public key for IP |
$captcha->get_html('PUBLICKEY'); |
# from http://recaptcha.net/ |
|
} |
} |
|
|
sub getkeys { |
sub getkeys { |