Simple tcl script for sending geo locations to the android emulator via telnet. Usage: geofix lng lat [port]

geofix

#!/usr/bin/expect

log_user 0 # supress output

switch -regexp [llength $argv] {
  [0,1] {
    puts "Usage: geofix lng lat \[port\]"
    exit
  }
  3 { set port [lindex $argv 2] }
  default { set port "5554" }
}

set lng [lindex $argv 0]
set lat [lindex $argv 1]

spawn telnet localhost $port

expect {
  -ex "OK" {
    send "geo fix $lng $lat\r"
  }
  -re "Unable to connect" {
    puts "Error: Can't connect to android emulator on port $port"
  }
}