#!/usr/bin/perl -w

BEGIN {
  $ENV{MYSQL_UNIX_PORT}='/clair8/corpora/aledb/run/socket';
};

use strict;
use DBI;

my $sql = "SELECT url1.urlid AS from_id, url1.url AS from_url, link1.link_text AS link1_text, link1.linkid AS link1_id, url2.urlid AS to_id, url2.url AS to_url
FROM  DOTGOV_links AS link1, DOTGOV_urls AS url1, DOTGOV_urls AS url2
        WHERE (link1.link_from = url1.urlid) 
          AND (link1.link_to = url2.urlid)";


warn "Connecting...\n";
my $dbh = DBI->connect('DBI:mysql:database=clair', 'root','', {AutoCommit => 1})
    or die "Error creating dbh.\n";
warn "Connected!\n";

warn "Preparing...\n";
my $sth = $dbh->prepare($sql)
    or die "Error preparing sth.\n";
warn "Prepared!\n";

warn "Executing...\n";
$sth->execute
    or die "Error executing sth.\n";
warn "Executed!\n";

warn "Finishing...\n";
$sth->finish
    or die "Error finishing sth.\n";
warn "Finished!\n";