#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
#  
#  
# Licensed Materials - Property of IBM 
#  
# (C) COPYRIGHT International Business Machines Corp. 2004,2007 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
# @(#)30   1.3   src/csm/install/updateRDMdserver.perl, setup, csm_rfish, rfishs001b 11/10/05 04:13:48
BEGIN
{
    $::csmroot = $ENV{'CSM_ROOT'} ? $ENV{'CSM_ROOT'} : '/opt/csm';
    $::csmpm   = "$::csmroot/pm";
}

use lib $::csmpm;
$::MSGCAT     = 'csmInstall.cat';
$::MSGMAPPATH = $ENV{'CSM_MSGMAPS'} ? $ENV{'CSM_MSGMAPS'} : '/opt/csm/msgmaps';
$::MSGSET     = 'csminstall';

use IO::Socket;
require MessageUtils;

my $filename = shift || "/root/pxeconfig_update.xml";
(-f "$filename") || die 
MessageUtils->messageFromCat('csmInstall.cat', $::MSGMAPPATH, 
                             'csminstall',     'E1', 
                             'EMsgFILE_NOT_FOUND', $filename
                             );

my $sock =
  new IO::Socket::INET(
					   PeerAddr => 'localhost',
					   PeerPort => '5011',
					   Proto    => 'tcp',
					  );
die MessageUtils->messageFromCat('csmInstall.cat', $::MSGMAPPATH, 
                                 'csminstall',     'E1', 
                                 'EMsgCANT_CREATE_SOCKET', '$!'
                                ) unless $sock;
print "Sending 'update,$filename'\n";
print $sock "update,$filename\n";
close($sock);

