X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FRemoteGnokii.pm;h=d7e5888a56bd222af7d1b094ccad07839a9f7f99;hb=HEAD;hp=c03ff9268a4433fb8f6b405a7b70211f9759dc4a;hpb=832c594ddf327374507b49366df6e146c852ca2f;p=app-remotegnokii.git

diff --git a/lib/App/RemoteGnokii.pm b/lib/App/RemoteGnokii.pm
index c03ff92..d7e5888 100644
--- a/lib/App/RemoteGnokii.pm
+++ b/lib/App/RemoteGnokii.pm
@@ -3,8 +3,7 @@ package App::RemoteGnokii;
 use 5.014000;
 use strict;
 use warnings;
-our $VERSION = '0.000_001';
-$VERSION = eval $VERSION;
+our $VERSION = '0.001';
 
 use Config::Any;
 use File::Copy qw/move/;
@@ -13,7 +12,7 @@ use Plack::Request;
 
 my $cfg;
 
-sub 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;
@@ -26,8 +25,8 @@ sub cfg ($){
 sub sendsms {
 	my ($number, $text) = @_;
 	my ($fh, $file) = tempfile 'smsXXXX', TMPDIR => 1;
-	print $fh "$number\n$text";
-	close $fh;
+	print $fh "$number\n$text" or warn "print: $!"; ## no critic (RequireCarping)
+	close $fh or warn "close: $!"; ## no critic (RequireCarping)
 	move $file, cfg 'spool';
 }
 
@@ -36,7 +35,7 @@ sub sendsms {
 sub action {
 	my ($number, $date, $text) = @_;
 	my $password = cfg 'password';
-	sendsms cfg 'number', <<EOF
+	sendsms cfg 'number', <<"EOF"
 $password
 $number
 $date
@@ -48,7 +47,7 @@ sub psgi {
 	my $correct_password = cfg 'password';
 	sub {
 		my $r = Plack::Request->new(shift);
-		my @numbers = split ',', $r->param('numbers');
+		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');