Code:
set report(file) "report.txt"set report(us.thanks) "Your report has been received. (Thanks)."set report(de.thanks) "Ihr Bericht wurde erhalten. (Vielen Dank)."set report(es.thanks) "Se ha recibido su reporte. (Gracias)."bind pub -|- !report report# main procedure: controler for actionsproc report {nick uhost handle chan text} {if {[llength [split $text]] == 0 } {report::error $nick $chanreturn 0}switch [join [lindex [split $text] 0]] {list {if {![report:hasrights $nick $chan $handle]} { return 0 }report:list $nick $uhost $handle $chan $textdel {if {![report:hasrights $nick $chan $handle]} { return 0 }report:del $nick $uhost $handle $chan $text}default {report:save $nick $uhost $chan $text}}# Check if user can list/delproc report:hasrights {nick chan handle} {if {($handle == "*") || ![matchattr $handle +n]} {report:error $nick $chanreturn 0} else {return 1}}# Send generic error messageproc report:error {nick chan} {putserv "PRIVMSG $chan :\002HOUSTON!\002 We've had a problem"}# Saves a reportproc report:save {nick uhost chan text} {if {[llength [split $text]] < 2 } {putserv "PRIVMSG $nick :\002ERROR!\002 Enter a bot and info to report. Format: \002!report <user> <description>\002"return 0}set date [strftime %d/%m/%y]set fo [open $::report(file) a]set vbot [join [lindex [split $text] 0]]set desc [join [lrange [split $text] 1 end]]report:save $nick $uhost $chan $vbot $descputhelp "PRIVMSG $nick :$::report(us.thanks)"puthelp "PRIVMSG $nick :$::report(de.thanks)"puthelp "PRIVMSG $nick :$::report(es.thanks)"puts $fo "\[$date\] <$nick@$uhost> on $chan reported $vbot :$desc"close $fo}# Checks if report file exists and is not emptyproc report:getfile {nick} {if {![file exists $::report(file)]} {putserv "PRIVMSG $nick :No report"return 0}set fi [open $::report(file) r]set lines [read -nonewline $fi]if {$lines == ""} {putserv "PRIVMSG $nick :No report"return 0}close $fireturn $lines}# list content of report file to userproc report:list {nick uhost handle chan text} {if {![report:hasrights $nick $chan $handle]} { return 0 }set lines report:getfile $nickif {$lines == 0} { return 0 }set cpt 0foreach line [split $lines "\n"] {incr cptputserv "PRIVMSG $nick :#$cpt $line"}}# delete a line in the report fileproc report:del {nick uhost handle chan text} {if {![report:hasrights $nick $chan $handle]} { return 0 }set args [split $text]if {[llength $args]!=2 || [join [lindex $args] 0]!="del"} {report:error $nick $chanreturn 0}set ln [join [lindex $args 1]]if {![string is integer -strict $ln]} {report:error $nick $chanreturn 0}set fo [open ${::report(file).tmp} w]set lines report:getfile $nickif {$lines == 0} { return 0 }set cpt 0foreach line [split $lines "\n"] {incr cptif {$cpt == $ln} { continue }puts $fo $line}close $fofile rename -force -- ${::report(file).tmp} $::report(file)}putlog "************************************"putlog "* REPORT ***** LOADED ***** REPORT *"putlog "************************************" Note that I don't check if the reported user exists on chan, and I double-check if user is allowed to list/del reports (check in controler and in dedicated proc).
This is to allow to add binds to directly run proc, like bind pub n !rdel report:del
I didn't test the script, just made it on the fly
Statistics: Posted by CrazyCat — Mon Aug 02, 2021 8:25 am
]]>