version 3.12, 2000/08/15 06:54:01 |
version 3.13, 2000/08/15 08:35:51 |
|
|
# User configuration is stored in |
# User configuration is stored in |
$config = undef; |
$config = undef; |
|
|
for ($ENV{CVSWEB_CONFIG}, '/usr/local/etc/cvsweb.conf', getcwd . '/cvsweb.conf') { |
for ($ENV{CVSWEB_CONFIG}, |
|
# '/home/knu/etc/cvsweb.conf', |
|
'/usr/local/etc/cvsweb.conf', |
|
getcwd . '/cvsweb.conf') { |
$config = $_ if defined($_) && -r $_; |
$config = $_ if defined($_) && -r $_; |
} |
} |
|
|
Line 717 elsif (-d $fullname) { |
|
Line 720 elsif (-d $fullname) { |
|
print "<OPTION VALUE=\"\">All tags / default branch\n"; |
print "<OPTION VALUE=\"\">All tags / default branch\n"; |
foreach my $tag (reverse sort { lc $a cmp lc $b } keys %tags) { |
foreach my $tag (reverse sort { lc $a cmp lc $b } keys %tags) { |
print "<OPTION",defined($input{only_with_tag}) && |
print "<OPTION",defined($input{only_with_tag}) && |
$input{only_with_tag} eq $tag ? " SELECTED":"", |
$input{only_with_tag} eq $tag ? " SELECTED" : "", |
">$tag\n"; |
">$tag\n"; |
} |
} |
print "</SELECT>\n"; |
print "</SELECT>\n"; |
Line 753 elsif (-d $fullname) { |
|
Line 756 elsif (-d $fullname) { |
|
printDiffSelect(0); |
printDiffSelect(0); |
print "</td>"; |
print "</td>"; |
print "<td>Show Attic files: "; |
print "<td>Show Attic files: "; |
print "<INPUT NAME=hideattic TYPE=CHECKBOX", $input{'hideattic'}?" CHECKED":"", |
print "<INPUT NAME=hideattic TYPE=CHECKBOX", $input{'hideattic'} ? " CHECKED" : "", |
"></td></tr>\n"; |
"></td></tr>\n"; |
print "<tr><td align=center colspan=2><input type=submit value=\"Change Options\">"; |
print "<tr><td align=center colspan=2><input type=submit value=\"Change Options\">"; |
print "</td></tr></table></center></FORM>\n"; |
print "</td></tr></table></center></FORM>\n"; |
Line 909 sub spacedHtmlText($) { |
|
Line 912 sub spacedHtmlText($) { |
|
local $_ = $_[0]; |
local $_ = $_[0]; |
|
|
# Cut trailing spaces |
# Cut trailing spaces |
s/\s+$//; |
s/\s+\n$//; |
|
|
# Expand tabs |
# Expand tabs |
s/\t+/' ' x (length($&) * $tabstop - length($`) % $tabstop)/e |
s/\t+/' ' x (length($&) * $tabstop - length($`) % $tabstop)/e |