Code:

set datafile "/tmp/data.txt"bind pub - add procaddbind pub - del procdelbind pub - list proclistproc procadd {nick uhost hand chan text} {        global datafile        set text [split $text]        set ahand [lindex $text 0]        set amask [lindex $text 1]        set alvl [lindex $text 2]        # check for valid input        if {$ahand == "" || $amask == "" || $alvl == ""} {                puthelp "PRIVMSG $nick :Usage: add <handle> <mask> <level>"                return        }        # check for duplicate handles        if {[file exists $datafile]} {                set input [open $datafile r]                while {![eof $input]} {                        set curline [gets $input];set curline [split $curline]                        if {[lindex $curline 0] == $ahand} {                                puthelp "PRIVMSG $nick :handle $ahand already exists..Delete it first if you want to change it! :P"                                # or you could overwrite it, but I'm too lazy to do that here :P                                catch {close $input}                                return                        }                }                catch {close $input}        }        # no dupes found, so add the new line        # btw, reading/writing tcl-special chars is a real pain in the arse..You'll prolly find that out :^)        set output [open $datafile a]        puts $output "[join $ahand] [join $amask] [join $alvl]"        flush $output        catch {close $output}        puthelp "PRIVMSG $nick :Wrote [join $ahand] [join $amask] [join $alvl] to file.."}                       proc procdel {nick uhost hand chan text} {        global datafile        set text [split $text]        set ahand [lindex $text 0]        # check for valid input        if {$ahand == ""} {                puthelp "PRIVMSG $nick :Usage: del handle"                return        }        # check for data file        if {![file exists $datafile]} {                puthelp "PRIVMSG $nick :No data file, nothing to delete!"                return        }        # check for requested handle        set data ""        set input [open $datafile r]        while {![eof $input]} {                set curline [gets $input];set curline [split $curline]                if {$curline != ""} {                        set data [linsert $data end $curline]                }        }        catch {close $input}        set mark -1;set match ""        foreach line $data {                incr mark                if {[lindex $line 0] == $ahand} {                        set match $mark                        break                }        }        if {$match == ""} {                puthelp "PRIVMSG $nick :No handle matching $ahand found.."                return        }        set newdata [lreplace $data $mark $mark]        set output [open $datafile w]        foreach newline $newdata {                if {$newline != ""} {                        puts $output $newline                }        }        flush $output        catch {close $output}        puthelp "PRIVMSG $nick :Deleted $ahand.."        return                  }proc proclist {nick uhost hand chan text} {        global datafile        if {![file exists $datafile]} {                puthelp "PRIVMSG $nick :No data file.."                return        }        set input [open $datafile r]        set lines [split [read $input] \n]        catch {close $input}        set cnt 0        foreach line $lines {                if {$line != ""} {                        puthelp "PRIVMSG $nick :$line"                        incr cnt                }        }        if {$cnt == 0} {                puthelp "PRIVMSG $nick :No saved data";return        } else {                puthelp "PRIVMSG $nick :End of list.."        }}#####################################################################################################################################putlog "add/del script loaded.."

Statistics: Posted by rosc2112 — Wed Feb 21, 2007 6:33 pm

Statistics: Posted by edu — Wed Feb 21, 2007 2:16 pm

.add <handle> <hostname> <access>.del <handle>.whois <handle>

.add edu *!*@edu.users.undernet.org 100

$handle:$hostname:$channel:$access

putquick "NOTICE $nickname :handle: $handle -- hostname: $hostname -- channel: $channel -- access: $access"

Statistics: Posted by edu — Wed Feb 21, 2007 2:10 pm