Attachment 160660 Details for Bug 214276 – New file: admserv/cgi-src40/ds_unregister.in

New file: admserv/cgi-src40/ds_unregister.in

ds_unregister.in (text/plain), 2.86 KB, created by Noriko Hosoi on 2007-08-03 20:55:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Noriko Hosoi

Created: 2007-08-03 20:55:27 UTC

Size: 2.86 KB

patch

obsolete

>#!/usr/bin/env perl
># BEGIN COPYRIGHT BLOCK
># This Program is free software; you can redistribute it and/or modify it under
># the terms of the GNU General Public License as published by the Free Software
># Foundation; version 2 of the License.
># 
># This Program is distributed in the hope that it will be useful, but WITHOUT
># ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
># FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
># 
># You should have received a copy of the GNU General Public License along with
># this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
># Place, Suite 330, Boston, MA 02111-1307 USA.
># 
># Copyright (C) 2007 Red Hat, Inc.
># All rights reserved.
># END COPYRIGHT BLOCK
>#
>
>use lib '@perldir@';
>
>use strict;
>
>use CGI qw(:cgi :oldstyle_urls);
>use Inf;
>use AdminUtil;
>use Util;
>use Resource;
>
>my $res = new Resource("@propertydir@/ds_remove.res",
>                       "@propertydir@/setup-ds-admin.res",
>                       "@propertydir@/setup-ds.res");
>
># parse the input parameters
>my $query = new CGI;
>
># call ds_newinst as a GET (GET or POST works, GET is simpler)
>$ENV{REQUEST_METHOD} = "GET";
>$ENV{QUERY_STRING} = $query->query_string();
>
>my $instname = $query->param('InstanceName');
>my ($slapd, $inst) = split(/-/, $instname, 2);
>my $configdir = "@instconfigdir@/slapd-$inst";
>if ( ! -d $configdir )
>{
>    print "Content-type: text/plain\n\n";
>    print "NMC_ErrInfo: $configdir does not exist\n";
>    print "NMC_Status: 1\n";
>    print STDERR "Error: $configdir does not exist\n";
>    exit 1;
>}
>my @errs;
>my $inf = createInfFromConfig($configdir, $inst, \@errs);
>if (@errs)
>{
>    print "Content-type: text/plain\n\n";
>    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
>    print "NMC_Status: 1\n";
>    print STDERR "Error: ", $res->getText(@errs), "\n";
>    exit 1;
>}
>
># add the parmeters necessary to configure this DS to be managed
># by the console and to be registered with the config DS - these
># are usually passed in via the CGI params, or use reasonable
># default values
>my $admConf = getAdmConf("@instconfigdir@/admin-serv");
>$inf->{General}->{ConfigDirectoryLdapURL} = $query->param('ldap_url') ||
>    $admConf->{ldapurl};
>$inf->{General}->{AdminDomain} = $query->param('admin_domain') ||
>    $admConf->{AdminDomain};
>
># Unregister the server from the configuration ds
># get config ds url from input or admconf
># get admin id from input or admconf
># must get admin password from input (PASSWORD_PIPE?)
># get admin domain
># config ds info
>if (!unregisterDSWithConfigDS($inst, \@errs, $inf))
>{
>    print "Content-type: text/plain\n\n";
>    print "NMC_ErrInfo: ", $res->getText(@errs), "\n";
>    print "NMC_Status: 1\n";
>    print STDERR "Error:", $res->getText(@errs), "\n";
>    exit 1;
>}
>
># if we got here, report success
>print "Content-type: text/plain\n\n";
>print "NMC_Status: 0\n";
>exit 0;

Actions: View

Attachments on bug 214276: 160660 | 160661 | 160662 | 160673