File Coverage

blib/lib/App/RemoteGnokii.pm

Criterion	Covered	Total	%
statement	21	42	50.0
branch	0	8	0.0
condition	0	2	0.0
subroutine	7	12	58.3
pod	0	4	0.0
total	28	68	41.1

package App::RemoteGnokii;

use 5.014000;
use strict;
use warnings;
our $VERSION = '0.001';

use Config::Any;
use File::Copy qw/move/;
use File::Temp qw/tempfile/;
use Plack::Request;

my $cfg;

sub cfg ($){ ## no critic (ProhibitSubroutinePrototypes)
	unless ($cfg) {
		$cfg = Config::Any->load_stems({stems => [$ENV{RGCONFIG} // '/etc/rg'], use_ext => 1, flatten_to_hash => 1});
		my @cfg = values %$cfg;
		$cfg = $cfg[0];
	}

	$cfg->{$_[0]}
}

sub sendsms {
	my ($number, $text) = @_;
	my ($fh, $file) = tempfile 'smsXXXX', TMPDIR => 1;
	print $fh "$number\n$text" or warn "print: $!"; ## no critic (RequireCarping)
	close $fh or warn "close: $!"; ## no critic (RequireCarping)
	move $file, cfg 'spool';
}

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

sub action {
	my ($number, $date, $text) = @_;
	my $password = cfg 'password';
	sendsms cfg 'number', <<"EOF"
$password
$number
$date
$text
EOF
}

sub psgi {
	my $correct_password = cfg 'password';
	sub {
		my $r = Plack::Request->new(shift);
		my @numbers = split /,/s, $r->param('numbers');
		my $password = $r->param('password');
		return [403, ['Content-Type', 'text/plain'], ['Bad password']] unless $password eq $correct_password;
		my $text = $r->param('text');

		sendsms $_, $text for @numbers
	}
}

1;
__END__