-- RUNS ON SELECTED ENTRIES
-- this script adds email addresses for selected AddressBook cards
-- for the SMS gateways associated with the cellphone number provided on the card
-- This script checks for and does not act on duplicates
-- May not work 100% if number was brought from another carrier
-- beginning of bash script command
set command to "curl \"http://www.whitepages.com/carrier_lookup?carrier=att&name_0=&number_0="
-- used for parsing the webpage
set astid to AppleScript's text item delimiters
set justBefore to "<td id=\"status_column\" valign=\"middle\">"
tell application "Address Book"
-- makes a list of all selected entries
set mylist to selection
-- iterates for each person
repeat with this_person in mylist
-- makes list of each phone number for this_person
set phonesList to every phone of this_person
-- iterates for each phone number
repeat with phonenumber in phonesList
-- if the phonenumber is a mobile number extract the number
if label of phonenumber is "mobile" then
-- gets the mobile number
set theNumber to value of phonenumber
-- makes mobile number URI compatable
--set theNumber to do shell script "perl -e 'use URI::Escape; print uri_escape(\"" & theNumber & "\")';"
-- removes spaces - and () and . from phone number
set illegalCharacters to {" ", "-", "(", ")", "."} -- Whatever you want to eliminate.
set replaceWith to ""
repeat with thisChar in illegalCharacters
set AppleScript's text item delimiters to {thisChar}
set theNumber to text items of theNumber
set AppleScript's text item delimiters to {replaceWith}
set theNumber to theNumber as Unicode text
end repeat
theNumber
-- adds the number and ending " to the command
set theCommand to command & theNumber & "\""
-- quotes the command to ensure & is executed fine
set quotedCommand to quoted form of theCommand
-- switches to bash and gets the source of the page as T
set T to (do shell script "/bin/bash -c " & quotedCommand)
-- begin parsing
set AppleScript's text item delimiters to justBefore
set lastPart to text item 2 of T
set AppleScript's text item delimiters to "<td>"
set X to text item 2 of lastPart
set AppleScript's text item delimiters to "</td>"
set carrier to text item 1 of X
-- reset the delimiter
set AppleScript's text item delimiters to astid
-- creates the email address for the phone number
set theEmail to ""
if carrier is "Verizon" then
set theEmail to theNumber & "@vtext.com"
end if
if carrier is "AT&T/Cingular" then
set theEmail to theNumber & "@txt.att.net"
end if
if carrier is "T-Mobile" then
set theEmail to theNumber & "@tmomail.net"
end if
if carrier is "Cellular One" then
set theEmail to theNumber & "@mobile.celloneusa.com"
end if
if carrier is "Alltel Wireless" then
set theEmail to theNumber & "@message.alltel.com"
end if
if carrier is "Sprint PCS" then
set theEmail to theNumber & "@messaging.sprintpcs.com"
end if
-- if no email address found
if theEmail is "" then
set theEmail to "UNKNOWN GATEWAY"
end if
-- checks all email addresses of the person for duplicates
set emailList to every email of this_person
set dupe to false
repeat with existingMail in emailList
if value of existingMail is equal to theEmail then
set dupe to true
end if
end repeat
-- if there are no duplicates, add the new email address
if dupe is false then
make new email at end of emails of this_person with properties {label:"mobile", value:theEmail}
end if
end if
end repeat
end repeat
save addressbook
end tell
