egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-08-13T22:18:29-04:00 https://forum.eggheads.org/app.php/feed/topic/17927 2010-08-13T22:18:29-04:00 2010-08-13T22:18:29-04:00 https://forum.eggheads.org/viewtopic.php?p=93935#p93935 <![CDATA[write and delete file on trigger]]> I didn't mean to make it sound like a hassle, I always enjoy scripting. I went ahead and used a familiar method, using the comment field to store a keyword to check for when allowing or disallowing messages. I am sure there is a better way to do this though. Maybe another scripter can provide a different/better way. :)

Code: 

bind pub - !trigger triggerproc trigger {nick host hand chan text} { set mfile "messages.txt" set comment [getuser $hand comment]  if {$comment eq "msg"} {    putserv "NOTICE $nick :Sorry, you are only allowed to create one message per hour." return  }   setuser $hand comment "msg"    set msg [join [lindex [split $text] 0 end]]    if {![file exists $mfile]} {        close [open $mfile w]    }    set fs [open $mfile]    set msgs [read -nonewline $fs]  close $fs    if {![llength $msgs]} {        set fs [open $mfile w]    } else {        set fs [open $mfile a]    }    puts $fs "$nick:$msg" close $fs    putserv "PRIVMSG $chan :$nick, added message: $nick:$msg."    utimer 60 [list delete_msg $mfile $nick $hand $msg $chan]}proc delete_msg {mfile nick hand msg chan} {    set fs [open $mfile]    set msgs [split [read -nonewline $fs] \n]   close $fs    set line [lsearch -exact $msgs "$nick:$msg"]    set lines [lreplace $msgs $line $line]    set fs [open $mfile w]    puts $fs [join $lines "\n"] close $fs   setuser $hand comment ""   putserv "PRIVMSG $chan :Message \"$nick:$msg\" has been deleted."}
I also fixed the error that probably occured with this line before: putserv "PRIVMSG $chan :Message \"$nick:$msg\" has been deleted."

Forgot to pass the chan arg, whoops.

Statistics: Posted by Luminous — Fri Aug 13, 2010 10:18 pm

]]> 2010-08-13T17:24:07-04:00 2010-08-13T17:24:07-04:00 https://forum.eggheads.org/viewtopic.php?p=93927#p93927 <![CDATA[no worries]]> everything works fine, thanx a lot

Statistics: Posted by televi — Fri Aug 13, 2010 5:24 pm

]]> 2010-08-13T15:37:55-04:00 2010-08-13T15:37:55-04:00 https://forum.eggheads.org/viewtopic.php?p=93925#p93925 <![CDATA[write and delete file on trigger]]> And okay... I don't have a lot of time to work on it atm, but I'll see what I can do about that.

Statistics: Posted by Luminous — Fri Aug 13, 2010 3:37 pm

]]> 2010-08-13T15:17:23-04:00 2010-08-13T15:17:23-04:00 https://forum.eggheads.org/viewtopic.php?p=93924#p93924 <![CDATA[thaaannkkk you!]]>

Thanx a lot man!!! you the best!!

Statistics: Posted by televi — Fri Aug 13, 2010 3:17 pm

]]> 2010-08-13T15:10:22-04:00 2010-08-13T15:10:22-04:00 https://forum.eggheads.org/viewtopic.php?p=93923#p93923 <![CDATA[write and delete file on trigger]]> Statistics: Posted by Luminous — Fri Aug 13, 2010 3:10 pm

]]> 2010-08-13T15:07:37-04:00 2010-08-13T15:07:37-04:00 https://forum.eggheads.org/viewtopic.php?p=93922#p93922 <![CDATA[thanx]]>
However, the bot does create the file messages.txt but does not write anything it in. I also do not see any errors/problems in partyline

Statistics: Posted by televi — Fri Aug 13, 2010 3:07 pm

]]> 2010-08-13T15:09:44-04:00 2010-08-13T14:52:02-04:00 https://forum.eggheads.org/viewtopic.php?p=93921#p93921 <![CDATA[write and delete file on trigger]]>

Code: 

bind pub - !trigger triggerproc trigger {nick host hand chan text} { set mfile "messages.txt"    set msg [join [lindex [split $text] 0 end]]    if {![file exists $mfile]} {        close [open $mfile w]    }    set fs [open $mfile]    set msgs [read -nonewline $fs]  close $fs    if {![llength $msgs]} {        set fs [open $mfile w]    } else {        set fs [open $mfile a]    }    puts $fs "$nick:$msg" close $fs    putserv "PRIVMSG $chan :$nick, added message: $nick:$msg."    utimer 60 [list delete_file $mfile $nick $msg]}proc delete_file {mfile nick msg} {    set fs [open $mfile]    set msgs [split [read -nonewline $fs] \n]   close $fs    set line [lsearch -exact $msgs "$nick:$msg"]    set lines [lreplace $msgs $line $line]    set fs [open $mfile w]    puts $fs [join $lines "\n"] close $fs   putserv "PRIVMSG $chan :Message $nick:$msg has been deleted."}
Messages will be written to ~/eggdrop/messages.txt. This seems incomplete to me though... this will write the data, but nothing is really being done with it, other than deleting...

Statistics: Posted by Luminous — Fri Aug 13, 2010 2:52 pm

]]> 2010-08-13T14:13:02-04:00 2010-08-13T14:13:02-04:00 https://forum.eggheads.org/viewtopic.php?p=93920#p93920 <![CDATA[write and delete file on trigger]]>
something like:
user> !trigger hello
bot> nick, message written.
....bot writes nick:message in a file saved on the shell. Once the hour is donee the bot deletes that line in the file.


It sounds simple and I hope its simple :)

Any help is much appreciated!

Statistics: Posted by televi — Fri Aug 13, 2010 2:13 pm

]]>