--- web/cgi-bin/cvslog.cgi 2001/06/13 15:24:40 1.8 +++ web/cgi-bin/cvslog.cgi 2001/06/13 15:29:51 1.9 @@ -46,13 +46,14 @@ print <<"END";
END print `$updatecmd`; -my $modulelist = `ls $cvsroot`; +my($modulelist)=$query->param('module'); +$modulelist = `ls $cvsroot` unless defined $modulelist; + my(@modules) = split (/\s+/, $modulelist); foreach my $module (@modules) {