Nicklogger

[chain]

hab auf Anfrage mal nen kleinen Nicklogger gebastelt, mit dem man so viele User wie man mag "überwachen" kann, so das man auch keine Lästerei verpasst

 

ist eigentlich egal wo man sich das abspeichert... hauptsache unter remote und am besten in ein eigenes Verzeichnis, da einige Extradateien erstellt werden

 

 

########################################################

### Nicklogger v1.0 ©Liath

###

### aktuelles Datum: 16.03.09

###

### Kontakt: Liath

### Server:  irc.mindforge.org

### Raum:    #germany

###

### Website: www.germany-project.de

###          www.mircportal.de

###



menu channel,status {

  Nicklogger: nicklog

}



dialog nicklog {

  title "Nicklogger"

  size -1 -1 130 160

  option dbu

  box "Überwachte Nicks", 1, 5 5 120 100

  box "Steuerung", 2, 5 105 120 50

  list 3, 10 15 110 85, sort size

  text "Nick", 4, 10 120 25 8

  combo 5, 40 119 80 70, sort size edit drop

  button "+", 6, 10 135 30 10

  button "—", 7, 50 135 30 10

  button "Log", 8, 90 135 30 10

}



on *:dialog:nicklog:*:*: {

  var %n = nicklog, %ini = $qt($scriptdirnicklog.ini)

  if ($devent == init) { nicklog.list | nicklog.combo }

  elseif ($devent == sclick) {

    if ($did == 6) && ($did(%n,5).text) { hadd %n nicks $addtok($hget(%n,nicks),$v1,1) | nicklog.list }

    elseif ($did == 7) && ($did(%n,3).seltext) { hadd %n nicks $remtok($hget(%n,nicks),$v1,1,1) | nicklog.list }

    elseif ($did == 8) && ($did(%n,3).seltext) {

      var %nick = $did(%n,3).seltext

      if ($exists($qt($+($scriptdir,%nick,.txt)))) { window $+(@,%nick,-Log) | loadbuf $+(@,%nick,-Log) $qt($+($scriptdir,%nick,.txt)) }

      else { echo -a 04***14 Noch keine Aufzeichnungen über %nick vorhanden }

    }

  }

}



on *:start: { hmake nicklog 10 | nicklog.hsh -l }

on *:active:*: { if ($dialog(nicklog)) { nicklog.combo } }

on *:text:*:*: { if ($istok($hget(nicklog,nicks),$nick,1)) { write $qt($+($scriptdir,$nick,.txt)) $timestamp $+($chr(91),$chan,$chr(93)) $+($chr(91),$nick,$chr(93)) $1- } }

on *:action:*:*: { if ($istok($hget(nicklog,nicks),$nick,1)) { write $qt($+($scriptdir,$nick,.txt)) $timestamp $+($chr(91),$chan,$chr(93)) $+($chr(91),$nick,$chr(93)) $1- } }

on *:notice:*:*: { if ($istok($hget(nicklog,nicks),$nick,1)) { write $qt($+($scriptdir,$nick,.txt)) $timestamp $+($chr(91),NOTICE,$chr(93)) $+($chr(91),$nick,$chr(93)) $1- } }



alias nicklog { if ($dialog(nicklog)) { dialog -x nicklog } | dialog -m nicklog nicklog }

alias nicklog.list { var %n = nicklog | did -r %n 3 | didtok %n 3 1 $hget(%n,nicks) | nicklog.hsh -s }

alias nicklog.hsh {

  var %h = $qt($scriptdirnicklog.hsh), %n nicklog

  if ($1 == -l) { if ($exists(%h)) { hload %n %h } }

  elseif ($1 == -s) { hsave %n %h }

}



alias nicklog.combo {

  var %n = nicklog, %i = 1 | did -r %n 5

  while (%i