version 1.5, 1997/03/20 01:36:20 |
version 1.6, 1997/04/30 07:35:11 |
Line 475 if (-d $fullname) { |
|
Line 475 if (-d $fullname) { |
|
# Is there an indexed version of modules? |
# Is there an indexed version of modules? |
if (open(MODULES, "$cvsroot/CVSROOT/modules")) { |
if (open(MODULES, "$cvsroot/CVSROOT/modules")) { |
while (<MODULES>) { |
while (<MODULES>) { |
if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") { |
if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1" && ($1 ne $where)) { |
&redirect($scriptname . '/' . $1 . $xtra); |
&redirect($scriptname . '/' . $1 . $xtra); |
} |
} |
} |
} |
} |
} |
&fatal("404 Not Found","$where: no such file or directory"); |
&fatal("404 Not Found","$where$xtra: no such file or directory"); |
} |
} |
|
|
sub htmlify { |
sub htmlify { |