enumerated types for parse.c
The irc section gets an enumerated type for constant values.
This makes the code more readable and less error prone.
committer: Markus Bröker <mbroeker@largo.homelinux.org>
+ − #!/usr/bin/perl -W
+ −
+ − use strict;
+ −
+ − my $line;
+ − my $a;
+ − my $b;
+ −
+ − print "CONTENT-TYPE: text/html\n\n";
+ −
+ − print "<html>\n\t<head>\n\t\t<title>Factoids</title>\n\t</head>\n<body>\n";
+ − open(FD, "dbtool -l |") or die("Cannot open file");
+ −
+ − foreach $line(<FD>) {
+ − ($a, $b) = split(/:/, $line, 2);
+ − $a =~ s/^[\t ]+//; # skip blanks
+ − $b =~ s/^[\t ]+//; # skip blanks
+ − $b =~ s/[\n]+//; # for html source :)
+ −
+ − if ( $b && !($a =~ /mcbot/)) {
+ − if($b =~ /^http/ ) {
+ − print "$a - <a href=\"$b\">$b</a><br>";
+ − } else {
+ − print "$a - $b<br>";
+ − }
+ − }
+ − }
+ −
+ − print "\n<br>$a\n";
+ −
+ − print "</body></html>\n";
+ − close(FD);