### ErrorReporter.tcl 1.0.0 MDL5RT8X

#SUGGESTED
# PBinSrc.tcl fMrtKqyq
# TCLLoader.tcl smApj15u

#LICENSE
# Copyright © 2013 Alberto Dietze "DoctorD90"
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# Full GPLv3 Text: http://www.gnu.org/licenses/gpl.txt

#PATERNITY
#Coder: DoctorD90
#Network: irc.OnlineGamesNet.net
#Chan: #eHito
#Mail: DoctorD90@EggTcl.tk
#Script's List: www.EggTcl.tk
#
#Thanks to guys on #egghelp on irc.freenode.net
#Special thanks to Thommey and Speechles

#PURPOSE
#Get error from irc instead of partyline.

#USAGE
#Use commands that you set in SETTINGS section.

#SETTINGS
#Set flag of people can use public command.
set errrep(pflag) "n"
#Set flag of people can use query command.
set errrep(qflag) "n"
#Set public command to get last error.
set errrep(psee) ".err"
#Set query command to get last error.
set errrep(qsee) ".err"


### DON'T EDIT ANYTHING BELOW ###

bind pub $errrep(pflag) $errrep(psee) pub_errget
proc pub_errget {nick uhost hand text} {
  err_get $nick
}

bind msg $errrep(qflag) $errrep(qsee) msg_errget
proc msg_errget {nick uhost hand text} {
  err_get $nick
}

proc err_get {nick} {
  if {![info exists ::errorInfo]} {
    putserv "PRIVMSG $nick :There is not error, yet."
  } else {
    foreach line [split $::errorInfo \n] {
      putserv "PRIVMSG $nick :$line"
    }
    putserv "PRIVMSG $nick :*END*"
    unset ::errorInfo
  }
}

###
putlog "ErrorReporter.tcl LOADED"