#!/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

Projects by Email Addresses

EOH $didit = 0; $doinit = 0; while () { next if (m/^\#/); if (m/^([^\&]+)\&/) { $currproj = $1; next; } s/\\\@/\@/g; foreach $u (split(' ',$_)) { $projs{$u} = "$projs{$u}$sep{$u}$currproj"; $sep{$u} = ", "; } } foreach $u (sort keys %projs) { print "\n"; print "\n"; } print <

EOF

EMail Address	Projects
$u	$projs{$u}