News.tcl
#8
Bonsoir, CrazyCat j'ai me le code que tu ma fourni sa fonctionne impec
Encore merci as vous pour votre aide
Je poste le code complet fini au cas ou d'autres personne en es besoin.
TCL
############
# News.tcl #
############
 
set backroom "#Staff";
set base "/home/votre-chemin/news.txt";
 
bind pub - "!helpnews" news:help
proc news:help {nick uhost handle chan text} {
    putserv "NOTICE $nick :\00312Debut de l'aide de News"
    putserv "NOTICE $nick :\0034"
    putserv "NOTICE $nick :\0034!addnews <news>\00312 Pour ajouter une news"
    putserv "NOTICE $nick :\0034!newslist\00312 Pour voir toute les news"
    putserv "NOTICE $nick :\0034!news <numero>\00312 Pour voir une news precise"
    putserv "NOTICE $nick :\0034!delnews <numero>\00312 Pour suprimer une news"
    putserv "NOTICE $nick :\0034"
    putserv "NOTICE $nick :\00312Fin de l'aide de News"
    putserv "PRIVMSG #Services :\00312News Help : \0034$nick"
}
 
bind pub - "!addnews" news:sent
proc news: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
    putserv "NOTICE $nick :\00312Votre news a été enregistrée"
    putserv "PRIVMSG #Services :\00312Add News : \0034$nick"
}
 
bind pub - "!newslist" 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"
      putserv "PRIVMSG #Services :\00312News list : \0034$nick"
   }
}
 
bind pub - "!news" news:read
proc news: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 $user\00312 »» [lrange $line 1 end]"
            return 1
        }
    }
    putserv "PRIVMSG $::backroom \00312news $nb introuvable"
    putserv "PRIVMSG #Services :\00312News : \0034$nick"
}
 
bind pub - "!delnews" news:del
proc news: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
    putserv "NOTICE $nick :\00312La news $nb as été suprimée"
    putserv "PRIVMSG #Services :\00312Del News : \0034$nick"
}
 
putlog "\00312News.tcl V1.0 par Vampire chargé..."


Répondre Avertir


Messages dans ce sujet
News.tcl - par Aragorn - 18/01/2009, 03:31
RE: News.tcl - par BdS - 18/01/2009, 15:16
RE: News.tcl - par Aragorn - 18/01/2009, 17:17
RE: News.tcl - par BeussAy - 18/01/2009, 18:31
RE: News.tcl - par Aragorn - 18/01/2009, 19:30
RE: News.tcl - par CrazyCat - 19/01/2009, 10:03
RE: News.tcl - par Babytigrou16 - 19/01/2009, 19:52
RE: News.tcl - par Aragorn - 19/01/2009, 20:05
RE: News.tcl - par CrazyCat - 19/01/2009, 20:41
RE: News.tcl - par Babytigrou16 - 25/03/2009, 20:53
RE: News.tcl - par Babytigrou16 - 30/03/2009, 21:04
RE: News.tcl - par CrazyCat - 30/03/2009, 22:21
RE: News.tcl - par Babytigrou16 - 03/04/2009, 06:43
RE: News.tcl - par fedora - 03/04/2009, 08:55
RE: News.tcl - par MorDenX - 03/04/2009, 14:11
RE: News.tcl - par Babytigrou16 - 05/04/2009, 18:26
RE: News.tcl - par cestlemien - 07/04/2009, 09:45
RE: News.tcl - par CrazyCat - 07/04/2009, 16:32
RE: News.tcl - par MorDenX - 07/04/2009, 22:23
RE: News.tcl - par MorDenX - 09/04/2009, 18:30
RE: News.tcl - par DodY - 28/01/2010, 18:38
RE: News.tcl - par fedora - 28/01/2010, 18:43
RE: News.tcl - par DodY - 28/01/2010, 18:57
RE: News.tcl - par fedora - 28/01/2010, 19:11
RE: News.tcl - par DodY - 28/01/2010, 19:40
RE: News.tcl - par fedora - 28/01/2010, 19:46
RE: News.tcl - par DodY - 28/01/2010, 20:57
RE: News.tcl - par DodY - 04/02/2010, 20:04

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté