Tkabber

2016-01-13  Sergei Golovan  <sgolovan@nes.ru>

	* plugins/chat/logger.tcl: Fixed bug with names of temporary arrays
	  clash.

	* tk/bwidget.tcl: Made the 'current' subcommand for a combobox a
	  synonym for 'getvalue' ('current' is taken from ttk::combobox).

	* plugins/chat/logger.tcl: Implemented showing log messages for all
	  JIDs that correspond to a single metacontact. This closes feature
	  request [7619b16aec].

2016-01-12  Sergei Golovan  <sgolovan@nes.ru>

	* plugins/chat/log_on_open.tcl, plugins/chat/logger.tcl: Read the
	  logged messages not only for the JID which chat window is being
	  opened, but also for all JIDs in a metacontact it belongs. This
	  option is disabled by default. Since the metacontacts info isn't

            if {![chat::is_groupchat [chat::chatid $xlib $nas]]} {
                set jid $nas
            }
        }
    }
    $m add command -label [::msgcat::mc "Show history"] \
           -state $state \
           -command [list logger::show_log $jid -connection $xlib \
                                                -metacontact 1]
}

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

hook::add chat_create_user_menu_hook \
    [list ::logger::add_menu_item normal chat] 65
hook::add chat_create_conference_menu_hook \

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

proc ::logger::create_log_viewer {lw jid args} {
    global tcl_platform
    global defaultnick

    set metacontact 0
    foreach {key val} $args {
        switch -- $key {
            -connection { set xlib $val }
            -subdirs { set subdirs $val }
            -metacontact { set metacontact $val }
        }
    }

    if {![info exists xlib]} {
        set xlib [lindex [connections] 0]
    }

    if {!$::ifacetk::roster::options(enable_metacontacts) || \
                [llength [info procs ::plugins::metacontacts::*]] == 0} {
        set metacontact 0
    }

    set jids [list $jid]
    if {$metacontact} {
        foreach tag [::plugins::metacontacts::get_all_tags $xlib] {
            set mjids [::plugins::metacontacts::get_jids $xlib $tag]
            foreach j $mjids {
                if {[::xmpp::jid::equal $j $jid]} {
                    set jids $mjids
                    break
                }
            }
        }
    }

    foreach j $jids {
        lappend logfiles [jid_to_filename $j]
    }

    set mynick [get_group_nick $xlib $jid]

    Toplevel $lw -class Chat
    wm group $lw .
    wm withdraw $lw
    set title [::msgcat::mc "History for %s" $jid]
    wm title $lw $title
    wm iconname $lw $title

    set lf [ScrolledWindow $lw.sw]
    set l [Text $lw.log -wrap word -takefocus 0]

    set mf [Frame $lw.mf]
    pack $mf -side top -fill x -expand no -padx 1m -pady 1m

    set jlabel [Label $mf.jlabel -text [::msgcat::mc "Log for:"]]
    pack $jlabel -side left

    if {[llength $logfiles] == 1} {
        set jselect [Label $mf.jselect \
                           -text "[::msgcat::mc {JID}] $jid"]
    } else {
        set textjids [list "[::msgcat::mc {Metacontact}] [lindex $jids 0]"]
        set idx 0
        foreach j $jids {
            if {[::xmpp::jid::equal $j $jid]} {
                set idx [llength $textjids]
            }
            lappend textjids "[::msgcat::mc {JID}] $j"
        }
        set w 0
        foreach textjid $textjids {
            set w [::tcl::mathfunc::max $w [string length $textjid]]
        }
        set jselect [Combobox $mf.jselect \
                         -editable no \
                         -exportselection no \
                         -values $textjids \
                         -width [expr {$w+2}] \
                         -modifycmd [list \
                            [namespace current]::change_month \
                                    $mf.jselect $mf.mcombo $logfiles $l $mynick]]
        $jselect set [lindex $textjids $idx]
    }
    pack $jselect -side left

    set mlabel [Label $mf.mlabel -text "   [::msgcat::mc {Select month:}]"]
    pack $mlabel -side left
    set ebutton [Button $mf.ebutton \
                        -text [::msgcat::mc "Export to XHTML"] \
                        -command [list [namespace current]::export \
                                       $mf.jselect $mf.mcombo $logfiles $mynick]]
    pack $ebutton -side right
    pack $lf -padx 1m -pady 1m -fill both -expand yes

    $lf setwidget $l

    regsub -all %W [bind Text <Prior>] [double% $l] prior_binding
    regsub -all %W [bind Text <Next>]  [double% $l] next_binding
    bind $lw <Prior> $prior_binding
    bind $lw <Next>  $next_binding

    $l tag configure they -foreground [option get $lw theyforeground Chat]
    $l tag configure me -foreground [option get $lw meforeground Chat]
    $l tag configure server_lab \
       -foreground [option get $lw serverlabelforeground Chat]
    $l tag configure server \
       -foreground [option get $lw serverforeground Chat]

    $l configure -state disabled

    if {![info exists subdirs]} {
        foreach lf $logfiles {
            lappend subdirs {*}[get_subdirs $lf]
        }
        set subdirs [lsort -unique $subdirs]
    }

    set ympairs {}
    foreach sd [lsort -decreasing $subdirs] {
        lappend ympairs [describe_month $sd]
    }
    lappend ympairs [::msgcat::mc "All"]

    set mcombo [Combobox $mf.mcombo \
                         -editable no \
                         -exportselection no \
                         -values $ympairs \
                         -modifycmd [list \
                            [namespace current]::change_month \
                                          $mf.jselect $mf.mcombo $logfiles $l $mynick]]
    $mcombo set [lindex $ympairs 0]
    pack $mcombo -side left

    hook::run open_log_post_hook $xlib $jid $lw

    wm deiconify $lw
}

        }
    }

    set logfile [jid_to_filename $jid]
    set mynick [get_group_nick "" $jid]

    set log $lw.log
    set jbox $lw.mf.jselect
    set cbox $lw.mf.mcombo

    set ympairs [$cbox cget -values]
    if {[info exists when]} {
        set text [describe_month $when]
        if {$text ni $ympairs} {
            error "no log entries for: $when"
        }
    } else {
        set text [lindex $ympairs 0]
    }

    $cbox set $text

    # TODO
    change_month $jbox $cbox [list $logfile] $log $mynick

    if {[info exists timestamp]} {
        set pos [lindex [$log tag ranges TS-$timestamp] 0]
        if {$pos == ""} { set pos end }
    } else {
        set pos end
    }

        }
    }
    $l configure -state disabled
}

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

proc ::logger::change_month {jselect mcombo logfiles l mynick} {
    variable m2d

    if {[catch {$jselect current} jidx]} {
        # jselect is a label
        set jidx -1
    }
    incr jidx -1
    if {$jidx >= 0 && [llength $logfiles] > 1} {
        set logfiles [list [lindex $logfiles $jidx]]
    }

    set month [$mcombo get]

    draw_messages $l {} $mynick
    if {$month == [::msgcat::mc "All"]} {
        foreach logfile $logfiles {
            foreach m [get_subdirs $logfile] {
                lappend tmp($m) $logfile
            }
        }
        foreach m [lsort -unique -increasing [array names tmp]] {
            set hist {}
            foreach logfile $logfiles {
                lappend hist {*}[read_hist_from_file $logfile $m]
            }
            add_messages $l [lsort -index 1 $hist] $mynick
            update
        }
    } else {
        set my_list [split $month " "]
        set month [lindex $my_list end]-$m2d([join [lrange $my_list 0 end-1] " "])
        set hist {}
        foreach logfile $logfiles {
            lappend hist {*}[read_hist_from_file $logfile $month]
        }
        add_messages $l [lsort -index 1 $hist] $mynick
    }
    $l see end
}

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

proc ::logger::read_hist_from_file {logfile month} {

        }
    }
    return $messages
}

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

proc ::logger::export {jselect mcombo logfiles mynick} {
    variable m2d

    if {[catch {$jselect current} jidx]} {
        # jselect is a label
        set jidx -1
    }
    incr jidx -1
    if {$jidx >= 0 && [llength $logfiles] > 1} {
        set logfiles [list [lindex $logfiles $jidx]]
    }

    set month [$mcombo get]
    set hist {}
    if {$month == [::msgcat::mc "All"]} {
        foreach logfile $logfiles {
            foreach m [get_subdirs $logfile] {
                lappend tmp($m) $logfile
            }
        }
        foreach m [lsort -unique -increasing [array names tmp]] {
            set h {}
            foreach logfile $logfiles {
                lappend h {*}[read_hist_from_file $logfile $m]
            }
            lappend hist {*}[lsort -index 1 $h]
        }
    } else {
        set my_list [split $month " "]
        set month [lindex $my_list end]-$m2d([join [lrange $my_list 0 end-1] " "])
        set h {}
        foreach logfile $logfiles {
            lappend h {*}[read_hist_from_file $logfile $month]
        }
        lappend hist {*}[lsort -index 1 $h]
    }

    set filename [tk_getSaveFile -defaultextension .html]
    if {$filename == ""} return
    set fd [open $filename w]
    fconfigure $fd -encoding utf-8

    puts $fd {<?xml version="1.0" encoding="UTF-8"?>}
    puts $fd {<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">}
    puts $fd {<html xmlns="http://www.w3.org/1999/xhtml">}



    puts $fd {<head><style type="text/css">}

    puts $fd [write_css]
    puts $fd {</style></head>}

    foreach vars $hist {
        array unset tmp
        if {[catch {array set tmp $vars}]} continue

        set subtags {}
        if {[info exists tmp(timestamp)]} {

                        -subelements $subtags]

        puts $fd [::xmpp::xml::toText $msg]
    }

    puts $fd {</html>}
    close $fd


}

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

proc ::logger::write_css {} {

    return "

html body {
    background-color: white;
    color: black;
}

.me {
    color: red;
}

.they {
    color: blue;
}

.server {
    color: green;
}
"


}

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

proc ::logger::convert_subdir_log {t logfrom logto jid dir} {
    if {[catch {
            set fd [cdopen $logfrom r]