Initialer Commit: Kundenverwaltung (PHP/Smarty)
Bestehende Codebasis als Ausgangsstand aufgenommen. - .gitignore: Kundendaten (uploads_*), Smarty-Compile-Cache (templates_c), Laufzeit-Temp und Datenbank-Dumps ausgeschlossen; Verzeichnisstruktur ueber .gitkeep erhalten - .gitattributes: Zeilenenden normalisiert (LF im Repo), Binaerformate markiert - db-backup.php: MySQL-Zugangsdaten kommen jetzt wie im Rest der Anwendung aus der externen Konfiguration statt hartkodiert aus der Datei; Passwort wird ueber eine temporaere Optionsdatei statt per Kommandozeile uebergeben, Fehler von mysqldump/gzip werden gemeldet, Aufraeumen aelterer Backups berechnet Jahr und Monat konsistent Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
Claude Opus 5
@@ -0,0 +1,395 @@
|
||||
<%option explicit%><!--#include file="asp/ASPSpellClass.asp"--><% dim LicenseKey, SaveToCentralDictionary%><!--#include file="settings/default-settings.asp"--><%
|
||||
Server.ScriptTimeout=30
|
||||
Response.Expires = 0
|
||||
Response.Expiresabsolute = Now() - 1
|
||||
Response.AddHeader "pragma","no-cache"
|
||||
Response.AddHeader "cache-control","private"
|
||||
Response.CacheControl = "no-cache"
|
||||
|
||||
Dim sent_langs, objASPSpell, objASPSpellDYM,lang, arrLangs, note, script, sender, args, i, dlimit1, dlimit2, dlimit5, command, words, suggestcountinit, error_type_words(), spell_check_words(), suggest_words(), maxsuglength, suggestcount, word, ok, doSuggest, centralDictionaryFile, OpenFileobj, FSOobj,FilePath, centralDictionaryFilePath, sValid
|
||||
|
||||
Set objASPSpell = ASPSpellObjectProvider.Create("aspspellcheck")
|
||||
|
||||
|
||||
objASPSpell.ignoreCaseMistakes =false
|
||||
objASPSpell.ignoreAllCaps = false
|
||||
objASPSpell.IgnoreNumeric = false
|
||||
objASPSpell.IgnoreEmailAddresses = false
|
||||
objASPSpell.IgnoreWebAddresses = false
|
||||
objASPSpell.newLineNewSentance = false
|
||||
objASPSpell.LicenseKey = LicenseKey
|
||||
objASPSpell.DictionaryPath = (replace(LCASE(Request.ServerVariables("PATH_INFO")),"core/default.asp","dictionaries/"))+""
|
||||
objASPSpell.AddCustomDictionary("custom.txt")
|
||||
objASPSpell.LoadCustomBannedWords("language-rules/banned-words.txt")
|
||||
|
||||
|
||||
' call LoadCommonTypos(objASPSpell,"language-rules/common-mistakes.txt")
|
||||
////////////////////////////////
|
||||
|
||||
|
||||
|
||||
Response.Buffer = true
|
||||
'Response.ContentType = "text/plain"
|
||||
|
||||
lang = "English (International)"
|
||||
note = ""
|
||||
script = false
|
||||
sender = ""
|
||||
args = ""
|
||||
|
||||
if (Request.QueryString("args")&"" <> "") then args = Request.QueryString("args")
|
||||
if (Request.QueryString("lan")&"" <> "") then lang = Request.QueryString("lan")
|
||||
if (Request.QueryString("note")&"" <> "") then note = Request.QueryString("note")
|
||||
if (Request.QueryString("sender")&"" <> "") then sender = Request.QueryString("sender")
|
||||
if (Request.QueryString("script")&"" <> "") then script = true
|
||||
if (Request.QueryString("command")&"" <> "") then command = UCASE(Trim(Request.QueryString("command"))) else response.write("No Command"):Response.end()
|
||||
|
||||
|
||||
dlimit1 = chr(1)
|
||||
dlimit2 = chr(2)
|
||||
dlimit5 = chr(5)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
arrLangs = Split(lang,",")
|
||||
for i=0 to UBOUND(arrLangs)
|
||||
objASPSpell.AddDictionary(trim(arrLangs(i)))
|
||||
next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
IF (command ="SAVEWORD") THEN
|
||||
|
||||
Response.Write("SAVEWORD")
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(sender)
|
||||
Response.Write(dlimit5)
|
||||
|
||||
|
||||
if( NOT SaveToCentralDictionary) THEN response.write "!! SaveToCentralDictionary Must be set true in core/settings/default-settings.asp line 2 to allow for a centralized 'add to dictionary'" : response.end()
|
||||
|
||||
|
||||
|
||||
centralDictionaryFile = (replace(LCASE(Request.ServerVariables("PATH_INFO")),"core/default.asp","dictionaries/"))+""&"custom.txt"
|
||||
|
||||
on error resume next
|
||||
FilePath=Server.MapPath(centralDictionaryFile)
|
||||
Set FSOobj = Server.CreateObject("Scripting.FileSystemObject")
|
||||
Set OpenFileobj = FSOobj.OpenTextFile(FilePath, 8)
|
||||
OpenFileobj.WriteLine(args)
|
||||
OpenFileobj.Close
|
||||
on error goto 0
|
||||
|
||||
if err.number <>0 then response.write "!!Word not saved - "¢ralDictionaryFile&" unwritable. Check the permissions for IUSER" : response.end()
|
||||
|
||||
|
||||
|
||||
response.write args&" saved to the custom dictionary."
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
END IF
|
||||
IF (command = "WINSETUP") THEN
|
||||
|
||||
|
||||
|
||||
words = split(args,dlimit1)
|
||||
suggestcountinit = 3
|
||||
|
||||
redim error_type_words (Ubound(words))
|
||||
redim spell_check_words (Ubound(words))
|
||||
redim suggest_words (Ubound(words))
|
||||
|
||||
maxsuglength = 0
|
||||
suggestcount = 0
|
||||
|
||||
for i = 0 to ubound(words)
|
||||
|
||||
error_type_words(i) = ""
|
||||
if (suggestcount < suggestcountinit + 1) THEN suggest_words(i) = ""
|
||||
|
||||
|
||||
|
||||
|
||||
IF ( objASPSpell.SpellCheck(words(i))) THEN
|
||||
spell_check_words(i) = "T"
|
||||
ELSE
|
||||
spell_check_words(i) = "F"
|
||||
|
||||
error_type_words(i) = objASPSpell.ErrorTypeWord(words(i))
|
||||
|
||||
|
||||
if (suggestcount < suggestcountinit + 1) THEN
|
||||
|
||||
suggestcount = suggestcount + 1
|
||||
|
||||
suggest_words(i) = Join( Fetch_Suggestions(words(i)), dlimit2)
|
||||
maxsuglength = i + 1
|
||||
END IF
|
||||
|
||||
END IF
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
next 'i
|
||||
|
||||
redim preserve suggest_words (maxsuglength)
|
||||
|
||||
Response.Write("WINSETUP")
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(sender)
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( spell_check_words,""))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( error_type_words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( suggest_words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( objASPSpell.ListDictionaries(),dlimit2))
|
||||
|
||||
|
||||
|
||||
|
||||
END IF
|
||||
|
||||
' //////////////////////////////// END WINSETUP
|
||||
|
||||
IF (command ="LISTDICTS") THEN
|
||||
Response.Write("WINSETUP")
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(sender)
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( objASPSpell.ListDictionaries(),dlimit2))
|
||||
END IF
|
||||
|
||||
IF (command ="WINSUGGEST") THEN
|
||||
|
||||
words = split(args,dlimit1)
|
||||
redim suggest_words (Ubound(words))
|
||||
|
||||
FOR i = 0 to UBOUND(words)
|
||||
suggest_words(i) = Join( Fetch_Suggestions(words(i)), dlimit2)
|
||||
NEXT 'i
|
||||
|
||||
Response.Write "WINSUGGEST"
|
||||
Response.Write dlimit5
|
||||
Response.Write sender
|
||||
Response.Write dlimit5
|
||||
Response.Write(JOIN( suggest_words,dlimit1))
|
||||
|
||||
|
||||
END IF ''' WIN SUGGEST
|
||||
|
||||
|
||||
|
||||
IF (command ="CTXSPELL") THEN
|
||||
|
||||
words = split(args,dlimit1)
|
||||
|
||||
|
||||
redim error_type_words (Ubound(words))
|
||||
redim spell_check_words (Ubound(words))
|
||||
redim suggest_words (Ubound(words))
|
||||
|
||||
|
||||
FOR i = 0 to UBOUND(words)
|
||||
|
||||
error_type_words(i) ="-"
|
||||
IF ( objASPSpell.SpellCheck(words(i))) THEN
|
||||
spell_check_words(i) = "T"
|
||||
ELSE
|
||||
spell_check_words(i) = "F"
|
||||
error_type_words(i) = objASPSpell.ErrorTypeWord(words(i))
|
||||
END IF
|
||||
|
||||
NEXT 'i
|
||||
|
||||
|
||||
Response.Write ("CTXSPELL")
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( spell_check_words,""))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( error_type_words,dlimit1))
|
||||
|
||||
|
||||
END IF 'CTXSPELL
|
||||
|
||||
|
||||
IF (command ="CTXSUGGEST") THEN
|
||||
|
||||
word = args
|
||||
|
||||
Response.Write ("CTXSUGGEST")
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write( Join( Fetch_Suggestions(args), dlimit2) )
|
||||
|
||||
IF(note="ADDLANGS") THEN
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( objASPSpell.ListDictionaries(),dlimit2))
|
||||
|
||||
END IF
|
||||
|
||||
END IF 'CTXSUGGEST
|
||||
|
||||
|
||||
|
||||
IF (command ="RAWSPELL") THEN
|
||||
|
||||
word = args
|
||||
ok = objASPSpell.SpellCheck(word)
|
||||
Response.Write ("RAWSPELL")
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (word)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
IF (ok) THEN Response.Write ("T") ELSE Response.Write ("F")
|
||||
Response.Write (dlimit5)
|
||||
|
||||
if( ok) THEN
|
||||
Response.Write (word)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write ("")
|
||||
ELSE
|
||||
Response.Write( Join( Fetch_Suggestions(word), dlimit2) )
|
||||
Response.Write (dlimit5)
|
||||
Response.Write objASPSpell.ErrorTypeWord(word)
|
||||
END IF
|
||||
|
||||
END IF '' RAWSPELL
|
||||
|
||||
IF (command ="APISPELL" OR command ="APISPELLARRAY") THEN
|
||||
|
||||
words = split(args,dlimit1)
|
||||
doSuggest = (note<>"NOSUGGEST")
|
||||
|
||||
redim error_type_words (Ubound(words))
|
||||
redim spell_check_words (Ubound(words))
|
||||
redim suggest_words (Ubound(words))
|
||||
|
||||
FOR i = 0 to UBOUND(words)
|
||||
error_type_words(i) = ""
|
||||
IF ( objASPSpell.SpellCheck(words(i))) THEN
|
||||
spell_check_words(i) = "T"
|
||||
ELSE
|
||||
spell_check_words(i) = "F"
|
||||
error_type_words(i) = objASPSpell.ErrorTypeWord(words(i))
|
||||
|
||||
if(doSuggest) THEN
|
||||
suggest_words(i) = Join( Fetch_Suggestions(words(i)), dlimit2)
|
||||
ELSE
|
||||
suggest_words(i) = ""
|
||||
END IF
|
||||
|
||||
END IF
|
||||
|
||||
NEXT 'i
|
||||
|
||||
Response.Write (command)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( spell_check_words,""))
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( error_type_words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( suggest_words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( words,dlimit1))
|
||||
|
||||
END IF 'APISPELL / APISPELLARRAY
|
||||
|
||||
IF (command ="APIDYM" ) THEN
|
||||
|
||||
Set objASPSpellDYM = ASPSpellObjectProvider.Create("aspdidyoumean")
|
||||
objASPSpellDYM.setInstallPath( (replace(LCASE(Request.ServerVariables("PATH_INFO")),"core/default.asp","dictionaries/"))+"")
|
||||
objASPSpellDYM.setSugguestionsLimit(1)
|
||||
arrLangs = Split(lang,",")
|
||||
for i=0 to UBOUND(arrLangs)
|
||||
objASPSpellDYM.AddDictionary(trim(arrLangs(i)))
|
||||
next
|
||||
|
||||
Response.Write ("APIDYM")
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (args)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (objASPSpellDYM.SuggestionString(args))
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (lang)
|
||||
|
||||
END IF 'APIDYM
|
||||
|
||||
|
||||
|
||||
|
||||
IF (command ="APIVALIDATE") THEN
|
||||
|
||||
words = split(args,dlimit1)
|
||||
objASPSpell.ignoreCaseMistakes = (note="CASESENSITVE")
|
||||
|
||||
redim error_type_words (Ubound(words))
|
||||
redim spell_check_words (Ubound(words))
|
||||
sValid = "T"
|
||||
|
||||
FOR i = 0 to UBOUND(words)
|
||||
error_type_words(i) = ""
|
||||
IF ( objASPSpell.SpellCheck(words(i))) THEN
|
||||
spell_check_words(i) = "T"
|
||||
ELSE
|
||||
spell_check_words(i) = "F"
|
||||
sValid = "F"
|
||||
error_type_words(i) = objASPSpell.ErrorTypeWord(words(i))
|
||||
END IF
|
||||
|
||||
NEXT 'i
|
||||
|
||||
Response.Write (command)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write (sender)
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( spell_check_words,""))
|
||||
Response.Write (dlimit5)
|
||||
Response.Write(JOIN( error_type_words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(JOIN( words,dlimit1))
|
||||
Response.Write(dlimit5)
|
||||
Response.Write(sValid)
|
||||
|
||||
END IF 'APIVALIDATE
|
||||
|
||||
|
||||
IF (script) THEN response.write ("<script type=""text/javascript"">window.parent.livespell.ajax.pickupIframe(document.body.innerHTML); </script>")
|
||||
|
||||
Response.flush
|
||||
response.end()
|
||||
%><%
|
||||
|
||||
FUNCTION Fetch_Suggestions (word)
|
||||
on error resume next
|
||||
Fetch_Suggestions = objASPSpell.Suggestions(word)
|
||||
if err.number >0 then Fetch_Suggestions = split("","-")
|
||||
on error goto 0
|
||||
END FUNCTION
|
||||
|
||||
|
||||
|
||||
|
||||
%>
|
||||
Reference in New Issue
Block a user