mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-08 12:20:15 +00:00
170 lines
6.4 KiB
Python
170 lines
6.4 KiB
Python
"""Load / save to libwww-perl (LWP) format files.
|
|
|
|
Actually, the format is slightly extended from that used by LWP's
|
|
(libwww-perl's) HTTP::Cookies, to avoid losing some RFC 2965 information
|
|
not recorded by LWP.
|
|
|
|
It uses the version string "2.0", though really there isn't an LWP Cookies
|
|
2.0 format. This indicates that there is extra information in here
|
|
(domain_dot and # port_spec) while still being compatible with
|
|
libwww-perl, I hope.
|
|
|
|
"""
|
|
|
|
import time, re
|
|
from cookielib import (_warn_unhandled_exception, FileCookieJar, LoadError,
|
|
Cookie, MISSING_FILENAME_TEXT,
|
|
join_header_words, split_header_words,
|
|
iso2time, time2isoz)
|
|
|
|
def lwp_cookie_str(cookie):
|
|
"""Return string representation of Cookie in an the LWP cookie file format.
|
|
|
|
Actually, the format is extended a bit -- see module docstring.
|
|
|
|
"""
|
|
h = [(cookie.name, cookie.value),
|
|
("path", cookie.path),
|
|
("domain", cookie.domain)]
|
|
if cookie.port is not None: h.append(("port", cookie.port))
|
|
if cookie.path_specified: h.append(("path_spec", None))
|
|
if cookie.port_specified: h.append(("port_spec", None))
|
|
if cookie.domain_initial_dot: h.append(("domain_dot", None))
|
|
if cookie.secure: h.append(("secure", None))
|
|
if cookie.expires: h.append(("expires",
|
|
time2isoz(float(cookie.expires))))
|
|
if cookie.discard: h.append(("discard", None))
|
|
if cookie.comment: h.append(("comment", cookie.comment))
|
|
if cookie.comment_url: h.append(("commenturl", cookie.comment_url))
|
|
|
|
keys = cookie._rest.keys()
|
|
keys.sort()
|
|
for k in keys:
|
|
h.append((k, str(cookie._rest[k])))
|
|
|
|
h.append(("version", str(cookie.version)))
|
|
|
|
return join_header_words([h])
|
|
|
|
class LWPCookieJar(FileCookieJar):
|
|
"""
|
|
The LWPCookieJar saves a sequence of "Set-Cookie3" lines.
|
|
"Set-Cookie3" is the format used by the libwww-perl libary, not known
|
|
to be compatible with any browser, but which is easy to read and
|
|
doesn't lose information about RFC 2965 cookies.
|
|
|
|
Additional methods
|
|
|
|
as_lwp_str(ignore_discard=True, ignore_expired=True)
|
|
|
|
"""
|
|
|
|
def as_lwp_str(self, ignore_discard=True, ignore_expires=True):
|
|
"""Return cookies as a string of "\\n"-separated "Set-Cookie3" headers.
|
|
|
|
ignore_discard and ignore_expires: see docstring for FileCookieJar.save
|
|
|
|
"""
|
|
now = time.time()
|
|
r = []
|
|
for cookie in self:
|
|
if not ignore_discard and cookie.discard:
|
|
continue
|
|
if not ignore_expires and cookie.is_expired(now):
|
|
continue
|
|
r.append("Set-Cookie3: %s" % lwp_cookie_str(cookie))
|
|
return "\n".join(r+[""])
|
|
|
|
def save(self, filename=None, ignore_discard=False, ignore_expires=False):
|
|
if filename is None:
|
|
if self.filename is not None: filename = self.filename
|
|
else: raise ValueError(MISSING_FILENAME_TEXT)
|
|
|
|
f = open(filename, "w")
|
|
try:
|
|
# There really isn't an LWP Cookies 2.0 format, but this indicates
|
|
# that there is extra information in here (domain_dot and
|
|
# port_spec) while still being compatible with libwww-perl, I hope.
|
|
f.write("#LWP-Cookies-2.0\n")
|
|
f.write(self.as_lwp_str(ignore_discard, ignore_expires))
|
|
finally:
|
|
f.close()
|
|
|
|
def _really_load(self, f, filename, ignore_discard, ignore_expires):
|
|
magic = f.readline()
|
|
if not re.search(self.magic_re, magic):
|
|
msg = ("%r does not look like a Set-Cookie3 (LWP) format "
|
|
"file" % filename)
|
|
raise LoadError(msg)
|
|
|
|
now = time.time()
|
|
|
|
header = "Set-Cookie3:"
|
|
boolean_attrs = ("port_spec", "path_spec", "domain_dot",
|
|
"secure", "discard")
|
|
value_attrs = ("version",
|
|
"port", "path", "domain",
|
|
"expires",
|
|
"comment", "commenturl")
|
|
|
|
try:
|
|
while 1:
|
|
line = f.readline()
|
|
if line == "": break
|
|
if not line.startswith(header):
|
|
continue
|
|
line = line[len(header):].strip()
|
|
|
|
for data in split_header_words([line]):
|
|
name, value = data[0]
|
|
standard = {}
|
|
rest = {}
|
|
for k in boolean_attrs:
|
|
standard[k] = False
|
|
for k, v in data[1:]:
|
|
if k is not None:
|
|
lc = k.lower()
|
|
else:
|
|
lc = None
|
|
# don't lose case distinction for unknown fields
|
|
if (lc in value_attrs) or (lc in boolean_attrs):
|
|
k = lc
|
|
if k in boolean_attrs:
|
|
if v is None: v = True
|
|
standard[k] = v
|
|
elif k in value_attrs:
|
|
standard[k] = v
|
|
else:
|
|
rest[k] = v
|
|
|
|
h = standard.get
|
|
expires = h("expires")
|
|
discard = h("discard")
|
|
if expires is not None:
|
|
expires = iso2time(expires)
|
|
if expires is None:
|
|
discard = True
|
|
domain = h("domain")
|
|
domain_specified = domain.startswith(".")
|
|
c = Cookie(h("version"), name, value,
|
|
h("port"), h("port_spec"),
|
|
domain, domain_specified, h("domain_dot"),
|
|
h("path"), h("path_spec"),
|
|
h("secure"),
|
|
expires,
|
|
discard,
|
|
h("comment"),
|
|
h("commenturl"),
|
|
rest)
|
|
if not ignore_discard and c.discard:
|
|
continue
|
|
if not ignore_expires and c.is_expired(now):
|
|
continue
|
|
self.set_cookie(c)
|
|
|
|
except IOError:
|
|
raise
|
|
except Exception:
|
|
_warn_unhandled_exception()
|
|
raise LoadError("invalid Set-Cookie3 format file %r: %r" %
|
|
(filename, line))
|