root/trunk/midgard/tools/yamp/replace_host.pl

#!/usr/bin/perl
# - - - - -
# $Id$
# - - - - -
#
# replace_host
#
# Replace a host entry in a repligard XML file
#
#
# Copyright (C) 2001 Linksystem Muenchen GmbH, Philipp Rotmann
#                    <ph.rotmann@buero.link-m.de>
#
# 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; either version 2 of the License, or
# (at your option) any later version.
#
# 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
# - - - - -

use XML::DOM;

if (@ARGV >= 2) {
        ($guid, $new_name, $new_port, $new_prefix) = @ARGV;
        $new_port = 0 unless ($new_port);
        $new_prefix = "" unless ($new_prefix);

} else {
        print <<"END_USAGE";

replace_host guid name port prefix < application.xml

  guid       The Global Unique ID of the person record to change
  name       The new hostname,
  port       port and
  prefix     prefix entries.

The XML stream is expected from STDIN.
END_USAGE

        exit(0);
}

print STDERR "replace_host: Changing host record $guid to http://$new_name",
  ($new_port ? ":$new_port" : ""), ($new_prefix ? "/$new_prefix" : "/") ,
  " ...\n";

$xdp = new XML::DOM::Parser(Style => Tree, KeepCDATA => 1);
$xml = $xdp->parse(*STDIN);

foreach my $pnode ($xml->getElementsByTagName('host')) {
        next unless ($pnode->getAttribute('id') eq $guid);

        print STDERR "Found host record $guid:\n";

        $nelement = ${$pnode->getElementsByTagName('name')}[0];
        if ($name = $nelement->getFirstChild) {
                print STDERR "Old hostname: ", $name->getData, "\n";
        } else {
                die "$!" unless ($name = 
                  $nelement->appendChild($xml->createTextNode("")));
        }

        $pelement = ${$pnode->getElementsByTagName('port')}[0];
        if ($port = $pelement->getFirstChild) {
                print STDERR "Old port: ", $port->getData, "\n";
        } else {
                die "$!" unless ($port =
                $pelement->appendChild($xml->createTextNode("")));
        }

        $pxelement = ${$pnode->getElementsByTagName('prefix')}[0];
        if ($prefix = $pxelement->getFirstChild) {
                print STDERR "Old prefix: ", $prefix->getData, "\n";
        } else {
                die "$!" unless ($prefix =
                $pxelement->appendChild($xml->createCDATASection("")));
        }

        print STDERR "Changing hostname, port and prefix ... ";
        $name->setData($new_name); $port->setData($new_port); 
        $prefix->setData($new_prefix);
        print STDERR "done.\n";
}

$xml->printToFileHandle(\*STDOUT);
$xml->dispose;