I'm running below changes for a couple of days, so...
IncludeExclude.ptxt:
Code:
# Force "No JavaScript" layout for image search results.
([^.]+.|)images.search.yahoo.com/
$SET(0=a_rdlink.f_cookie.)$SET(sCookieP=1)
$SET(sCookieF=jr=0)
$SET(sUserFn=§redirect§)
$SET(sUserJS=var storetds=[],tor,currb="";)
(We do that for Google searches already.)
Extend to Image and other multi-subdom search sites, add one ID to clean image searches (just one match, attached):
Code:
[Patterns]
Name = "Yahoo Search: Clean up Site 9.02.28 [sd] (d.s)"
Active = TRUE
URL = "$TYPE(htm)([^/]++.search.yahoo.com/|search.([^.]+.|)yahoo.com/)"
Limit = 16384
Match = "<div[^>]++\s("
"class=$AV(bbox|yschspns&\1)"
"|id=($AV(east|r-e&&\1)|$AV(yschsec&\1)[^>]+> (<img*> )+<h[1-6])"
")$INEST(<div,</div)</div >"
"|<h2> <a[^>]+> sponsor [^<]+</a > </h2 > $NEST(<ul,</ul >)$SET(1=sponsor)"
"( <div[^>]++class=$AV(whatsthis)$INEST(<div,</div)</div >|)"
"&($TST(volat=*.log:2*)$ADDLST(Log-Main,[$DTM(d T)]\tSiteSpec YSearch \1 \t\u)|)"
Replace = "\r\n<!-- PROX-S: Removed by Yahoo Search Cleaner (\1) -->\r\n"
"$SET(sSpec=$GET(sSpec)\1.)"
Remove apparently obsolete expressions (check your personal my.yahoo's!), correct minor bugs, add a test for onclick activities (matches attached).
Code:
[Patterns]
Name = "Yahoo et al.: Multi URL Untangler 9.02.28 (multi) [sd] (d.s) TEST8"
Active = TRUE
Multi = TRUE
URL = "($TYPE(htm)|$TYPE(js))([^/]++.yahoo.co|[^.]+.altavista.com/|(www.|)alltheweb.com/)"
Bounds = "<a*>|<form*>"
Limit = 1024
Match = "<(a(rea)+|form)\0(\s*(href|action)=)\2$AVQ((\\+"+(^ \+))\6(^javascript:)(?*)\1)"
"(*\so(url=($AV(*))\3|nclick=$AVQ(\\+"clickBeacon*)$SET(a=\1)$SET(3=\6$GET(a)$SET(a=)))|$TST(\1="
""
"*/("
"click(%3f|\?)u\=http(s|)\7(%3a|:)(%2f|/)(%2f|/)+\8(%26|\&)$SET(3=\6http\7://$UESC($UESC(\8))\6)*"
"|\?http(s|)\7(%3a|:)(%2f|/)(%2f|/)+\8$SET(3=\6http\7://$UESC(\8))"
")"
"|"
"*\*-+http(s|)\7(%3a|:)(%2f|\\+/)(%2f|(\\+)\9/)+(*\*-+http(s|)\7(%3a|:)(%2f|/)(%2f|/)+)+"
"((*(done\=|search\?|\=%22)*)\8|\8;_yl[ct]\=[^"'?&\\ ]+\5|\8)$SET(3=\6http\7:\9/\9/$UESC(\8)\5)"
"|"
"\8;_yl(c\=|t\=(^*\*-+http))[^"'?&\\ ]+$SET(3=\6\8\5)\5"
""
"))(\4)"
"&(^$TST(comment=1)|$TST(tNoscript=1))$SET(1=$TST(\2=(^*class=)*) class=\6ProXPref\6)"
Replace = "<\0\1\2\3\4"