Communauté Eggdrop

bind pub o ".+autorise" [namespace current]::+ajout
    proc +ajout { nick host hand chan arg } {
        set temp [lindex $arg 0]
        if {$temp == ""} {
            putserv "NOTICE $nick :Utilisation: .+autorise <pseudo>"
            putserv "NOTICE $nick :Exemple .+autorise alias_angelius"
            return 0
        }
        if {[lsearch -exact "x $::autorise::fichier(pseudo)" "$temp"]!="0"} {
            fwrite $::autorise::fichier(pseudo) $temp
            putserv "NOTICE $nick :\002$temp\002 \0034a été ajouté\0034"
            putserv "PRIVMSG $::autorise::auto(back) :\002$temp\002 \0034est ajouté au pseudos autorisé\0034"
            return 0
        }
        putserv "NOTICE $nick :\002Erreur:\002$temp\002 \0034est déjà autorisé\0034"
        return 0
    }
 
proc fread {fi} {
    set f [open $fi r]
    set t [gets $f]
    close $f
    return $t
    }
    proc fwrite {fi arg} {
        set f [open $fi w]
        puts $f $arg
        close $f
    }

proc fwrite {fi arg} {
        set f [open $fi a]
        puts $f $arg
        close $f
    }