# declare libraries use CGI qw(:standard); use DBI; use strict; print "Content-Type: text/html\n\n"; print "Log Script"; # declare variables my $a = 000; my $b = 000; my $c = 'xxxxx'; my $d = 'xxxxxx'; # Connect to datasource my $dbh=DBI->connect('dbi:ODBC:','xxxxxxx','xxxxxxxx') or print "Couldn't connect to database: " . DBI->errstr . "\n\n"; # Log Info my $log = $dbh->prepare("Insert into .fp3 (, errstr. "\n\n"; $log->execute() or print "Couldn't execute INSERT statement: ". DBI->errstr. "\n\n"; # Get Journal URL my $geturl = $dbh->prepare("SELECT FROM .fp3 WHERE ='$d'") or print "Couldn't prepare SELECT statement: ". DBI->errstr. "\n\n"; $geturl->execute() or print "Couldn't execute SELECT statement: ". DBI->errstr. "\n\n"; my @data = $geturl->fetchrow_array(); my $jurl = $data[0]; # Set URL print $jurl . "\n

"; my $URL = $jurl; # print $URL; print $URL . "\n

"