syslog: Allow to prepend a prefix to every log message
This commit is contained in:
parent
5e0ad75d17
commit
e3a90ff2d3
14
LogSyslog.st
14
LogSyslog.st
|
@ -17,6 +17,7 @@
|
||||||
"
|
"
|
||||||
|
|
||||||
LogTarget subclass: LogTargetSyslog [
|
LogTarget subclass: LogTargetSyslog [
|
||||||
|
| prefix |
|
||||||
<comment: 'I can log everything to the syslog.'>
|
<comment: 'I can log everything to the syslog.'>
|
||||||
<category: 'osmo-logging-syslog'>
|
<category: 'osmo-logging-syslog'>
|
||||||
|
|
||||||
|
@ -77,13 +78,22 @@ LogTarget subclass: LogTargetSyslog [
|
||||||
<category: 'output'>
|
<category: 'output'>
|
||||||
| level |
|
| level |
|
||||||
level := self class logLevelMap at: aMessage level.
|
level := self class logLevelMap at: aMessage level.
|
||||||
self class c_syslog: level fmt: '%s' args: {aMessage msg}.
|
self class c_syslog: level fmt: '%s%s' args: {self prefix. aMessage msg}.
|
||||||
]
|
]
|
||||||
|
|
||||||
exception: aMessage [
|
exception: aMessage [
|
||||||
self class c_syslog: aMessage level fmt: '%s' args: {'EXCEPTION occured'}.
|
self class c_syslog: aMessage level fmt: '%s%s'
|
||||||
|
args: {self prefix. 'EXCEPTION occured'}.
|
||||||
self print: aMessage.
|
self print: aMessage.
|
||||||
]
|
]
|
||||||
|
|
||||||
|
prefix: aMsg [
|
||||||
|
prefix := aMsg.
|
||||||
|
]
|
||||||
|
|
||||||
|
prefix [
|
||||||
|
^ prefix ifNil: ['']
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
Eval [
|
Eval [
|
||||||
|
|
Reference in New Issue