|
Lines 1-4
Link Here
|
| 1 |
#!/usr/bin/perl -T |
1 |
#!!!PERL!! -wT |
| 2 |
# |
2 |
# |
| 3 |
# cvsweb - a CGI interface to CVS trees. |
3 |
# cvsweb - a CGI interface to CVS trees. |
| 4 |
# |
4 |
# |
|
Lines 214-220
Link Here
|
| 214 |
|
214 |
|
| 215 |
# == EDIT this == |
215 |
# == EDIT this == |
| 216 |
# Locations to search for user configuration, in order: |
216 |
# Locations to search for user configuration, in order: |
| 217 |
for (catfile($mydir, 'cvsweb.conf'), '/usr/local/etc/cvsweb/cvsweb.conf') { |
217 |
for (catfile($mydir, 'cvsweb.conf'), '!!PREFIX!!/etc/cvsweb/cvsweb.conf') { |
| 218 |
if (-r $_) { |
218 |
if (-r $_) { |
| 219 |
$config = $_; |
219 |
$config = $_; |
| 220 |
last; |
220 |
last; |
|
Lines 1192-1198
Link Here
|
| 1192 |
<legend>General options</legend> |
1192 |
<legend>General options</legend> |
| 1193 |
<input type="hidden" name="copt" value="1" /> |
1193 |
<input type="hidden" name="copt" value="1" /> |
| 1194 |
EOF |
1194 |
EOF |
| 1195 |
for my $v qw(hidecvsroot hidenonreadable) { |
1195 |
for my $v (qw(hidecvsroot hidenonreadable)) { |
| 1196 |
printf(qq{<input type="hidden" name="%s" value="%s" />\n}, |
1196 |
printf(qq{<input type="hidden" name="%s" value="%s" />\n}, |
| 1197 |
$v, $input{$v} || 0); |
1197 |
$v, $input{$v} || 0); |
| 1198 |
} |
1198 |
} |