From 5b8fd3bd5a45bcaf0d57c240c2df05b2dac1f255 Mon Sep 17 00:00:00 2001
From: Joe Rayhawk <jrayhawk@omgwallhack.org>
Date: Thu, 2 Jul 2015 15:33:04 -0700
Subject: pinyweb: newuser.cgi: fix recaptcha logic

---
 pinyweb/cgi-bin/newuser.cgi | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

diff --git a/pinyweb/cgi-bin/newuser.cgi b/pinyweb/cgi-bin/newuser.cgi
index b54b1ec..907b259 100755
--- a/pinyweb/cgi-bin/newuser.cgi
+++ b/pinyweb/cgi-bin/newuser.cgi
@@ -22,27 +22,6 @@ $q = CGI->new;
 
 print( "Content-type: text/plain\n\n" );
 
-if ( -f "/etc/recaptcha/private.key" ) {
-  if ( $q->param('recaptcha_response_field') && $q->param('recaptcha_challenge_field') ) {
-    open(RECAPTCHA, '/etc/recaptcha/private.key') || ( print "Can't read recaptcha key: [$!]\n" && exit 0 );
-      my $recaptchakey = <RECAPTCHA>;
-    close (RECAPTCHA);
-    chomp($recaptchakey);
-    my $c = Captcha::reCAPTCHA->new;
-    my $result = $c->check_answer( $recaptchakey, $ENV{'REMOTE_ADDR'}, $q->param( 'recaptcha_challenge_field' ), $q->param( 'recaptcha_response_field' ) );
-    if ( $result->{is_valid} ) {
-      print "Good recaptcha submission.\n"
-    } else {
-      print "Bad recaptcha submission: $result->{error}\n";
-      exit 0;
-    };
-  } else {
-    print( "Missing recaptcha parameters." );
-    exit 0;
-  };
-
-};
-
 if( $q->param("n") && $q->param("a") && $q->param("p") ) {
 
   my $pass = $q->param("p");
@@ -74,6 +53,26 @@ if( $q->param("n") && $q->param("a") && $q->param("p") ) {
       print( "I'm sorry, the link you followed is invalid.\n" );
     };
   } else { # No hash, they need one sent to their address
+    # CAPTCHA check
+    if ( -f "/etc/recaptcha/private.key" ) {
+      if ( $q->param('recaptcha_response_field') && $q->param('recaptcha_challenge_field') ) {
+        open(RECAPTCHA, '/etc/recaptcha/private.key') || ( print "Can't read recaptcha key: [$!]\n" && exit 0 );
+          my $recaptchakey = <RECAPTCHA>;
+        close (RECAPTCHA);
+        chomp($recaptchakey);
+        my $c = Captcha::reCAPTCHA->new;
+        my $result = $c->check_answer( $recaptchakey, $ENV{'REMOTE_ADDR'}, $q->param( 'recaptcha_challenge_field' ), $q->param( 'recaptcha_response_field' ) );
+        if ( $result->{is_valid} ) {
+          print "Good recaptcha submission.\n"
+        } else {
+          print "Bad recaptcha submission: $result->{error}\n";
+          exit 0;
+        };
+      } else {
+        print( "Missing recaptcha parameters." );
+        exit 0;
+      };
+    };
     print( "Dispatching email to " . $q->param("a") . "...\n" );
     unless( open( MAIL, "|/usr/lib/sendmail -t" ) ) {
       print "could not execute sendmail";
-- 
cgit v1.2.3