SpiffyTek
/
SMACheck
Archived
1
0
Fork 0
Code Releases 1 Activity

Changed Timeout settings 

More strict API validation
This commit is contained in:
MadMakz 2013-03-20 11:10:13 +01:00
parent beb01b7475
commit bc7adfccf9
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SMACheck.au3
View File

@ -14,7 +14,7 @@
;#AutoIt3Wrapper_Res_ProductVersion=x.x.x.x ; Broken, use #AutoIt3Wrapper_Res_Field=ProductVersion|x.x.x as workarround.
#AutoIt3Wrapper_Res_Field=ProductVersion|Freeware
#AutoIt3Wrapper_Res_Fileversion=1.1.2.99
#AutoIt3Wrapper_Res_Fileversion=1.1.2.100
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=N ;(Y/N/P) AutoIncrement FileVersion After Aut2EXE is finished. default=N. P=Prompt, Will ask at Compilation time if you want to increase the versionnumber
#AutoIt3Wrapper_Res_Language=1033 ;Resource Language code . german = 1031, english (U.S.) = 1033. default 2057=English (United Kingdom). For a List see http://technet.microsoft.com/en-us/library/dd346950.aspx

18
includes/functions.inc.au3
View File

@ -5,7 +5,7 @@ Func lookupSteamId($input)
Local $agent = "SMACheck/" & FileGetVersion(@ScriptName, "FileVersion")
Local $oXML = ObjCreate("winhttp.winhttprequest.5.1")
$oXML.Open("GET", "http://api.spiffytek.com/pub/smacheck/steamid/" & $input, False)
$oXML.SetTimeouts(30000,30000,30000,30000)
$oXML.SetTimeouts(1500,1500,3000,10000)
$oXML.SetRequestHeader("User-Agent", $agent)
$oXML.Send()
$oXML = $oXML.ResponseText
@ -44,7 +44,6 @@ Func lookupSteamId($input)
EndIf
EndIf
If IsArray($pStatus) Then
Local $bReason = _XMLGetValue("/isbanned/reason")
Local $bNick = _XMLGetValue("/isbanned/nickname")
@ -57,6 +56,12 @@ Func lookupSteamId($input)
Local $bKac = _XMLGetValue("/isbanned/kacStatus")
Local $bEsl = _XMLGetValue("/isbanned/eslStatus")
Local $validate[10] = [$bReason, $bNick, $bTime, $bVac, $bMod, $bCc, $bEac, $bEsea, $bKac, $bEsl]
If _isArrayAll($validate) <> 1 Then
_printError("noapi")
Return "ERROR_HANDELED"
EndIf
If $bCc[1] = "" Then
$bCc[1] = "nocountry"
EndIf
@ -169,4 +174,13 @@ Func _xmlentitiesDecode($string)
$string = StringReplace($string, $find[$iCC], $replace[$iCC])
Next
Return $string
EndFunc
Func _isArrayAll($arrays)
For $arr in $arrays
If IsArray($arr) <> true Then
Return 0
EndIf
Next
Return 1
EndFunc