#!/usr/bin/perl

use DBI;
use CGI qw(:standard);

print header;
my $term = param('term');
my $db   = param('db');

my  $dbh= DBI->connect("DBI:rdfdb:localhost", "root", 0);


print "<h3>All arcs out of ".$term." in database ".$db."</h3>\n";
print "<table border=yes width=100%><tr><td>Property</td><td>Value</td></tr>\n";

my $query = $dbh->prepare("select ?prop ?value from dmoz where (?prop ".$term." ?value)  output tab-limited</>");
$query->execute();
$query->bind_columns(\$prop, \$value);
while ($query->fetch()) {
    $pv = $value;
    $value =~ s/#/\%23/g;
    print "<tr><td>".$prop."</td><td> <a href=/cgi-bin/br.pl?db=".$db."&term=".$value.">".$pv."</a></td></tr>\n";	
}
$query->finish();

print "</table>";

print "<h3>All arcs into ".$term." in database ".$db."</h3>\n";
print "<table border=yes width=100%><tr><td>Property</td><td>Value</td></tr>\n";

$query = $dbh->prepare("select ?prop ?value from dmoz where (?prop ?value ".$term.")  output tab-limited</>");
$query->execute();
$query->bind_columns(\$prop, \$value);

while ($query->fetch()) {
    $pv = $value;
    $value =~ s/#/\%23/g;
    print "<tr><td>".$prop."</td><td> <a href=/cgi-bin/br.pl?db=".$db."&term=".$value.">".$pv."</a></td></tr>\n";	
}
$query->finish();
print "</table>";