Anyone want to share their iTunes Libraries? - Page 8

set myAFP to do shell script "ps auxc | grep AppleFileServer | awk '{print $6}'"

if myAFP is not "" then

set myAFP to " AFP: "

else

set myAFP to ""

end if

tell application "System Events"
if ((application processes whose (name is equal to "iTunes")) count) is greater than 0 then

tell application "iTunes"
if player state is playing then
set the_artist to artist of current track
set the_song to name of current track
if the_artist is not missing value then
set MyTunes to the_artist & " - " & the_song
else
set MyTunes to the_song
end if
else if player state is paused then
set MyTunes to "Paused"
else if player state is stopped then
set MyTunes to "Quiet"
end if
end tell

end if

end tell

set myIP to do shell script "ifconfig | grep 'broadcast' | awk '{print $6}'"

-- Comment out the above and uncomment to below if you are on an intranet or behind an Airport Basestation
-- set myIP to characters 1 thru -2 of (words 31 thru 32 of ¬
-- ((do shell script "curl http://checkip.dyndns.org/") as international text) as text) as text



tell application "System Events"
if ((application processes whose (name is equal to "iTunes")) count) is greater than 0 then

return "IP: " & myIP & myAFP & " iTunes: " & MyTunes
else
return "IP: " & myIP & myAFP
end if
end tell

set myAFP to do shell script "ps auxc | grep AppleFileServer | awk '{print $6}'"

if myAFP is not "" then
set myAFP to " AFP: "
else
set myAFP to ""
end if


set myiTunesShare to do shell script "lsof | grep :3689 | awk '{print $1}'"

if myiTunesShare is not "" then
set myiTunesShare to " iTunes Sharing: "
else
set myiTunesShare to ""
end if


set myIP to do shell script "ifconfig | grep 'broadcast' | awk '{print $6}'"


tell application "System Events"
return "IP: " & myIP & myAFP & myiTunesShare
end tell