|
0
|
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);
|