- Registriert
- 26.10.05
- Beiträge
- 3.120
Auf vielfachen Wunsch einzelner User (Hallo, landplage!) hierhin ausgelagert:
Anleitung:
Dann versuch es mit diesem AppleScript. Es erstellt eine URL um neue Beiträge in allen Foren, außer den hiermit ausgewählten, zu erstellen.Greasemonkey habe ich nie richtig begriffen und zum Laufen gebracht.
Code:
(*
ApfelTalk BookMarker v0.1
© 2008 by BookMarker.Question.Skeeve at xoxy.net
Kleines Tool zum Erstellen einer
"Neueste Beiträge außer in den Foren …"
URL zur Verwendung in den Lesezeichen.
Aufrufen
Foren Wählen die nicht berücksichtigt werden sollen
OK klicken
die URL wird angezeigt und kann mit
OK
ins Clipboard übernommen werden
*)
property search_url : "http://www.apfeltalk.de/forum/search.php"
property bookmark_url : "http://www.apfeltalk.de/forum/search.php?do=getnew&exclude="
on run
set the_forums to get_forum_names(search_url)
set the_list to {}
repeat with the_name in every paragraph of the_forums
set o to offset of tab in the_name
copy text 1 thru o of the_name to the end of the_list
end repeat
set my_excludes to choose from list the_list with title "ApfelTalk Neue Beiträge" with prompt "Welche Foren sollen NICHT berücksichtigt werden?" with multiple selections allowed and empty selection allowed
if my_excludes is not false then
set the_list to {}
repeat with the_name in my_excludes
set o to offset of the_name in the_forums
copy first paragraph of text (o + (length of the_name)) thru -1 of the_forums to the end of the_list
end repeat
set oastid to AppleScript's text item delimiters
set AppleScript's text item delimiters to ","
set my_excludes to the_list as text
set AppleScript's text item delimiters to oastid
display dialog "Die URL" & return & bookmark_url & my_excludes & return & "ins clipboard kopieren?"
set the clipboard to bookmark_url & my_excludes
end if
end run
to get_forum_names(the_url)
return do shell script "/usr/bin/curl -s " & quoted form of search_url & " | /usr/bin/perl -e " & quoted form of ("
use strict;
use warnings;
use Encode qw/decode/;
binmode STDOUT,':utf8';
my $html;
{ local $/;
$html= <>;
}
if ($html=~ m#<meta\\s+http-equiv=\"Content-Type\"\\s+content=\"text/html;\\s+charset=([^\"]+)\"#) {
$html= decode($1, $html);
}
foreach ( $html=~ m#(<option[^>]+class=\"fjdpth\\d+\"[^>]*>[^<]+)#g) {
next unless /value=\"(\\d+)\"/;
my $value= $1;
next unless /([^<>]+)$/;
my $forum= $1;
for ($forum) {
s/ / /g;
s/&/&/g;
}
print qq/$forum\\t$value\\n/;
}
")
end get_forum_names- Vorbereitung (einmalig)
- Script Editor starten (Programm ➣ AppleScript ➣ Script Editor)
- Obigen Code reinkopieren
- Sichern als Programm, Name "AT-BookMarker"
- Benutzung (jederzeit wenn man online ist)
- Aufrufen
- Foren Wählen die nicht berücksichtigt werden sollen
- OK klicken
- die URL wird angezeigt und kann mit
OK
ins Clipboard übernommen werden - URL in die Lesezeichen reinkopieren (Browserabhängig)
thx skeeve
