#!/usr/local/bin/perl
use lib '/usr/local/rib/lib';
# NHSE Repository in a Box (RIB)
#
# The authors of this software are Paul McMahan and Jeff Horner.
# Copyright (c) 1997 by the University of Tennessee.
# Permission to use, copy, modify, and distribute this software for any
# purpose without fee is hereby granted, provided that this entire notice
# is included in all copies of any software which is or includes a copy
# or modification of this software and in all copies of the supporting
# documentation for such software.
# THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTY. IN PARTICULAR, NEITHER THE AUTHORS NOR UNIVERSITY OF TENNESSEE
# MAKE ANY REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE
# MERCHANTABILITY OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE.
#
# $Id: browse_objects.pl,v 1.1.1.1 1997/12/10 15:59:32 jhorner Exp $
#
# $Log: browse_objects.pl,v $
# Revision 1.1.1.1 1997/12/10 15:59:32 jhorner
# RIB pre 1.0
#
# Revision 1.2 1997/05/06 20:08:13 jhorner
# Removed the 'rename' feature.
#
# Revision 1.1 1997/05/06 18:15:16 jhorner
# Initial revision
use RIB::Util ();
my $util = RIB::Util->new();
my %in = RIB::Util->ReadParse();
$util->PrintHeader;
$repository = $util->GetRepoName();
if (!$repository) {
$util->ErrorMessage("Your input to this script didn't specify a repository");
} elsif (!$in{class}) {
$util->ErrorMessage("Your input to this script didn't specify a class");
}
$RIBDIR = $util->GetRibDir();
$RIBURL = $util->GetRibUrl();
$back_to_top = $util->BackToTop($repository);
$top = "$in{class} description file "
. "browser for "$repository""
. "\n"
. "\n"
. "$in{class} description file browser for \"$repository\"\n"
. "
\n";
if (!opendir(DIR,"$RIBDIR/repositories/$repository/objects/$in{class}")) {
$util->ErrorMessage("Couldn't open the directory "
. "$RIBDIR/repositories/$repository/objects/$in{class} "
. "to check for $in{class} object description files.\n"
. "
Reason : $!");
}
print $top;
foreach $file (sort readdir(DIR)) {
next if (-d $file);
($perty_name = $file) =~ s/\.html$//;
$options .= "
$perty_name\n";
print "\n$options
\n";
} else {
print "No $in{class} object description files currently exist for ";
print ""$repository"\n";
}
print $back_to_top;
print "\n";
exit;