#!/bin/perl # Where is the user list? FILL THIS IN! $ulist = "/usr/local/projectpages/projects/soft/lists/user.list"; # We're HTML... print "Content-Type: text/html\n\n"; open (U, "< $ulist"); # Get the project $which = shift(@ARGV); print < $which subscribers

$which Project Subscribers

EOH

$didit = 0;
$doinit = 0;
while () {
    if (m/^$which\&/) {
	$doinit = 1;
	next;
    } 
    if (m/^\s*$/) {
	$doinit = 0;
	next;
    }
    s/\\\@/\@/g;
    print if ($doinit);
}

print <




EOF