0xdecafbad.com

60 Comments for this entry

• 

  spif
  August 12th, 2009 on 1:44 pm

  I am working on modifying your script to do inbox calls. So far I’ve got the post processing of the raw JSON in a shell script so I need to port it into the perl code. I tried using the perl JSON parser library, but it turns everything into nested hashes that are a pain to deal with, at least for me. I’m also going to set it up to call the Prowl perl client for iPhone push notifications.
• 

  trixter
  August 12th, 2009 on 1:58 pm

  That would be nice. I will integrate your patches if you submit them to me when you are done, or as you get different stages completed.

  I am unfamiliar with prowl, so I do not know what changes it would require. I am sure that there is a way to make that optional for non iphone users.
• 

  Pablo
  August 14th, 2009 on 6:14 am

  A bug have to be fixed in line 130:

  $rnr_se = uri_escape($1);

  My rnr_se has some especial symbols such as / and + . These have to be translated using the URI escapes.

  Great job.
• 

  trixter
  August 14th, 2009 on 8:41 am

  Thanks, I added the patch.
• 

  APNJJJ
  August 18th, 2009 on 11:12 am

  ERROR: Unable to get the rnr_se value
  root@plugcomputer:~#

  
• 

  Peter
  August 18th, 2009 on 12:36 pm

  When script submits authentication form Google sends intermediate page which uses a meta refresh, meaning that the destination URL is in a tag, which WWW::Mechanize doesn’t follow. I had to add this line to get it to work:
  $mech->follow_link(tag => ‘meta’); right after line: $mech->click(); in sub auth

  Really nice script
• 

  trixter
  August 18th, 2009 on 3:49 pm

  Apnjjj: are you using a non US IP address? I have only seen that if its used from outside the US, since right now its only a US (maybe Canada) offering, google redirects and does not let you login.
• 

  trixter
  August 18th, 2009 on 3:51 pm

  I will add that, but I did not know that it was required. I have not noticed any problems, since the whole point of the authentication is to just get the rnr_se value and set a cookie. Is the rnr_se not getting read as a result? I will add it anyway because I do not think it will harm anything, and it may help some people.
• 

  Peter
  August 19th, 2009 on 2:48 am

  Actually I’ve setup my Google Voice in US, but right now I’m abroad and that is probably why I get this intermediate page with redirect before the main page loads.
  Before I added this line: $mech->follow_link(tag => ‘meta’); I also got this “ERROR: Unable to get the rnr_se value”
  As you said it shouldn’t cause any problems and will allow to use the script regardless of location.
• 

  shyft
  August 19th, 2009 on 5:02 pm

  I had to comment out $mech->follow_link(tag => ‘meta’); in sub auth for it to work on my box.

  thanks trixter… you have denied me the pleasure of trying to write my own gvsms utility.

  -shyft
• 

  trixter
  August 19th, 2009 on 5:18 pm

  shyft: you can always extend it to support boxes so you can process received SMS messages, automagically deal with voicemails, etc.

  I will work on making that a conditional, it seems some people require it, others dont.
• 

  trixter
  August 20th, 2009 on 12:15 am

  there should be some fixes in the newest version now. See the update notice at the begining of the post for notes on the new auth method which should make it more multi-user friendly.
• 

  APNJJJ
  August 27th, 2009 on 7:30 am

  trixter: Yes I am using a Canadian IP address. I have no troubles logging into http://voice.google.com from it. (grandfathered from the grandcentral days)
• 

  APNJJJ
  August 27th, 2009 on 7:40 am

  works now though with your new version!
• 

  trixter
  August 27th, 2009 on 7:51 am

  I should have clarified, google voice claims its only available to US/CA. Trying from Europe has caused a redirect and failure to access google voice. I havent tried for a couple weeks, but they were fairly adamant about breaking it (even if you already had an account and were on holiday) for people outside North America (I dont know about Mexico, which technically is part of North America).
• 

  APNJJJ
  September 4th, 2009 on 6:17 am

  Can anyone confirm that Google Voice effective broke this script? I can’t seem to place any calls anymore, may have something to do with them removing their option of adding a different phone to ring.?
• 

  trixter
  September 4th, 2009 on 7:20 am

  been sending text messages to Europe all morning and I just placed a call and it went through.

  Maybe it is your account that got closed due to overuse/abuse? Maybe it was a temporary failure? Did you edit the script in any way?
• 

  Ryan
  September 4th, 2009 on 12:41 pm

  What Perl distribution do you recommend so that this runs properly?
• 

  trixter
  September 4th, 2009 on 1:11 pm

  I use the default that comes with eeebuntu. This is perl 5.10. I dont know that it matters, so long as you can install the various modules either from a package manager or via cpan. Are you having a problem with any particular distribution?
• 

  Ryan
  September 4th, 2009 on 5:02 pm

  I’m not confident that I’m installing the modules properly.

  I have 5.10. I’m not sure it matters either. I keep trying to install the additional modules, but I get a message saying it’s “impossible” to install. I figured that was a permissions issue, and trued installing from the root. Still, no dice.

  I used a script along the lines of: cpan -i ; cpan -i ; etc. etc.

  Could you suggest an order to install them?
• 

  Ryan
  September 4th, 2009 on 5:04 pm

  Oooh, I had “modulename1″ and “modulename2″ enclosed in brackets (explaining why they didn’t show up on the last comment) to represent the modules.
• 

  trixter
  September 4th, 2009 on 5:10 pm

  I dont know what is going on. How I do it is either with apt-get when there is a module present or
  perl -MCPAN -e ‘install WWW::Mechanize’
• 

  Ravenii
  September 5th, 2009 on 3:52 am

  Thanks Trixter,
  This is so great. I am using it on several servers to send me SMS alerts!
• 

  Mark Waters
  September 5th, 2009 on 9:27 am

  I have tried running the script on Ubuntu 9.04 and Debian 5.0 and get the same error :-

  Can’t call method “url” on an undefined value at /usr/local/share/perl/5.10.0/WWW/Mechanize.pm line 713.

  Any suggestions ?
  Thanks
  Mark Waters
• 

  trixter
  September 5th, 2009 on 9:39 am

  I use ubuntu 9.04, that is what I developed on. This makes me think that there is a variable that is not set right.

  Can you email me your script (XXX your username and password only but make no other changes to what you have, if you used the .netrc way you dont have to edit it at all) at trixter AT 0xdecafbad.com so that I can see what is going on?
• 

  Mark Waters
  September 5th, 2009 on 9:44 am

  sorry to be a nuisance , but after clearing everything out of the ~/.netrc file except the specific variables it seems to be working.

  Thanks for your help (and script)
  Mark Waters
• 

  Jacroe
  September 14th, 2009 on 2:53 pm

  Have you put this under a license? I would like to use this in a software project that I hope to release.
• 

  trixter
  September 14th, 2009 on 5:01 pm

  Yes, the script is under the MPL (Mozilla Public License), which will be the first 50 or so lines of the script (comments).

  Basically this means that you cannot make it part of a GPL project, but can LGPL, BSD, MPL, or pretty much anything except GPL.
• 

  Blue
  September 18th, 2009 on 7:33 pm

  Has anyone here tried to integrate this script into asterisk?
  If so, is there a tutorial somewhere I might could read.
  Thanks
• 

  trixter
  September 18th, 2009 on 8:03 pm

  Integrating into asterisk would depend on what you want to do. If for example you wanted to be able to send SMS messages via XMPP/Simple (sip instant messaging) it would not be trivial at all. If you just wanted to send a message, you could use the system command.

  With FreeSWITCH.org, a open source softswitch I think is better than asterisk (higher cps rate, higher concurrent call rate, *fully* RFC compliant SIP stack, TLS/SRTP, and an eventing system that dances circles around asterisk) it would not be that difficult to integrate this into a more unified solution. You would be able to receive a sip instant message, or xmpp (jabber/google talk) and send it off.
• 

  Blue
  September 19th, 2009 on 1:11 am

  Ok. Thanks for the reply. I got to browsing the code for my setup and figured it out. Just had to make sure all the cpan modules were installed and then modify my extensions_custom.conf. I was using the default pygooglevoice in PiaF distro, and it was giving me trouble. That’s when I found your site. I am looking at trying to squeeze my setup into a WRT54G or most likely a NSLU2. Do you think FreeSWITCH would run on this old 500Mhz P3 I am using now? (i know “where’d you did that outta the trash @)
• 

  trixter
  September 19th, 2009 on 1:20 am

  yes, FreeSWITCH will run on a system that old. It wont be able to do a lot of traffic, but it will run. FreeSWITCH works natively in windows, linux, osx, bsd, solaris, and others. It has even been ported to Windows CE by at least one person. It will run on the smallest of boxes (within reason) up to telcobridges.com gear.

  When it comes to x86 type systems, if asterisk runs on it, FreeSWITCH will run on it with less cpu utilization at the same call volume.
• 

  Blue
  November 14th, 2009 on 10:36 am

  Is there somewhere i can get a tutorial or example on how to integrate this script into Freeswitch? I am gonna try freeswitch on my new server. I am trying to setup a couple extensions, sipgate, and Google voice for now.
• 

  VulK
  November 14th, 2009 on 5:46 pm

  this will allow to enable/disable phones:

  ###
  # toggle phone
  ###
  sub togglephone {
  my ($phoneId, $enabled) = @_;
  $cookiejar = HTTP::Cookies->new();

  $rnr_se = auth($cookiejar);

  if (!defined $rnr_se) {
  return;
  } else {
  my ($url, $client, $request, $response, $postdata);

  $client = LWP::UserAgent->new();
  $client->agent(‘Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.11) Gecko/2009060308 Ubuntu/9.04 (jaunty) Firefox/3.0.11′);
  $client->timeout(30);
  $client->cookie_jar($cookiejar);

  $url = ‘https://www.google.com/voice/settings/editDefaultForwarding/';
  $postdata = “phoneId=$phoneId&enabled=$enabled&_rnr_se=$rnr_se”;

  $request = HTTP::Request->new(POST => $url);
  $request->content_type(‘application/x-www-form-urlencoded’);
  $request->content($postdata);
  $response = $client->request($request);

  if ($response->is_success) {
  print “Phone enabled/disabled\n”;
  } else {
  print “Could not enable/disable phone “.$response->status_line.”\n”;
  }
  }
  return;
  }

  phoneId is an integer starting from 1
  enabled is either 0 or 1
  Best

  VulK
• 

  trixter
  November 14th, 2009 on 7:31 pm

  Thanks I will merge this in soon. I plan on refactoring everything and making this a perl module so that it is easier for other people to use in their projects.
• 

  trixter
  November 14th, 2009 on 7:35 pm

  blue: afaik no there is not a tutorial. The way that I can easily see it working is to get a gizmo account (rumor is that google just bought them). Google will route via SIP through gizmo to you. If you see a X-googlevoice: true header then it came from google voice. I may be mistaken on the header itself, but it is something like that.

  It is a bit klugy if you want to use this to place a call, you pick up your phone and dial, then your dialplan does a system call to execute the script and wait for the inbound googlevoice call, then it will do a uuid_bridge or something to bridge the two together. Alternatively you cna use a conference instead.

  If you want to send a sms perhaps from a chat event you would need something that would see the chat event (event socket, lua or javascript etc) and then resend that via this script.

  I have plans to make this a perl module which would make it far easier to make an event socket perl app that would directly send messages and such. I just have been lazy lately.
• 

  Blue
  November 18th, 2009 on 3:26 pm

  when i try to use the script i am getting
  “Could not place the call 500 Internal Server Error” ?
  has something changed?

  Thanks
• 

  trixter
  November 19th, 2009 on 1:11 am

  it is still working for me. 500 is a google side error, this means that they either got malformed data from you, or they had problems of their own. Are you still experiencing problems? What country is the IP you are connecting to google from?
• 

  Roland Walker
  November 19th, 2009 on 1:41 pm

  blue and trixster

  re 500 Internal Server Error

  google now wants a phoneType parameter, eg phoneType=2, posted to https://www.google.com/voice/call/connect/. Just add this to the $postdata string in subroutine placecall.
• 

  trixter
  November 19th, 2009 on 1:46 pm

  I will have to see if that breaks anything else. I do not have that and its working elsewhere, why I think that its a bit odd that its happening.

  Thanks for the patch though!
• 

  Blue
  November 19th, 2009 on 7:19 pm

  trixster: it was still dying with the 500 error.
  I added the phoneType parameter as Ronald said and it works now.

  What are the values for phoneType? I just used =2 as in the previous post..

  P.S.- I do thank you all for the help.
• 

  Blue
  November 19th, 2009 on 8:03 pm

  on the previous post i forgot to mention calls and IPs are US.
• 

  bob
  November 25th, 2009 on 8:10 am

  THANK YOU Roland Walker! That phoneType=2 thing saved me a ton of time.
• 

  Geordie Korper
  November 30th, 2009 on 8:36 am

  I had to do the
  $postdata = “outgoingNumber=$dst_number&forwardingNumber=$from_number&subscriberNumber=undefined&remember=0&_rnr_se=$rnr_se”. “&phoneType=2″;

  modification to get it working again.

  As long as I am posting something I might as well mention that I hacked in support for the Mac OS X keychain instead of using a saved password:

  #
  # OPTION 3
  # Enable use keychain support
  #
  my $use_keychain = 1;

  if ($use_keychain)
  {
  open (KEYCHAINITEM, “security 2>&1 find-generic-password -g -s ‘Google Services’|”);
  while ()
  {
  /”acct”=”(.*)”/ and $username = $1;
  /^password: “(.*)”$/ and $password = $1;
  }
  }
• 

  Tuga Cari
  December 18th, 2009 on 2:26 am

  Hi there,

  Is there a way to use a proxy when posting to google voice website ?
  If so, could you please point me the direction to achieve this ?

  Thank you!
  Tuga Cari
• 

  john doe
  January 4th, 2010 on 7:14 pm

  is this still in development? i can definitely utilize this script in my scripts! i wish there was a way to pull current inbox translations via an RSS feed.. oh well.
• 

  trixter
  February 4th, 2010 on 2:58 am

  john doe: my plan is to change this over to a perl module to make it easier to use. I am lazy though and have had other things consuming my time. As for pulling the inbox, I have given the url to get the JSON data, you just have to parse that (something I am open to accepting patches for). I parse some data like the contacts list but that is about it.
• 

  trixter
  February 4th, 2010 on 3:00 am

  tuga cari: I would have to add code that lets you use a proxy. I have been hesitant to do much with this until I change it over to a perl module making it easier to use in other programs. I have just been lazy lately.
• 

  trixter
  February 4th, 2010 on 3:17 am

  Geordie: thanks! I will work that in when I redo this as a perl module. until then the code is here for everyone else to get this working

  yes I really am being lazy, even about moderating comments. sigh.
• 

  trixter
  February 4th, 2010 on 3:21 am

  I got the 500 error from a bad password/username. I am going to rework this, I think there is a bug that I fixed in other software that this came from (why I really wrote it, a silly bot on irc) but failed to fix it here because its just so easy to forget about this page.

  I *think* that I failed to properly check for a valid login at one point. I plan on making sure that it all works when I convert it to a perl module, which I am thinking will be in a week or so. That should also make it a lot easier to extend it and to run it in a wider range of programs. It also means that the original program I wrote this for will be ported to use this instead. I may get a little froggy and write a php version suitable for a webpage, but I have not yet decided on that.

4 Trackbacks / Pingbacks for this entry

• VoIP IP Telephony
  September 5th, 2009 on 3:50 am

  Talk Perl To Google Voice…

  I found a perl script that can send SMS messages via Google Voice. So now I have this script on my experimental severs (and on a central watchdog server for permanent servers) that alerts me via SMS through Google Voice….

• gDial Pro - Google Voice App - Page 46 - PreCentral Forums
  September 10th, 2009 on 3:42 am

  [...] out what he's doing. Looks like ?pearl? and I'm not too familiar with that programming language. Google Voice Command Line Script | 0xdecafbad.com looks like he seems to have gotten it to work, now just to figure out how [...]

• gDial Pro - Google Voice App - Page 47 - PreCentral Forums
  September 10th, 2009 on 6:40 pm

  [...] out what he's doing. Looks like it's written in perl and I'm not too familiar with that language. Google Voice Command Line Script | 0xdecafbad.com looks like he seems to have gotten it to work, now just to figure out how I can probably [...]

• Mark Waters (mark) 's status on Saturday, 03-Oct-09 16:08:53 CEST - microblog
  October 3rd, 2009 on 6:09 am

  [...] Voice Command Line Script | 0xdecafbad.com – http://www.0xdecafbad.com/?p=87 #bash #command line #google #perl #shell a few seconds ago from [...]

• Welcome to 0xdecafbad.com

  A blog by Bret McDanel where caffeine and geekyness blend together

• Recent Posts

  • Hacking fiber optics
  • Why the GPL harms open source
  • The PSN/SOE attack comments and who owns your PS3?
  • Redlight Camera Maps now free on google and garmin gps
  • Crash course in radio part 6
  • Finding someone on the radio
  • Crash course in radio part 5
  • Crash course in radio part 4
  • Crash course in radio part 3
  • Crash course in radio part 2

• Popular Posts

  • FT-897/FT-857 CAT perl module
  • FT-897/FT-857 Memory Map

• Categories

  • Linux
  • Prosthesis
  • Radio
    • Yaesu FT-897
    • Yaesu VX-8r
  • site specific
  • Telephony
  • Truck stuff
  • Uncategorized
  • Zombies

• Visit my friends!

  • 2600 Netherlands
  • ACKspace
  • FT-897 unofficial wiki
  • Random Data
  • Revelation space
  • Root (band)

• Meta

  • Log in
  • Valid XHTML