<%args>
    $action => ''
</%args>

<%perl>

use strict; 
use warnings;
use lib "/home/httpd/starfrontiers/modules";
use SQLlib; 
use DBI;

# is user logged in?  If so, get user id
my $auid = $m->comp('auth.mas');

my $dbh2 = $m->comp('dbh2.mas');

# get statement defined from form
my $sql = SQLlib->new;
my $statement = $sql->$action();

#print "statement = ".$statement;

dbh($statement, $dbh2); 

$m->redirect("/wiki/access_granted.html");
$m->auto_send_headers(0);
$m->clear_buffer;
$m->abort;

sub dbh{
    my ($statement, $dbh2) = @_;
    my $sth = $dbh2->prepare($statement) or die "dbh2 = $dbh2 Couldn't prepare statement: $statement ".$dbh2->errstr;
    $sth->execute or die "dbh2 = $dbh2 Couldn't execute statement: $statement ".$dbh2->errstr;
    return $sth;
}

</%perl>


##</code><code>##

sub insert_lexicon{

    my ($self) = @_;

    $statement = 'INSERT INTO lexicon (
        word,
        meaning,
        auid) VALUES(
        \'$word\',
        \'$meaning\',
        \'$auid\');';

    return ($statement);
}