Return to patch-lightparser_pl CVS log

Up to [local] / ports / www / lightsquid / patches

Annotation of ports/www/lightsquid/patches/patch-lightparser_pl, Revision 1.3

1.1       yason       1: $OpenBSD$
1.3     ! yason       2: --- lightparser.pl.orig        Fri Apr 17 16:18:08 2009
        !             3: +++ lightparser.pl     Fri Apr 17 16:20:12 2009
        !             4: @@ -246,10 +246,11 @@ while (<FF>) {
1.1       yason       5:      $url =~ s/([a-z]+:\/\/)??.*\.(rapidshare\.com)/$1www.$2/o;
                      6:
                      7:      #extract site name
                      8: -    $url =~ m/([a-z]+:\/\/)??([a-z0-9\-]+\.){1}(([a-z0-9\-]+\.){0,})([a-z0-9\-]+){1}(:[0-9]+)?\/(.*)/o;
                      9: -    $site=$2.$3.$5;
                     10: -
                     11: -    $site=$Lurl if ($site eq "");
                     12: +    if ($url =~ m/([a-z]+:\/\/)??([a-z0-9\-]+\.){1}(([a-z0-9\-]+\.){0,})([a-z0-9\-]+){1}(:[0-9]+)?\/(.*)/o) {
                     13: +       $site=$2.$3.$5;
                     14: +    } else {
                     15: +       $site=$Lurl;
                     16: +    }
                     17:
                     18:      $totalsize    {$user}       +=$Lsize;
                     19:      $totalhit     {$user}       ++;