#####
# !!!!!!! NOT A OFFICIAL RELEASE !!!!!!!!
# Multichannel seen implementation by PreSSo (andrejp@luz.fe.uni-lj.si)
# loosely based on seen by Robey
# will show when nicks were last seen on the channel(s) no matter
# if they are on the bot's userlist or not.
# requires eggdrop 1.3.x bot
# needs adbtools.tcl loaded!
# Repaired by Ze_PilOt for 1.3.x
#
# HISTORY:
# version 1.0 (dunno exactly, been a while)
# version 1.1 (6 Aug, 1996)
# - various small fixes
# version 1.2 (18 Aug, 1996)
# - new faster check_expired (this one really blows the socks off:)
# - changed default nickexpire to 30 days
# - various small changes
# version 1.3 (18 Aug, 1996)
# - added configurable bind msg/pub flags for users (see settings)
# version 1.4 (1 Sep, 1996)
# - added force update command. this was needed to fix the
# bug where bot was showing incorrect seen info for users
# that were added to the bot's userlist after they were
# already in the seen nicks list (.seenupd)
# - added dcc seen command
# version 1.5 (2 Oct, 1996)
# - the script now also reports how the user left (leave, kick..)
# - old seen.nicks file is no longer valid (delete it)
# - shows the channel where nick was last on for all nicks, not
# just valid users (the code was already there, just not used:)
# version 1.6 (17 Jan, 1997)
# - the bot now reports 'one of my channels' instead of '#channel'
# if the channel is marked +secret
# version 1.7 (24 Jan, 1997)
# - cosmetical fixes
# version 1.8 (25 Jan, 1997)
# - err...:) a little bug fix:) It won't putlog stupid things now:)
# version 1.9 (29 Jul, 1997)
# - changed and tuned script, so it should run on 1.1.5 now
#   Times for checking for expires (60 M.) and nicksaving (15 M.) are
#   now hardcoded, hey... who cares? I for my part don#t know why it
#   wouldn#t work with variables... Blackb|rd
# version 1.9.1 (10 Aug, 1997)
# - "corrected" and "rewrote" some of the answers (the grammar part
#   wasn't very good - my opinion... :)) - Queux
# version 1.9.2 (16 Dec, 1997) (non official release !!!)
# - I upgraded the script to use with eggdrop 1.3.x .. The seen on the
#   party don't work at 100%, but work perfectly on a channel ...
#
# COMMANDS:
# dcc, msg: seen <nick>
# public: !seen <nick>
#
# TODO:
# - nicks get added to the nicklist even though they are valid bot users - fix this
# - do a configurable 'reply on seen nick'
#####

### *** SETTINGS! ***
# filename of the file where nicks list will be saved
# (defaults to seen.nicks)
set seennicks {seen.nicks}
# save nicks each (this setting) minutes (defaults to 15
# minutes)
set nicksavetime 10
# check for expired users on every this much minutes
# this should be set to a reasonable value like one hour or
# one day or something like that (defaults to 60 minutes)
set expirechk 30
# time in hours for the nick that is NOT on the bot's
# userlist to expire. this keeps the seennicks file from
# getting huge (defaults to 720 hours -> 30 days)
set nickexpire 336
###

# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

# !!! DO NOT CHANGE ANYTHING BELOW THIS LINE !!!

# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

###

set seenver "adbseen.tcl v1.9.2fr"

if {!([info exists seenpubf])} {set seenpubf "-"}

if {!([info exists seenmsgf])} {set seenmsgf "-"}

set nlist ""



# delete fake/existing userlist users from the seennicks list

proc seen_del_existing {uhand} {

  global nlist

  # delete nicks if the user exists in the userlist

  append fwho "+" $uhand

  set ind [lsearch -exact $nlist [string tolower $fwho]]

  set deld 0

  if {$ind != -1} {

    set nlist [lreplace $nlist $ind [expr $ind + 3]]

    return 1

  }

  return 0

}





# force nick update

proc force_seenupd {hand idx arg} {

  global seennicks

  if {[llength $arg] < 1} {

    #update all users

    putdcc $idx "Updating seen information for all users in the userlist..."

    set deld 0

    foreach uhand [userlist] {

      incr deld [seen_del_existing $uhand]

    }

    if {$deld} {

      putdcc $idx "Removed $deld nick(s) from nicks list that existed in the userlist."

    }

  } else {

    #update specified nicks

    foreach uhand $arg {

      seen_del_existing $uhand

    }

  }

  putdcc $idx "Update complete."

}





# update nick's status..

proc nick_upd {chan nick uhand how} {

  global nlist

  #set uhand [string tolower $uhand]

  if {$uhand!="*"} {

    # this user is a valid user

    setlaston $uhand

    setuser $uhand XTRA seenon $chan

    setuser $uhand XTRA seenhow $how

    # delete possible fake user entry in the nick list

    append fwho "-" $uhand

    set ind [lsearch -exact $nlist [string tolower $fwho]]

    if {$ind != -1} {

      set nlist [lreplace $nlist $ind [expr $ind + 3]]

    }

    seen_del_existing $uhand

    return 1

  } else {

    # this user is NOT a valid user..

    if {[validuser $nick]} {

      # ..but he's using the nick of one of the valid users!

      append mnick "-" [string tolower $nick]

    } else {

      # ..and he's using his own nick.. (this one will most probably only happen to $botnick)

      append mnick "+" [string tolower $nick]

    }

  }

  set timeon [unixtime]

  set ind [lsearch -exact $nlist $mnick]

  if {($ind >= 0)} {

    #found nick! replace it

    set nlist [lreplace $nlist [expr $ind + 1] [expr $ind + 3] $timeon $chan $how]

  } else {

    #nick nonexistant. append to the list

    lappend nlist $mnick $timeon $chan $how

  }

}





# save nicks

proc dcc_nick_save {hand idx arg} {

  global seennicks

  nick_save

  putdcc $idx "Nicks saved to file ${seennicks}"

}

proc nick_save {} {

  global seennicks nlist nicksavetime

  set f [open $seennicks w]

  puts $f $nlist

  close $f

  timer $nicksavetime "nick_save"

}





# delete expired users from the list

proc check_expired {} {

  global nickexpire expirechk nlist

  putlog "-Seen- Checking for expired users. The bot will not respond until it's finished."

  set total [expr [llength $nlist] - 1]

  set mtotal [expr $total / 4]

  set nulist ""

  set nrdel 0

  set ind 0

  set nrtot 0

  foreach ent $nlist {

    switch $ind {

      0 {

        set nik $ent

        set ind 1

      }

      1 {

        set loff $ent

        set ind 2

      }

      2 {

        set lchan $ent

        set ind 3

      }

      3 {

        if {[expr ([unixtime] - $loff) / 3600] < $nickexpire} {

        #hasn't yet expired, add to the nulist

        lappend nulist $nik $loff $lchan $ent

        } else {incr nrdel 1}

        set ind 0

      }

    }

  }

  set nlist $nulist

  if {$nrdel > 0} {

    putlog "-Seen- Deleted $nrdel expired nicks out of total $mtotal ([expr 100.0 * $nrdel / $mtotal]%)."

  }

  putlog "-Seen- Done. Next check will be done in $expirechk minutes."

  timer $expirechk "check_expired"

}





proc putseen {out isdcc text} {

  if {$isdcc} {

    putdcc $out $text

  } else {

    putserv "PRIVMSG $out :$text"

  }

}



# return how <who> left

proc adb_seengethow {who} {

  switch [user-get $who seenhow] {

    1 {

      return "*kicked*"

    }

    default {

      return "on"

    }

  }

}



# return 'one of my channels' if the channel

# is +secret

# return 'the channel'/'my party line' if the

# nick was on the same channel as the user is on

# return channel nick was last seen on otherwise

proc thechan {whochan userchan} {

  if {$whochan == "my party line"} {

    return "my party line"

  }

  if {[lsearch [channels] $whochan] == -1} {

    return $whochan

  }

  if {[string tolower $whochan] == [string tolower $userchan]} {

    return "this channel"

  }

  if {[lsearch [channel info $whochan] "+secret"] == -1} {

    return $whochan

  }

  return ""

}





# show when <who> was last on

proc adb_seen {channel nick uhost handle who isdcc} {

  global nlist botnick



  set unick ""

  if {$isdcc == 0} {

    if {[string compare $channel $nick] != 0} {

      append unick $nick ": "

    }

  }



  if {$who == ""} {

    putseen $channel $isdcc "${unick}Correct syntax is 'seen <nick>'"

    return 1

  }



  set who [string trim [lindex $who 0] ?]

  if {[string compare [string tolower $botnick] [string tolower $who]] == 0} {

    putseen $channel $isdcc "${unick}Sure, I guess you don't see me now - right ??"

    return 1

  }

  if {[string compare [string tolower $nick] [string tolower $who]] == 0} {

    putseen $channel $isdcc "${unick}Aren't you in here right now ?? :)"

    return 1

  }



  if {$unick==""} {

    #request via MSG!

    foreach chan [channels] {

      if {[onchan $who $chan]} {

        putseen $channel $isdcc "Hmm... Isn't $who on IRC right now ??"

        return 1

      }

      if {[onchansplit $who $chan]} {

        putseen $channel $isdcc "${who} was just on IRC, but got netsplit.. shame, huh?:)"

        return 1

      }

      foreach i [chanlist $chan] {

        set hand [finduser $i![getchanhost $i $chan]]

        if {($hand != "*") && ([string compare [string tolower $hand] [string tolower $who]] == 0)} {

          if {[onchansplit $i $chan]} {

            putseen $channel $isdcc "$i is ${who}, and $i was just on [thechan $chan $channel] but got netsplit.."

          } {

            putseen $channel $isdcc "$i is ${who}, and $i is on [thechan $chan $channel] right now!"

          }

          return 1

        }

      }

    }



  } else {

    #request via PUB!

    #check if the nick is on YOUR channel

    if {[onchansplit $who $channel]} {

      putseen $channel $isdcc "${unick}${who} was just here, but got netsplit.. shame, huh?:)"

      return 1

    }

    if {[onchan $who $channel]} {

      putseen $channel $isdcc "${unick}${who} is on the channel right now - look in front of you !!"

      return 1

    }

    foreach i [chanlist $channel] {

      set hand [finduser $i![getchanhost $i $channel]]

      if {($hand != "*") && ([string compare [string tolower $hand] [string tolower $who]] == 0)} {

        if {[onchansplit $i $channel]} {

          putseen $channel $isdcc "${unick}$i is ${who}, and $i was just here but got netsplit"

        } {

          putseen $channel $isdcc "${unick}$i is ${who}, and $i is on the channel right now!"

        }

        return 1

      }

    }



    #hmm.. obviously not. let's check if he's on other channels we're on

    set channel [string tolower $channel]

    foreach chan [channels] {

      if {[string compare [string tolower $chan] $channel] == 0} {

        #already did this channel (YOUR channel)

        continue

      }

      if {[onchansplit $who $chan]} {

        putseen $channel $isdcc "${unick}${who} was just on [thechan $chan $channel] but got netsplit.. shame, huh?:)"

        return 1

      }

      if {[onchan $who $chan]} {

        putseen $channel $isdcc "${unick}If I'm not mistaken ${who} is on [thechan $chan $channel] at the moment..."

        return 1

      }

      foreach i [chanlist $chan] {

        set hand [finduser $i![getchanhost $i $chan]]

        if {($hand != "*") && ([string compare [string tolower $hand] [string tolower $who]] == 0)} {

          if {[onchansplit $i $chan]} {

            putseen $channel $isdcc "${unick}$i is ${who}, and $i was just on [thechan $chan $channel] but got netsplit.."

          } {

            putseen $channel $isdcc "${unick}$i is ${who}, and $i is on [thechan $chan $channel] right now!"

          }

          return 1

        }

      }

    }

  }



  if {[hand2idx $who] >= 0} {

    if {[matchattr $handle p]} {

      putseen $channel $isdcc "${unick}$who is on my party line right now !!"

      return 1

    }

  }



  append fwho "-" $who

  set find [lsearch -exact $nlist [string tolower $fwho]]

  if {$find!=-1} {

    set ind $find

    set ending " I cannot guarantee that it really was ${who} though (different host than the one I have stored in my userlist) !!"

  } else {

    append rwho "+" $who

    set ind [lsearch -exact $nlist [string tolower $rwho]]

    set ending ""

  }

  if {$ind == -1} {

    if {[validuser $who]} {

      set last [getuser $who LASTON $channel]

      set seenon [thechan [getuser $who XTRA seenon] $channel]

      switch [getuser $who XTRA seenhow] {

        1 {

          set seenhow "*kicked*"

        }

        default {

          set seenhow ""

        }

      }

      if {$last == 0} {

        putseen $channel $isdcc "${unick}Sorry, but I haven't seen ${who} recently."

        return 1

      } else {

        if {$seenon != ""} {

                putseen $channel $isdcc "${unick}I last saw $who on $seenon - [tdiff [unixtime] $last]ago."

                } else {

                putseen $channel $isdcc "${unick}I last saw $who [tdiff [unixtime] $last]ago."

                }

        return 1

      }

    }

    putseen $channel $isdcc "${unick}I haven't seen anyone with the nick - ${who}."

    return 1

  } else {

    set last [lindex $nlist [expr $ind + 1]]

    set seenon [thechan [lindex $nlist [expr $ind + 2]] $channel]

    switch [lindex $nlist [expr $ind + 3]] {

      1 {

        set seenhow "*kicked*"

      }

      default {

        set seenhow ""

      }

    }

        if {($seenhow != "")&&($seenon != "")} {

                putseen $channel $isdcc "${unick}I last saw $who on $seenon - $seenhow - [tdiff [unixtime] $last]ago."

                } else {

                putseen $channel $isdcc "${unick}I last saw $who [tdiff [unixtime] $last]ago."

                }

    return 1

  }

}





# time difference

proc tdiff {time2 time1} {

  set ltime [expr $time2 - $time1]

  set seconds [expr $ltime % 60]

  set ltime [expr ($ltime - $seconds) / 60]

  set minutes [expr $ltime % 60]

  set ltime [expr ($ltime - $minutes) / 60]

  set hours [expr $ltime % 24]

  set days [expr ($ltime - $hours) / 24]



  set result ""



  if {$days} {

    append result "$days "

    if {$days == 1} {

      append result "day "

    } else {

      append result "days "

    }

  }

  if {$hours} {

    append result "$hours "

    if {$hours == 1} {

      append result "hour "

    } else {

      append result "hours "

    }

  }

  if {$minutes} {

    append result "$minutes "

    if {$minutes == 1} {

      append result "minute "

    } else {

      append result "minutes "

    }

  }

  if {$seconds} {

    append result " $seconds "

    if {$seconds == 1} {

      append result "second "

    } else {

      append result "seconds "

    }

  }

  return $result

}





proc dcc_seen {hand idx arg} {

  adb_seen $idx $hand "" $hand $arg 1

}

bind dcc - seen dcc_seen



proc pub_seen {nick uhost hand channel who} {

  adb_seen $channel $nick $uhost $hand $who 0

}

bind pub - seen pub_seen



proc msg_seen {nick uhost hand who} {

  adb_seen $nick $nick $uhost $hand $who 0

}

bind msg - seen msg_seen



proc seen_join {nick uhost hand channel} {

  nick_upd $channel $nick $hand 0

}

bind join - * seen_join



proc seen_part {nick uhost hand channel} {

  nick_upd $channel $nick $hand 0

}

bind part - * seen_part



proc seen_sign {nick uhost hand channel reason} {

  nick_upd $channel $nick $hand 0

}

bind sign - * seen_sign



proc seen_nickch {nick uhost hand channel newnick} {

  nick_upd $channel $nick $hand 0

  nick_upd $channel $newnick $hand 0

}

bind nick - * seen_nickch



proc seen_kick {nick uhost hand channel kicked reason} {

  set hand [nick2hand $kicked $channel]

  nick_upd $channel $kicked $hand 1

}

bind kick - * seen_kick



proc seen_chof {hand idx} {

  nick_upd "my party line" $hand $hand 0

}

bind chof - * seen_chof



#for testing/emergency nick save only

bind dcc m savenicks dcc_nick_save



#force deletion of nicks in the nickfile that are in the userlist

#(this command should be issued if new users are added to the bot's

#userlist)

bind dcc m seenupd force_seenupd



# script initialization

putlog "$seenver loaded"

# set defaults

if {!([info exists seennicks])} { set seennicks {seen.nicks} }

if {!([info exists nicksavetime])} { set nicksavetime 15 }

if {!([info exists nickexpire])} { set nickexpire 720 }

if {!([info exists expirechk])} { set expirechk 60 }

if [file exists $seennicks] {

  set f [open $seennicks r]

  if {[gets $f nlist] != -1} {

    if {[expr [llength $nlist] % 4] != 0} {

      putlog "-Seen- Invalid nicks list.. Clearing nicks list."

      set nlist ""

    }

  } else {

    putlog "-Seen- Invalid data file. Nicks list not loaded."

    set nlist ""

  }

  close $f

}

# update users on the channel

foreach chan [channels] {

  foreach n [chanlist $chan] {

    set hand [nick2hand $n $chan]

    nick_upd $chan $n $hand 0

  }

}

nick_save

check_expired