#!/usr/bonsaitools/bin/perl --
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public License
# Version 1.0 (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.
#
# Unroll a module
#
require 'lloydcgi.pl';
require 'cvsmenu.pl';
$|=1;
$CVS_ROOT = $form{"cvsroot"};
print "Content-type: text/html
";
require 'modules.pl';
print "
CVS Module Analyzer
";
cvsmenu("align=right width=20%");
print "
CVS Module Analyzer
This tool will show you the directories and files that make up a given
cvs module.
";
print "
";
if( $form{module} ne '' ){
$mod = $form{module};
print "Examining Module '$mod'
\n\n";
$mod_map = &get_module_map( $mod );
for $i (sort keys %$mod_map) {
if( -d "$CVS_ROOT/$i"){
print "Dir: ";
print "$i";
}
elsif ( -r "$CVS_ROOT/$i,v" ){
print "File: ";
print "$i";
}
else {
print "Error: ";
print "$i : Not a file or a directory.";
}
if( $mod_map->{$i} == $IS_LOCAL ){
print " LOCAL";
}
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]";
}
}