Beta Config (Sep 19 2010)

[sidki3003]

Browsers don't evaluate script blocks within title tags.
We should do the same, to get our code properly injected on malformed pages, such as:
http://uselessminx.com/Like_Ketchup.html
http://www.gilberts17thstgrill.com/Location.html
http://www.midlothianva.org/Services_IU86.html
http://www.tastingsofcville.com/Lunch_Menu.html

Please merge and test, as this change is a bit risky.

Code:

[Patterns]
Name = "Mark: Sel. Tags: HTML     10.10.10 (fail) [mona sd] (d.r)"
Active = TRUE
URL = "$TST(hCT=*html)"
Limit = 16
Match = "<("
        "\\/("
        "a >(^$TST(comment=1)|$TST(tAnc=j1*)$SET(tAnc=j))$SET(tAnc=)"
        "|iframe(^$TST(comment=1))$SET(tIframe=)"
        ")"
        "|no("
        "embed(^$TST(script=*)|$TST(comment=1))$SET(tNoembed=1)"
        "|frames(^$TST(script=*)|$TST(comment=1))$SET(tNoframes=1)"
        "|script(^$TST(script=1*)|$TST(comment=1))$SET(tNoscript=1)"
        ")"
        "|t("
        "able(^$TST(script=*)|$TST(comment=1))$SET(tTable=1)$SET(tAnc=)"
        "|extarea(^$TST(script=*)|$TST(comment=1))$SET(tTextarea=1)"
        "|itle(\s|>)(^$TST(script=*)|$TST(comment=1)|$TST(tAnc=j))$SET(tTitle=1)"
        ")"
        "|a(\s|>)(^$TST(comment=1))$SET(tAnc=$GET(tAnc)1)"
        "|frameset(^$TST(script=*)|$TST(comment=1)|$TST(mBody=*)|$TST(tNoscript=1))$SET(tFrameset=2)"
        "|html(^$TST(script=*)|$TST(comment=1)|$TST(tAnc=j))$SET(tHtml=1)"
        "|iframe(^$TST(comment=1))$SET(tIframe=$GET(tIframe)1)"
        "|object(\s|>)(^$TST(comment=1))$SET(tObject=1)"
        "|pre(^$TST(script=*)|$TST(comment=1)|$TST(tAnc=j))$SET(tPre=1)"
        "|style(\s|>)(^$TST(script=*)|$TST(comment=1))$SET(tStyle=1)"
        "|xmp(^$TST(script=*)|$TST(comment=1))SET(tXmp=1)"
        ""
        "|/("
        "no("
        "embed(^$TST(script=*)|$TST(comment=1))$SET(tNoembed=)"
        "|frames(^$TST(script=*)|$TST(comment=1))$SET(tNoframes=)"
        "|script >(^$TST(comment=1))$SET(tNoscript=)"
        ")"
        "|t("
        "able(^$TST(script=*)|$TST(comment=1))$SET(tTable=0)$SET(tAnc=)"
        "|d(^$TST(comment=1))$SET(tAnc=)"
        "|extarea(^$TST(script=*)|$TST(comment=1))$SET(tTextarea=)"
        "|itle >(^$TST(script=*)|$TST(comment=1))$SET(tTitle=)"
        ")"
        "|a >(^$TST(comment=1)|$TST(tAnc=j1*)$SET(tAnc=j))$SET(tAnc=)"
        "|center(^$TST(comment=1))$SET(tAnc=)"
        "|div(^$TST(comment=1))$SET(tAnc=)"
        "|html(^$TST(script=*)|$TST(comment=1))$SET(tHtml=)"
        "|iframe(^$TST(comment=1))$SET(tIframe=)"
        "|object >(^$TST(comment=1))$SET(tObject=)"
        "|pre(^$TST(script=*)|$TST(comment=1))$SET(tPre=)"
        "|style >(^$TST(script=*)|$TST(comment=1))$SET(tStyle=)"
        "|xmp(^$TST(script=*)|$TST(comment=1))$SET(tXmp=)"
        ")"
        ")PrxFail$TST()"
        ""
        "|javascript:(^$TST(comment=1)|$TST(script=*))$TST(tAnc=1*)$SET(tAnc=j)PrxFail$TST()"

Name = "Mark: Inline Scripts     10.10.10 (fail) [srl sd jd] (d.r)"
Active = TRUE
URL = "$TST(hCT=*html)"
Limit = 128
Match = "<("
        "script(^$TST(comment=[12])|$TST(tTitle=1)|$TST(script=s*))$SET(script=$GET(script)1)"
        "[^>]++src=$SET(script=$GET(script)c)"
        "|"
        "/script(^$TST(comment=[12])|$TST(tTitle=1)|$TST(script=s*))(>|\s[a-z0-9<>])$SET(script=)"
        ")"
        "PrxFail$TST()"