Experimental DISWWW Page

open(PATTERNS,") { chop; ($name[$i],$pattern[$i]) = split(/:/,$_,2); $group{$name[$i]} = "Meeting Group $name[$i]\n"; $i++; } $npatterns = $i; close(PATTERNS); sub spew { local($xh,$xp,$xn) = @_; local($xx); $xp =~ s#/usr/spool/discuss/##; $xx = "$xn"; return "

$xx\n"; } open(MTGS,"<.meetings"); while() { foreach $i (0..$npatterns-1) { if($_ =~ /$pattern[$i]/) { # 0:692171888:7205:charon.mit.edu:/usr/spool/discuss/eve:eve: ($x1,$x2,$x3,$xhost,$xpath,$xnames)=split(/:/); ## $group{$name[$i]} .= $_; $group{$name[$i]} .= &spew($xhost,$xpath,$xnames); last; } } } close(MTGS); # http://www.mit.edu:8008/charon.mit.edu/eve/ print "

"; for $i (0 .. $npatterns-1) { print "

$group{$name[$i]}\n" unless ($name[$i] =~ /private/); # print "---------------------\n"; } print " ";