egghelp/eggheads community

greenbear

Turns out .txt files are sendt as part of the header...
I edited the code above, so go ahead and give it a try.

greenbear

# Set the chans you want to enable it in to +news # .chanset #channel +news # set this to the URL of the news file set newsfile "http://someurl.com/file.txt" # want the answer to come out in notice (0) or privmsg (1)? set tellwho 0 setudef flag news if ![info exists egghttp(version)] { pu...

greenbear

Downloading files off the internet and then processing them is obviously a whole different ballgame than just reading a local file.

Have a look at the http package that comes with tcl, or possibly egghttp.tcl.

There should be plenty of examples on how to use both on this forum, just search for it.

greenbear

assuming you store the pretime in a unixtime format you can change the relevant part in your script to something like this

Code: Select all

# limit, in seconds
set maxtime 300
if {[expr [unixtime]-$pretime]>=$maxtime} {
  # it's too old, send warning
} {
  # normal pretime msg
}

greenbear

Sounds like you need a prebot.

greenbear

Sounds like you want +dynamicbans, only with a longer ban-time.
Try setting ban-time to 1440 instead of 120 (1 day instead of 2hours).

greenbear

yea i made the code with both user and pass first, then i figured he'd never want to oper up someone else from the bot, and changed it.

now he have code to do both, even better!

greenbear

Code: Select all

bind dcc n operme operme
proc operme {h i a} {
 if ![llength $a] {
   putidx $i "Usage: .operme <pass>"
   return
 }
 set p [lindex [split $a] 0]
 putserv "oper $::$botnick $p"
 putidx $i "Done."
}

greenbear

You could give the mysql module for eggdrop a try

http://barkerjr.net/irc/eggdrop/modules/

greenbear

it's specified in the proc you call on the receiving bot

Code: Select all

bind bot b keyword proc:name
proc proc:name {frombot cmd arg} {
 #...
}

ie. $frombot or whatever name you specified in the proc header.

greenbear

Looks like 11 to me

.tcl string length *_aaabbbccc
Tcl: 11

You can always use maskhost to make sure you have a properly masked host

.tcl maskhost _aaabbbccc@localhost
Tcl: *!*abbbccc@localhost

greenbear

Just replace that while loop in your code with this one

Code: Select all

while {![eof $news]} {
 set line [gets $news]
 if {![string match ####* $line]} {
  if {$tellwho} {
   putserv "PRIVMSG $nick :$line"
   } else {
   putserv "NOTICE $nick :$line"
  }
 }
}

greenbear

Code: Select all

if ![string match ####* $line] {
  # parse it
}

greenbear

it probably get cut off at the end because you feed it faulty idents, there's a max limit of 10chars, that includes your wildcard.

greenbear

Code: Select all

set fruitname "oranges"

bind pub -|- !fruit pub:fruit
proc pub:fruit {n u h c a} {
 global fruitname
 putserv "PRIVMSG $c :Today's fruit is $fruitname!"
}

Search found 704 matches