2
0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-07-10 14:51:30 +00:00
Files
xcat-core/xCAT-server/lib/xcat/plugins/AAsn.pm
Bin Xu eea661e405 merge from master to 2.13 branch for 2.13.9 release. (1) (#4525)
* fix issueNode range not specified, see man page for syntax. return with no output when site.master is not set #4299

* Fix issue 4246, record rflash process in log file

* dodiscovery: better disksize - ordered by major,minor and no `\n` (#4219)

* better disksize: ordered by major,minor and no `\n`

* nodediscover:`disksize` sent correctly: no need to `split`,`join`

* general sort with explicit key columns, fix search pattern

* dodiscovery: Fix bugs

* dodiscovery: Fix ShellCheck SC2007,SC2004

* dodiscovery: simpler kcmdline parsing, disksize as IEC binary prefix

* Add test case - switch_to_dns_forward_mode

* Modify timeout of login by curl command for OpenBMC

* Add makegocons command

This patch enable goconserver service and manage the node sessions
with a new `makegocons` command.

Implement: #4215

* Refine the Cumulus Linux Section of the Doc (#4249)

* No content in the switches subdirectory in docs, remove

* Change the Network topic to Networking

* Refine and reformat the Cumulus Linux documentation

* Modify the script to build xCAT-genesis-base package (#4292)

* Verify hash ID

* change log messages

* Timeout the ntpd process if ntpd service is not running on ntpserver (#4321)

* enhance nodediscovery process: don't write "NOIP" if the node can not be resloved to an IP (#3995)

* enhance nodediscovery process, if only 1 mac and have \*NOIP\* append, don't write mac table and don't generate dhcp lease entry

* Enhance PR 3995: enhance nodediscovery process: don't write "NOIP" if the node can not be resloved to an IP

* modified depending on comments

* natural_sort_cmp: recursion to iterative implementation (#4314)

* natural_sort_cmp: recursion to iterative implementation

* natural_sort_cmp: correct prototype with parameters, as per `man perlfunc`

* Task 3339, rspconfig ip/netmask/gateway/vlan support

*   * Minor enhance on xcatperftest to put all logs into one file
  * Fix a bug in simulatorctl.sh, and it cause the script cannot be found

* modified depending on comments

* QA list for makehosts (#4284)

* QA list for makehosts

* Fix some bus in makegocons

* Revise test case - switch_to_dns_forward_mode

* Enhancements after the review

* Use IO::Socket to check BMC console port

* Revise test case - switch_to_dns_forward_mode

* modified depending on comments

* Add messages to inform the user of the general action started via xCAT for flashing firmware

* Fix bug, anything in the functional array is the one that's really active, priority will not be 0 if there is pending firmware

* Fix 4338, remove all of  in child process

* fix issue #4354 :The XCATTEST_CN in xcattest can not detect HCP as config file (#4355)

* Fix #4330, close the socket

* Add image name to /opt/xcat/xcatinfo on compute node (#4359)

* Integrate congo console from goconserver with rcons

Enhance the original implement of rcons to support goconserver.
`rcons` will help the user choose from one of the console backend
service based on the console server status of management node.

Implement #4216

* Fix 4363 - discovery broken (#4364)

* do not set exit_code to 1 when the clock is not synced before the timeout (#4362)

* Fix check for MTM values with spaces

* modified depending on comments

* rspconfig admin_password for OpenBMC

* Fix merging in xdcpmerge.sh (#4328)

* Fixes in xdcpmerge.sh

Two fixes:
1. The grep pattern when finding duplicate usernames is missing ":" at the end. So, for example user "test" would also match "test2, etc.". Adding the ":" delimiter fixes the issue.
2. Another issue happens when the file to be merged is a superset of the files on the nodes. For example, if a new user is added and entire passwd file (that is otherwise identical) is sent to be merged. In this case, the $filebackup.nodups file, i.e. the original file with duplicates removed, becomes empty and the condition "if [ -s "$filebackup.nodups" ]" does not execute. Then the merged file ends up being original file with the merge file fully appended, clearly not what was intended.

This is solved by changing the condition to check for file existence "-a" rather then for size. Additionally, I also turn the logic around so that the duplicates are removed from the merge file and then added to the original file. I think this makes logic a bit cleaner and also ensures that existing entries are not reordered or changed in any way.

* Streamlining previous commit

Adjustment to previous commit, streamlining and simplifying logic. Once $mergefile.nodups is created, just concatenate it the original file.

* Update to xdcpmerge

No need to copy $filebackup to $curfile, they are the same.

* Modify for debug conveniently

* add new cases and delete outdated test cases

* Modify genesis build script for centos x86_64

* Add space between at and the time

* Add a print out of the firmware levels for the various UT cases

* Add unit test cases for rspconfig

* rspconfig fix for set hostname

* Enhance the testing case for rspconfig setting hostname

* modified depending on comments

* modified depending on comments

* Add %pretrans script in <lua>. Handle directory to symlink change properly. See comment #3 of https://bugs.launchpad.net/rpm/+bug/633636

* Make xCAT-genesis-base confliects with early version of xCAT-genesis-scripts

* rspconfig dump to allow admins capture logs

* Adding comment

* Improve the error message when BMC does not return a dump ID

* Improve some messages and add timestamp for downloaded dump file

* Improve the message to help Admin figure out where the file is missing

* Leave a log file there when xCAT upgrade in case to debug issue while upgrading (#4389)

* Listen on 0.0.0.0 instead of the hostname

This patch modify the configuration of `makegocons` and `rcons`
for goconserver.

`cat /etc/goconserver/server.conf`
```
global:
  host: 0.0.0.0
  ssl_key_file: /etc/xcat/cert/server-key.pem
  ssl_cert_file: /etc/xcat/cert/server-cert.pem
  ssl_ca_cert_file: /etc/xcat/cert/ca.pem
  logfile: /var/log/goconserver/server.log
api:
  port: 12429
console:
  port: 12430
```

* Support hostname=* for openbmc

* Relay action and snmp configuration support for Coral PDU

* ddns.pm: specify the "directory" option for DNS slaves too (cf. bug #4392)

* Fix issue 4361, modify some sendmsg to message

* 1. add "makeconserver -d" to "rmdef -C", 2. add "makeconserver -C|--cleanup" to remove entries for removed nodes

* When there is a problem with the login, do not hide the message on debug mode. BMCReady does not make sense if the admin does not know how to find that state

* Change function from login_logout_request to login_request, not doing any logout here

* Check that RC is 200 to prevent unknown issues, handle the response generically

* OpenBMC rspconfig dump timeout fixes

* Fix issue 4408, modify error for rspconfig dump

* Clear all BMC Dump logs when BMC firmware flash

* modified depending on comments

* More modifications for pr 4386, to deal with the conflicts

* To handle one case which have 2 implementations, which one is for specific platform, on is for all platforms

* return when current status is RSPCONFIG_DUMP_DOWNLOAD_REQUEST

* fix issue 4417, delete 'clear next_status'

* fix issue 4353: rspconfig needs to support multiple IPs on the BMC and ignore ZeroConfigIPs

* Wait 15 seconds after OpenBMC interface with vlan tag to be activated

* Fix issue #4397: rspconfig <> hostname=xxx show error message when there is multiple network in bmc

* Some sentence modify for makeconservercf -C|--cleanup

* OpenBMC rspconfig dump better dump file name formatting

* Removed the --check and --ipsource option with PR 4258, update the man page

* Improve the message on the HTTP response

* modified depending on comments

* Only handle 404 and 504 in the login request code, defer the rest to deal_with_response()

* rflash stream support

* 1. configure ip/netmask/gateway only on the NIC whose IP match node BMC attribute, 2. add some information for LinkLocal address

* Fix confignetwork bond nic_type detection with multiple bonds

* Modified configonie --ntp command (#4436)

* Add man page for makegocons

This is the guide about how to make goconserver as
a replacement for conserver to help slove the issues reported
for conserver, like: #4043, #3543. For openbmc, the solution of
goconserver is much light-weighted than the conserver which could
help save the system resource. In addition, sshpass is not needed
for openbmc with goconserver.

Implement: #4337

* Add another key for node_info in order not to after the content of $node_info{$node}{bmc}

* enhance rflash stream

* makedhcp does not work well when all service nodes not running dhcp but disjointdhcps=1 (#4426) (#4440)

- if all service nodes not running dhcp, to treat it as disjointdhcps=0
- nodeset will send request to MN by default even if disjointdhcps=1
- Move out of the dhcp service checking from opts pre-check, and do it just before real makedhcp handling.

* rspconfig configure bmc vlan will hung because of PR 4383

* OpenBMC rspconfig dump enhancements

* Changes due to review comments

* Print debug message before login attempt

* Add warning when xCAT throttles SSL connections

* Display first [openbmc_debug] when entering openbmc.pm

* modified error msg

* Make sure credential files have a trailing newline (#4442)

* modified depending on comments

* Fix the typo in the man page of makegocons

* Update the print out based on the review comment, should not use  since the regular expression is removed

* Modify the nodeset disjoint test case accordingly for #4426

* Use short hostname in rcons for goconserver

As the certificate of xcat is signed with short hostname, this
commit force to use the short hostname in  the environment variable for
`congo console`.

* Fix issue 3497, make sense for reventlog msg

* Give summary after flash active when no debugmode

* Fix the issue that the IP configuration will fail if bmc attribute is a hostname

* enhance genimage for sles12sp2 (#4450)

* Add dhcp-client-identifier to lease block (#4429)

Machines that use Infiniband for PXE booting need to have the
dhcp-client-identifier set in the lease block.
Without it, they will not get the lease from the server.

* Support multiple bonds on bring-up

* modified depending on comments

* fix the check for rc to 1 on error cases

* modify response for bmcdiscover when error

* Ignore syslog error in monitorctrl when setNodeStatusAttributes (#4459)

* fix issue https://github.com/xcat2/xcat-core/issues/4411 (#4462)

* fix issue Compute nodes fail to get provisioned #4411: covert imgsrv and xcatmaster to their ip addresses in case the hostname cannot be resolved inside initrd for diskless

* More strict check to tell if it is a chroot env to avoid modify DB (#4463)

when genimage for SN image (#4365)

* issues for install license file on accton switches (#4460)

* Add test cases for rflash regular usage against openbmc

* modify depending on xuwei's comment

* add 2 more cases for option d

* enhance rflash upload message

* Do not display message for clearing dumps when only PNOR

* Display hostname even if multiple IP addresses

* modified depending on comments

* polished message

* Modify the default consoleondemand based on the global setting

This commit fix the bug that consoleondemand works incorrectly.

* modify depending on comments

* modified depending on comments

* enhance rflash error messages

* Modify documenation for servicenode attributes

* build rst file from Schema.pm by db2man

* change status back to starts

* modified depending on comments

* rm openbmcevents

* Usage and man page update for rspconfig dump

* let rflash error message flexible

* Add support for the "file -> (noderange) file" syntax in synclist with ServiceNodes (#4445)

* Add support for "file -  (noderange) file" in synclist when using
hierarchical mode. Fixes #4425

  This patch ensures that:
  1. the synclist is correctly parsed when running on a Service Node
  2. all files are synchronized to SNs in hierarchical mode

* Better test condition for #4425, addresses issue in
https://github.com/xcat2/xcat-core/pull/4445#issuecomment-349472901

* Fix issue 4477, if has node-<mac> will not create node-<mtms> for the same node

* fix issue updatenode -f loses directories when copying files to SN #4456 (#4494)

* comment from ErTao

* Crude attempt at including external configuration files in named.conf

* Fixes after the review

* Fix issue 4490, record any error when rflash active process

* add -d usage and manpage

* updatenode -F not work in hierachy env as the user name is FQDN of MN (#4484)

* updatenode -F not work in hierachy env (#4455)
 - add trace when -V is enabled
 - get the DSH_FROM_USERID from updatenode client

*  - when 'updatenode -F' need to push SN first, using root as non-root does not have permission write to 'SNsyncfiledir'
 - move the set DSH_FROM_USERID code out of the loop, and also cover remote client case.

* fix issue for command rspconfig hostname=*

* enhance rflash

* Adjust the server used for kernel/initrd and imgurl for petitboot (#4416)
 - URL for kernel/initrd, get the value from below value tftpserver -> xcatmaster -> myipfn
 - URL for image, get the value from below value nfsserver -> tftpserver -> xcatmaster -> myipfn

* NODE attribute didn't populate in /opt/xcat/xcatinfo after reboot (#4428)

* NODE attribute didn't populate in /opt/xcat/xcatinfo after reboot

* Get NODE from mypostscripts

* Improve the output message for reventlog, use a global variable to set PolicyFile Path

* If debug_msg is not provided, use an empty string

* Check for LinkLocal as well as 169.254 IP address

* Fix issue 4507, add parameter check for rspconfig admin_passwd

* record more information when rflash upload error

* Fix the error when using array ref in updatenode with old version perl, it is introduced by PR#4484 (#4518)

* Do not restart conserver if goconserver was started

If goconserver was enabled, do not start conserver when restart
xcatd on service node.

* remove the /etc/localtime before copy timezone file

* Use CONGO_CLIENT_TYPE to tell goconserver the source of client (#4501)

goconserver could send back message based on the client type
this commit set CONGO_CLIENT_TYPE to xcat to make the message
from goconserver more friendly.

* add rflash -d doc

* only ignore 169.254.x.x for OpenBMC

* Fix issue 4513, print out better error msg for reventlog -s

* Modify or add openbmc test cases or bundle

* add test cases for updatenode -f/F in hierarchy environment, covers issues #4456,#4455 and PR #4425 (#4500)
2017-12-14 05:03:34 -06:00

1541 lines
43 KiB
Perl
Executable File

#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#-------------------------------------------------------
package xCAT_plugin::AAsn;
use strict;
use xCAT::Table;
use xCAT::Utils;
use xCAT::TableUtils;
use xCAT::NetworkUtils;
use xCAT::MsgUtils;
use xCAT_plugin::dhcp;
use xCAT_plugin::conserver;
use File::Path;
use Getopt::Long;
#-------------------------------------------------------
=head1 AAsn
This is the Service Node Plugin, although it does perform a few functions on
the Management Node.
It reads the servicenode table for the service node it is running on,
and run the appropriate
setup routine for each service that is designated to be setup in the
servicenode table for this service node. Some functions are only done for
Linux.
A few functions are done not based on the servicenode table. For example:
on a Linux Service Node
if site.installloc set
mounts /install
if site.installloc not set
creates /install if needed
sets up nfs
exports /install
#-------------------------------------------------------
=head3 handled_commands
If bypassmode then exit
If xcat daemon reload then exit
Check to see if on a Service Node
If Linux
Call setupInstallloc
If this is a service Node
Read Service Node Table
For each service returned to be setup
Call the appropriate setup_service routine
else if on the Management Node
Do any Management Node setup of services needed
=cut
#-------------------------------------------------------
sub handled_commands { return; }
sub init_plugin
{
my $doreq = shift;
# If called in XCATBYPASS mode, don't do any setup
if ($ENV{'XCATBYPASS'})
{
return 0;
}
# If a xcat daemon reload, don't do any setup
if ($ENV{'XCATRELOAD'})
{
return 0;
}
my $rc = 0;
#On the Servicenodes or the Management node
if (((xCAT::Utils->isServiceNode()) && (-s "/etc/xcat/cfgloc"))
|| (xCAT::Utils->isMN()))
{
my @nodeinfo = xCAT::NetworkUtils->determinehostname;
my $nodename = pop @nodeinfo; # get hostname
my @nodeipaddr = @nodeinfo; # get ip addresses
my $service;
# if a linux servicenode
if ((xCAT::Utils->isLinux()) && (xCAT::Utils->isServiceNode()))
{
# service needed on Linux Service Node
$service = "setupInstallloc";
&setupInstallloc($nodename);
$service = "ssh";
&setup_SSH(); # setup SSH
}
# read the service node table
# for a list of all functions to setup for this service node
#
my $servicelist = xCAT::ServiceNodeUtils->isServiceReq($nodename, \@nodeipaddr);
my $service;
if ($::RUNCMD_RC == 0)
{
if (xCAT::Utils->isLinux())
{ #run only the following only on Linux
if ($servicelist->{"ftpserver"} == 1)
{
&setup_FTP(); # setup vsftpd
}
if ($servicelist->{"ldapserver"} == 1)
{
&setup_LDAP(); # setup LDAP
}
if ($servicelist->{"tftpserver"} == 1)
{
if (xCAT::Utils->isServiceNode()) { # service node
&setup_TFTP($nodename, $doreq); # setup TFTP
} else { # management node
&stop_TFTP();
&enable_TFTP();
}
}
if ($servicelist->{"ntpserver"} == 1) {
&setup_NTP($doreq);
}
if ($servicelist->{"proxydhcp"} == 1) {
&setup_proxydhcp(1);
} else {
&setup_proxydhcp(0);
}
} # end Linux only
#
# setup these services for AIX or Linux
#
if ($servicelist->{"conserver"} == 1)
{
if (xCAT::Utils->isLinux())
{ #run only the following only on Linux
&setup_CONS($nodename); # setup conserver
} else { #AIX
$rc = xCAT::Utils->setupAIXconserver();
}
}
if (($servicelist->{"nameserver"} == 1) || ($servicelist->{"nameserver"} == 2))
{
&setup_DNS($servicelist); # setup DNS
}
if ($servicelist->{"nfsserver"} == 1)
{
&setup_NFS($nodename); # setup NFS
# The nfsserver field in servicenode table
# will also setup http service for Linux
if (xCAT::Utils->isLinux())
{
&setup_HTTP($nodename); # setup HTTP
}
}
if ($servicelist->{"ipforward"} == 1)
{
# enable ip forwarding
xCAT::NetworkUtils->setup_ip_forwarding(1);
}
#
# setup dhcp only on Linux and do it last
#
if (xCAT::Utils->isLinux())
{
if ($servicelist->{"dhcpserver"} == 1)
{
&setup_DHCP($nodename); # setup DHCP
}
}
}
else
{ # error from servicenode tbl read
xCAT::MsgUtils->message("S",
"AAsn.pm:Error reading the servicenode table.");
}
}
return $rc;
}
#-------------------------------------------------------
=head3 process_request
Process the command
=cut
#-------------------------------------------------------
sub process_request
{
return;
}
#-----------------------------------------------------------------------------
=head3 setupInstallloc
if site.installloc attribute set
If the installdir directory is exported, unexport it
mount the installdir directory from the installloc location
if site.installoc not set and we are on a Stateful install
If installdir mounted, unmount it
If installdir directory not created, create it
setup NFS
export the installdir directory
=cut
#-----------------------------------------------------------------------------
sub setupInstallloc
{
my ($nodename) = @_;
my $rc = 0;
my $installdir = xCAT::TableUtils->getInstallDir();
my $installloc;
my $newinstallloc;
# read DB for nodeinfo
my $master;
my $os;
my $arch;
my $nomount = 0;
my $retdata = xCAT::ServiceNodeUtils->readSNInfo($nodename);
if (ref $retdata and $retdata->{'arch'})
{ # no error
$master = $retdata->{'master'}; # management node
$os = $retdata->{'os'};
$arch = $retdata->{'arch'};
# read install directory and install location from database,
# if they exists
my @installlocation = xCAT::TableUtils->get_site_attribute("installloc");
my $hostname;
my $path;
if ($installlocation[0])
{
if (grep /:/, $installlocation[0])
{
my ($hostname, $newinstallloc) = split ":", $installlocation[0];
if ($hostname)
{ # hostname set in /installloc attribute
$master = $hostname; # set name for mount
$installloc = $newinstallloc; #set path for mount point
}
}
else
{
$installloc = $installlocation[0];
}
}
else
{ # if no installloc attribute then we do not mount
$nomount = 1;
}
if ($nomount == 0) # we do have installloc attribute
{
# mount the install directory from the installloc location
# make the directory to mount on
if (!(-e $installdir))
{
mkpath($installdir);
}
# check if exported, and unexport it
my $cmd = "/bin/cat /etc/exports | grep '$installdir'";
my $outref = xCAT::Utils->runcmd("$cmd", -1);
if ($::RUNCMD_RC == 0) # it is exported
{
# remove from /etc/exports
my $sedcmd = "sed \\";
$sedcmd .= "$installdir/d /etc/exports > /etc/exports.tmp";
system $sedcmd;
if ($? > 0)
{ # error
xCAT::MsgUtils->message("S", "Error $cmd");
}
else
{
$cmd = "cp /etc/exports.tmp /etc/exports";
system $cmd;
if ($? > 0)
{ # error
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
# restart nfs
&setup_NFS($nodename);
$cmd = " exportfs -a";
system $cmd;
if ($? > 0)
{ # error
$rc = 1;
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
# check to see if install already mounted
my $mounted = xCAT::Utils->isMounted($installdir);
if ($mounted == 0)
{ # not mounted
# need to mount the directory
my $cmd;
my @nfsv4 = xCAT::TableUtils->get_site_attribute("useNFSv4onAIX");
if ($nfsv4[0] && ($nfsv4[0] =~ /1|Yes|yes|YES|Y|y/))
{
$cmd = "mount -o vers=4,rw,nolock $master:$installloc $installdir";
}
else
{
$cmd = "mount -o rw,nolock $master:$installloc $installdir";
}
system $cmd;
if ($? > 0)
{ # error
$rc = 1;
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
}
else
{
# installloc not set so we will export /install on the SN, if Stateful
if (xCAT::Utils->isStateful())
{
# no installloc attribute, create and export installdir
# check to see if installdir is mounted
my $mounted = xCAT::Utils->isMounted($installdir);
if ($mounted == 1)
{
# need to unmount the directory
my $cmd = "umount $installdir";
system $cmd;
if ($? > 0)
{ # error
$rc = 1;
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
# if it does not exist,need to make the installdir directory
if (!(-e $installdir))
{
mkpath($installdir);
}
# export the installdir
#
# add /install to /etc/exports - if needed
#
my $cmd = "/bin/cat /etc/exports | grep '$installdir'";
my $outref = xCAT::Utils->runcmd("$cmd", -1);
my $changed_exports;
if ($::RUNCMD_RC != 0)
{
# ok - then add this entry
my $cmd =
"/bin/echo '$installdir *(rw,no_root_squash,sync,no_subtree_check)' >> /etc/exports";
my $outref = xCAT::Utils->runcmd("$cmd", 0);
if ($::RUNCMD_RC != 0)
{
xCAT::MsgUtils->message('S',
"Could not update the /etc/exports file.");
}
else
{
$changed_exports++;
}
}
if ($changed_exports)
{
# restart nfs
&setup_NFS($nodename);
my $cmd = "/usr/sbin/exportfs -a";
my $outref = xCAT::Utils->runcmd("$cmd", 0);
if ($::RUNCMD_RC != 0)
{
xCAT::MsgUtils->message('S', "Error with $cmd.");
}
}
}
}
}
else
{ # error reading Db
$rc = 1;
}
if ($rc == 0)
{
# update fstab
my $cmd = "grep \"$master:$installloc $installdir\" /etc/fstab ";
xCAT::Utils->runcmd($cmd, -1);
if ($::RUNCMD_RC != 0)
{
if ($nomount == 0) # then add the entry
{
`echo "$master:$installloc $installdir nfs timeo=14,intr 1 2" >>/etc/fstab`;
}
}
else
{ # fstab entry there
if ($nomount == 1)
{
# then remove the entry
my $sedcmd = "sed \\";
$sedcmd .= "$installdir/d /etc/fstab > /etc/fstab.tmp";
system $sedcmd;
if ($? > 0)
{ # error
xCAT::MsgUtils->message("S", "Error $cmd");
}
else
{
$cmd = "cp /etc/fstab.tmp /etc/fstab";
system $cmd;
if ($? > 0)
{ # error
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
}
}
}
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_CONS
Sets up Conserver
=cut
#-----------------------------------------------------------------------------
sub setup_CONS
{
my ($nodename) = @_;
my $rc = 0;
if (-x "/usr/bin/goconserver") {
my $cmd = "ps axf | grep -v grep | grep \/usr\/bin\/goconserver";
xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC == 0) {
xCAT::MsgUtils->message("S", "INFO: goconserver was started, do nothing for conserver.");
return 0;
}
}
my $cmdref;
$cmdref->{command}->[0] = "makeconservercf";
$cmdref->{arg}->[0] = "-l";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
$cmdref->{svboot}->[0] = "yes";
no strict "refs";
my $modname = "conserver";
${ "xCAT_plugin::" . $modname . "::" }{process_request}
->($cmdref, \&xCAT::Client::handle_response);
# start conserver. conserver needs 2 CA files to start
my $ca_file1 = "/etc/xcat/ca/ca-cert.pem";
my $ca_file2 = "/etc/xcat/cert/server-cred.pem";
if (!-e $ca_file1)
{
print
"conserver cannot be started because the file $ca_file1 cannot be found\n";
}
elsif (!-e $ca_file2)
{
print
"conserver cannot be started because the file $ca_file2 cannot be found\n";
}
else
{
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("conserver");
} elsif (xCAT::Utils->isLinux()) {
#my $rc = xCAT::Utils->startService("conserver");
$rc = xCAT::Utils->startservice("conserver");
}
if ($rc != 0)
{
return 1;
}
}
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_DHCP
Sets up DHCP services
If on the Management node, just check if running and if not start it.
On Service nodes do full setup based on site.disjointdhcps setting
=cut
#-----------------------------------------------------------------------------
sub setup_DHCP
{
my ($nodename) = @_;
my $rc = 0;
my $cmd;
my $snonly = 0;
# if on the MN check to see if dhcpd is running, and start it if not.
if (xCAT::Utils->isMN()) { # on the MN
#my @output = xCAT::Utils->runcmd("service dhcpd status", -1);
#if ($::RUNCMD_RC != 0) { # not running
my $dhcpservice = "dhcpd";
if (-e "/etc/init.d/isc-dhcp-server") { #Ubuntu
$dhcpservice = "isc-dhcp-server";
}
my $retcode = xCAT::Utils->checkservicestatus($dhcpservice);
if ($retcode != 0) {
$rc = xCAT::Utils->startservice($dhcpservice);
if ($rc != 0)
{
return 1;
}
}
return 0;
}
# read the disjointdhcps attribute to determine if we will setup
# dhcp for all nodes or just for the nodes service by this service node
my @hs = xCAT::TableUtils->get_site_attribute("disjointdhcps");
my $tmp = $hs[0];
if (defined($tmp)) {
$snonly = $tmp;
}
# run makedhcp
my $XCATROOT = "/opt/xcat"; # default
if ($ENV{'XCATROOT'})
{
$XCATROOT = $ENV{'XCATROOT'};
}
my $cmdref;
$cmdref->{command}->[0] = "makedhcp";
$cmdref->{arg}->[0] = "-n";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
no strict "refs";
my $modname = "dhcp";
${ "xCAT_plugin::" . $modname . "::" }{process_request}
->($cmdref, \&xCAT::Client::handle_response);
my $distro = xCAT::Utils->osver();
#my $serv = "dhcpd";
#if ( $distro =~ /ubuntu.*/i || $distro =~ /debian.*/i ){
# $serv = "isc-dhcp-server";
#}
#my $rc = xCAT::Utils->startService($serv);
my $rc = 0;
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("dhcpd");
} elsif (xCAT::Utils->isLinux()) {
$rc = xCAT::Utils->startservice("dhcp");
}
if ($rc != 0)
{
return 1;
}
# setup DHCP
#
# clean up $::opt_n which set by last makedhcp context and conlicts with -a below.
undef $::opt_n;
my $modname = "dhcp";
if ($snonly != 1) { # setup dhcp for all nodes
$cmdref;
$cmdref->{command}->[0] = "makedhcp";
$cmdref->{arg}->[0] = "-a";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
} else { # setup dhcp just for the nodes owned by the SN
# determine my name
# get servicenodes and their nodes
# find the list of nodes serviced
my @hostinfo = xCAT::NetworkUtils->determinehostname();
my $sn_hash = xCAT::ServiceNodeUtils->getSNandNodes();
my @nodes;
my %iphash = ();
my $snkey;
$cmdref;
foreach $snkey (keys %$sn_hash) { # find the service node
if (grep(/$snkey/, @hostinfo)) {
push @nodes, @{ $sn_hash->{$snkey} };
$cmdref->{node} = $sn_hash->{$snkey};
$cmdref->{'_xcatdest'} = $snkey;
}
}
if (@nodes) {
my $nodelist;
foreach my $n (@nodes) {
$nodelist .= $n;
$nodelist .= ",";
}
chop $nodelist;
$cmdref->{arg}->[0] = ();
$cmdref->{command}->[0] = "makedhcp";
$cmdref->{noderange}->[0] = "$nodelist";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
}
}
${ "xCAT_plugin::" . $modname . "::" }{process_request}
->($cmdref, \&xCAT::Client::handle_response);
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_FTP
Sets up FTP services (vsftp)
=cut
#-----------------------------------------------------------------------------
sub setup_FTP
{
my $rc = 0;
my $cmd;
my $XCATROOT = "/opt/xcat"; # default
if ($ENV{'XCATROOT'})
{
$XCATROOT = $ENV{'XCATROOT'};
}
# change ftp user id home directory to installdir
# link installdir
# restart the daemon
my $installdir = xCAT::TableUtils->getInstallDir();
if (!(-e $installdir)) # make it
{
mkpath($installdir);
}
$cmd = "usermod -d $installdir ftp 2>&1";
my $outref = xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC)
{
xCAT::MsgUtils->message("S", "Error from command:$cmd");
}
# start ftp
#my $rc = xCAT::Utils->startService("vsftpd");
my $rc = 0;
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("vsftpd");
} elsif (xCAT::Utils->isLinux()) {
$rc = xCAT::Utils->startservice("vsftpd");
}
if ($rc != 0)
{
return 1;
}
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_DNS
Sets up Domain Name service
http://www.adminschoice.com/docs/domain_name_service.htm#Introduction
=cut
#-----------------------------------------------------------------------------
sub setup_DNS
{
my $srvclist = shift;
my $XCATROOT = "/opt/xcat"; # default
if ($ENV{'XCATROOT'})
{
$XCATROOT = $ENV{'XCATROOT'};
}
if ($srvclist->{"nameserver"} == 1)
{
# setup the named.conf file as dns forwarding/caching
system("$XCATROOT/sbin/makenamed.conf");
}
else
{
# setup the named.conf file as dns slave
my $cmdref;
$cmdref->{command}->[0] = "makedns";
$cmdref->{arg}->[0] = "-s";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
no strict "refs";
my $modname = "ddns";
${ "xCAT_plugin::" . $modname . "::" }{process_request}
->($cmdref, \&xCAT::Client::handle_response);
}
# turn DNS on
my $distro = xCAT::Utils->osver();
#my $serv = "named";
#if ( $distro =~ /ubuntu.*/i || $distro =~ /debian.*/i ){
# $serv = "bind9";
#}
#my $rc = xCAT::Utils->startService($serv);
my $rc = 0;
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("named");
} elsif (xCAT::Utils->isLinux()) {
$rc = xCAT::Utils->startservice("named");
}
if ($rc != 0)
{
return 1;
}
# start named on boot
if (xCAT::Utils->isAIX())
{
#/etc/inittab
my $cmd = "/usr/sbin/lsitab named > /dev/null 2>&1";
my $rc = system("$cmd") >> 8;
if ($rc != 0)
{
#add new entry
my $mkcmd = qq~/usr/sbin/mkitab "named:2:once:/usr/sbin/named > /dev/console 2>&1"~;
system("$mkcmd");
xCAT::MsgUtils->message("SI", " named has been enabled on boot.");
}
}
else
{
#chkconfig
#my $cmd = "/sbin/chkconfig $serv on";
#my $outref = xCAT::Utils->runcmd("$cmd", 0);
#if ($::RUNCMD_RC != 0)
my $retcode = xCAT::Utils->enableservice("named");
if ($retcode != 0)
{
xCAT::MsgUtils->message("SE", " Error: Could not enable dns server.");
}
else
{
xCAT::MsgUtils->message("SI", " dns server has been enabled on boot.");
}
}
return 0;
}
#-----------------------------------------------------------------------------
=head3 setup_LDAP
Sets up LDAP
=cut
#-----------------------------------------------------------------------------
sub setup_LDAP
{
#my $rc = xCAT::Utils->startService("ldap");
my $rc = 0;
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("ldap");
} elsif (xCAT::Utils->isLinux()) {
$rc = xCAT::Utils->startservice("ldap");
}
if ($rc != 0)
{
return 1;
}
return 0;
}
#-----------------------------------------------------------------------------
=head3 setup_NFS
Sets up NFS services on Service Node for AIX and Linux
=cut
#-----------------------------------------------------------------------------
sub setup_NFS
{
my ($nodename) = @_;
my $rc = 0;
# make sure nfs is restarted
my $rc = 0;
if (xCAT::Utils->isLinux())
{
#my $os = xCAT::Utils->osver();
#if ($os =~ /sles.*/)
#{
# $rc = xCAT::Utils->startService("nfs");
# $rc = xCAT::Utils->startService("nfsserver");
#}
#else
#{
# $rc = xCAT::Utils->startService("nfs");
#}
$rc = xCAT::Utils->startservice("nfs");
}
else
{ #AIX
$rc = xCAT::Utils->startService("nfsd");
}
if ($rc != 0)
{
return 1;
}
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_NTP
Sets up NTP services on mn or sn
=cut
#-----------------------------------------------------------------------------
sub setup_NTP
{
my $doreq = shift;
my $res = xCAT::Utils->runxcmd({
command => ['makentp'], }, $doreq, 0, 1);
return 0;
}
#-----------------------------------------------------------------------------
=head3 start_NTP
Starts daemon
=cut
#-----------------------------------------------------------------------------
sub start_NTP
{
my $rc = 0;
if (xCAT::Utils->isAIX()) {
$rc = xCAT::Utils->startService("ntpd");
} elsif (xCAT::Utils->isLinux()) {
#my $rc = xCAT::Utils->startService("conserver");
$rc = xCAT::Utils->startservice("ntpd");
}
if ($rc != 0)
{
return 1;
}
return 0;
}
#-----------------------------------------------------------------------------
=head3 backup_NTPconf
backup configuration
=cut
#-----------------------------------------------------------------------------
sub backup_NTPconf
{
my $ntpcfg = "/etc/ntp.conf";
my $ntpcfgbackup = "/etc/ntp.conf.orig";
my $ntpxcatcfgbackup = "/etc/ntp.conf.xcatbackup";
if (!-e $ntpcfgbackup)
{ # if original backup does not already exist
my $cmd = "mv $ntpcfg $ntpcfgbackup";
system $cmd;
if ($? > 0)
{
xCAT::MsgUtils->message("S", "Error from command:$cmd");
return 1;
}
}
else
{ # backup xcat cfg
my $cmd = "mv $ntpcfg $ntpxcatcfgbackup";
system $cmd;
if ($? > 0)
{
xCAT::MsgUtils->message("S", "Error from command:$cmd");
return 1;
}
}
return 0;
}
#-----------------------------------------------------------------------------
=head3 setup_SSH
Sets up SSH default configuration for root
Turns strict host checking off
=cut
#-----------------------------------------------------------------------------
sub setup_SSH
{
my $configfile;
my $cmd;
my $configinfo;
my $sshdir;
my $cmd;
# build the $HOMEROOT/.ssh/config
if (xCAT::Utils->isLinux())
{
$configfile = "/root/.ssh/config";
$sshdir = "/root/.ssh";
}
else
{ #AIX
$configfile = "/.ssh/config";
$sshdir = "/.ssh";
}
if (!(-e $sshdir))
{ # directory does not exits
mkdir($sshdir, 0700);
}
$configinfo = "StrictHostKeyChecking no";
if (-e $configfile)
{
$cmd = "grep StrictHostKeyChecking $configfile";
xCAT::Utils->runcmd($cmd, -1);
if ($::RUNCMD_RC != 0)
{ # not there
$cmd = "echo $configinfo >> $configfile";
my @output = xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{ # error
xCAT::MsgUtils->message("S", "Error on $cmd, @output");
return 1;
}
}
}
else # file does not exist
{
$cmd = "echo $configinfo >> $configfile";
my @output = xCAT::Utils->runcmd($cmd, 0);
if ($::RUNCMD_RC != 0)
{ # error
xCAT::MsgUtils->message("S", "Error on $cmd, @output");
return 1;
}
else
{
chmod 0600, $configfile;
}
}
return 0;
}
#-----------------------------------------------------------------------------
=head3 setup_TFTP
Sets up TFTP services
=cut
#-----------------------------------------------------------------------------
sub setup_TFTP
{
my ($nodename, $doreq) = @_;
my $rc = 0;
my $cmd;
my $master;
my $os;
my $arch;
my $XCATROOT = "/opt/xcat"; # default
if ($ENV{'XCATROOT'})
{
$XCATROOT = $ENV{'XCATROOT'};
}
# read DB for nodeinfo
my $retdata = xCAT::ServiceNodeUtils->readSNInfo($nodename);
if (not ref $retdata)
{ # error
xCAT::MsgUtils->message("S", " Error reading service node arch.");
return 1;
}
$master = $retdata->{'master'};
$os = $retdata->{'os'};
$arch = $retdata->{'arch'};
if (!($arch))
{ # error
xCAT::MsgUtils->message("S", " Error reading service node arch.");
return 1;
}
# check to see if tftp is installed
$cmd = "/usr/sbin/in.tftpd -V";
my @output = xCAT::Utils->runcmd($cmd, -1);
if ($::RUNCMD_RC != 0)
{ # not installed
xCAT::MsgUtils->message("S", "atftp is not installed, ok for Power5");
}
my $tftpdir;
my $mountdirectory = "1"; # default to mount tftpdir
my $tftphost = $master; # default to master
# read sharedtftp attribute from site table, if exist
#my $stab = xCAT::Table->new('site');
#my $sharedtftp = $stab->getAttribs({key => 'sharedtftp'}, 'value');
my @ss = xCAT::TableUtils->get_site_attribute("sharedtftp");
my $sharedtftp = $ss[0];
if (defined($sharedtftp))
{
$tftphost = $sharedtftp; # either hostname or yes/no
$mountdirectory = $tftphost;
$mountdirectory =~ tr/a-z/A-Z/; # convert to upper
if ($mountdirectory ne "1"
&& $mountdirectory ne "YES"
&& $mountdirectory ne "0"
&& $mountdirectory ne "NO")
{ # then tftphost is hostname
# for the mount
$mountdirectory = "1"; # and we mount the directory
}
else
{
$tftphost = $master; # will mount master,if req
}
}
#$stab->close;
# read tftpdir directory from database
$tftpdir = xCAT::TableUtils->getTftpDir();
if (!(-e $tftpdir))
{
mkdir($tftpdir);
}
# if request to mount
if ($mountdirectory eq "1" || $mountdirectory eq "YES")
{
# check to see if tftp directory already mounted
my $mounted = xCAT::Utils->isMounted($tftpdir);
if ($mounted == 0) # not already mounted
{
# need to mount the directory
my $cmd;
my @nfsv4 = xCAT::TableUtils->get_site_attribute("useNFSv4onAIX");
if ($nfsv4[0] && ($nfsv4[0] =~ /1|Yes|yes|YES|Y|y/))
{
$cmd = " mount -o vers=4,rw,nolock $tftphost:$tftpdir $tftpdir";
}
else
{
$cmd = " mount -o rw,nolock $tftphost:$tftpdir $tftpdir";
}
system $cmd;
if ($? > 0)
{ # error
$rc = 1;
xCAT::MsgUtils->message("S", "Error $cmd");
}
}
}
else
{ #if not mounting, have to regenerate....
my $cmdref;
# mknb is now run in xCATsn.spec
#use xCAT_plugin::mknb;
#for my $architecture ("ppc64", "x86", "x86_64")
#{
# unless (-d "$::XCATROOT/share/xcat/netboot/$architecture")
# {
# next;
# }
# $cmdref->{command}->[0] = "mknb";
# $cmdref->{arg}->[0] = $architecture;
# $doreq->($cmdref, \&xCAT::Client::handle_response);
#}
#now, run nodeset enact on
my $mactab = xCAT::Table->new('mac');
my $hmtab = xCAT::Table->new('noderes');
if ($mactab and $hmtab)
{
my @mentries = ($mactab->getAllNodeAttribs([qw(node mac)]));
#nodeset fails if no mac entry, filter on discovered nodes first
my %netmethods;
my @tnodes;
foreach (@mentries)
{
unless (defined $_->{mac}) { next; }
push @tnodes, $_->{node};
}
my %hmhash =
%{ $hmtab->getNodesAttribs(\@tnodes, [qw(node netboot)]) };
foreach (@tnodes)
{
if ($hmhash{$_}->[0]->{netboot})
{
push @{ $netmethods{ $hmhash{$_}->[0]->{netboot} } }, $_;
}
}
$::DISABLENODESETWARNING = 1; # stop the warnings about using install/netboot etc
$cmdref->{command}->[0] = "nodeset";
$cmdref->{inittime}->[0] = "1";
$cmdref->{arg}->[0] = "enact";
$cmdref->{cwd}->[0] = "/opt/xcat/sbin";
my $plugins_dir = $::XCATROOT . '/lib/perl/xCAT_plugin';
foreach my $modname (keys %netmethods)
{
$cmdref->{node} = $netmethods{$modname};
$doreq->($cmdref, \&xCAT::Client::handle_response);
}
}
}
$rc = stop_TFTP();
if($rc !=0) {
xCAT::MsgUtils->message("S", "Failed to stop tftp service.");
}
# enable the tftp-hpa
$rc = enable_TFTP();
if ($rc == 0)
{
if ($mountdirectory eq "1" || $mountdirectory eq "YES")
{
# update fstab so that it will restart on reboot
$cmd =
"fgrep \"$tftphost:$tftpdir $tftpdir nfs timeo=14,intr 1 2\" /etc/fstab";
xCAT::Utils->runcmd($cmd, -1);
if ($::RUNCMD_RC != 0) # not already there
{
`echo "$tftphost:$tftpdir $tftpdir nfs timeo=14,intr 1 2" >>/etc/fstab`;
}
}
}
return $rc;
}
#-----------------------------------------------------------------------------
=head3 setup_HTTP
Sets up HTTP services on Service Node for Linux
=cut
#-----------------------------------------------------------------------------
sub setup_HTTP
{
my ($nodename) = @_;
my $rc = 0;
if (xCAT::Utils->isLinux())
{
#my $os = xCAT::Utils->osver();
#if ($os =~ /sles.*/)
#{
# $rc = xCAT::Utils->startService("apache2");
#}
#else
#{
# $rc = xCAT::Utils->startService("httpd");
#}
$rc = xCAT::Utils->startservice("http");
}
return $rc;
}
#-----------------------------------------------------------------------------
#
#=head3 stop_TFTP
#
# Stop tftp process for multiple platforms
#
# return:
# 1 on faled
# 0 on success
#
#=cut
#
#-----------------------------------------------------------------------------
sub stop_TFTP
{
my $distro=xCAT::Utils->osver();
# Check whether the tftp-hpa has been installed, the ubuntu tftpd-hpa configure file is under /etc/default
unless (-x "/usr/sbin/in.tftpd" and (-e "/etc/xinetd.d/tftp" or -e "/etc/default/tftpd-hpa")) {
xCAT::MsgUtils->message("S", "ERROR: The tftpd was not installed, enable the tftp failed.");
return 1;
}
# kill the process of atftp if it's there
my @output = xCAT::Utils->runcmd("ps -ef | grep atftpd | grep -v grep", -1);
foreach my $ps (@output) {
$ps =~ s/^\s+//; # strip any leading spaces
my ($uid, $pid, $ppid, $desc) = split /\s+/, $ps;
my $cmd = "kill -9 $pid >/dev/null 2>&1";
system($cmd);
if ($? != 0) {
xCAT::MsgUtils->message("S", "ERROR: Can not execute command $cmd.");
return 1;
}
}
if (-x "/usr/sbin/in.tftpd") {
system("killall in.tftpd >/dev/null 2>&1"); #xinetd can leave behind blocking tftp servers even if it won't start new ones
if ($distro =~ /ubuntu.*/i || $distro =~ /debian.*/i) {
sleep 1;
my @checkproc = `ps axf|grep -v grep|grep in.tftpd`;
if (@checkproc) {
if (xCAT::Utils->stopservice("tftpd-hpa") != 0) {
xCAT::MsgUtils->message("S", "ERROR: Can not stop tftpd-hpa service.");
return 1;
}
}
}
my @tftpprocpids = `ps axf | grep -v 'awk /in.tftpd/' | awk '/in.tftpd/ {print \$1}'`;
if (@tftpprocpids) {
my %pids_map;
my $count = 0;
map { chomp; $pids_map{$_} = 1 } @tftpprocpids;
while (keys %pids_map) {
foreach my $pid (keys %pids_map) {
if (xCAT::Utils::is_process_exists($pid)) {
$count++;
if ($count == 5) {
my $tftpinfo = `ps axf|grep -v grep|grep in.tftpd`;
xCAT::MsgUtils->message("S", "ERROR: Can not stop tftp process $pid [$tftpinfo] in 5 seconds, stop it again.");
my $cmd = "killall -s KILL in.tftpd >/dev/null 2>&1";
system($cmd);
if($? != 0) {
xCAT::MsgUtils->message("S", "ERROR: Can not execute command $cmd.");
return 1;
}
}
if ($count > 10) {
xCAT::MsgUtils->message("S", "ERROR: Can not stop tftp process in 10 seconds.");
return 1;
}
sleep 1;
} else {
delete $pids_map{$pid}
}
}
}
}
}
return 0;
}
#-----------------------------------------------------------------------------
#
#=head3 enable_TFTP
#
# Configure and enable the tftp service.
#
#=cut
#
#-----------------------------------------------------------------------------
sub enable_TFTP
{
# read tftpdir directory from database
my $tftpdir = xCAT::TableUtils->getTftpDir();
if (!(-e $tftpdir)) {
mkdir($tftpdir);
}
# The location of tftp mapfile
my $mapfile = "/etc/tftpmapfile4xcat.conf";
if (!-e "$mapfile") {
if (!open(MAPFILE, ">$mapfile")) {
xCAT::MsgUtils->message("S", "ERROR: Cannot open $mapfile.");
return 1;
}
# replace the \ with /
print MAPFILE 'rg (\\\) \/';
close(MAPFILE);
}
my $distro = xCAT::Utils->osver();
if ($distro !~ /ubuntu.*/i && $distro !~ /debian.*/i) {
if (!open(FILE, "</etc/xinetd.d/tftp")) {
xCAT::MsgUtils->message("S", "ERROR: Cannot open /etc/xinetd.d/tftp.");
return 1;
}
# The location of tftp mapfile
my $mapfile = "/etc/tftpmapfile4xcat.conf";
my $recfg = 0;
my @newcfgfile;
# Check whether need to reconfigure the /etc/xinetd.d/tftp
while (<FILE>) {
# check the configuration of 'server_args = -s /xx -m xx' entry
if (/^\s*server_args\s*=(.*)$/) {
my $cfg_args = $1;
# handle the -s option for the location of tftp root dir
if ($cfg_args =~ /-s\s+([^\s]*)/) {
my $cfgdir = $1;
$cfgdir =~ s/\$//;
$tftpdir =~ s/\$//;
# make sure the tftp dir should comes from the site.tftpdir
if ($cfgdir ne $tftpdir) {
$recfg = 1;
}
}
# handle the -m option for the mapfile
if ($cfg_args !~ /-m\s+([^\s]*)/) {
$recfg = 1;
}
if ($recfg) {
# regenerate the entry for server_args
my $newcfg = $_;
$newcfg =~ s/=.*$/= -s $tftpdir -m $mapfile/;
push @newcfgfile, $newcfg;
} else {
push @newcfgfile, $_;
}
} elsif (/^\s*disable\s*=/ && !/^\s*disable\s*=\s*yes/) {
# disable the tftp by handling the entry 'disable = yes'
my $newcfg = $_;
$newcfg =~ s/=.*$/= yes/;
push @newcfgfile, $newcfg;
$recfg = 1;
} else {
push @newcfgfile, $_;
}
}
close(FILE);
# reconfigure the /etc/xinetd.d/tftp
if ($recfg) {
if (!open(FILE, ">/etc/xinetd.d/tftp")) {
xCAT::MsgUtils->message("S", "ERROR: Cannot open /etc/xinetd.d/tftp");
return 1;
}
print FILE @newcfgfile;
close(FILE);
#my @output = xCAT::Utils->runcmd("service xinetd status", -1);
#if ($::RUNCMD_RC == 0) {}
my $retcode = xCAT::Utils->checkservicestatus("xinetd");
if ($retcode == 0) {
my $retcode = xCAT::Utils->restartservice("xinetd");
if ($retcode != 0)
{
xCAT::MsgUtils->message("S",
"Error on restart xinetd\n");
}
#if (grep(/running/, @output))
#{
# print ' '; # indent service output to separate it from the xcatd service output
# system "service xinetd stop";
# if ($? > 0)
# { # error
# xCAT::MsgUtils->message("S",
# "Error on command: service xinetd stop\n");
# }
# system "service xinetd start";
# if ($? > 0)
# { # error
# xCAT::MsgUtils->message("S",
# "Error on command: service xinetd start\n");
# }
#}
}
}
}
# get the version of TCP/IP protocol
my $protocols;
my $v4only = "-4 ";
if (xCAT::Utils->osver() =~ /^sle[sc]10/) {
$v4only = "";
}
open($protocols, "<", "/proc/net/protocols");
if ($protocols) {
my $line;
while ($line = <$protocols>) {
if ($line =~ /^TCPv6/) {
$v4only = "";
last;
}
}
} else {
$v4only = "";
}
# get the tftpflags which set by customer
my $tftpflags = xCAT::TableUtils->get_site_attribute("tftpflags");
my $startcmd = "/usr/sbin/in.tftpd $v4only -v -l -s $tftpdir -m /etc/tftpmapfile4xcat.conf";
if ($tftpflags) {
$startcmd = "/usr/sbin/in.tftpd $v4only $tftpflags";
}
if ( -x "/usr/sbin/in.tftpd") {
system("$startcmd");
if($? != 0) {
xCAT::MsgUtils->message("S", "ERROR: Can not execute command $startcmd.");
return 1;
}
}
return 0;
}
# enable or disable proxydhcp service
sub setup_proxydhcp {
my $flag = shift;
my $pid;
# read the pid of proxydhcp
if (open(PIDF, "</var/run/xcat/proxydhcp-xcat.pid")) {
$pid = <PIDF>;
}
close(PIDF);
# kill it first
if ($pid) {
kill 2, $pid;
}
# start the proxydhcp daemon if it's set to enable
if ($flag) {
system("/opt/xcat/sbin/proxydhcp-xcat -d");
}
}
1;