version 1.12, 1997/11/19 19:07:18 |
version 1.14, 1998/01/12 16:27:14 |
Line 228 print("going to dolog($fullname)\n") if ($verbose); |
|
Line 228 print("going to dolog($fullname)\n") if ($verbose); |
|
# Display a form offering diffs between said tags |
# Display a form offering diffs between said tags |
} else { |
} else { |
# Assume it's a module name with a potential path following it. |
# Assume it's a module name with a potential path following it. |
($module = $where) =~ s|/.*||; |
$xtra = $& if (($module = $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 (/^1\.1\.1\.\d+$/) { |
if (/^1\.1\.1\.\d+$/) { |
print " <i>(vendor branch)</i>"; |
print " <i>(vendor branch)</i>"; |
} |
} |
print " <i>" . &ctime($date{$_}) . "</i> by "; |
print " <i>" . &ctime($date{$_}) . " UTC</i> by "; |
print "<i>" . $author{$_} . "</i>\n"; |
print "<i>" . $author{$_} . "</i>\n"; |
if ($revsym{$_}) { |
if ($revsym{$_}) { |
print "<BR>CVS Tags: <b>$revsym{$_}</b>"; |
print "<BR>CVS Tags: <b>$revsym{$_}</b>"; |