Code: Select all
use strict;
use File::Find;
my($Group, $Text) = @ARGV;
my $Spool = "/var/spool/news"; # or wherever your newsspool lives
$| = 1; # so we can see it run
find(\&Kibo, "$Spool/$Group");
sub Kibo
{
-d and print "$_\n";
-f and /^\d+$/ or return;
print "$_\r";
open(ARTICLE, $_) or return;
my @lines = ;
for my $line (@lines)
{
$line =~ /$Text/o and print $line;
}
}
Code: Select all
RewriteEngine On
RewriteCond %{REQUEST_FILENAME} -s [OR]
RewriteCond %{REQUEST_FILENAME} -l [OR]
RewriteCond %{REQUEST_FILENAME} -d
RewriteRule ^.*$ - [NC,L]
RewriteRule ^.*$ index.php [NC,L]