diff --git a/xCAT-server/xCAT-wsapi/xcatrhevh.cgi b/xCAT-server/xCAT-wsapi/xcatrhevh.cgi deleted file mode 100644 index d56811288..000000000 --- a/xCAT-server/xCAT-wsapi/xcatrhevh.cgi +++ /dev/null @@ -1,50 +0,0 @@ -#!/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 = "rhevhupdateflag"; - my $req2 = ""; - my $req = $req1.$node.$req2; - - print $client $req; -} -