Snippets

SeanB Quick Logging

Created by SeanB last modified
Global_Variable Integer ghlogfile 
Object oSimpleLog is a cObject
    Property String psPrivate.LogName 
    
    Procedure Set logfile String sName 
        String sFolder 
        Get psHome of (phoWorkspace(oApplication)) to sFolder 
        If ((Right(sFolder,1))<>"\") Append sFolder "\"
        Append sFolder sName 
        Set  psPrivate.LogName to sFolder 
    End_Procedure
    
    Function logfile Returns String 
        String sProgname 
        String sLogFile
        If ((psPrivate.LogName(Self))="") Begin 
            Move (GetApplicationName(ghoApplication)) to sProgName 
            Move (sProgName+".log") to sLogFile
            Set logfile to sLogFile             
        End
        Function_Return ( psPrivate.LogName (Self))
    End_Function
    
    Procedure doLog String sText 
        Integer iCH 
        DateTime dtNow
    
        Move (CurrentDateTime()) to dtNow
        Move ("["+(String(dtNow)) +"] "+  sText) to sText 
        
        Get Seq_New_Channel to iCH 
        Append_Output channel iCH (logfile(Self)) 
        Writeln channel iCH sText 
        Close_Output channel iCH 
        Send Seq_Release_Channel iCH 
    End_Procedure
    
    Move (Self) to ghlogfile
End_Object

Procedure QuickLog Global String sMessage 
    Send doLog to ghLogFile sMessage  
End_Procedure

Comments (1)

  1. okeyoyna

    mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 mt2 agario agario agario agario agario agario agario agario agario agario agario agario agario agario agario agario altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle altyazılı film izle metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler metin2 pvp serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler emek serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler pvp serverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler wslikserverler agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna agario oyna okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net okey net izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com izmirokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com bursaokey.com ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org ankaraokey.org istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net istanbulokey.net sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com sohbetk.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com duzokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com onlineokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com canliokeyoynaa.com agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.in agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agario.nl agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agarprivateserver.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agariomodded.com agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agarprivateservers.org agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agario.id agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play agar.rip/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play http://agariomoddedserver.com/play bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ bestagario.org/ agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc agariohub.cc

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.