Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
acct	2.06 KB	-rwxr-xr-x
apache-htcacheclean	2.43 KB	-rwxr-xr-x
apache2	7.99 KB	-rwxr-xr-x
apparmor	3.65 KB	-rwxr-xr-x
apport	2.85 KB	-rwxr-xr-x
atd	1.05 KB	-rwxr-xr-x
cachefilesd	7.08 KB	-rwxr-xr-x
console-setup.sh	1.2 KB	-rwxr-xr-x
cron	2.99 KB	-rwxr-xr-x
cryptdisks	937 B	-rwxr-xr-x
cryptdisks-early	896 B	-rwxr-xr-x
dbus	3.08 KB	-rwxr-xr-x
fail2ban	6.85 KB	-rwxr-xr-x
gological	565 B	-rwxr-xr-x
gophysical	513 B	-rwxr-xr-x
grub-common	985 B	-rwxr-xr-x
hwclock.sh	1.71 KB	-rwxr-xr-x
ipmievd	3.09 KB	-rwxr-xr-x
irqbalance	2.58 KB	-rwxr-xr-x
iscsid	1.47 KB	-rwxr-xr-x
keyboard-setup.sh	1.44 KB	-rwxr-xr-x
kmod	2 KB	-rwxr-xr-x
lvm2	695 B	-rwxr-xr-x
lvm2-lvmpolld	586 B	-rwxr-xr-x
mpt-statusd	5.95 KB	-rwxr-xr-x
ndn-debuglogging	1.02 KB	-rwxr-xr-x
ndn-iptables.disable	2.16 KB	-rwxr-xr-x
ndn-megacli	749 B	-rwxr-xr-x
networking	4.38 KB	-rwxr-xr-x
nfs-common	5.53 KB	-rwxr-xr-x
nginx	4.47 KB	-rwxr-xr-x
ntp	1.46 KB	-rwxr-xr-x
open-iscsi	2.38 KB	-rwxr-xr-x
open-vm-tools	1.8 KB	-rwxr-xr-x
openipmi	13.46 KB	-rwxr-xr-x
php8.1-fpm.dpkg-new	4.19 KB	-rwxr-xr-x
plymouth	1.35 KB	-rwxr-xr-x
plymouth-log	760 B	-rwxr-xr-x
postfix	3.02 KB	-rwxr-xr-x
prepstandby	358 B	-rwxr-xr-x
procps	959 B	-rwxr-xr-x
proftpd	5.2 KB	-rwxr-xr-x
rpcbind	2.45 KB	-rwxr-xr-x
rsync	4.31 KB	-rwxr-xr-x
screen-cleanup	1.19 KB	-rwxr-xr-x
scsitools-pre.sh	2.24 KB	-rwxr-xr-x
scsitools.sh	2.72 KB	-rwxr-xr-x
smartmontools	3.02 KB	-rwxr-xr-x
ssh	3.96 KB	-rwxr-xr-x
standby	2.86 KB	-rwxr-xr-x
stunnel4	5.6 KB	-rwxr-xr-x
sysstat	1.54 KB	-rwxr-xr-x
udev	6.71 KB	-rwxr-xr-x
ufw	2.03 KB	-rwxr-xr-x
unattended-upgrades	1.36 KB	-rwxr-xr-x
uuidd	1.28 KB	-rwxr-xr-x
x11-common	2.7 KB	-rwxr-xr-x
zabbix-agent	1.54 KB	-rwxr-xr-x

Code Editor : standby

#!/usr/bin/perl

# dh2 standby script (for failover)
#
# invoke upon entry into runlevel 2.  checks logical identity (defined
# in /dh/etc/logical-identity) to see if it's up.  if not (ie no other
# machine has taken over in its stead) switches to runlevel 3, which
# assumes that persona, starts services, etc.
#
# if logical identity is already up (taken over), standby exits and 
# machine remains in runlevel 2.

use strict;
use Sys::Syslog qw(:DEFAULT setlogsock);

my $verbose = 1;
my $ping = "ping -n -q";
my $logical_runlevel = 2;
my $standby_runlevel = 4;

my $command = shift @ARGV;

setlogsock 'unix';
openlog 'standby', 'pid', 'daemon';

sub my_syslog {
	eval {
		local $SIG{"__DIE__"}= sub { };
		Sys::Syslog::syslog(@_);
	}
}

sub p($) {
	my $p = shift;
	print "standby: $p";
	my_syslog 'info', $p;
}

sub d($) {
	my $p = shift;
	p $p;
	exit 1;
}

# background!
#if (fork()) {
#	print "Backgrounding dh2 standby agent with 5 second delay.\n";
#	exit 0;
#}

p "[-- dh2 standby agent --]\n";

#p "sleeping 5 seconds for init to chill out\n";
#sleep 5;

if ($command eq 'start') {
	# load physical identity
	open(I,"/etc/network/physical-identity") || d "missing /etc/network/physical-identity\n";
	my $pip = ;
	my $phost = ;
	my $pfqdn = ;
	my $rl = ;
	close I;
	chomp($pip);
	chomp($phost);
	chomp($pfqdn);
	chomp($rl);
	$standby_runlevel = $rl if $rl;

unless ($pip) {
		d "No physical node, not doing anything.";
		exit 0;
	}
	p "Physical node: $phost ($pfqdn), $pip, standby runlevel $standby_runlevel\n" if $verbose;
	
	# load logical identity
	open(I,"/etc/network/logical-identity") || d "missing /etc/network/logical-identity\n";
	my $lip = ;
	my $lhost = ;
	my $lfqdn = ;
	my $lrl = ;
	close I;
	chomp($lip);
	chomp($lhost);
	chomp($lfqdn);
	chomp($lrl);
	$logical_runlevel = $lrl if $lrl;

unless ($lip) {
		d "No logical node, not doing anything.\n";
		exit 0;
	}

p "Logical node: $lhost ($lfqdn), $lip, runlevel $logical_runlevel\n" if $verbose;

# did we boot?
	my ($lastrunlevel, $currunlevel) = split(/\s+/,`runlevel`);
	p "Runlevel $lastrunlevel -> $currunlevel\n";

if ($currunlevel != $standby_runlevel) {
		d "not in standby runlevel ($standby_runlevel) , not doing anything\n";
	}

if ($lastrunlevel eq 'N') {
		
		# ping logical host
		my $count = 10;
		p "Just booted!  Pinging $lip (count $count) ...\n";
#		my $r = system "$ping -c $count $lip > /dev/null";
#		my $r = 1;
		my $out = `$ping -c $count $lip`;
		my $r = $out =~ / 0 received/;
		if ($r) {
			# unreachable!
			p "$lip unreachable!  switching to runlevel $logical_runlevel\n";
			system "telinit $logical_runlevel > /dev/null";
		} elsif ($out =~ / packets received/) {
			p "$lip reachable!  we've been taken over, reamining in this runlevel.\n";
		} else {
			p "ping died!  something's funny, remaining in this runlevel.\n";
		}
	} else {
		p "we just boot, not doing anything.\n";
	}
}

${this.title}

Code Editor : standby