NaNg: Bad rcon fix

2013-10-25T14:26:36Z

Bad rcon fix

← Older revision		Revision as of 14:26, 25 October 2013
Line 137:		Line 137:
	; Rcon (events 004a and 004b).		; Rcon (events 004a and 004b).
	[[If-Then-Else\|elseif]] ((Bad Rcon:* iswm %hllog.cmd) \|\| (Rcon:* iswm %hllog.cmd)) {		[[If-Then-Else\|elseif]] ((Bad Rcon:* iswm %hllog.cmd) \|\| (Rcon:* iswm %hllog.cmd)) {
	[[noop]] [[$regex]](%hllog.cmd, /^(Bad )?Rcon: "[^"]+ ([^"]+) "([^"]+)" (.)" [^"\x28]+ "([^"]+:[^"]+)"(.)$/i)		[[noop]] [[$regex]](%hllog.cmd, /^((?:Bad )?)Rcon: "[^"]+ ([^"]+) "([^"]+)" (.)" [^"\x28]+ "([^"]+:[^"]+)"(.)$/i)

	; Parse the event's details.		; Parse the event's details.

NaNg: Fixed log parse

2013-10-25T13:49:55Z

Fixed log parse

← Older revision		Revision as of 13:49, 25 October 2013
Line 109:		Line 109:

	; Separate the server log time and the log line itself.		; Separate the server log time and the log line itself.
	[[noop]] [[$regex]](%hllog.value, /~~log~~ L ((?:0[1-9]\|1[0-2])/(?:0[1-9]\|[12][0-9]\|3[01])/[0-9]{4} - (?:[01][0-9]\|2[0-3]):[0-5][0-9]:[0-5][0-9]): (.)[\n\r\0]$/)		[[noop]] [[$regex]](%hllog.value, /L ((?:0[1-9]\|1[0-2])/(?:0[1-9]\|[12][0-9]\|3[01])/[0-9]{4} - (?:[01][0-9]\|2[0-3]):[0-5][0-9]:[0-5][0-9]): (.)[\n\r\0]$/)

	; Invalid log line.		; Invalid log line.

NaNg: /* See also */ fixed grammer

2011-06-11T19:19:51Z

NaNg: HL1 Rcon script reference

2011-06-11T16:31:23Z

HL1 Rcon script reference

← Older revision		Revision as of 16:31, 11 June 2011
Line 267:		Line 267:
	== See also ==		== See also ==
	* [[How to query a CS Server]]		* [[How to query a CS Server]]
			* [[How to RCON a HL1 engine based server]]
	* [[How to RCON a source engine based server]]		* [[How to RCON a source engine based server]]
	* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]		* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]

NaNg: Removed unneeded calc

2011-06-11T11:03:01Z

Removed unneeded calc

← Older revision		Revision as of 11:03, 11 June 2011
Line 65:		Line 65:
	; Number of keys is requested.		; Number of keys is requested.
	[[If-Then-Else\|if]] ([[$$]][[$1-\|2]] == 0) {		[[If-Then-Else\|if]] ([[$$]][[$1-\|2]] == 0) {
	[[return]] ~~[[$calc]](~~[[$regex]]([[$1-\|$1]], /$(\S+)(?: "([^"]*)"\|())$/g))		[[return]] [[$regex]]([[$1-\|$1]], /$(\S+)(?: "([^"]*)"\|())$/g)
	}		}

Line 115:		Line 115:

	; Get the server log time (usually un-needed. if you do need it - uncomment the next line).		; Get the server log time (usually un-needed. if you do need it - uncomment the next line).
	;var %hllog.time = $regml(1)		; var %hllog.time = $regml(1)
	[[Local_Variables\|var]] %hllog.cmd = [[$regml]](2)		[[Local_Variables\|var]] %hllog.cmd = [[$regml]](2)

NaNg: Categories

2011-06-11T10:13:51Z

NaNg: Created page with " ; HL Log Listener snippet by NaNg ; Date: 11-06-2011 ; Tested on mIRC 7.19 ; ; HL Log window for HL log based engines (HL1, Source etc.), ; Based on the HL Log Standard fou..."

2011-06-11T10:13:00Z

Created page with " ; HL Log Listener snippet by NaNg ; Date: 11-06-2011 ; Tested on mIRC 7.19 ; ; HL Log window for HL log based engines (HL1, Source etc.), ; Based on the HL Log Standard fou..."

New page

; HL Log Listener snippet by NaNg
; Date: 11-06-2011
; Tested on mIRC 7.19
;
; HL Log window for HL log based engines (HL1, Source etc.),
; Based on the HL Log Standard found at http://developer.valvesoftware.com/wiki/HL_Log_Standard
;
; ==================== NOTE! ====================
; This does NOT query the server to start logging, this should be done on your end, by sending
; this command to the server:
; logaddress_add <listening_ip> <listening_port>
; <listening_port> should be the same in this command as well as in the /hllog command.
;
; This snippet was built based on CS (1.6) logs, therefore only two team colors exist (besides default).
; You can easly add more team colors by adding them to the $hllog.teamcolor alias found here.
;
; Usage:
; * /hllog <ip> <port> <listening_port>

[[alias]] hllog {
; Validate arguments (simple, no need for full validation).
[[If-Then-Else|if]] ((![[$longip]]([[$1-|$1]])) || ([[$1-|$2]] !isnum 1-65536) || ([[$1-|$3]] !isnum 1-65536)) {
[[echo]] -ag hllog: Invalid parameters.
[[return]]
}

; Save the server's address.
[[Local_Variables|var]] %server.addr = [[DollarPlus|$+]]([[$1-|$1]],:,[[$1-|$2]])

; Check that the user has not opened a HL log window for the same server already.
; This makes sure that the user won't have a log step over another log for the same server.
[[If-Then-Else|if]] ([[$window_(remote)|$window(]]%server.addr)) {
[[echo]] -ag HL log window for %server.addr is already open! close it before trying.
[[return]]
}

; Open the HL log window whilst activating it, hide the @ prefix and maximize it.
window -ak0x @ [[DollarPlus|$+]] %server.addr
[[aline]] 12 @ [[DollarPlus|$+]] %server.addr HL log window, now listening to: %server.addr

; Set the socket name we'll use.
[[Local_Variables|var]] %sockname = [[DollarPlus|$+]]($hllog.prefix, %server.addr)

; Start listening to HL logs from the server.
[[sockudp]] -k %sockname [[$1-|$3]] [[$1-|$1]] [[$1-|$2]]
}

; Parses the given player.
[[alias]] hlplayer {
[[If-Then-Else|if]] (![[$regex]]([[$1-|$1-]], /"(.*?)<([^>]*)><([^>]*)><([^>]*)>"/)) {
[[echo]] -ag hlpalyer: Invalid parameters.
[[return]]
}

[[If-Then-Else|if]] ([[$prop]] == name) { [[return]] [[$regml]](1) }
[[If-Then-Else|elseif]] ([[$prop]] == id) { [[return]] [[$regml]](2) }
[[If-Then-Else|elseif]] ([[$prop]] == authid) { [[return]] [[$regml]](3) }
[[If-Then-Else|elseif]] ([[$prop]] == team) { [[return]] [[$regml]](4) }

[[return]] [[$true]]
}

; Gets the given property's value.
[[alias]] -l hllog.prop {
; Number of keys is requested.
[[If-Then-Else|if]] ([[$$]][[$1-|2]] == 0) {
[[return]] [[$calc]]([[$regex]]([[$1-|$1]], /$(\S+)(?: "([^"]*)"|())$/g))
}

[[If-Then-Else|if]] ([[$regex]]([[$1-|$1]], /$( [[DollarPlus|$+]] [[$1-|$2]] [[DollarPlus|$+]] )(?: "([^"]*)"|())$/i)) {
[[return]] [[$iif]]([[$regml]](2) == [[$null]], [[$true]], [[$ifmatch]])
}

[[return]] [[$null]]
}

; Get the team's corresponding color.
[[alias]] -l hllog.teamcolor {
[[If-Then-Else|if]] ([[$1-|$1]] == CT) { [[return]] 12 }
[[If-Then-Else|elseif]] ([[$1-|$1]] == TERRORIST) { [[return]] 04 }

; Default color if team is not recognized.
[[return]] 14
}

[[alias]] -l hllog.prefix { [[return]] hllog }

; If the user has closed the HL log window, clear the socket.
on *:CLOSE:@: {
; If there's a socket named accordingly, close it.
[[If-Then-Else|if]] ([[$sock]]([[DollarPlus|$+]]($hllog.prefix, [[$remove]]($target, @)))) {
[[sockclose]] [[DollarPlus|$+]]($hllog.prefix, [[$remove]]($target, @))
}
}

on *:UDPREAD:$([[DollarPlus|$+]]($hllog.prefix, *)): {
; Get the window name for the current game server.
[[Local_Variables|var]] %hllog.window = [[DollarPlus|$+]](@, [[$remove]]([[$sockname]], $hllog.prefix))

; If there were errors, $sockerr will tell us so.
; Write the error message to the window and clear the connection.
[[If-Then-Else|if]] ($sockerr) {
[[aline]] 04 %hllog.window * Error: Reading from socket: [[$sock]]([[$sockname]]).wsmsg
[[sockclose]] [[$sockname]]
[[return]]
}

[[Sockread|sockread]] -f %hllog.value

; Separate the server log time and the log line itself.
[[noop]] [[$regex]](%hllog.value, /log L ((?:0[1-9]|1[0-2])/(?:0[1-9]|[12][0-9]|3[01])/[0-9]{4} - (?:[01][0-9]|2[0-3]):[0-5][0-9]:[0-5][0-9]): (.*)[\n\r\0]*$/)

; Invalid log line.
[[If-Then-Else|if]] ([[$regml]](0) == 0) { [[return]] }

; Get the server log time (usually un-needed. if you do need it - uncomment the next line).
;var %hllog.time = $regml(1)
[[Local_Variables|var]] %hllog.cmd = [[$regml]](2)

; If the command is a comment, disregard it.
[[If-Then-Else|if]] (//* iswm %hllog.cmd) { [[return]] }

; Server cvar change (event 001b).
[[If-Then-Else|elseif]] (server cvar* iswm %hllog.cmd) {
[[noop]] [[$regex]](%hllog.cmd, /^Server cvar "([^"]+)" = "([^"]+)"(.*)$/i)

; If the line was succesfully parsed.
[[If-Then-Else|if]] ([[$regml]](0) > 0) {
[[Local_Variables|var]] %cvar.name = [[$regml]](1)
[[Local_Variables|var]] %cvar.value = [[$regml]](2)
; var %hllog.props = $regml(3)

[[aline]] 3 %hllog.window Cvar " [[DollarPlus|$+]] %cvar.name [[DollarPlus|$+]] " has been changed, new value: " [[DollarPlus|$+]] %cvar.value [[DollarPlus|$+]] "
}
}

; Rcon (events 004a and 004b).
[[If-Then-Else|elseif]] ((Bad Rcon:* iswm %hllog.cmd) || (Rcon:* iswm %hllog.cmd)) {
[[noop]] [[$regex]](%hllog.cmd, /^(Bad )?Rcon: "[^"]+ ([^"]+) "([^"]+)" (.*)" [^"\x28]+ "([^"]+:[^"]+)"(.*)$/i)

; Parse the event's details.
[[Local_Variables|var]] %hllog.badrcon = [[$iif]]([[$regml]](1) == [[$null]], $false, [[$true]])
; var %hllog.challenge = $regml(2)
; var %hllog.rconpwd = $regml(3)
[[Local_Variables|var]] %hllog.rconcmd = [[$regml]](4)
[[Local_Variables|var]] %hllog.sender = [[$regml]](5)
; var %hllog.props = $regml(6)

[[aline]] 4 %hllog.window [[$iif]](%hllog.badrcon, Bad) RCON: %hllog.rconcmd (from: %hllog.sender [[DollarPlus|$+]] )
}

; Player got kicked (event 052b).
[[If-Then-Else|elseif]] (Kick:* iswm %hllog.cmd) {
[[noop]] [[$regex]](%hllog.cmd, /^Kick: ("[^"]+") ([^"]+) "([^"]+)"(.*)$/i)

; Parse the event's details.
[[Local_Variables|var]] %hllog.player = [[$regml]](1)
; var %hllog.noun = $regml(2)
[[Local_Variables|var]] %hllog.kicker = [[$regml]](3)
[[Local_Variables|var]] %hllog.props = [[$regml]](4)

[[aline]] 4 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor($hlplayer(%hllog.player).team), $hlplayer(%hllog.player).name, [[$chr]](15)) was kicked by %hllog.kicker with reason: [[DollarPlus|$+]](", $hllog.prop(%hllog.props, message), ")
}

; Team score report (event 065).
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^Team "([^"]+)" ([^"\x28]+) "([^"]+)" ([^"\x28]+) "([^"]+)"(.*)$/i)) {
[[Local_Variables|var]] %hllog.team = [[$regml]](1)
[[Local_Variables|var]] %hllog.score = [[$regml]](3)
[[Local_Variables|var]] %hllog.numPlayers = [[$regml]](5)
[[Local_Variables|var]] %hllog.props = [[$regml]](7)

[[aline]] 3 %hllog.window Team [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), %hllog.team, [[$chr]](15)) scored %hllog.score with %hllog.numPlayers players %hllog.props
}

; Player score report (event 067).
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^Player ("[^"]+") ([^"\x28]+) "([^"]+)"(.*)$/i)) {
[[Local_Variables|var]] %hllog.player = [[$regml]](1)
[[Local_Variables|var]] %hllog.score = [[$regml]](3)
[[Local_Variables|var]] %hllog.props = [[$regml]](4)

[[aline]] 3 %hllog.window Player [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor($hlplayer(%hllog.player).team), $hlplayer(%hllog.player).name, [[$chr]](15)) scored %hllog.score %hllog.props
}

; Events 057, 058, 059, 066.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^("[^"]+") ([^"\x28]+) ("[^"]+") ([^"\x28]+) ("[^"]+")(.*)$/)) {
[[Local_Variables|var]] %hllog.firstEvent = [[$regml]](2)
; var %hllog.secondEvent = $regml(4)
[[Local_Variables|var]] %hllog.firstPlayer = [[$regml]](1)

[[If-Then-Else|if]] (%hllog.firstEvent == triggered) {
[[Local_Variables|var]] %hllog.secondPlayer = [[$regml]](5)
[[Local_Variables|var]] %hllog.noun = [[$remove]]([[$regml]](3), ")
}
[[If-Then-Else|else]] {
[[Local_Variables|var]] %hllog.secondPlayer = [[$regml]](3)
[[Local_Variables|var]] %hllog.noun = [[$remove]]([[$regml]](5), ")
}

[[Local_Variables|var]] %hllog.props = [[$regml]](6)

[[aline]] 1 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor($hlplayer(%hllog.firstPlayer).team), $hlplayer(%hllog.firstPlayer).name, [[$chr]](15)) %hllog.firstEvent [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor($hlplayer(%hllog.secondPlayer ).team), $hlplayer(%hllog.secondPlayer ).name, [[$chr]](15)) with: [[DollarPlus|$+]](", [[$replace]](%hllog.noun, _, [[$chr]](32)), ") [[$iif]]($hllog.prop(%hllog.props, headshot), (headshot))
}

; Events 050, 053, 054, 055, 056, 060, 063a, 063b, 068, 069.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^("[^"]+") ([^"\x28]+) "([^"]+)"(.*)$/)) {
[[Local_Variables|var]] %hllog.player = [[$regml]](1)
[[Local_Variables|var]] %hllog.event = [[$regml]](2)
[[Local_Variables|var]] %hllog.noun = [[$regml]](3)
[[Local_Variables|var]] %hllog.props = [[$regml]](4)
[[Local_Variables|var]] %hllog.team = $hlplayer(%hllog.player).team

[[If-Then-Else|if]] (%hllog.event == say) {
[[aline]] 7 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), $hlplayer(%hllog.player).name, [[$chr]](15)) [[DollarPlus|$+]](says:, [[$chr]](3), 1) %hllog.noun
}
[[If-Then-Else|elseif]] (%hllog.event == say_team) {
[[aline]] 7 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), $hlplayer(%hllog.player).name, [[$chr]](15)) [[DollarPlus|$+]](team says:, [[$chr]](3), 1) %hllog.noun
}
[[If-Then-Else|else]] {
[[aline]] 1 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), $hlplayer(%hllog.player).name, [[$chr]](15)) %hllog.event [[DollarPlus|$+]](", [[$replace]](%hllog.noun, _, [[$chr]](32)), ") %hllog.props
}
}

; Events 050b, 051, 052.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^("[^"]+") ([^\x28]+)(.*)$/)) {
[[Local_Variables|var]] %hllog.player = [[$regml]](1)
[[Local_Variables|var]] %hllog.event = [[$regml]](2)
; var %hllog.props = $regml(3)
[[Local_Variables|var]] %hllog.team = $hlplayer(%hllog.player).team

[[aline]] 1 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), $hlplayer(%hllog.player).name, [[$chr]](15)) %hllog.event
}

; Events 061, 064.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^Team "([^"]+)" ([^"\x28]+) "([^"]+)"(.*)$/i)) {
[[Local_Variables|var]] %hllog.team = [[$regml]](1)
[[Local_Variables|var]] %hllog.event = [[$regml]](2)
[[Local_Variables|var]] %hllog.noun = [[$regml]](3)
; var %hllog.props = $regml(4)

[[aline]] 1 %hllog.window [[DollarPlus|$+]]([[$chr]](3), $hllog.teamcolor(%hllog.team), %hllog.team, [[$chr]](15)) %hllog.event [[DollarPlus|$+]](", [[$replace]](%hllog.noun, _, [[$chr]](32)), ")
}

; Events 062, 003a, 003b, 005, 006.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^([^"\x28]+) "([^"]+)"(.*)$/)) {
[[Local_Variables|var]] %hllog.event = [[$regml]](1)
[[Local_Variables|var]] %hllog.noun = [[$regml]](2)
[[Local_Variables|var]] %hllog.props = [[$regml]](3)

[[If-Then-Else|if]] (%hllog.event == server say) {
[[aline]] 7 %hllog.window Server [[DollarPlus|$+]](says:, [[$chr]](3), 1) %hllog.noun
}
[[If-Then-Else|else]] {
[[aline]] 1 %hllog.window %hllog.event [[DollarPlus|$+]](", [[$replace]](%hllog.noun, _, [[$chr]](32)), ") %hllog.props
}
}

; Events 001a, 001c, 002a, 002b.
[[If-Then-Else|elseif]] ([[$regex]](%hllog.cmd, /^([^"\x28]+)(.*)$/)) {
[[Local_Variables|var]] %hllog.event = [[$regml]](1)
; var %hllog.props = $regml(2)

[[aline]] 1 %hllog.window %hllog.event
}
}

== See also ==
* [[How to query a CS Server]]
* [[How to RCON a source engine based server]]
* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]

← Older revision		Revision as of 19:19, 11 June 2011
Line 267:		Line 267:
	== See also ==		== See also ==
	* [[How to query a CS Server]]		* [[How to query a CS Server]]
	* [[How to RCON a HL1 engine based server]]		* [[How to RCON an HL1 engine based server]]
	* [[How to RCON a source engine based server]]		* [[How to RCON a source engine based server]]
	* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]		* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]

← Older revision		Revision as of 10:13, 11 June 2011
Line 269:		Line 269:
	* [[How to RCON a source engine based server]]		* [[How to RCON a source engine based server]]
	* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]		* [http://developer.valvesoftware.com/wiki/HL_Log_Standard HL Log Standard on valvesoftware]

			[[Category:Tutorials]]
			[[Category:Socket]]