moderation.html

<%args>
$request_type => undef
$details => undef
</%args>

<%method title>
Sending A Moderation Request
</%method>


<%init>
  our($dbh,%session);
  use utils;
  use Unicode::String;
  $r->content_type("text/html; charset=utf-8");

  use Captcha::reCAPTCHA;

  my $c = Captcha::reCAPTCHA->new;
  my $recaptcha_response = $ARGS{'g-recaptcha-response'};
</%init>

% unless(defined($request_type)) {

<font size="+3">
Writing A Moderation Request
</font>

<hr />

<form method="post" action="moderation.html">
<%perl>
# Don't bother making logged in users captcha
if( ! defined($session{'userid'}) ) {
    # reCaptcha Output form
    # Public key
    print $c->get_html_v2( '6Lf1RwAAAAAAANZIsJS0Ra-ycdARlCNMTzOkkC-v' );
}
</%perl>

 <table>
  <tr>
   <td>Request Type</td>
   <td>
	<select name="request_type">  
	<option value="New Account Request">New Account Request
	<option value="valsi Change">valsi Change
	<option value="valsi Deletion">valsi Deletion
	<option value="Natlang Word Change">Natlang Word Change
	<option value="Natlang Word Deletion">Natlang Word Deletion
	<option value="Definition Change">Definition Change
	<option value="Definition Deletion">Definition Deletion
	<option value="Other">Other
	</select>
   </td>
  </tr>
  <tr>
   <td>Details</td>
   <td>
    <textarea rows="4" cols="60" name="details"></textarea>
   </td>
  </tr>
  <tr>
   <td><input type="submit"></td>
  </tr>
 </table>
</form>

<%perl>
# Check the form results (both of them)
} else {

    my $result;

    # Verify submission
    # Don't bother making logged in users captcha
    if( ! defined($session{'userid'}) ) {
	$result = $c->check_answer_v2(
	    # Private key
	    '6Lf1RwAAAAAAAP6IcWCSHjdtZ5yh1y2muHE7f1Zy', $recaptcha_response, $ENV{'REMOTE_ADDR'}
	);
    }

    if ( $result->{is_valid} || defined($session{'userid'}) ) {
	</%perl>
	<font size="+3">
	Thank you for submitting your request.
	</font>
	<%perl>

	my $recipient = $m->base_comp->attr('admin_email');

	my $mailtext = "

Request Type: $request_type

Remote IP address: $ENV{'REMOTE_ADDR'}

Details: $details

	";

	#Now send mail to $recipient
	utils::sendemail( [ $recipient ], "jbovlaste Moderation Request",
	    $mailtext, $session{'username'} );

    } else {
	</%perl>
	<font size="+3">
	Captcha failed.  <pre><% Dumper($result) %>, <% $recaptcha_response %></pre>
	</font>
	<%perl>

    }
}
</%perl>