bind pub - !addpl add_pl
proc add_pl { nick host hand channel arg } {
global add_pl
      set emission [lrange $arg 2 end]
      set Date [lindex $arg 0]
      set Heure [lindex $arg 1]
         if {$emission == ""} { 
                set emission "<Aucune précision donnée>" 
        } 
set pl "planning.txt"        
set f [open "$pl" "a"]
puts $f "\002\00306$Date \00312à\00306 $Heure \00312c'est\00306 $emission \00312avec:\00301 $nick "
close $f
putquick "NOTICE $nick OK. Is good."
}
 
 
 
 
 
bind pub -|- !delpl pub_delpl
proc pub_delpl {nick host hand chan arg} {
global vhostniv1 salonstaff
    set filepl "./planning.txt"
            set theris [file exists [file join ./ temp_planning.txt]]
            if {$theris != 0} {
                eval "exec rm -f ./temp_planning.txt"
            }
            set tempfile [open [file join ./ temp_planning.txt] "w+"]
            set file [open $filepl "r+"]
            set ln 1
            while {[eof $file] == 0} {
                set line [gets $file]
                set msg $line
                set dele 0
                foreach prm $arg {
                    if {$ln == $prm} {
                        set dele 1
                    }
                }
                if {$dele == 0} {
                    if {$msg != ""} {
                        puts $tempfile "$msg"
                    }
                }
                set dele 0
                set ln [expr {$ln} +1]
            }
            putquick "NOTICE $nick :\00312- Planning libéré < $arg > -"
            close $tempfile
            close $file
            eval "exec mv -f ./temp_planning.txt $filepl"
            return 1
        }
 
 
 
 
bind pub -|- !pl pub_planning
bind pub -|- !planning pub_planning
proc pub_planning {nick host hand chan arg} {
			set filepl "./planning.txt"
						if {![file exists $filepl]} {
						putquick "NOTICE $nick : Pas de Planning prévu "
						return 0
					}
					putquick "NOTICE $nick :Animation prévu"
					set data [open $filepl "r"]
					set numpl 0
					while {![eof $data]} { 
						gets $data datapl
						incr numpl
						if { $datapl != "" } {
							putquick "NOTICE $nick : $numpl  $datapl"
						}
					}
					if {[eof $data]} {
                              putquick "NOTICE $nick :Fin de la liste"
						close $data
					}
				}