[ipfire-2.x.git] / src / wio / main / wio.pl

#!/usr/bin/perl
#
###############################################################################
#                                                                             #
# IPFire.org - A linux based firewall                                         #
# Copyright (C) 2017-2018 Stephan Feddersen <sfeddersen@ipfire.org>           #
# All Rights Reserved.                                                        #
#                                                                             #
# This program 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 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
###############################################################################
#
# Version: 2019/06/04 21:12:23
#
# This wio.pl is based on the Code from the IPCop WIO Addon
# and is extremly adapted to work with IPFire.
#
# Autor: Stephan Feddersen
# Co-Autor: Alexander Marx
# Co-Autor: Frank Mainz
#

# enable only the following on debugging purpose
#use warnings;

use strict;
use POSIX qw(strftime);
use Time::HiRes qw(gettimeofday tv_interval);
use Net::Ping;
use RRDs;
use Fatal qw/ open /;

require '/var/ipfire/general-functions.pl';
require '/var/ipfire/lang.pl';
require '/usr/lib/wio/wio-lib.pl';

my ( $debug, $i, $t, $ib, $tb, $ivpn, $tvpn ) = '';
my $logdir    = "/var/log/wio";
my $owner     = getpwnam "nobody";
my $group     = getgrnam "nobody";
my $ipadrfile = "$logdir/wioips";

unless ( -e $ipadrfile ) { print ( "The file $ipadrfile doesn't exist!\n" ); exit; }

foreach (@ARGV) {
  if ( $_ eq '-d' || $_ eq '--debug') { $debug = 1; }
  if ( $_ eq '-h' || $_ eq '--help' ) { die help(); }
}

my ( %wiosettings, %mainsettings, %mailsettings, %netsettings ) = ();

&General::readhash('/var/ipfire/main/settings', \%mainsettings);
&General::readhash('/var/ipfire/ethernet/settings', \%netsettings);
&General::readhash('/var/ipfire/dma/mail.conf', \%mailsettings);
&General::readhash("/var/ipfire/wio/wio.conf", \%wiosettings);

my $now        = strftime "%a, %d.%m.%Y %H:%M:%S", localtime;
my $logging    = $wiosettings{'LOGGING'};
my $mailstyle  = $wiosettings{'MAILSTYLE'};
my $mailremark = $wiosettings{'MAILREMARK'};
my $timeout    = $wiosettings{'TIMEOUT'};
my $shutdown   = $wiosettings{'SHUTDOWN'};
my $rrddir     = "/var/log/rrd/wio";
my $onoffip    = "$logdir/wioscip";
my $hostname   = "$mainsettings{'HOSTNAME'}.$mainsettings{'DOMAINNAME'}";
my $redactive  = "/var/ipfire/red/active";
my $rediface   = "/var/ipfire/red/iface";
my $reddev     = '';

if ( -e $rediface ) {
	$reddev = &General::get_red_interface;
}

my $redip      = $hostname;
my $vpnpid     = ( -e "/var/run/charon.pid" ? `awk '{print $1}' /var/run/charon.pid`: '');
my $ovpnpid    = ( -e  "/var/run/openvpn.pid" ? `awk '{print $1}' /var/run/openvpn.pid`: '');

my $steptime   = $wiosettings{'CRON'} *= 60;
my $i_ping     = 'icmp';
my $t_ping     = 'tcp';

my $nr = 1;
my $poweroff = 0;

my ( $togglestat, $arp, $time, $start, $timestamp ) = 0;
my ( $id, $ipadr, $ipadrnew, $host, $hostnew, $enable, $remark, $dyndns, $dyndnsip ) = '';
my ( $mail, $mailon, $mailoff, $ping, $on, $httphost, $mailen ) = '';
my ( $msg, $logmsg, $mailmsg, $smailtxt, $infomsg, $client, $mode, $onbak, $arpclient ) = '';
my ( $ping_i, $ping_t, $ping_ib, $ping_tb, $ping_iv, $ping_tv, $pingmode ) = '';
my ( @tmp, @arptmp, @myarray, @status, @arpclients ) = '';
my @ifaces = ('GREEN','BLUE','ORANGE');

if ( $mailsettings{'USEMAIL'} eq 'on' ) { $mailen = 'on'; }
else { $mailen = 'off'; }

if ( -e $redactive ) {
	open(IPADDR, "/var/ipfire/red/local-ipaddress");
	$redip = <IPADDR>;
	close IPADDR;
	chomp($redip);
}

if ($debug) {
	$start = [gettimeofday];
	startdebug();
}

foreach (@ifaces) {
	if ( $netsettings{"${_}_DEV"} ne '' && $netsettings{"${_}_DEV"} ne 'disabled' ) {
		my $output = `ifconfig $netsettings{"${_}_DEV"}`;

		if ( grep (/RX bytes:0/, $output) ) { next; }
		else {
			@arptmp = `/usr/local/bin/wioscan -s $netsettings{"${_}_DEV"}`;

			foreach $arpclient (@arptmp) {
				push (@arpclients, (split (/\,/,$arpclient))[1]);
			}
		}
		$output = '';
		undef(@arptmp);
	}
}

if ( -e "$onoffip" ) { open( FILE, "< $onoffip" ); }
else { open( FILE, "< $ipadrfile" ); }
@myarray = <FILE>;
close(FILE);

# ping all clients

foreach (@myarray) {
	chomp;
	@tmp = split( /\,/, $_ );

	($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;

	$timestamp = strftime "%d.%m.%Y - %H:%M:%S", localtime;

	if ( $enable ne 'on' ) {
		push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");
		next;
	}

	if ( defined($dyndns) && ( $dyndns =~ 'on' ) ) {
		($dyndnsip, $infomsg) = &WIO::getdyndnsip($host, @myarray);
		if ($dyndnsip ne $ipadr) { $ipadr = $dyndnsip; }
	}

	$ping_i = $ping_t = $ping_ib = $ping_tb = $ping_iv =  $ping_tv = $pingmode = $arp = 0;

	foreach (@arpclients) {
		chomp;
		unless ( $ipadr eq $_ )
		{
			$i = Net::Ping->new( $i_ping, $timeout );
			unless ( defined $i ) { die "Can't create Net::Ping object $!"; }

			$t = Net::Ping->new( $t_ping, $timeout );
			unless ( defined $t ) { die "Can't create Net::Ping object $!"; }

			$ib = Net::Ping->new( $i_ping, $timeout );
			unless ( defined $ib ) { die "Can't create Net::Ping object $!"; }
			$ib->bind($redip);

			$tb = Net::Ping->new( $t_ping, $timeout );
			unless ( defined $tb ) { die "Can't create Net::Ping object $!"; }
			$tb->bind($redip);

			if ($ovpnpid || $vpnpid)
			{
				$ivpn = Net::Ping->new( $i_ping, $timeout );
				unless ( defined $ivpn ) { die "Can't create Net::Ping object $!"; }
				$ivpn->bind($hostname);

				$tvpn = Net::Ping->new( $t_ping, $timeout );
				unless ( defined $tvpn ) { die "Can't create Net::Ping object $!"; }
				$tvpn->bind($hostname);
			}
		}
		else { $arp = 1 }
	}

	$client = ( ( $dyndns eq 'on' || $ping eq 'fqdn' ) ? $host : $ipadr );

	if ($debug) {
		printf "%2s   %15s", $nr++,  ($client ne $ipadr ? $ipadr : $client );
		$time = [gettimeofday];
	}

	if ( $arp == 1 
		|| ($ping_i = $i->ping($client))
		|| ($ping_t = $t->ping($client))
		|| ($ping_ib = $ib->ping($client))
		|| ($ping_tb = $tb->ping($client))
		|| ($ovpnpid?($ping_iv = $ivpn->ping($client)) : 0)
		|| ($vpnpid?($ping_tv = $tvpn->ping($client)) : 0) )
	{
		$mode       = 100;
		$msg        = "$Lang::tr{'wio up'}";
		$onbak      = $on;
		$togglestat = ( $on ne 'on' ) ? 1 : 0;
		$on         = 'on';
	}
	else {
		$mode       = 0;
		$msg        = "$Lang::tr{'wio down'}";
		$onbak      = $on;
		$togglestat = ( $on ne 'off' ) ? 1 : 0;
		$on         = 'off';
	}

	push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");

	if ($debug) {
		$mail = '----';
		if ( $mailon eq 'on' && $togglestat == 1 && $mode == 100 ) { $mail = 'Online'; }
		if ( $mailoff eq 'on' && $togglestat == 1 && $mode == 0 ) { $mail = 'Offline'; }
		if ( $dyndns ne 'on' ) { $dyndns = 'off'; }

		$pingmode = $arp ? 'ARPSCAN' : $ping_i ? 'ICMP' : $ping_t ? 'TCP' : $ping_ib ? 'ICMP+BIND' : $ping_tb ? 'TCP+BIND' : $ping_iv ? 'VPN ICMP' : $ping_tv ? 'VPN TCP' : 'NO ECHO';  
		printf "%7s%8s%9s%10s     %.4f sek%12s\n", $ping, $dyndns, $msg, $mail, tv_interval($time), $pingmode;
	}

	if ( $host eq '' ) { $hostnew = 'n/a'; } else { $hostnew = $host; }
	if ( $ipadr eq '' ) { $ipadrnew = 'n/a'; } else { $ipadrnew = $ipadr; }

	if ( $logging eq 'on' ) {
		$logmsg = "Client: $hostnew - IP: $ipadrnew - Status: $msg";
		&General::log("wio","$logmsg");
	}

	if ( $mailen eq 'on' && $togglestat == 1 && ($mailon eq 'on' || $mailoff eq 'on')) {
	
		if ( $mailstyle eq 'email' || ($mailstyle eq 'smail' && $smailtxt eq '') ) { $mailmsg .= "Date\t : $now\n\n"; }

		$mailmsg .= "Client\t : $hostnew\nIP\t : $ipadrnew\nStatus\t : $msg\n";

		if ( $mailremark eq 'on' && $remark ne '' ) {
			$mailmsg .= "Remark : $remark\n\n";
		}

		if ( $mailstyle eq 'email' ) {
			&WIO::mailsender("WIO - $host - $msg", $mailmsg);
			undef ($mailmsg);
		}
		elsif ( $mailstyle eq 'smail'  ) {
			$smailtxt .= $mailmsg."\n";
			undef ($mailmsg);
		}
	}

	if ( $ping ne 'fqdn' ) { $client = $host; }
	if ( $host eq '' ) { $client = $ipadr; }

	updatewiodata("$id");

	if ( $arp == 0 ) {
		$i->close();
		$t->close();
		$ib->close();
		$tb->close();
	}

	if ( ( -e $ovpnpid || -e $vpnpid ) && $arp == 0 ) {
		$ivpn->close();
		$tvpn->close();
	}
}

# write adressfile new

if ( !-e $onoffip ) {
	open( FILE, "> $ipadrfile" );
	print FILE @status;
	close(FILE);
}
else {
	system("/bin/sed -i 's#$tmp[0],$tmp[1],$tmp[2],$tmp[3],$tmp[4],$tmp[5],$tmp[6],$tmp[7],$tmp[8],$tmp[9],$tmp[10],$tmp[11]#$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost#g' $ipadrfile");
	chmod ( 0644, $ipadrfile ); 
	chown ( $owner, $group, $ipadrfile );
}

if ($debug) {
	printf ("\n$Lang::tr{'wio_scriptruntime'}:  %.4f $Lang::tr{'age ssecond'}\n\n", tv_interval($start));
}

if ( $smailtxt ne '' ) { &WIO::mailsender($Lang::tr{'wio_sub'}, $smailtxt); }

if ($shutdown eq 'on' && ! -e $onoffip) {
	foreach (@status) {
		chomp;
		@tmp = split( /\,/, $_ );

		($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;
		
		if ( $on eq 'on' ) {
			$poweroff = 0;
			last;
		}
		else {
			$poweroff = 1;
			next;
		}
	}

	if ($poweroff == 1) {
		if ($debug) {
			printf "$Lang::tr{'shutting down ipfire'}!\n\n";
		}

		&General::log("wio","$Lang::tr{'shutting down ipfire'}!");
		system '/usr/local/bin/ipfirereboot down';
	}
}

undef (@tmp);
undef (@myarray);
undef (@status);
undef (@arptmp);
undef (@arpclients);

if ( -e $onoffip ) { unlink($onoffip); }

sub updatewiodata {
	my $id = $_[0];

	if ( !-e "$rrddir/$id.rrd" ) {
		RRDs::create(
			"$rrddir/$id.rrd",      "--step=$steptime",
			"DS:mode:GAUGE:3600:0:100", "RRA:AVERAGE:0.5:1:576",
			"RRA:AVERAGE:0.5:6:672",    "RRA:AVERAGE:0.5:24:732",
			"RRA:AVERAGE:0.5:144:1460"
		);
		my $ERROR = RRDs::error;
		print "Error in RRD::create for Who Is Online: $ERROR\n" if $ERROR;
	}

	RRDs::update( "$rrddir/$id.rrd", "-t", "mode", "N:$mode" );

	my $error = RRDs::error;

	if ($error) { &General::log("wio","$error"); }
}

sub startdebug {

printf "
HOSTNAME    : $hostname
TIMEOUT     : $timeout $Lang::tr{'age ssecond'}
MAILSTYLE   : $mailstyle
RED TYPE    : $netsettings{'RED_TYPE'}
RED DEVICE  : $reddev
RED ADDRESS : $redip
SHUTDOWN    : $shutdown
";
	if ($ovpnpid) {printf "OVPN PID    : $ovpnpid"}
	if ($vpnpid) {printf "VPN PID     : $vpnpid"}
printf  "
$Lang::tr{'wio_search'}

%3s%17s%7s%8s%9s%10s%15s%12s
---------------------------------------------------------------------------------
","ID ", "$Lang::tr{'wio ipadress'}", "Ping", "DynDNS", "Status", "Mail", "$Lang::tr{'wio_answer_time'}", "$Lang::tr{'wio_answer'}";
}

sub help {
	return "
Who Is Online? for IPFire

use option -d for debugging
use option -h for help\n\n";
}
Commit	Line	Data
0d6cc79d SF	1	#!/usr/bin/perl
	2	#
	3	###############################################################################
	4	# #
	5	# IPFire.org - A linux based firewall #
a25c95b3	6	# Copyright (C) 2017-2018 Stephan Feddersen <sfeddersen@ipfire.org> #
0d6cc79d SF	7	# All Rights Reserved. #
	8	# #
	9	# This program is free software: you can redistribute it and/or modify #
	10	# it under the terms of the GNU General Public License as published by #
	11	# the Free Software Foundation, either version 3 of the License, or #
	12	# (at your option) any later version. #
	13	# #
	14	# This program is distributed in the hope that it will be useful, #
	15	# but WITHOUT ANY WARRANTY; without even the implied warranty of #
	16	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
	17	# GNU General Public License for more details. #
	18	# #
	19	# You should have received a copy of the GNU General Public License #
	20	# along with this program. If not, see <http://www.gnu.org/licenses/>. #
	21	# #
	22	###############################################################################
	23	#
2a1c1735	24	# Version: 2019/06/04 21:12:23
0d6cc79d SF	25	#
	26	# This wio.pl is based on the Code from the IPCop WIO Addon
	27	# and is extremly adapted to work with IPFire.
	28	#
	29	# Autor: Stephan Feddersen
	30	# Co-Autor: Alexander Marx
	31	# Co-Autor: Frank Mainz
	32	#
	33
	34	# enable only the following on debugging purpose
	35	#use warnings;
	36
	37	use strict;
	38	use POSIX qw(strftime);
	39	use Time::HiRes qw(gettimeofday tv_interval);
	40	use Net::Ping;
	41	use RRDs;
	42	use Fatal qw/ open /;
	43
	44	require '/var/ipfire/general-functions.pl';
	45	require '/var/ipfire/lang.pl';
	46	require '/usr/lib/wio/wio-lib.pl';
	47
	48	my ( $debug, $i, $t, $ib, $tb, $ivpn, $tvpn ) = '';
	49	my $logdir = "/var/log/wio";
	50	my $owner = getpwnam "nobody";
	51	my $group = getgrnam "nobody";
	52	my $ipadrfile = "$logdir/wioips";
	53
	54	unless ( -e $ipadrfile ) { print ( "The file $ipadrfile doesn't exist!\n" ); exit; }
	55
	56	foreach (@ARGV) {
	57	if ( $_ eq '-d' \|\| $_ eq '--debug') { $debug = 1; }
	58	if ( $_ eq '-h' \|\| $_ eq '--help' ) { die help(); }
	59	}
	60
	61	my ( %wiosettings, %mainsettings, %mailsettings, %netsettings ) = ();
	62
	63	&General::readhash('/var/ipfire/main/settings', \%mainsettings);
	64	&General::readhash('/var/ipfire/ethernet/settings', \%netsettings);
	65	&General::readhash('/var/ipfire/dma/mail.conf', \%mailsettings);
	66	&General::readhash("/var/ipfire/wio/wio.conf", \%wiosettings);
	67
	68	my $now = strftime "%a, %d.%m.%Y %H:%M:%S", localtime;
	69	my $logging = $wiosettings{'LOGGING'};
	70	my $mailstyle = $wiosettings{'MAILSTYLE'};
	71	my $mailremark = $wiosettings{'MAILREMARK'};
	72	my $timeout = $wiosettings{'TIMEOUT'};
	73	my $shutdown = $wiosettings{'SHUTDOWN'};
	74	my $rrddir = "/var/log/rrd/wio";
	75	my $onoffip = "$logdir/wioscip";
	76	my $hostname = "$mainsettings{'HOSTNAME'}.$mainsettings{'DOMAINNAME'}";
	77	my $redactive = "/var/ipfire/red/active";
	78	my $rediface = "/var/ipfire/red/iface";
	79	my $reddev = '';
	80
	81	if ( -e $rediface ) {
	82	$reddev = &General::get_red_interface;
	83	}
	84
	85	my $redip = $hostname;
	86	my $vpnpid = ( -e "/var/run/charon.pid" ? `awk '{print $1}' /var/run/charon.pid`: '');
	87	my $ovpnpid = ( -e "/var/run/openvpn.pid" ? `awk '{print $1}' /var/run/openvpn.pid`: '');
	88
2a1c1735 SF	89	my $steptime = $wiosettings{'CRON'} *= 60;
	90	my $i_ping = 'icmp';
	91	my $t_ping = 'tcp';
0d6cc79d SF	92
	93	my $nr = 1;
	94	my $poweroff = 0;
	95
	96	my ( $togglestat, $arp, $time, $start, $timestamp ) = 0;
	97	my ( $id, $ipadr, $ipadrnew, $host, $hostnew, $enable, $remark, $dyndns, $dyndnsip ) = '';
	98	my ( $mail, $mailon, $mailoff, $ping, $on, $httphost, $mailen ) = '';
	99	my ( $msg, $logmsg, $mailmsg, $smailtxt, $infomsg, $client, $mode, $onbak, $arpclient ) = '';
	100	my ( $ping_i, $ping_t, $ping_ib, $ping_tb, $ping_iv, $ping_tv, $pingmode ) = '';
	101	my ( @tmp, @arptmp, @myarray, @status, @arpclients ) = '';
	102	my @ifaces = ('GREEN','BLUE','ORANGE');
	103
0d6cc79d SF	104	if ( $mailsettings{'USEMAIL'} eq 'on' ) { $mailen = 'on'; }
	105	else { $mailen = 'off'; }
	106
	107	if ( -e $redactive ) {
	108	open(IPADDR, "/var/ipfire/red/local-ipaddress");
	109	$redip = <IPADDR>;
	110	close IPADDR;
	111	chomp($redip);
	112	}
	113
	114	if ($debug) {
	115	$start = [gettimeofday];
	116	startdebug();
	117	}
	118
	119	foreach (@ifaces) {
	120	if ( $netsettings{"${_}_DEV"} ne '' && $netsettings{"${_}_DEV"} ne 'disabled' ) {
	121	my $output = `ifconfig $netsettings{"${_}_DEV"}`;
	122
	123	if ( grep (/RX bytes:0/, $output) ) { next; }
	124	else {
	125	@arptmp = `/usr/local/bin/wioscan -s $netsettings{"${_}_DEV"}`;
	126
	127	foreach $arpclient (@arptmp) {
	128	push (@arpclients, (split (/\,/,$arpclient))[1]);
	129	}
	130	}
	131	$output = '';
	132	undef(@arptmp);
	133	}
	134	}
	135
	136	if ( -e "$onoffip" ) { open( FILE, "< $onoffip" ); }
	137	else { open( FILE, "< $ipadrfile" ); }
	138	@myarray = <FILE>;
	139	close(FILE);
	140
	141	# ping all clients
	142
	143	foreach (@myarray) {
	144	chomp;
	145	@tmp = split( /\,/, $_ );
	146
	147	($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;
	148
	149	$timestamp = strftime "%d.%m.%Y - %H:%M:%S", localtime;
	150
	151	if ( $enable ne 'on' ) {
	152	push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");
	153	next;
	154	}
	155
	156	if ( defined($dyndns) && ( $dyndns =~ 'on' ) ) {
	157	($dyndnsip, $infomsg) = &WIO::getdyndnsip($host, @myarray);
	158	if ($dyndnsip ne $ipadr) { $ipadr = $dyndnsip; }
	159	}
	160
	161	$ping_i = $ping_t = $ping_ib = $ping_tb = $ping_iv = $ping_tv = $pingmode = $arp = 0;
	162
	163	foreach (@arpclients) {
	164	chomp;
	165	unless ( $ipadr eq $_ )
	166	{
	167	$i = Net::Ping->new( $i_ping, $timeout );
168	unless ( defined $i ) { die "Can't create Net::Ping object $!"; }
169
170	$t = Net::Ping->new( $t_ping, $timeout );
171	unless ( defined $t ) { die "Can't create Net::Ping object $!"; }
172
173	$ib = Net::Ping->new( $i_ping, $timeout );
174	unless ( defined $ib ) { die "Can't create Net::Ping object $!"; }
175	$ib->bind($redip);
176
177	$tb = Net::Ping->new( $t_ping, $timeout );
178	unless ( defined $tb ) { die "Can't create Net::Ping object $!"; }
179	$tb->bind($redip);
180
181	if ($ovpnpid \|\| $vpnpid)
182	{
183	$ivpn = Net::Ping->new( $i_ping, $timeout );
184	unless ( defined $ivpn ) { die "Can't create Net::Ping object $!"; }
185	$ivpn->bind($hostname);
186
187	$tvpn = Net::Ping->new( $t_ping, $timeout );
188	unless ( defined $tvpn ) { die "Can't create Net::Ping object $!"; }
189	$tvpn->bind($hostname);
190	}
191	}
192	else { $arp = 1 }
193	}
194
195	$client = ( ( $dyndns eq 'on' \|\| $ping eq 'fqdn' ) ? $host : $ipadr );
196
197	if ($debug) {
198	printf "%2s %15s", $nr++, ($client ne $ipadr ? $ipadr : $client );
199	$time = [gettimeofday];
200	}
201
202	if ( $arp == 1
203	\|\| ($ping_i = $i->ping($client))
204	\|\| ($ping_t = $t->ping($client))
205	\|\| ($ping_ib = $ib->ping($client))
206	\|\| ($ping_tb = $tb->ping($client))
207	\|\| ($ovpnpid?($ping_iv = $ivpn->ping($client)) : 0)
208	\|\| ($vpnpid?($ping_tv = $tvpn->ping($client)) : 0) )
209	{
210	$mode = 100;
211	$msg = "$Lang::tr{'wio up'}";
212	$onbak = $on;
213	$togglestat = ( $on ne 'on' ) ? 1 : 0;
214	$on = 'on';
215	}
216	else {
217	$mode = 0;
218	$msg = "$Lang::tr{'wio down'}";
219	$onbak = $on;
220	$togglestat = ( $on ne 'off' ) ? 1 : 0;
221	$on = 'off';
222	}
223
224	push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");
225
226	if ($debug) {
227	$mail = '----';
228	if ( $mailon eq 'on' && $togglestat == 1 && $mode == 100 ) { $mail = 'Online'; }
229	if ( $mailoff eq 'on' && $togglestat == 1 && $mode == 0 ) { $mail = 'Offline'; }
230	if ( $dyndns ne 'on' ) { $dyndns = 'off'; }
231
232	$pingmode = $arp ? 'ARPSCAN' : $ping_i ? 'ICMP' : $ping_t ? 'TCP' : $ping_ib ? 'ICMP+BIND' : $ping_tb ? 'TCP+BIND' : $ping_iv ? 'VPN ICMP' : $ping_tv ? 'VPN TCP' : 'NO ECHO';
233	printf "%7s%8s%9s%10s %.4f sek%12s\n", $ping, $dyndns, $msg, $mail, tv_interval($time), $pingmode;
234	}
235
236	if ( $host eq '' ) { $hostnew = 'n/a'; } else { $hostnew = $host; }
237	if ( $ipadr eq '' ) { $ipadrnew = 'n/a'; } else { $ipadrnew = $ipadr; }
238
239	if ( $logging eq 'on' ) {
240	$logmsg = "Client: $hostnew - IP: $ipadrnew - Status: $msg";
241	&General::log("wio","$logmsg");
242	}
243
244	if ( $mailen eq 'on' && $togglestat == 1 && ($mailon eq 'on' \|\| $mailoff eq 'on')) {
245
246	if ( $mailstyle eq 'email' \|\| ($mailstyle eq 'smail' && $smailtxt eq '') ) { $mailmsg .= "Date\t : $now\n\n"; }
247
248	$mailmsg .= "Client\t : $hostnew\nIP\t : $ipadrnew\nStatus\t : $msg\n";
249
250	if ( $mailremark eq 'on' && $remark ne '' ) {
251	$mailmsg .= "Remark : $remark\n\n";
252	}
253
254	if ( $mailstyle eq 'email' ) {
255	&WIO::mailsender("WIO - $host - $msg", $mailmsg);
256	undef ($mailmsg);
257	}
258	elsif ( $mailstyle eq 'smail' ) {
259	$smailtxt .= $mailmsg."\n";
260	undef ($mailmsg);
261	}
262	}
263
264	if ( $ping ne 'fqdn' ) { $client = $host; }
265	if ( $host eq '' ) { $client = $ipadr; }
266
267	updatewiodata("$id");
268
269	if ( $arp == 0 ) {
270	$i->close();
271	$t->close();
272	$ib->close();
273	$tb->close();
274	}
275
276	if ( ( -e $ovpnpid \|\| -e $vpnpid ) && $arp == 0 ) {
277	$ivpn->close();
278	$tvpn->close();
279	}
280	}
281
282	# write adressfile new
283
284	if ( !-e $onoffip ) {
285	open( FILE, "> $ipadrfile" );
286	print FILE @status;
287	close(FILE);
288	}
289	else {
290	system("/bin/sed -i 's#$tmp[0],$tmp[1],$tmp[2],$tmp[3],$tmp[4],$tmp[5],$tmp[6],$tmp[7],$tmp[8],$tmp[9],$tmp[10],$tmp[11]#$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost#g' $ipadrfile");
291	chmod ( 0644, $ipadrfile );
292	chown ( $owner, $group, $ipadrfile );
293	}
294
295	if ($debug) {
296	printf ("\n$Lang::tr{'wio_scriptruntime'}: %.4f $Lang::tr{'age ssecond'}\n\n", tv_interval($start));
297	}
298
299	if ( $smailtxt ne '' ) { &WIO::mailsender($Lang::tr{'wio_sub'}, $smailtxt); }
300
2a1c1735	301	if ($shutdown eq 'on' && ! -e $onoffip) {
0d6cc79d SF	302	foreach (@status) {
	303	chomp;
	304	@tmp = split( /\,/, $_ );
	305
	306	($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;
	307
	308	if ( $on eq 'on' ) {
	309	$poweroff = 0;
	310	last;
	311	}
	312	else {
	313	$poweroff = 1;
	314	next;
	315	}
	316	}
	317
	318	if ($poweroff == 1) {
	319	if ($debug) {
	320	printf "$Lang::tr{'shutting down ipfire'}!\n\n";
	321	}
	322
	323	&General::log("wio","$Lang::tr{'shutting down ipfire'}!");
	324	system '/usr/local/bin/ipfirereboot down';
	325	}
	326	}
	327
	328	undef (@tmp);
	329	undef (@myarray);
	330	undef (@status);
	331	undef (@arptmp);
	332	undef (@arpclients);
	333
	334	if ( -e $onoffip ) { unlink($onoffip); }
	335
	336	sub updatewiodata {
	337	my $id = $_[0];
	338
	339	if ( !-e "$rrddir/$id.rrd" ) {
	340	RRDs::create(
	341	"$rrddir/$id.rrd", "--step=$steptime",
	342	"DS:mode:GAUGE:3600:0:100", "RRA:AVERAGE:0.5:1:576",
	343	"RRA:AVERAGE:0.5:6:672", "RRA:AVERAGE:0.5:24:732",
	344	"RRA:AVERAGE:0.5:144:1460"
	345	);
	346	my $ERROR = RRDs::error;
	347	print "Error in RRD::create for Who Is Online: $ERROR\n" if $ERROR;
	348	}
	349
	350	RRDs::update( "$rrddir/$id.rrd", "-t", "mode", "N:$mode" );
	351
	352	my $error = RRDs::error;
	353
	354	if ($error) { &General::log("wio","$error"); }
	355	}
	356
	357	sub startdebug {
	358
	359	printf "
	360	HOSTNAME : $hostname
	361	TIMEOUT : $timeout $Lang::tr{'age ssecond'}
	362	MAILSTYLE : $mailstyle
	363	RED TYPE : $netsettings{'RED_TYPE'}
	364	RED DEVICE : $reddev
	365	RED ADDRESS : $redip
366	SHUTDOWN : $shutdown
367	";
368	if ($ovpnpid) {printf "OVPN PID : $ovpnpid"}
369	if ($vpnpid) {printf "VPN PID : $vpnpid"}
370	printf "
371	$Lang::tr{'wio_search'}
372
373	%3s%17s%7s%8s%9s%10s%15s%12s
374	---------------------------------------------------------------------------------
375	","ID ", "$Lang::tr{'wio ipadress'}", "Ping", "DynDNS", "Status", "Mail", "$Lang::tr{'wio_answer_time'}", "$Lang::tr{'wio_answer'}";
376	}
377
378	sub help {
379	return "
380	Who Is Online? for IPFire
381
382	use option -d for debugging
383	use option -h for help\n\n";
384	}