arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add again with new execute permission

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13860 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
daniceexi 2012-09-21 01:04:41 +00:00
parent dcda42d7f3
commit 788c4ac91c
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
xCAT-server/xCAT-wsapi/xcatrhevh.cgi Executable file
View File

@ -0,0 +1,50 @@
#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
use strict;
use CGI qw/:standard/;
use Socket;
use IO::Socket::INET;
use IO::Socket::SSL; IO::Socket::SSL->import('inet4');
my $q = CGI->new;
my $url = $q->url;
my $pathInfo = $q->path_info;
my $peerAdd = $q->remote_addr;
my $iaddr = inet_aton($peerAdd);
my $peerhost = gethostbyaddr($iaddr, AF_INET);
$peerhost =~ s/\..*//;
if ($pathInfo =~ /^\/rhevh_finish_install\/(.*)$/) {
if ($1 eq $peerhost) {
&rhevhupdateflag($peerhost);
my $cmd = "rhevhupdateflag";
}
}
# check mapping of the IP and hostname
sub rhevhupdateflag {
my $node = shift;
my $socket = IO::Socket::INET->new(
PeerAddr => "127.0.0.1",
PeerPort => '3001',
Timeout => 15,);
my $client;
if ($socket) {
$client = IO::Socket::SSL->start_SSL($socket,
Timeout => 0,
);
}
my $req1 = "<xcatrequest><command>rhevhupdateflag</command><noderange>";
my $req2 = "</noderange></xcatrequest>";
my $req = $req1.$node.$req2;
print $client $req;
}