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

#!/usr/bin/perl
#
###############################################################################
#                                                                             #
# IPFire.org - A linux based firewall                                         #
# Copyright (C) 2017-2020 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: 2020/26/04 19:35:23
#
# This wio-lib.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
#

package WIO;

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

use strict;
use Socket;
use Time::Local;
use MIME::Lite;

require '/var/ipfire/general-functions.pl';
require '/var/ipfire/header.pl';
require '/var/ipfire/lang.pl';

my $mailfile = "${General::swroot}/dma/mail.conf";
my %mail = ();

&General::readhash($mailfile, \%mail);

############################################################################################################################

sub getdyndnsip {
	my $ipadr = $_[0];
	my $host = $_[1];
	my @fetchip = ();

	if ( -e "/var/ipfire/red/active" ) {
		@fetchip = gethostbyname($host);

		if ( defined($fetchip[0]) ) {
			@fetchip = map ( &Socket::inet_ntoa($_), @fetchip[4..$#fetchip]);
			return ($fetchip[0], $Lang::tr{'wio_dyndns_success'});
		}
	}
	else {
		return ($ipadr, $Lang::tr{'wio_dyndns_info'});
	}
}

############################################################################################################################

sub contime {
	chomp(my $str = $_[0]);
	chomp(my $vpn = $_[1]);

	my %m = ();
	@m{qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/} = (0 .. 11);

	my $totalsecs = '';

	if ( $vpn eq 'ipsec' ) {
		my @temp = split (/ /, $str);

		if ( $temp[1] eq 'seconds' ) {
			$totalsecs = $temp[0];
		}

		if ( $temp[1] eq 'minutes' ) {
			$totalsecs = $temp[0] * 60;
		}
	}

	if ( $vpn eq 'ovpn' ) {
		if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ||
			 $str =~ /^\w{3}\ ([a-zA-Z]+)\  (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
		{
			my $past = timelocal($5, $4, $3, $2, $m{$1}, $6);
			my $now  = time;
			$totalsecs = $now - $past;
		}
	}

	if ( $totalsecs ne '' )  {
		my $days = int($totalsecs / 86400);
		my $totalhours = int($totalsecs / 3600);
		my $hours = $totalhours % 24;
		my $totalmins = int($totalsecs / 60);
		my $mins = $totalmins % 60;
		my $secs = $totalsecs % 60;

		return "${days}d ${hours}h ${mins}m ${secs}s";
	}
	else {
		return;
	}
}

############################################################################################################################

sub statustime {
	my $str = $_[0];
	my ( $day, $mon ) = '';

	my %m = qw ( Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12 );

	if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ||
		 $str =~ /^\w{3}\ ([a-zA-Z]+)\  (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
	{
		$mon = $m{$1};

		if (length $2 < 2) { $day = "0$2"; }
		else { $day = $2; }

		return "$day.$mon.$6 - $3:$4:$5";
	}
	else {
		return;
	}
}

############################################################################################################################

sub mailsender {
	my $msg = '';

	$msg = MIME::Lite->new(
		From	=> $mail{'SENDER'},
		To		=> $mail{'RECIPIENT'},
		Subject	=> $_[0],
		Type	=> 'multipart/mixed'
	);

	$msg->attach(
		Type	=> 'TEXT',
		Data	=> $_[1]
	);

	$msg->send_by_sendmail;
}

############################################################################################################################

sub checkinto {
	my ($checkip, $checkhost, @checkfile) = @_;

	if ( $checkip ne '' ) {
		foreach (@checkfile) {
			chomp;
			if ( (split (/\,/, $_))[2] eq $checkip ) { return $Lang::tr{'wio_ip_exists'}; last; }
		}
	}

	if ( $checkhost ne '' ) {
		foreach (@checkfile) {
			chomp;
			if ( (split (/\,/, $_))[3] eq $checkhost ) {
				if ( $checkip ne '' ) {
					my $fileip = (split (/\,/, $_))[2];

					$fileip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;

					my $fileip1 = $1;
					my $fileip2 = $2;
					my $fileip3 = $3;
					my $fileip4 = $4;
					
					$checkip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;

					if ( $fileip1 == $1 && $fileip2 == $2 && $fileip3 == $3 ) {
						return $Lang::tr{'wio_host_exists'}; last; }
				}
				else { return $Lang::tr{'wio_host_exists'}; last; }
			}
		}
	}

	return;
}

############################################################################################################################

sub clearfile {
	my $file = $_[0];

	open(FILE, "> $file");
	close(FILE);
}

############################################################################################################################

sub color_devices() {
	my $output = shift;

	if ( uc($output) eq "GREEN0" ) { $output = "<b><font color ='$Header::colourgreen'>$output</b>";}
	elsif ( uc($output) eq "BLUE0" ) { $output = "<b><font color ='$Header::colourblue'>$output</b>"; }
	elsif ( uc($output) eq "ORANGE0" ) { $output = "<b><font color ='$Header::colourorange'>$output</b>"; }
	elsif ( uc($output) eq "RED0" ) { $output = "<b><font color ='$Header::colourred'>$output</b>"; }
	else { return $output = "<b><font color ='#696565'>$output</b>"; }

	return $output;
}

return 1;
Commit	Line	Data
0d6cc79d SF	1	#!/usr/bin/perl
	2	#
	3	###############################################################################
	4	# #
	5	# IPFire.org - A linux based firewall #
eebbe981	6	# Copyright (C) 2017-2020 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	#
eebbe981	24	# Version: 2020/26/04 19:35:23
0d6cc79d SF	25	#
	26	# This wio-lib.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	package WIO;
	35
	36	# enable only the following on debugging purpose
	37	#use warnings;
	38
	39	use strict;
	40	use Socket;
	41	use Time::Local;
	42	use MIME::Lite;
	43
	44	require '/var/ipfire/general-functions.pl';
	45	require '/var/ipfire/header.pl';
	46	require '/var/ipfire/lang.pl';
	47
	48	my $mailfile = "${General::swroot}/dma/mail.conf";
	49	my %mail = ();
0d6cc79d	50
eebbe981	51	&General::readhash($mailfile, \%mail);
0d6cc79d SF	52
	53	############################################################################################################################
	54
	55	sub getdyndnsip {
	56	my $ipadr = $_[0];
	57	my $host = $_[1];
	58	my @fetchip = ();
	59
eebbe981	60	if ( -e "/var/ipfire/red/active" ) {
0d6cc79d SF	61	@fetchip = gethostbyname($host);
	62
	63	if ( defined($fetchip[0]) ) {
	64	@fetchip = map ( &Socket::inet_ntoa($_), @fetchip[4..$#fetchip]);
	65	return ($fetchip[0], $Lang::tr{'wio_dyndns_success'});
	66	}
	67	}
	68	else {
	69	return ($ipadr, $Lang::tr{'wio_dyndns_info'});
	70	}
	71	}
	72
	73	############################################################################################################################
	74
	75	sub contime {
eebbe981 SF	76	chomp(my $str = $_[0]);
	77	chomp(my $vpn = $_[1]);
	78
0d6cc79d SF	79	my %m = ();
	80	@m{qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/} = (0 .. 11);
	81
eebbe981 SF	82	my $totalsecs = '';
	83
	84	if ( $vpn eq 'ipsec' ) {
	85	my @temp = split (/ /, $str);
	86
	87	if ( $temp[1] eq 'seconds' ) {
	88	$totalsecs = $temp[0];
	89	}
	90
	91	if ( $temp[1] eq 'minutes' ) {
	92	$totalsecs = $temp[0] * 60;
	93	}
	94	}
0d6cc79d	95
eebbe981 SF	96	if ( $vpn eq 'ovpn' ) {
	97	if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ \|\|
	98	$str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
	99	{
	100	my $past = timelocal($5, $4, $3, $2, $m{$1}, $6);
	101	my $now = time;
	102	$totalsecs = $now - $past;
	103	}
	104	}
	105
	106	if ( $totalsecs ne '' ) {
0d6cc79d SF	107	my $days = int($totalsecs / 86400);
	108	my $totalhours = int($totalsecs / 3600);
	109	my $hours = $totalhours % 24;
	110	my $totalmins = int($totalsecs / 60);
	111	my $mins = $totalmins % 60;
	112	my $secs = $totalsecs % 60;
	113
	114	return "${days}d ${hours}h ${mins}m ${secs}s";
	115	}
	116	else {
	117	return;
	118	}
	119	}
	120
	121	############################################################################################################################
	122
	123	sub statustime {
	124	my $str = $_[0];
	125	my ( $day, $mon ) = '';
	126
	127	my %m = qw ( Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12 );
	128
	129	if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ \|\|
	130	$str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
	131	{
	132	$mon = $m{$1};
	133
	134	if (length $2 < 2) { $day = "0$2"; }
	135	else { $day = $2; }
	136
	137	return "$day.$mon.$6 - $3:$4:$5";
	138	}
	139	else {
	140	return;
	141	}
	142	}
	143
	144	############################################################################################################################
	145
	146	sub mailsender {
eebbe981 SF	147	my $msg = '';
eebbe981 SF	148
0d6cc79d SF	149	$msg = MIME::Lite->new(
	150	From => $mail{'SENDER'},
	151	To => $mail{'RECIPIENT'},
	152	Subject => $_[0],
	153	Type => 'multipart/mixed'
	154	);
	155
	156	$msg->attach(
	157	Type => 'TEXT',
	158	Data => $_[1]
	159	);
	160
	161	$msg->send_by_sendmail;
	162	}
	163
	164	############################################################################################################################
	165
	166	sub checkinto {
	167	my ($checkip, $checkhost, @checkfile) = @_;
	168
	169	if ( $checkip ne '' ) {
	170	foreach (@checkfile) {
	171	chomp;
	172	if ( (split (/\,/, $_))[2] eq $checkip ) { return $Lang::tr{'wio_ip_exists'}; last; }
	173	}
	174	}
	175
	176	if ( $checkhost ne '' ) {
	177	foreach (@checkfile) {
	178	chomp;
	179	if ( (split (/\,/, $_))[3] eq $checkhost ) {
	180	if ( $checkip ne '' ) {
	181	my $fileip = (split (/\,/, $_))[2];
	182
	183	$fileip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
	184
	185	my $fileip1 = $1;
	186	my $fileip2 = $2;
	187	my $fileip3 = $3;
	188	my $fileip4 = $4;
	189
	190	$checkip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
	191
	192	if ( $fileip1 == $1 && $fileip2 == $2 && $fileip3 == $3 ) {
	193	return $Lang::tr{'wio_host_exists'}; last; }
	194	}
	195	else { return $Lang::tr{'wio_host_exists'}; last; }
	196	}
	197	}
	198	}
	199
	200	return;
	201	}
	202
	203	############################################################################################################################
	204
	205	sub clearfile {
	206	my $file = $_[0];
	207
	208	open(FILE, "> $file");
	209	close(FILE);
	210	}
	211
	212	############################################################################################################################
213
214	sub color_devices() {
215	my $output = shift;
216
217	if ( uc($output) eq "GREEN0" ) { $output = "<b><font color ='$Header::colourgreen'>$output</b>";}
218	elsif ( uc($output) eq "BLUE0" ) { $output = "<b><font color ='$Header::colourblue'>$output</b>"; }
219	elsif ( uc($output) eq "ORANGE0" ) { $output = "<b><font color ='$Header::colourorange'>$output</b>"; }
220	elsif ( uc($output) eq "RED0" ) { $output = "<b><font color ='$Header::colourred'>$output</b>"; }
221	else { return $output = "<b><font color ='#696565'>$output</b>"; }
222
223	return $output;
224	}
225
226	return 1;