###############
# Plainte.tcl #
###############
 
bind msgm - "*" plainte:send 
proc plainte:send { nick uhost hand arg } {
    set backroom "#Plainte"
    if { [string equal -nocase [lindex $arg 1] "plainte"] } {
        putserv "PRIVMSG $backroom :\[ Plainte \] [lindex $arg 0] contre [lrange $arg 2 end]"
	  putserv "NOTICE $nick :Votre plainte as été déposé au service abus. Merci de patienter."
    } 
}

set backroom "#plainte";
set base "plaintes.txt";
 
bind msg - "plainte" plainte:sent
proc plainte:sent {nick uhost handle chan text} {
    putserv "PRIVMSG $::backroom :\[Plainte\] \002$nick\002 signale: $text"
    set fp [open $::base a]
    puts $fp "$nickµ$text"
    close $fp
    putserv "NOTICE $nick :Votre plainte a été enregistrée"
}
 
bind pub - "!read" plainte:read
proc plainte: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]
            putserv "PRIVMSG $::backroom \002$user\002 => [lindex $line 1]"
            return 1
        }
    }
    putserv "PRIVMSG $::backroom Plainte $nb introuvable"
}
 
bind pub - "!del" plainte:del
proc plainte: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
}

###################
## Alias Plainte ##
###################
 
alias plainte {
    format "^[^#]" { 
        target "Plainte"; 
        type "normal"; 
        parameters "%n plainte %0-"; 
    };
    type command;
};