1
#!/usr/bin/perl -W
2
3
use strict;
4
5
my $line;
6
my $a;
7
my $b;
8
9
print "CONTENT-TYPE: text/html\n\n";
10
11
print "<html>\n\t<head>\n\t\t<title>Factoids</title>\n\t</head>\n<body>\n";
12
open(FD, "dbtool -l |") or die("Cannot open file");
13
14
foreach $line(<FD>) {
15
($a, $b) = split(/:/, $line, 2);
16
$a =~ s/^[\t ]+//; # skip blanks
17
$b =~ s/^[\t ]+//; # skip blanks
18
$b =~ s/[\n]+//; # for html source :)
19
20
if ($b) {
21
if($b =~ /^http/ ) {
22
print "$a - <a href=\"$b\">$b</a><br>";
23
} else {
24
print "$a - $b<br>";
25
}
26
27
28
29
print "\n<br>$a\n";
30
31
print "</body></html>\n";
32
close(FD);