lib/App/RemoteGnokii.pm

   1 package App::RemoteGnokii;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 our $VERSION = '0.000_001';
   7 $VERSION = eval $VERSION;
   8
   9 use Config::Any;
  10 use File::Copy qw/move/;
  11 use File::Temp qw/tempfile/;
  12 use Plack::Request;
  13
  14 my $cfg;
  15
  16 sub cfg ($){
  17         unless ($cfg) {
  18                 $cfg = Config::Any->load_stems({stems => [$ENV{RGCONFIG} // '/etc/rg'], use_ext => 1, flatten_to_hash => 1});
  19                 my @cfg = values %$cfg;
  20                 $cfg = $cfg[0];
  21         }
  22
  23         $cfg->{$_[0]}
  24 }
  25
  26 sub sendsms {
  27         my ($number, $text) = @_;
  28         my ($fh, $file) = tempfile 'smsXXXX', TMPDIR => 1;
  29         print $fh "$number\n$text";
  30         close $fh;
  31         move $file, cfg 'spool';
  32 }
  33
  34 ##################################################
  35
  36 sub action {
  37         my ($number, $date, $text) = @_;
  38         my $password = cfg 'password';
  39         sendsms cfg 'number', <<EOF
  40 $password
  41 $number
  42 $date
  43 $text
  44 EOF
  45 }
  46
  47 sub psgi {
  48         my $correct_password = cfg 'password';
  49         sub {
  50                 my $r = Plack::Request->new(shift);
  51                 my @numbers = split ',', $r->param('numbers');
  52                 my $password = $r->param('password');
  53                 return [403, ['Content-Type', 'text/plain'], ['Bad password']] unless $password eq $correct_password;
  54                 my $text = $r->param('text');
  55
  56                 sendsms $_, $text for @numbers
  57         }
  58 }
  59
  60 1;
  61 __END__
  62
  63 =encoding utf-8
  64
  65 =head1 NAME
  66
  67 App::RemoteGnokii - Send SMS over the internet with gnokii-smsd
  68
  69 =head1 SYNOPSIS
  70
  71   use App::RemoteGnokii;
  72   my $config_option = App::RemoteGnokii::cfg 'name';
  73   App::RemoteGnokii::sendsms '0755555555', 'Hello world';
  74   App::RemoteGnokii::action('0755555555', '2014-02-01', 'Goodbye');
  75
  76 =head1 DESCRIPTION
  77
  78 RemoteGnokii is a set of scripts that add networking to gnokii-smsd. With them, all messages received are forwarded to a given phone number, and messages can be sent via the HTTP gateway provided by RemoteGnokii.
  79
  80 =head1 CONFIGURATION OPTIONS
  81
  82 See below for the location of the configuration file. The following options are recognised:
  83
  84 =over
  85
  86 =item number
  87
  88 Forward incoming messages to this number (used by L<rg-action>).
  89
  90 =item password
  91
  92 The password needed to send a message with L<rg-psgi> and included in forwarded messages.
  93
  94 =item spool
  95
  96 The gnokii-smsd spool directory. Needs to be readable and writable by gnokii-smsd and L<rg-psgi>.
  97
  98 =back
  99
 100 =head1 ENVIRONMENT
 101
 102 =over
 103
 104 =item RGCONF
 105
 106 The basename of the configuration file. For example, if the configuration file is '/srv/rg/config.yml', RGCONF should be set to '/srv/rg/config'. Defaults to '/etc/rg'.
 107
 108 =back
 109
 110 =head1 TODO
 111
 112 =over
 113
 114 =item Write a section 7 manpage explaining everything
 115
 116 =item Add tests
 117
 118 =item Add a way to store messages for later retrieval via the webapp, instead of sending them immediately via SMS
 119
 120 =back
 121
 122 =head1 AUTHOR
 123
 124 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
 125
 126 =head1 COPYRIGHT AND LICENSE
 127
 128 Copyright (C) 2014 by Marius Gavrilescu
 129
 130 This library is free software: you can redistribute it and/or modify
 131 it under the terms of the GNU General Public License as published by
 132 the Free Software Foundation, either version 3 of the License, or (at
 133 your option) any later version.
 134
 135
 136 =cut