#!/usr/bin/perl
#
# $Id: loncontrol,v 1.46 2019/06/09 02:35:41 raeburn Exp $
#
# The LearningOnline Network with CAPA
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA 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.
#
# LON-CAPA 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 LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
# Startup script for the LON-CAPA network processes
#

# chkconfig: 345 95 5
# description: LON-CAPA is a "network of knowledge".  It is used to \
# distribute knowledge resources and instructional management.
# processnames: lonc, lond, lonsql, lonmaxima, lonr
# pidfiles: /home/httpd/perl/logs/lon*.pid
# config: /etc/httpd/conf/loncapa.conf
# config: /home/httpd/lonTabs/hosts.tab
# config: /home/httpd/lonTabs/spare.tab
# SuSE chkconfig/insserv info
### BEGIN INIT INFO
# Provides:       loncapa
# Required-Start: SuSEfirewall2_setup mysql apache2 $network $remote_fs
# Should-Start:   $ALL
# Required-Stop:
# Default-Start:  3 5
# Default-Stop:
# Description:    Starts the LON-CAPA services
### END INIT INFO

use strict;
use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;
use LONCAPA::Firewall;
use Apache::lonnet;

my $command=$ARGV[0]; $command=~s/[^a-z]//g;

$ENV{'PATH'}="/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/root/bin";
$ENV{'BASH_ENV'}="";

sub stop_daemon {
    my ($daemon,$killallname)=@_;
    my $pidfile="/home/httpd/perl/logs/$daemon.pid";
    
    printf("%-15s ",$daemon);
    if (-e $pidfile) {
	open(PIDFILE,$pidfile);
	my $daemonpid=<PIDFILE>;
	chomp($daemonpid);
	kill TERM => $daemonpid;
	my $count=0;
	while ($count++ < 5 && kill(0 => $daemonpid)) {
	    sleep 1;
	}
	if (kill 0 => $daemonpid) {
	    kill KILL => $daemonpid;
	    sleep 1;
	    if (kill 0 => $daemonpid) {
		print("failed to kill");
	    } else {
		print("killed");
	    }
	} else {
	    print("stopped");
	}
    } else {
	print("not running");
    }
    system("killall -q -0 $killallname");
    if ($? == 0) {
	system("killall -q $killallname");
	print(", killed off extraneous processes");
    }
    unlink($pidfile);
    if ($killallname eq 'loncnew') {
        &clean_nossl_loncpids();
    }
    print("\n");
}

sub clean_sockets {
    opendir(SOCKETS,"/home/httpd/sockets/");
    my $perlvarref=&LONCAPA::Configuration::read_conf();
    return if (ref($perlvarref) ne 'HASH');
    while (my $fname=readdir(SOCKETS)) {
	next if (-d $fname
		 || $fname=~/(mysqlsock|maximasock|\Q$perlvarref->{'lonSockDir'}\E)/);
	unlink("/home/httpd/sockets/$fname");
    }
}

sub clean_nossl_loncpids {
    my $childpiddir = '/home/httpd/perl/logs/loncpids';
    my $nossldir = '/home/httpd/sockets/nosslverify';
    foreach my $dir ($childpiddir,$nossldir) {
        if (-d $dir) {
            if (opendir(my $dh,$dir)) {
                while (my $fname=readdir($dh)) {
                    next if ($fname =~ /^\./);
                    unlink("$dir/$fname");
                }
                closedir($dh);
            }
        }
    }
}

if (($command eq "restart") || ($command eq 'stop') || 
    ($command eq 'start') || ($command eq "status")) {
    my $iptables = &LONCAPA::Firewall::get_pathto_iptables();
    my @fw_chains = &LONCAPA::Firewall::get_fw_chains($iptables);
    my $lond_port = &LONCAPA::Firewall::get_lond_port();
    my $firewalld = &LONCAPA::Firewall::uses_firewalld();
    my %iphost;
    if ($command eq 'restart') {
        print 'Restarting LON-CAPA'."\n";
        print 'Ending LON-CAPA client and daemon processes'."\n";
        foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
            my $killallname=$daemon;
            if ($daemon eq 'lonc') { $killallname='loncnew'; }
            &stop_daemon($daemon,$killallname);
        }
        %iphost = &Apache::lonnet::get_iphost('',1);
        my $firewall_result =
            &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
                                             $lond_port,\%iphost,[$lond_port],
                                             $firewalld);
        if ($firewall_result) {
            print "$firewall_result\n";
        }
        $firewall_result =
            &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,
                                            $lond_port,\%iphost,[$lond_port],
                                            $firewalld);
        if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
            if ($firewall_result eq 'inactive firewall') {
                print "WARNING: iptables firewall is currently inactive\n";
            }
        } elsif ($firewall_result) {
            print "$firewall_result\n";
        }
        print 'Starting LON-CAPA client and daemon processes (please be patient)'.
              "\n";
        system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
    } elsif ($command eq 'stop') {
        print 'Stopping LON-CAPA'."\n";
        foreach my $daemon ('lonsql','lond','lonc','lonmemcached','lonmaxima','lonr') {
	    my $killallname=$daemon;
	    if ($daemon eq 'lonc') { $killallname='loncnew'; }
	    &stop_daemon($daemon,$killallname);
        }
        my $firewall_result = 
            &LONCAPA::Firewall::firewall_close_port($iptables,\@fw_chains,
                                                    $lond_port,\%iphost,[$lond_port],
                                                    $firewalld);
        if ($firewall_result) {
            print "$firewall_result\n";
        }
        &clean_sockets();
    } elsif ($command eq "start") {
        %iphost = &Apache::lonnet::get_iphost('',1);
        my $firewall_result = 
            &LONCAPA::Firewall::firewall_open_port($iptables,\@fw_chains,
                                                   $lond_port,\%iphost,[$lond_port],
                                                   $firewalld);
        if (($firewall_result eq 'ok') || ($firewall_result eq 'inactive firewall')) {
            if ($firewall_result eq 'inactive firewall') {
                print "WARNING: iptables firewall is currently inactive\n";
            }
            print 'Starting LON-CAPA'."\n";
            print 'Starting LON-CAPA client and daemon processes (please be patient)'.
	          "\n";
            system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
        } else {
            print "Not starting LON-CAPA\n";
            if ($firewall_result eq 'port number unknown') {
                print "Could not check for status of LON-CAPA port in running firewall - port number unknown.  \n";
            } elsif ($firewall_result) {
                print "$firewall_result\n";
            }
        }
    } elsif ($command eq "status") {
        %iphost = &Apache::lonnet::get_iphost();
        my $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
        if ($response=~/No such file or directory/) {
	    print 'LON-CAPA is not running.'."\n";
        } else {
	    print 'LON-CAPA is running.'."\n";
	    system("su www -c '/home/httpd/perl/loncron --justcheckconnections'");
        }
        if (! &LONCAPA::Firewall::firewall_is_active()) {
            print 'The iptables firewall is not active'."\n";
        }
        if ($lond_port) {
            my $londopen;
            foreach my $fw_chain (@fw_chains) { 
                my $numopen = &LONCAPA::Firewall::firewall_is_port_open($iptables,$fw_chain,$lond_port,$lond_port,\%iphost,$firewalld);
                $londopen += $numopen; 
            }
            if ($londopen) {
                print "The LON-CAPA port ($lond_port) is open in firewall.\n";
            } elsif (&LONCAPA::Firewall::firewall_is_active()) {
                print "The LON-CAPA port ($lond_port) is NOT open in running firewall!\n";
            }
        } else {
            if (&LONCAPA::Firewall::firewall_is_active()) {
                print "Could not check for status of LON-CAPA port in running firewall - port number unknown.\n";
            } else {
                print "LON-CAPA port number is unknown, and firewall is not running.\n";
            }
        }
    }
} elsif ($command eq "reload") {
    print 'Reload LON-CAPA config files'."\n";
    system("su www -c '/home/httpd/perl/loncron --justreload'");
} else {
    print "You need to specify one of reload|restart|stop|start|status on the command line.\n";
}