#!/usr/bin/tclsh

#chemin du combatlog
set combatlog "WoWCombatLog.txt"
#temps max en secondes entre 2 lignes avant de créer un nouveau fichier
set resettime 7200

set combatlogtrim [lindex [split $combatlog "."] 0]
set lastdate 0
puts "WoWCombatLog Splitter for WWS - Nidaa EU-Ysondre\n"

if ![file exists $combatlog] {
 puts "WoWCombatLog.txt not found"
 exit
}

set f1 [open $combatlog]

while {[gets $f1 line] >= 0} {
 #extraction de la date
 set date [clock scan [lrange [split $line ". "] 0 1]]
 
 set timebetweenlines [expr $date - $lastdate]
 
 #nouveau fichier si + de 2H entre 2 lignes, ou premier fichier
 if [expr ($timebetweenlines > $resettime) || $lastdate == 0] {
  if [expr $lastdate != 0] {
   close $f2
  }
  #génére un nom de fichier ex: C:\Program Files\WoW\Logs\WoWCombatLog_080415_2030.txt
  set curlog [clock format $date -format "${combatlogtrim}_%y%m%d_%H%M.txt"]
  puts "> $curlog"
  set f2 [open $curlog w] 
 
 }
 set lastdate $date
 puts $f2 $line
}

close $f1
close $f2