Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- # This script requires that a config file be created in the
- # invoking user's home directory called ".sms.conf".
- # The config file must contain the user's Google Voice email
- # on the first line and the password on the second line.
- use strict;
- use warnings;
- # handle cross-platform home detection
- use File::HomeDir;
- # access Google Voice (unofficial) API
- use WebService::Google::Voice::SendSMS;
- die( "sms <phone #> <msg>\n" ) if @ARGV != 2;
- open( CONF, File::HomeDir->my_home.'/.sms.conf' ) or
- die( "Failed to open ~/.sms.conf\n" );
- my @auth = <CONF>;
- chomp @auth;
- die( "Malformed config file found. Format should be <email>\\n<password>\n" )
- if @auth != 2;
- my $sms = WebService::Google::Voice::SendSMS->new( $auth[0], $auth[1] );
- # should really be sanitizing args...
- $sms->send_sms( $ARGV[0], $ARGV[1] ) ?
- exit 0 : exit 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement