Sysmon-0.1.1: examples/Sample.hs

import Data.ConfigFile
import Data.DateTime
import Database.Sybase.Sysmon.Log
import Database.Sybase.Sysmon.LogTypes
import Database.Sybase.Sysmon.SysmonLog
import System.IO

main = do
  tree <- parseSysmon "sysmon_100310_0952.out"
  print $ "Sysmon log has interval: " ++ show (hasInterval interval tree)
  print $ "Sysmon log intervals: " ++ show (intervals interval tree)
  print $ fmtHints $ hints Nothing emptyCP tree  

interval :: LogRequest
interval = Just $ mkInterval start end where
   y  = 2010 :: Integer
   start = fromGregorian y 3 10 09 52 37
   end   = fromGregorian y 3 10 09 53 37