version 1.4, 1997/02/03 20:47:12 |
version 1.5, 1997/03/20 01:36:20 |
Line 469 if (-d $fullname) { |
|
Line 469 if (-d $fullname) { |
|
print &html_footer; |
print &html_footer; |
print "</BODY></HTML>\n"; |
print "</BODY></HTML>\n"; |
} else { |
} else { |
|
# Assume it's a module name with a potential path following it. |
|
$where =~ s|/.*||; |
|
$xtra = $&; |
# 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") { |
&redirect($scriptname . '/' . $1); |
&redirect($scriptname . '/' . $1 . $xtra); |
} |
} |
} |
} |
} |
} |
|
|
local(@r2) = split(/\./, $rev2); |
local(@r2) = split(/\./, $rev2); |
local($a,$b); |
local($a,$b); |
|
|
while (($a = pop(@r1)) && ($b = pop(@r2))) { |
while (($a = shift(@r1)) && ($b = shift(@r2))) { |
if ($a != $b) { |
if ($a != $b) { |
return $a <=> $b; |
return $a <=> $b; |
} |
} |