############
# absent.tcl #
############
 
set backroom "#Salon";
set base "/home/Login/shell/Bot/logs/absence.log";
 
bind pub - "!aide" absent:help
proc absent:help {nick uhost handle chan text} {
    putquick "NOTICE $nick :\00312Debut de l'aide"
    putquick "NOTICE $nick :\00304!pasla <absent>\00312 Pour ajouter une absence"
    putquick "NOTICE $nick :\00304!absent <numero>\00312 Pour voir une absence precise"
    putquick "NOTICE $nick :\00304!listabs\00312 Pour voir toute la list des absents"
    putquick "NOTICE $nick :\00304!delabsent <numero>\00312 Pour suprimer une absence"
    putquick "NOTICE $nick :\00312Fin de l'aide a la liste des absents du Staff"
 
}
 
bind pub - "!pasla" absent:sent
proc absent:sent {nick uhost handle chan text} {
    set fp [open $::base a]
    puts $fp "[clock format [clock seconds] -format "%d:%m:%y"] $nick $text"
    close $fp
    putquick "NOTICE $nick :\00312Votre absent a été enregistrée"
}
 
bind pub - "!absent" absent:read
proc absent:read {nick uhost handle chan args} {
    if {[lindex $args 0] eq ""} {
        return 0
    } else  {
        set nb [lindex $args 0]
    }
    set fp [open $::base r]
    set cpt 0
    set data [read -nonewline $fp]
    close $fp
    foreach templine [split $data "\n"] {
        incr cpt
        if {$cpt == $nb} {
            set line [split $templine]
            set user [lindex $line 0]
            putquick "PRIVMSG $::backroom $user\00312 => [lrange $line 1 end]"
            return 1
        }
    }
    putquick "PRIVMSG $::backroom \00312absent $nb introuvable"
}
bind pub - "!listabs" news:list
proc news:list {nick uhost handle chan text} {
   set fp [open $::base r]
   set data [read -nonewline $fp]
   close $fp
   foreach templine [split $data "\n"] {
      set line [split $templine]
      puthelp "NOTICE $nick :$line"
   }
}
 
bind pub - "!delabsent" absent:del
proc absent:del {nick uhost handle chan args} {
    if {[lindex $args 0] eq ""} {
        return 0
    } else  {
        set nb [lindex $args 0]
    }
    set fp [open $::base r]
    set cpt 0
    set data [read -nonewline $fp]
    close $fp
    set fp [open $::base w]
    foreach templine [split $data "\n"] {
        incr cpt
        if {$cpt != $nb} {
            puts $fp $templine
        }
    }
    close $fp
    putquick "NOTICE $nick :\00312La list d'absent $nb as été suprimée"
}

bind pub - "!pasla" absent:sent
proc absent:sent {nick uhost handle chan text} {
if {$text eq ""} {putquick "notice $nick :\00304Erreur: \00301Vous devez spécifier un motif ou une date d'absence"; return 0;}
   set fp [open $::base a]
   puts $fp "[clock format [clock seconds] -format "%d:%m:%y"] $nick $text"
   close $fp
   putquick "NOTICE $nick :\00312Votre absent a été enregistrée"
 
}