diff options
Diffstat (limited to 'stats.pl')
| -rwxr-xr-x | stats.pl | 24 |
1 files changed, 13 insertions, 11 deletions
@@ -78,17 +78,19 @@ for my $group (@group_names) { my $content = get("http://".$group_info->{'server'}->{$group}); - for my $line (split /\n/, $content) { - last if (defined($users) && defined($posts) && defined($comments)); - last if ($line =~ /Last activity/i); - next if (length $line < 1); - - if ($line =~ /Users:[^0-9]*(\d+)/i) { - $users = $1; - } elsif ($line =~ /Posts:[^0-9]*(\d+)/i) { - $posts = $1; - } elsif ($line =~ /Comments:[^0-9]*(\d+)/i) { - $comments = $1; + if (length $content > 1) { + for my $line (split /\n/, $content) { + last if (defined($users) && defined($posts) && defined($comments)); + last if ($line =~ /Last activity/i); + next if (length $line < 1); + + if ($line =~ /Users:[^0-9]*(\d+)/i) { + $users = $1; + } elsif ($line =~ /Posts:[^0-9]*(\d+)/i) { + $posts = $1; + } elsif ($line =~ /Comments:[^0-9]*(\d+)/i) { + $comments = $1; + } } } |