2 # fixscript will replace this line with require innshellvars.pl
4 # Create storage.conf script based on recently read articles.
6 $readfile="$inn::pathdb/readgroups";
8 $outfile="$inn::pathdb/storage.conf";
10 for ($level=9 ; $level >= 2; --$level) {
12 foreach $i (keys %groups) {
15 if (open(RDF, "sort $readfile|")) {
18 next if (/^group/); # bogus
19 @foo=split(/ /); # foo[0] should be group, foo[1] lastreadtime
20 @bar=split(/\./,$foo[0]);
21 if ( $level >= scalar @bar) {
22 $grf = join(".", @bar);
24 $grf=join(".", @bar[0..($level-1)]) . ".*";
30 $grlist = join(",",keys(%groups));
31 last outloop if (length($grlist) < 2048);
34 open(OUT, ">$outfile") || die "cant open $outfile";
35 #open(OUT, ">/dev/tty");
39 newsgroups: control,control.*