version 1.21, 1998/07/23 09:42:40 |
version 1.23, 1998/08/15 09:59:11 |
|
|
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
# SUCH DAMAGE. |
# SUCH DAMAGE. |
# |
# |
# $fId$ |
# $fId: cvsweb.cgi,v 1.22 1998/08/13 10:35:26 wosch Exp $ |
# |
# |
|
|
|
|
Line 144 if (!-d $cvsroot) { |
|
Line 144 if (!-d $cvsroot) { |
|
{ |
{ |
local(@foo, $i); |
local(@foo, $i); |
local($scriptname) = $ENV{'SCRIPT_NAME'}; |
local($scriptname) = $ENV{'SCRIPT_NAME'}; |
foreach (keys %CVSROOT) { |
foreach (sort keys %CVSROOT) { |
if (-d $CVSROOT{$_}) { |
if (-d $CVSROOT{$_}) { |
push(@foo, $_); |
push(@foo, $_); |
} |
} |
Line 173 if (-d $fullname) { |
|
Line 173 if (-d $fullname) { |
|
print $shortinstr; |
print $shortinstr; |
} |
} |
print "<p>"; |
print "<p>"; |
print "Current CVS tree: <b>$cvstree</b><br>\n" |
print "Current CVS tree: <b>", |
if $cvstree ne $cvstreedefault; |
($CVSROOTdescr{"$cvstree"} ? $CVSROOTdescr{"$cvstree"} : |
|
$cvstree), "</b><br>\n"; |
print "Current directory: <b>/$where</b>\n"; |
print "Current directory: <b>/$where</b>\n"; |
print "<P><HR NOSHADE>\n"; |
print "<P><HR NOSHADE>\n"; |
# Using <MENU> in this manner violates the HTML2.0 spec but |
# Using <MENU> in this manner violates the HTML2.0 spec but |