""" common CGI functions used by the CGI scripts
Copyright (C) 2000 Bastian Kleineidam
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
"""
import re,time,urlparse
from linkcheck import _
def checkform(form):
for key in ["level","url"]:
if not form.has_key(key) or form[key].value == "": return 0
if not re.match(r"^http://[-\w./=%?~]+$", form["url"].value): return 0
if not re.match(r"\d", form["level"].value): return 0
if int(form["level"].value) > 3: return 0
if form.has_key("anchors"):
if not form["anchors"].value=="on": return 0
if form.has_key("errors"):
if not form["errors"].value=="on": return 0
if form.has_key("intern"):
if not form["intern"].value=="on": return 0
return 1
def getHostName(form):
return urlparse.urlparse(form["url"].value)[1]
def logit(form, env, file = "linkchecker.log"):
log = open(file, "a")
log.write("\n"+time.strftime("%d.%m.%Y %H:%M:%S",
time.localtime(time.time()))+"\n")
for var in ["HTTP_USER_AGENT", "REMOTE_ADDR",
"REMOTE_HOST", "REMOTE_PORT"]:
if env.has_key(var):
log.write(var+"="+env[var]+"\n")
for key in ["level", "url", "anchors", "errors", "intern"]:
if form.has_key(key):
log.write(str(form[key])+"\n")
log.close()
def printError(out):
out.write(_("LinkChecker Online Error"
""
""
"Error
"
"The LinkChecker Online script has encountered an error. Please ensure "
"that your provided URL link begins with http:// and "
"contains only these characters: A-Za-z0-9./_~-
"
"Errors are logged."
"
"
""
""))