Comme dit dans ce précédent billet : AdiumScript: Firefox 3 Current Page, un bug AppleScript dans Firefox 3 empêche les AdiumScripts de récupérer le titre de la page en cours de consultation dans Firefox par Adium… c'est pourquoi j'avais déjà écrit un précédent AdiumScript se basant sur curl, cependant la libcurl présente quelques limitations (du moins sur ma machine sous Mac OS X 10.5.5). Ces limitations de la libcurl, la présence du même bug après que plusieurs versions de Firefox se soient succédées et certaines limites inhérentes au mode de rédaction du précédent script m'ont amenés à écrire une nouvelle version du "même" script.
Celui-ci embarque désormais une Universal Binary (compatible Intel et PPC) de wget pour récupérer le contenu sur le web. L'utilisation de wget permettant aussi de s'affranchir de certaines limitations en apportant, notamment, le support de HTTPS.
Bien que ce nouvel AdiumScript conserve un mode de fonctionnement similaire au précédent, un certain nombre de nouvelles fonctionnalités ont été apportées dont le support de Growl ; grâce à un script Bash, utilisant osascript, nommé growlnotify.
De plus, il est maintenant possible de localiser cet AdiumScript, du moins en ce qui concerne la plupart des messages affichés grâce à Growl.
Structure des fichiers
Firefox3CurrentPage.AdiumScripts
|-- Contents
| |-- Resources
| | |-- English.lproj
| | | `-- Localizable.strings
| | |-- Firefox3CurrentPage.scpt
| | |-- French.lproj
| | | `-- Localizable.strings
| | |-- fetch-title
| | |-- growlnotify
| | `-- wget
| `-- Resources Disabled
`-- Info.plist
5 directories, 7 files
Cette structure est assez similaire à celle de n'importe quel AppleScript, avec notamment la présence des dossiers .lproj dans le dossier Resources.
Firefox3CurrentPage.scpt
(*
Firefox3CurrentPage.AdiumScripts
Harry-Proton <http://blogosx.homeunix.org/>
updated 2008-11-01T22:20:22+01:00
Copyright (C) 2005 Free Software Foundation, Inc.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
*)
script Firefox3CurrentPageObj
property scriptPath : missing value
property bundlePath : missing value
property scriptName : "Firefox3CurrentPage.AdiumScripts"
property aliasFolder : missing value
property UA : ""
property firefoxProperties : missing value
property cURL : ""
property title : ""
property processFirefox : 0
property processAdium : 0
on setBunldeProperties()
set scriptPath to ((do shell script ("dirname " & quoted form of (POSIX path of (path to me)))) & "/")
set aliasFolder to POSIX file scriptPath
end setBunldeProperties
on setUA()
if (processAdium > 0) then
tell application "Adium" to ¬
set adiumProperties to (its properties)
set UA to (name of adiumProperties & "/" & version of adiumProperties & " (+http://www.adiumx.com)") as string
end if
end setUA
on setFirefoxProperties()
tell application "Minefield" to ¬
set firefoxProperties to (properties of window 1)
set cURL to «class curl» of firefoxProperties
set title to «class pTit» of firefoxProperties
end setFirefoxProperties
on countProcesses()
tell application "System Events"
set processFirefox to ¬
((application processes whose (name is equal to "firefox-bin")) count) as integer
set processAdium to ¬
((application processes whose (name is equal to "Adium")) count) as integer
end tell
end countProcesses
end script
script notifier
property appName : missing value
property gmsg : ""
property gtit : ""
property appIcon : "Adium"
on setAppName()
set appName to get scriptName of Firefox3CurrentPageObj
end setAppName
on notify(tit, msg)
set {gmsg, gtit} to {msg, tit}
set obj to Firefox3CurrentPageObj
setAppName()
set args to ¬
{quoted form of (appName), quoted form of (gtit), quoted form of (gmsg), quoted form of (appIcon)}
do shell script ((quoted form of (scriptPath of obj & "growlnotify")) & ¬
space & (args as string) & " &> /dev/null &")
end notify
end script
script Wget
property UA : ""
property cURL : missing value
on fetch_title(trgt)
set cURL to trgt
set obj to Firefox3CurrentPageObj
set xbin to (quoted form of scriptPath of obj & "fetch-title")
set args to ((quoted form of trgt) & space & (quoted form of UA))
return do shell script xbin & space & (args as string)
end fetch_title
end script
on substitute()
set text item delimiters to space
tell my Firefox3CurrentPageObj
set obj to Firefox3CurrentPageObj
setBunldeProperties()
countProcesses()
setUA()
end tell
if ((get processFirefox of obj) > 0) then
try
tell my Firefox3CurrentPageObj to setFirefoxProperties()
on error m number n
tell my notifier to notify((my localized_string("Error") & space & n), m)
end try
else
tell my notifier
notify(my localized_string("Error"), my localized_string("Firefox is not running."))
end tell
end if
if ((count items of (get title of obj)) < 1) then
tell my notifier
notify(my localized_string("Fetching"), localized_string("Fetching content from web."))
end tell
try
tell my Wget
set its UA to UA of obj
set title of obj to fetch_title(cURL of obj)
end tell
on error m number n
tell my notifier
notify(my localized_string("Error") & space & n, m)
end tell
return (get cURL of obj)
end try
end if
set text item delimiters to return
return ("<HTML><a href=\"" & (get cURL of obj) & "\">" & (first text item of title of obj) & "</a></HTML>") as string
end substitute
on localized_string(str)
set obj to Firefox3CurrentPageObj
set uFolder to POSIX file (do shell script "cd " & quoted form of (scriptPath of obj) & " && cd ../.. && echo \"$(pwd)\"")
tell application "System Events"
return get localized string str ¬
from table "Localizable" in bundle alias uFolder
end tell
end localized_string
on run
substitute()
end run
La partie en AppleScript a été réécrite avec une plus grande orientation objet. Comme on peut le constater, il est nécessaire de faire appel à de nombreuses applications, qui peuvent être en train de fonctionner ou non : Firefox, Adium, Finder, System Events, Growl ; et la POO permet, tout en allégeant le code, et en, je l'espère, le rendant plus compréhensible, de limiter les appels redondants à certaines applications ; je pensais principalement au Finder, jusqu'à temps que je ne m'aperçoive qu'il ne semble pas possible de l'utiliser depuis un AdiumScript 
; mais aussi à System Events.
Licence
Comme cet AdiumScript embarque avec lui une binaire GNU Wget 1.11.4, j'ai choisi de mettre ce script et le reste du bundle sous la même licence.
fetch-title
#!/bin/bash
# Time-stamp: <2008-10-31 10:52:26 (blogosx.homeunix.org)>
#
# Copyright (C) 2005 Free Software Foundation, Inc.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
function fetch-title () {
local wget="$(dirname "$0")/wget"
function fetch () {
local URL="$1"
[[ -z "$2" ]] && local UA="$(bash --version | grep -o "version")" || local UA="$2"
"$wget" -q -O - "$URL" -U="$UA" --no-check-certificate | cat
}
function main () {
local content=$(fetch "$1" "$2")
local charset=$(echo "$content" | egrep -o "charset=([A-z0-9-]+)" | awk -F "=" '{print $2}' | tr [a-z] [A-Z])
local pgtitle=$(echo "$content" | egrep -o "<title>(.*)</title>")
[[ -n "$pgtitle" ]] && {
pgtitle=$(echo "$pgtitle" | awk -F "<title>" '{print $2}' | awk -F "</title>" '{print $1}')
pgtitle=${pgtitle//"'"/"\'"}
pgtitle=$(php -r "echo(html_entity_decode('$pgtitle'));")
[[ -n "$charset" && "$charset" != 'UTF-8' ]] && {
pgtitle=$(echo "$pgtitle" | iconv -f "$charset" -t utf-8) || {
echo "$pgtitle" >&1
exit 1
}
}
echo "${pgtitle}"
} || {
echo "Can not fetch title from: $1" >&2
echo "$1" >&1
exit 145
}
exit 0
}
main "${@}"
}
fetch-title "${@}"
# Local Variables:
# mode: Shell-script
# coding: mule-utf-8
# End:
Growl
La notification utilisée par le script peut être configurée ou désactivée grâce au PrefPane de Growl dans les Préférences Système. Cette notification porte le nom du scrip et utilise l'icône de l'application Adium.
La notification, bien que ne portant qu'un seul nom, a deux rôles. Premier rôle : notifier que la récupération du contenu a commencé ; certaines fois le reste du script se déroule si vite, dépendamment de la BP et du poids du document, que Growl ne se déclenche qu'après le résultat du script. Deuxième rôle : signaler les erreurs, comme par exemple l'impossibilité de récupérer le titre d'une page, si les balises <title> et </title> sont écrites en majuscules, notamment, ce qui n'est pas conforme au standards définis par le W3C de toute façon.
Firefox 3 Current Page v1.2a
Télécharger : Firefox3CurrentPage-1.2a.zip
MD5 (Firefox3CurrentPage-1.2a.zip) = e99c5d5d6abb52cf7ce67ab7bfd1c783
!
