gecko-dev/webtools/bonsai/rview.cgi

287 строки
6.7 KiB
Plaintext
Исходник Обычный вид История

#!/usr/bin/perl -w
1998-06-17 01:43:24 +04:00
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
1999-11-02 02:33:56 +03:00
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
1998-06-17 01:43:24 +04:00
#
1999-11-02 02:33:56 +03:00
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
1998-06-17 01:43:24 +04:00
#
# The Original Code is the Bonsai CVS tool.
#
# The Initial Developer of the Original Code is Netscape Communications
1999-11-02 02:33:56 +03:00
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s):
1998-06-17 01:43:24 +04:00
#
# Query the CVS database.
#
use strict;
# Shut up misguided -w warnings about "used only once". "use vars" just
# doesn't work for me.
sub sillyness {
my $zz;
$zz = $::Setup_String;
$zz = $::script_type;
}
require 'CGI.pl';
1998-06-17 01:43:24 +04:00
$|=1;
my $CVS_ROOT = $::FORM{"cvsroot"};
$CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
&validateRepository($CVS_ROOT);
&LoadTreeConfig();
my $intreeid = &SanitizeModule($::FORM{'treeid'});
my $inmod = &SanitizeModule($::FORM{'module'});
if ($intreeid && exists($::TreeInfo{$intreeid}{'repository'}) &&
!exists($::TreeInfo{$intreeid}{'nobonsai'})) {
$::TreeID = $intreeid;
} elsif ($inmod && exists($::TreeInfo{$inmod}{'repository'}) &&
!exists($::TreeInfo{$inmod}{'nobonsai'})) {
$::TreeID = $inmod;
} else {
$::TreeID = 'default';
}
1998-06-17 01:43:24 +04:00
# get dir, remove leading and trailing slashes
my $dir = $::FORM{"dir"} || "";
$dir =~ s/^[\/]+([^:]*)/$1/;
$dir =~ s/([^:]*)[\/]+$/$1/;
my $path = "$CVS_ROOT/$dir";
$path = &ChrootFilename($CVS_ROOT, $path);
die "Invalid directory: " . &shell_escape($dir) . ".\n" if (! -d $path);
1998-06-17 01:43:24 +04:00
my $rev = &SanitizeRevision($::FORM{"rev"});
print "Content-type: text/html\n\n";
1998-06-17 01:43:24 +04:00
my $registryurl = Param('registryurl');
$registryurl =~ s@/$@@;
my $script_str;
1998-06-17 01:43:24 +04:00
&setup_script;
$::Setup_String = $script_str;
1998-06-17 01:43:24 +04:00
my $s = "";
1999-10-19 20:41:40 +04:00
if ($rev) {
1998-06-17 01:43:24 +04:00
$s = "for branch <i>$rev</i>";
}
my $revstr = '';
$revstr = "&rev=$rev" unless $rev eq '';
my $rootstr = '';
$rootstr .= "&cvsroot=$CVS_ROOT";
$rootstr .= "&module=$::TreeID";
my $module = $::TreeInfo{$::TreeID}{'module'};
my $toplevel = Param('toplevel');
&PutsHeader("Repository Directory $toplevel/" . &html_quote($dir) . " $s", "");
my $output = "<DIV ALIGN=LEFT>";
$output .= "<A HREF='toplevel.cgi" . BatchIdPart('?') . "'>$toplevel</a>/ ";
my ($dir_head, $dir_tail) = $dir =~ m@(.*/)?(.+)@;
$dir_head = "" unless defined $dir_head;
1999-10-20 04:27:16 +04:00
$dir_tail = "" unless defined $dir_tail;
my $link_path = "";
foreach my $path (split('/',$dir_head)) {
1998-06-17 01:43:24 +04:00
$link_path .= $path;
$output .= "<A HREF='rview.cgi?dir=" . &url_quote($link_path) .
"$rootstr$revstr'>$path</A>/ ";
1998-06-17 01:43:24 +04:00
$link_path .= '/';
}
chop ($output);
$output .= " " . &html_quote($dir_tail) . "/ $s ";
1998-06-17 01:43:24 +04:00
$output .= "</DIV>";
print "$output\n";
print '<table width="100%"><tr><td width="70%" VALIGN=TOP><HR>';
1998-06-17 01:43:24 +04:00
my $other_dir;
($other_dir = $dir) =~ s!^$module/?!!;
my $other_dir_used = 1;
1998-06-17 01:43:24 +04:00
LoadDirList();
if (-d "$CVS_ROOT/$dir") {
chdir "$CVS_ROOT/$dir";
$other_dir_used = 0;
} elsif (-d "$CVS_ROOT/$other_dir") {
chdir "$CVS_ROOT/$other_dir";
} else {
chdir "$CVS_ROOT";
}
1998-06-17 01:43:24 +04:00
print "
<TABLE CELLPADDING=0 CELLSPACING=5>
<TR>
<TD>Goto Directory:</TD>
<TD>
<FORM action=rview.cgi method=get>
<INPUT name=dir value='$dir' size=30>
1998-06-17 01:43:24 +04:00
<INPUT name=rev value='$rev' type=hidden>
<INPUT name=module value='$::TreeID' type=hidden>
1998-06-17 01:43:24 +04:00
<INPUT name=cvsroot value='$CVS_ROOT' type=hidden>
<INPUT type=submit value='chdir'>
</FORM>
</TD>
</TR>
<TR>
<TD>Branch:</TD>
<TD>
<FORM action=rview.cgi method=get>
<INPUT name=rev value='$rev' size=30>
1998-06-17 01:43:24 +04:00
<INPUT name=dir value='$dir' type=hidden>
<INPUT name=module value='$::TreeID' type=hidden>
1998-06-17 01:43:24 +04:00
<INPUT name=cvsroot value='$CVS_ROOT' type=hidden>
<INPUT type=submit value='Set Branch'>
</FORM>
</TD>
</TR>
1998-06-17 01:43:24 +04:00
</TABLE>
";
my @dirs = ();
1998-06-17 01:43:24 +04:00
DIR:
while( <.* *> ){
1998-06-17 01:43:24 +04:00
if( -d $_ ){
next if $_ =~ /^\.{1,2}$/;
push @dirs, $_;
1998-06-17 01:43:24 +04:00
}
}
my $j;
my $split;
1998-06-17 01:43:24 +04:00
if( @dirs != 0 ){
$j = 1;
$split = int(@dirs/4)+1;
print "<P><FONT SIZE=+1><B>Directories:</B></FONT>\n";
print "<table>\n<TR VALIGN=TOP>\n<td>\n";
1998-06-17 01:43:24 +04:00
for my $i (@dirs){
my $ldir = ($dir ne "" ? "$dir/$i" : $i);
my $anchor = "?dir=$ldir$rootstr";
1998-06-17 01:43:24 +04:00
print "<dt><a href=rview.cgi${anchor}>$i</a>\n";
if( $j % $split == 0 ){
print "\n<td>\n";
}
$j++;
}
print "\n</tr>\n</table>\n";
1998-06-17 01:43:24 +04:00
}
print "<P><FONT SIZE=+1><B>Files:</B></FONT>\n";
print "<table>\n<TR VALIGN=TOP>\n<td>\n";
my @files = <.*,v *,v>;
1998-06-17 01:43:24 +04:00
$j = 1;
$split = int(@files/4)+1;
for $_ (@files){
$_ =~ s/\,v//;
print qq{<dt><a href="$registryurl/file.cgi?cvsroot=$CVS_ROOT&file=$_&dir=$dir$revstr"}
. " onclick=\"return js_file_menu('$dir','$_','$rev','$CVS_ROOT',event)\">";
print "$_</a>\n";
1998-06-17 01:43:24 +04:00
if( $j % $split == 0 ){
print "</td>\n<td>\n";
1998-06-17 01:43:24 +04:00
}
$j++;
}
print "</td>\n</tr></table>\n</td>\n<td>\n";
cvsmenu("");
print "</td>\n</tr></table>\n";
1998-06-17 01:43:24 +04:00
PutsTrailer();
1998-06-17 01:43:24 +04:00
sub setup_script {
$script_str = qq%
<script $::script_type><!--
1998-06-17 01:43:24 +04:00
var event = new Object;
function js_who_menu(n,extra,d) {
if( parseInt(navigator.appVersion) < 4 ||
navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
1998-06-17 01:43:24 +04:00
return true;
}
l = document.layers['popup'];
l.src="$registryurl/who.cgi?email="+n+extra;
if(d.target.y > window.innerHeight + window.pageYOffset - l.clip.height) {
l.top = (window.innerHeight + window.pageYOffset - l.clip.height);
} else {
l.top = d.target.y - 6;
}
1998-06-17 01:43:24 +04:00
l.left = d.target.x - 6;
1998-06-17 01:43:24 +04:00
if( l.left + l.clipWidth > window.width ){
l.left = window.width - l.clipWidth;
}
l.visibility="show";
return false;
}
function js_file_menu(dir,file,rev,root,d) {
if( parseInt(navigator.appVersion) < 4 ||
navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
1998-06-17 01:43:24 +04:00
return true;
}
l = document.layers['popup'];
l.src="$registryurl/file.cgi?file="+file+"&dir="+dir+"&rev="+rev+"&cvsroot="+root+"&linked_text="+d.target.text;
if(d.target.y > window.innerHeight + window.pageYOffset - l.clip.height) {
l.top = (window.innerHeight + window.pageYOffset - l.clip.height);
} else {
l.top = d.target.y - 6;
}
1998-06-17 01:43:24 +04:00
l.left = d.target.x - 6;
1998-06-17 01:43:24 +04:00
if( l.left + l.clipWidth > window.width ){
l.left = window.width - l.clipWidth;
}
1998-06-17 01:43:24 +04:00
l.visibility="show";
return false;
}
//--></script>
1998-06-17 01:43:24 +04:00
<layer name="popup" onMouseOut="this.visibility='hide';" left=0 top=0 bgcolor="#ffffff" visibility="hide">
</layer>
%;
1998-06-17 01:43:24 +04:00
}