Beta Config (Sep 19 2010)

[sidki3003]

Here is an update for the session-only cookie filters.

Since "pYY" holds the respective previous year in 2-digit format, the filters should do their job the next years without further editing the "year" strings. (The contained test is a little redundant for the rest of 2010, but that doesn't really matter.)

Code:

[HTTP headers]
In = TRUE
Out = FALSE
Key = "Set-Cookie: 4b Make Cookies Session only     10.10.17 (cch!) [srl sd] (d.r) (In)"
URL = "$TST(flag=*.cookie_s:[12].*)"
Match = "?&\0&(\#; ((expires)\1=(^[^;]++(19[#10:99]|20(0[0-9]|$TST(pYY))|-([#70:99]|0[0-9]|([0-9][0-9]&&$TST(pYY)))(^-)))|(max-age)\1=[#1:*])$LOG(wRESP $DTM(c) : Set-Cookie \1 filtered: \0)($TST(volat=*.log:2*)$ADDLST(Log-Main,[$DTM(d T)]\tHDR_In Set-Cook_\1 \t\0 \tRef: $GET(hOrigRef) URL: \u)|)[^;]+)+{1,*}\#"
Replace = "\@"

[Patterns]
Name = "<meta> Rename: Make Cookies Session only     10.10.17 (cch!) [srl sd] (d.1)"
Active = TRUE
URL = "$TST(hCT=*html)$TST(flag=*.cookie_s:[12].*)(^$TST(keyword=*.a_code.*))"
Bounds = "<meta\s*>"
Limit = 512
Match = "*http-equiv=$AV(Set-Cookie)"
        "&\1; ("
        "expires=(^[^;"'/>]++("
        "19[#10:99]|20(0[0-9]|$TST(pYY))|-([#70:99]|0[0-9]|([0-9][0-9]&&$TST(pYY)))"
        "))$SET(0=Expires)"
        "|max-age=[#1:*]$SET(0=Max-Age)"
        ")[^;"'/>]+\2"
        "&*content="+ \3 ="
        "&$SET(eHits=$GET(eHits)"
        "%3Cspan class=%22Pr0xFly-Span%22%3E$GET(mHead) Meta Cookie:%3C/span%3E"
        " $ESC(\3)%3Cbr class=%22Pr0xFly-Br%22 /%3E"
        ")"
        "($TST(volat=*.log:2*)$ADDLST(Log-Main,[$DTM(d T)]\tWEB meta_Set-Cookie_\0 \t---\t\u)|)"
Replace = "\1\2"

Name = "Remove: Make Server-Push Cookies Session only     10.10.17 (cch!) [sd] (d.1)"
Active = TRUE
URL = "$TST(hCT=*html)$TST(spBounds=*)$TST(flag=*.cookie_s:[12].*)"
Limit = 4096
Match = "Set-Cookie:(^$TST(tHtml=*))([^\r\n]++)\1; ("
        "expires=(^[^;\r\n]++("
        "19[#10:99]|20(0[0-9]|$TST(pYY))|-([#70:99]|0[0-9]|([0-9][0-9]&&$TST(pYY)))"
        "))$SET(0=Expires)"
        "|max-age=[#1:*]$SET(0=Max-Age)"
        ")[^;\r\n]+"
        "&($TST(volat=*.log:2*)$ADDLST(Log-Main,[$DTM(d T)]\tWEB Push_Cookie_\0 \t--- \t\u)|)"
Replace = "Set-Cookie:\1"

Name = "Block: Make JS Cookies Session only     10.10.17 (cch!) [srl sd] (d.2)"
Active = TRUE
URL = "($TST(hCT=*html)|$TYPE(js)|$TYPE(vbs))$TST(flag=*.cookie_s:[12].*)(^$TST(keyword=*.a_code.*))"
Limit = 64
Match = "expires("
        "$TST(script=[1s]*)(=|($)\2)"
        "(^"
        "\=|new Date|" '|(" ;+ |)expires"
        "|[0-9][^a-z/"';,\r\n]+["';,\r\n]"
        "|[^"';]++(19[#10:99]|20(0[0-9]|$TST(pYY))|-([#70:99]|0[0-9]|([0-9][0-9]&&$TST(pYY))))"
        ")*["';?]"
        "|" ,[^;\r\n]++.to(GMT|UTC)String"
        ")\1$SET(0=Expires\2)"
        ""
        "|max-age(=$TST(script=[1s]*)(^[=-])*["';])\1$SET(0=Max-Age)"
        ""
        "&($TST(volat=*.log:2*)$ADDLST(Log-Main,[$DTM(d T)]\tWEB JS_Cookie_\0 \t---\t\u)|)"
Replace = "prxVoidV\1"