×
Create a new article
Write your page title here:
We currently have 3,189 articles on s23. Type your article name above or create one of the articles listed here!



    s23
    3,189Articles

    TclScripts/HomepageUpdater

    (Redirected from UpdaterScript)

    http://s23.org/~antisect/ircnews.php

    #S23 Homepage Updater - by mutante 18.Oct.2003
    bind pubm - "*!update*" update
    putlog "s23 hp updater loaded"
    
    proc update {nick host handle chan text} {
    set file /home/antisect/public_html/update.txt
    set fs [open /home/antisect/public_html/update.txt a+]
    set news [lrange $text 1 end]
    if {[string match "*http*" $news]} {
    set news "<a href='$news'>$news</a>"
    } else {
    set news $news
    }
    set ctime [clock format [clock seconds]]
    puts $fs "$news - added by $nick on $ctime"
    putserv "PRIVMSG mutante :Updater used by $nick on $ctime - message $news"
    putserv "PRIVMSG $nick :523 - I added your message to http://s23.org/~antisect/ircnews.php"
    close $fs
    return 0
    }
    
    
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.
    Cookies help us deliver our services. By using our services, you agree to our use of cookies.