Metacat

my $styleSkinsPath = $contextUrl . "/style/skins";

my $styleCommonPath = $contextUrl . "/style/common";

my @errorMessages;

my $error = 0;

    #my $error=null;

    my $use_ssl= 1;

    #my $options=null;

    $template->process( $templates->{'header'}, $templateVars );

    foreach my $tmpl (@{$templateList}) {

        $template->process( $templates->{$tmpl}, $templateVars );

    my $response = $query->param('recaptcha_response_field');

    # Verify submission

    my $result = $c->check_answer(

        $challenge, $response

    );