#!/usr/local/rib/rib-1.0/bin/perl
use lib '/usr/local/rib/rib-1.0/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: delete_nonlocal_link.pl,v 1.1.1.1 1997/12/10 15:59:32 jhorner Exp $
#
# $Log: delete_nonlocal_link.pl,v $
# Revision 1.1.1.1 1997/12/10 15:59:32 jhorner
# RIB pre 1.0
#
# Revision 1.1 1997/05/06 18:16:19 jhorner
# Initial revision
#
use RIB::Util ();
my %in = RIB::Util->ReadParse();
use HTML::Entities ();
my $util = RIB::Util->new();
$util->PrintHeader();
$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;
$back_to_top = $util->BackToTop($repository);
$top = "Delete catalog links for "$repository""
. "\n"
. "\n"
. "Delete catalog link for $repository
\n"
. "
\n";
if (!(-f "$filepath/catalog/.nonlocal") or -z "$filepath/catalog/.nonlocal") {
print $top;
print "This repository does not contain links to any foreign assets.\n";
print $back_to_top;
exit;
}
# We have now verified that the user wants to delete
# $in{url}, so do it.
if ($in{verify}) {
$| = 1;
$in{url} or $util->ErrorMessage("Your input didn't specify a url");
#open the current list of urls to foreign assets
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
');
}
# Remove $in{url}
$util->RemoveNonLocalLink($in{url});
$util->CommitNonLocal();
print $top;
print "The link was successfully deleted.\n";
print $back_to_top;
unless (-z "$filepath/catalog/.nonlocal") {
print "
";
print "Delete another foreign link for this repository's catalog\n";
}
exit;
} elsif ($in{url}) {
print $top;
print "Are you sure that you want to delete the following url ";
print "from this repository's list of links to foreign Assets?
\n";
print "
- $in{url}
\n";
print "| \n";
print "\n";
print " | \n";
print "\n";
print " |
\n";
print $back_to_top;
exit;
# We were called with no args from create_object_choices.pl
# list the urls.
} else {
print $top;
if ($util->InitNonLocal($repository)){
print "Please choose the link that you want to delete :\n\n";
$util->CommitNonLocal();
} else {
$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 $back_to_top;
}