outputLog Blu

UserProtocol dcss
    dcss registerLogger [Logger::getObject]
   

class UserProtocol {
    inherit ClientProtocol
    inherit SocketProtocol

class SocketProtocol
    public method registerLogger { logger } {
        set m_logger $logger
    }

    protected method outputLog { level msg } {
        if {$m_logger != ""} {
            $m_logger $level $msg
        }
    }

outputLog logError
outputLog logWarning
outputLog logNote