# 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: admin_repository.pl,v 1.6 1998/02/11 18:11:54 rib Exp $ # # $Log: admin_repository.pl,v $ # Revision 1.6 1998/02/11 18:11:54 rib # fixed broken link from help/quickstart.html -> help/quickguide.html # # Revision 1.5 1998/01/23 20:39:19 rib # *** empty log message *** # # Revision 1.4 1998/01/23 20:20:59 rib # added another link to the quickstart guide # # Revision 1.3 1998/01/23 20:15:28 rib # added more pointers to the RIB Quickstart guide # # Revision 1.2 1998/01/22 02:50:06 rib # added the upload and mirroring feature to RIB. This required # the addition of several new scripts and the modification of # admin_repository. # # also, removed any use of # from the RIB scripts because this was working out very # well. # # Revision 1.1.1.1 1997/12/10 15:59:31 jhorner # RIB pre 1.0 # # Revision 1.2 1997/05/26 13:31:13 mcmahan # changed $cgipath to use the admin/ subdirectory because of the problems # with access control # # Revision 1.1 1997/05/06 18:15:01 jhorner # Initial revision # use RIB::Util (); use RIB::ConfigParser (); my $util = RIB::Util->new(); $util->PrintHeader(); my $back_to_top = $util->BackToTop(); ############################################################################# my $repository = $util->GetRepoName(); unless ($repository) { $util->ErrorMessage("Couldn't derive repository name " . "from current directory"); } my $RIBDIR = $util->GetRibDir(); my $RIBURL = $util->GetRibUrl(); my $urlpath = "$RIBURL/repositories/$repository"; my $cgipath = "$RIBURL/cgi-bin/admin/repositories/$repository"; my $filepath = "$RIBDIR/repositories/$repository"; my $config = RIB::ConfigParser->new(); $config->load_config($filepath . "/conf/BIDM.conf"); my @classes = sort $config->Classes(); print <<"EOF"; Administrate repository named "$repository"

Administrate repository named "$repository"

$back_to_top

RIB User's Guide    RIB Quickstart Guide

EOF my $class; foreach $class (@classes) { next if $class eq 'RigObject'; print <<"EOF"; EOF } print <<"EOF";
Configure This Repository [ help]

Help on configuring access control

View or Edit current Configuration file View or Edit current Domains file
Install a new Configuration file : Install a new Domains file :


Create Asset Descriptions [ help] [ quickstart guide]
Class Name Action
$class Browse Create Edit Delete Import


HTML Software Catalog [ help]
EOF if (-f $filepath . "/catalog/index.html") { print "Regenerate "; } else { print "Generate "; } print <<"EOF"; Software Catalog EOF if (-f $filepath . "/catalog/index.html") { print <<"EOF"; View Current Software Catalog EOF } else { print "View Current Software Catalog\n"; } print <<"EOF";
Headers Footers

Install, Edit, or View Catalog header

EOF my $footers; # loop over classes once. We'll print out the header stuff, but # cache the footer stuff and print it out after the loop. foreach ( @classes ){ next if $_ eq "RigObject"; print "Install, Edit,"; if (-f $filepath . "/conf/${_}.header") { print " or View ${_} header

\n"; } else { print " or View ${_} header

\n"; } $footers .= "Install, Edit,\n"; if (-f $filepath . "/conf/${_}.footer") { $footers .= " or View ${_} footer

\n"; } else { $footers .= " or View ${_} footer

\n"; } } print <<"EOF";
Install, Edit, or View Catalog footer

$footers


Interoperate With Another Repository [ help ]


Manage software files for this repository [ help ]
$back_to_top EOF exit;