# 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.
use strict;
use RIB::Util ();
$|=1; # unbuffer
my $util = RIB::Util->new();
my %in = RIB::Util->ReadParse();
$util->PrintHeader();
my $repository = $util->GetRepoName();
if (!$repository) {
$util->ErrorMessage("repository was not specifed in your input.");
}
my $filepath = $util->GetRibDir() . "/repositories/" . $repository;
my $urlpath = $util->GetRibUrl() . "/repositories/" . $repository;
my $back_to_top = $util->BackToTop($repository);
unless (-f "$filepath/catalog/.nonlocal" or -s "$filepath/catalog/.nonlocal") {
print <<"EOF";
No Links
Non-local links in $repository
This repository's catalog contains no links to foreign Assets.
$back_to_top
EOF
exit;
}
unless ($util->InitNonLocal($repository)) {
$util->ErrorMessage('Access to the links is currently locked.'
.' Please try pressing the Reload button in your web client.'
.' If this message persists, contact your RIB administrator
');
}
print <<"EOF";
Catalog entries for Non-local links in $repository
Catalog entries for Non-local links in $repository
EOF
my @list_o_links;
my $link;
@list_o_links = $util->NonLocalLink();
foreach $link ( sort {$a->{URL} cmp $b->{URL}} @list_o_links ){
print <<"EOF";
- Catalog Entry :
{FILE}\">$link->{FILE}
- linked to :
{URL}\">$link->{URL}
EOF
}
print '
',$back_to_top;
$util->CommitNonLocal();