scripts/mcbot.cgi
author Markus Bröker <mbroeker@largo.dyndns.tv>
Sat, 13 Dec 2008 15:42:17 +0100
changeset 27 4a2f7a1492ab
parent 25 a0fad312ea30
child 33 56571d34d754
permissions -rwxr-xr-x
Lazy EBNF and an improved startscript committer: Markus Bröker <mbroeker@largo.homelinux.org>
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     1
#!/usr/bin/perl -W
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     2
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     3
use strict;
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     4
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     5
my $line;
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     6
my $a;
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     7
my $b;
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     8
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
     9
print "CONTENT-TYPE: text/html\n\n";
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    10
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    11
print "<html>\n\t<head>\n\t\t<title>Factoids</title>\n\t</head>\n<body>\n";
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    12
open(FD, "dbtool -l |") or die("Cannot open file");
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    13
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    14
foreach $line(<FD>) {
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    15
	($a, $b) = split(/:/, $line, 2);
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    16
	$a =~ s/^[\t ]+//;					# skip blanks
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    17
	$b =~ s/^[\t ]+//;					# skip blanks
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    18
	$b =~ s/[\n]+//;					# for html source :)
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    19
25
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    20
   	if ( $b && !($a =~ /mcbot/)) {
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    21
    	if($b =~ /^http/ ) {
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    22
	    	print "$a - <a href=\"$b\">$b</a><br>";
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    23
   		} else {
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    24
    		print "$a - $b<br>";
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    25
	    }
a0fad312ea30 Build dependencies improved
Markus Bröker <mbroeker@largo.dyndns.tv>
parents: 0
diff changeset
    26
   	}
0
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    27
}
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    28
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    29
print "\n<br>$a\n";
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    30
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    31
print "</body></html>\n";
586472add385 Initial Layout
Markus Bröker <mbroeker@largo.dyndns.tv>
parents:
diff changeset
    32
close(FD);