- added support of ircTextCounters - works! thanks to #perl@OPN.

[infobot.git] / src / Modules / Freshmeat.pl

diff --git a/src/Modules/Freshmeat.pl b/src/Modules/Freshmeat.pl
index cb6f7fdf262e3c4e4bd45104be91b747f2d3aff2..62f1952c5df8368bad52649d3ebbc99e34cbfc44 100644 (file)
--- a/src/Modules/Freshmeat.pl
+++ b/src/Modules/Freshmeat.pl
@@ -22,7 +22,7 @@ sub Freshmeat {
     my $refresh        = &::getChanConfDefault("freshmeatRefreshInterval",
                        "", 24) * 60 * 60 * 7;
 
-    my $last_refresh = &::dbGet("freshmeat", "projectname_short", "_", "latest_version");
+    my $last_refresh = &::dbGet("freshmeat", "latest_version", "projectname_short='_'");
     my $renewtable   = 0;
 
     if (defined $last_refresh and $last_refresh =~ /^\d+$/) {
@@ -84,7 +84,7 @@ sub Freshmeat {
 
 sub showPackage {
     my ($pkg)  = @_;
-    my @fm     = &::dbGet("freshmeat", "projectname_short", $pkg, "*");
+    my @fm     = &::dbGet("freshmeat", "*", "projectname_short='$pkg'");
 
     if (scalar @fm) {          #1: perfect match of name.
        my $retval;
@@ -231,6 +231,12 @@ sub downloadIndex {
                s/æ/a/g;
                s/ø/o/g;
                s/ð/e/g;
+               s/ß//g;
+               s/·//g;
+       }
+
+       if ($str =~ s/\&(\S+);//g) {
+           &::DEBUG("fm: sarred $1 to ''.");
        }
 
        $p->parse($str, ProtocolEncoding => 'ISO-8859-1');