#!/bin/sh #! -*- perl -*- eval 'exec perl -x -CA -S $0 ${1+"$@"}' if 0; # nonoh call script (c) Nei<anti.teamidiot.de> =head1 NAME nonoh - connect nonoh calls and and other betamax providers =head1 VERSION version 0.1 =head1 SYNOPSIS # check balance: nonoh SERVICE USER PASS # connect call nonoh SERVICE USER PASS FROM TO # send SMS nonoh SERVICE USER PASS FROM TO MESSAGE =head1 DETAILED USAGE I<SERVICE> must be the servername of the provider, e.g. C<nonoh.net> or C<voipbuster.com> I<USER> and I<PASS> are your username and password with them. I<FROM> and I<TO> should be given in international format, e.g C<+49123456> or C<+33456789> I<MESSAGE> must be quoted to protect it from the shell argument splitting! to set some defaults, you can create a F<~/.nonohrc> file with the following content: qw{ nonoh.net yourusername yourpassword } this file is loaded in as Perl code B<if> you specify the first argument as empty string, like this: # check balance, using credentials from ~/.nonohrc nonoh '' # make call nonoh '' +49123456 +33456789 =cut use strict; use warnings; use open qw(:std :utf8); use WebService::Nonoh; WebService::Nonoh::run ; =head1 AUTHOR Ailin Nemui E<lt>ailin at devio dot usE<gt> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2013 by Ailin Nemui. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut