# 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: RIB.pl,v 1.2 1998/01/23 20:15:27 rib Exp $
#
# $Log: RIB.pl,v $
# Revision 1.2 1998/01/23 20:15:27 rib
# added more pointers to the RIB Quickstart guide
#
# Revision 1.1.1.1 1997/12/10 15:59:32 jhorner
# RIB pre 1.0
#
# Revision 1.2 1997/05/26 14:45:05 mcmahan
# fixed script to not use "../" when it tries to reference certain
# directory. it now uses RIB::Util::GetRibDir(). Also, added "admin/"
# to the "cgi-bin/" paths where appropriate - this is to fix the access
# control bug
#
# Revision 1.1 1997/05/06 18:19:15 jhorner
# Initial revision
#
use strict;
use RIB::Util;
my $util = RIB::Util->new();
$util->PrintHeader();
#############################################################################
my (@repositories, $dirname, $repository);
if (opendir(REPOSITORY_DIR, $util->GetRibDir() . "/repositories")) {
foreach $dirname (readdir(REPOSITORY_DIR)) {
next unless -d $util->GetRibDir() . "/repositories/$dirname";
next if $dirname =~ /^\./;
push (@repositories, $dirname);
}
closedir(REPOSITORY_DIR);
}
else {
$util->ErrorMessage("Couldn't open your repositories directory.");
}
print "RIB administration page\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "";
print ", ) ";
print "";
print " | \n";
print "\n";
print "RIB Administration Page\n";
print " | \n";
print "\n";
print "";
print "";
print "";
print " | \n";
print "
\n";
print "
\n";
print "\n";
print "
\n";
print "
\n";
print "
\n";
print "\n";
print "Repository in a Box (RIB) is a software package for setting up\n";
print "and maintaining software repositories. RIB has been developed\n";
print "by the National High Performance ";
print "Software Exchange\n";
print "Technical Team.\n";
print "For examples of repositories that use RIB, see\n";
print "PTLIB and\n";
print "HPC-Netlib.\n";
print "Using RIB will allow your repository to interoperate with other\n";
print "NHSE repositories, as well as with a growing number of other\n";
print "software repositories that use the \n";
print "Basic Interoperability Data Model (BIDM), which is the IEEE\n";
print "standard for interoperable software cataloging on the Internet.
\n";
print "Please direct questions or comments about RIB to\n";
print "nhse-tech\@nhse.org.\n";
print "\n";
print "
\n";
print "\n";
exit;