write and delete file on trigger

[televi]

Hi, I am looking for a script that would write in a file on a given trigger..and deletes it after an hour

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!

[Luminous]

Code: Select all

bind pub - !trigger trigger
proc 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...

[televi]

thanx for the quick reply!

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

[Luminous]

Try again mate, I fixed a few things. You probably loaded it before I edited. :S

[televi]

Oh that I did!

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

[Luminous]

Your welcome. 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.

[televi]

dont worry this is all i needed! everything works fine, thanx a lot

[Luminous]

Your very welcome. 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: Select all

bind pub - !trigger trigger
proc 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.