#!/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: delete_object.pl,v 1.1.1.1 1997/12/10 15:59:31 jhorner Exp $
#
# $Log: delete_object.pl,v $
# Revision 1.1.1.1 1997/12/10 15:59:31 jhorner
# RIB pre 1.0
#
# Revision 1.1 1997/05/06 18:16:44 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();
$back_to_top = $util->BackToTop($repository);
$top = "$in{class} Deletion for "$repository""
. "\n"
. "\n"
. "$in{class} Deletion for "$repository"\n"
. "
\n";
if (exists $in{step} && defined $in{step} && $in{step}==3) {
if ($in{object}) {
unless (unlink "$RIBDIR/repositories/$repository/catalog/$in{class}/$in{object}.html") {
$util->ErrorMessage("Couldn't delete $RIBDIR/repositories/$repository/catalog/$in{class}/$in{object}.html "
. "
Reason: $!");
}
if (unlink "$RIBDIR/repositories/$repository/objects/$in{class}/$in{object}.html") {
print $top;
print "The $in{class} file named ";
print "$in{object} has been deleted\n";
print $back_to_top;
print "
";
print "Delete another $in{class} from this repository\n";
} else {
$util->ErrorMessage("Couldn't delete $RIBDIR/repositories/$repository/objects/$in{class}/$in{object}.html "
. "
Reason: $!");
}
} else {
$util->ErrorMessage("Your input to this script didn't specify an object "
. "description file to delete");
}
exit;
} elsif (exists $in{step} && defined $in{step} && $in{step}==2) {
print $top;
if ($in{object}) {
print "Are you sure you wish to delete the following \n";
print "$in{class} file?
\n";
print "
\n";
print "
\n";
print "\n";
print "| \n";
print "\n";
print " | \n";
print "\n";
print "\n";
print " | \n";
print "
\n";
} else {
print "You didn't select a $in{class} file to delete.\n";
}
print $back_to_top;
print "\n";
exit;
} else {
# Here's the code where we list the objects and possibly the
# links to delete. Only cgi variable set is 'class=Asset'.
#
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} files.\n"
. " Reason : $!");
}
print $top;
foreach $file (sort readdir(DIR)) {
next unless -f "$RIBDIR/repositories/$repository/objects/$in{class}/$file";
$file =~ s/\.html$//;
$options .= "
\n";
print "\n";
} else {
print "No $in{class} files currently exist for ";
print ""$repository"\n";
}
print $back_to_top;
print " \n";
exit;
}