зеркало из https://github.com/mozilla/pjs.git
148 строки
3.4 KiB
Perl
Executable File
148 строки
3.4 KiB
Perl
Executable File
#!/usr/bonsaitools/bin/perl -w
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# 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/
|
|
#
|
|
# 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.
|
|
#
|
|
# The Original Code is the Bonsai CVS tool.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are
|
|
# Copyright (C) 1998 Netscape Communications Corporation. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
|
|
#
|
|
# Unroll a module
|
|
#
|
|
|
|
use strict;
|
|
|
|
# Shut up misguided -w warnings about "used only once". "use vars" just
|
|
# doesn't work for me.
|
|
|
|
sub sillyness {
|
|
my $zz;
|
|
$zz = $::TreeID;
|
|
$zz = $::TreeInfo;
|
|
}
|
|
|
|
require 'CGI.pl';
|
|
|
|
$|=1;
|
|
|
|
print "Content-type: text/html\n\n";
|
|
|
|
my $CVS_ROOT = $::FORM{'cvsroot'};
|
|
$CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
|
|
&validateRepository($CVS_ROOT);
|
|
|
|
PutsHeader("CVS Module Analyzer", $CVS_ROOT);
|
|
|
|
cvsmenu("align=right width=20%");
|
|
|
|
print "
|
|
<p><b>This tool will show you the directories and files that make up a given
|
|
cvs module.</b>
|
|
";
|
|
|
|
|
|
print "
|
|
<p>
|
|
<FORM METHOD=GET ACTION='moduleanalyse.cgi'>
|
|
";
|
|
|
|
|
|
#
|
|
# module selector
|
|
#
|
|
print "
|
|
|
|
<nobr><b>Module:</b>
|
|
<SELECT name='module' size=5>
|
|
";
|
|
|
|
my $inmod = &SanitizeModule($::FORM{module}) || 'default';
|
|
my $Module = 'default';
|
|
if( $inmod eq 'all' || $inmod eq 'default' || $inmod eq '' ){
|
|
print "<OPTION SELECTED VALUE='all'>All Files in the Repository\n";
|
|
} else {
|
|
print "<OPTION VALUE='all'>All Files in the Repository\n";
|
|
print "<OPTION SELECTED VALUE='$inmod'>$inmod\n";
|
|
$Module = $inmod;
|
|
}
|
|
|
|
#
|
|
# Print out all the Different Modules
|
|
#
|
|
$::TreeID = $Module if (exists($::TreeInfo{$Module}{'repository'}));
|
|
LoadDirList();
|
|
for my $k (sort( grep(!/\*$/, @::LegalDirs) ) ){
|
|
print "<OPTION value='" . &url_quote($k) . "'>$k\n" if ($k ne $Module);
|
|
}
|
|
|
|
print "</SELECT></NOBR>\n";
|
|
|
|
|
|
print "
|
|
<br>
|
|
<br>
|
|
<INPUT TYPE=HIDDEN NAME=cvsroot VALUE='$CVS_ROOT'>
|
|
<INPUT TYPE=SUBMIT VALUE='Examine Module'>
|
|
</FORM>";
|
|
|
|
|
|
if( $inmod ne '' ){
|
|
my $mod = $inmod;
|
|
print "<h1>Examining Module '$mod'</h1>\n\n";
|
|
|
|
for my $i (sort( grep(!/\*$/, @::LegalDirs) ) ){
|
|
my $j = &url_quote($i);
|
|
my $k = &html_quote($i);
|
|
if( -d "$CVS_ROOT/$i"){
|
|
print "<dt><tt>Dir: </tt>";
|
|
print "<a href=rview.cgi?dir=$j&cvsroot=$CVS_ROOT>$k</a>";
|
|
}
|
|
elsif ( -r "$CVS_ROOT/$i,v" ){
|
|
print "<dt><font color=blue><tt>File: </tt></font>";
|
|
print "<a href=cvsblame.cgi?file=$j&root=$CVS_ROOT>$k</a>";
|
|
}
|
|
else {
|
|
print "<dt><font color=red><tt>Error: </tt></font>";
|
|
print "$k : Not a file or a directory.";
|
|
}
|
|
|
|
# if( $mod_map->{$i} == $IS_LOCAL ){
|
|
# print "<font color=blue><tt> LOCAL</tt></font>";
|
|
# }
|
|
print "\n";
|
|
}
|
|
}
|
|
|
|
|
|
sub sortTest {
|
|
if( $_[0] eq $::FORM{sortby} ){
|
|
return " SELECTED";
|
|
}
|
|
else {
|
|
return "";
|
|
}
|
|
}
|
|
|
|
sub dateTest {
|
|
if( $_[0] eq $::FORM{date} ){
|
|
return " CHECKED value=$_[0]";
|
|
}
|
|
else {
|
|
return "value=$_[0]";
|
|
}
|
|
}
|