--- loncom/interface/createaccount.pm 2012/02/08 19:08:41 1.40.2.5.2.2 +++ loncom/interface/createaccount.pm 2012/02/11 23:30:16 1.40.2.5.2.3 @@ -3,7 +3,7 @@ # institutional log-in ID (institutional authentication required - localauth # or kerberos) or an e-mail address. # -# $Id: createaccount.pm,v 1.40.2.5.2.2 2012/02/08 19:08:41 raeburn Exp $ +# $Id: createaccount.pm,v 1.40.2.5.2.3 2012/02/11 23:30:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -543,6 +543,7 @@ sub process_email_request { $env{'form.recaptcha_challenge_field'}, $env{'form.recaptcha_response_field'}, ); + # PRIVATE key from https://www.google.com/recaptcha if (!$captcha_result->{is_valid}) { $output = &invalid_state('captcha',$domdesc,$contact_name, $contact_email); @@ -609,7 +610,7 @@ sub send_token { if ($token !~ /^error/ && $token ne 'no_such_host') { my $esc_token = &escape($token); 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]', "\n\n".&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token); my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name, @@ -1199,9 +1200,9 @@ sub linkto_email_help { sub create_recaptcha { my $captcha = Captcha::reCAPTCHA->new; + # generate PUBLICKEY from https://www.google.com/recaptcha return $captcha->get_options_setter({theme => 'white'})."\n". - $captcha->get_html('PUBLICKEY'); # generate public key for IP - # from http://recaptcha.net/ + $captcha->get_html('PUBLICKEY'); } sub getkeys {