Revert "Embed Safe 2.07 into Vend::Safe to avoid various problems with recent version...
[interchange.git] / code / UI_Tag / reconfig.coretag
1 # Copyright 2002-2007 Interchange Development Group and others
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.  See the LICENSE file for details.
7
8 # $Id: reconfig.coretag,v 1.5 2007-03-30 23:40:54 pajamian Exp $
9
10 UserTag reconfig Order   name table file
11 UserTag reconfig Version $Revision: 1.5 $
12 UserTag reconfig Routine <<EOR
13 use strict;
14 sub {
15         my ($name, $table, $file) = @_;
16         $name ||= $Vend::Cfg->{CatalogName};
17
18         my $myname = $Vend::Cfg->{CatalogName};
19 #::logGlobal("Trying to reconfig $name");
20
21         if($myname ne '_mv_admin' and $myname ne $name) {
22                         $::Values{mv_error_tag_restart} =
23                                 "Not authorized to reconfig that catalog.";
24                         return undef;
25         }
26 #::logGlobal("Passed name check on reconfig $name");
27
28         my $script = $Global::Catalog{$name}->{script};
29         unless($script) {
30                 logGlobal("Attempt to reconfigure catalog without script?");
31                 logError("Attempt to reconfigure catalog without script?");
32                 return undef;
33         }
34
35         if($table and $file) {
36                 $script = join "\t", $script, $table, $file;
37         }
38         logData("$Global::RunDir/reconfig", $script);
39         return 1;
40 }
41 EOR