Jabber Commercial Version

#!/usr/bin/tclsh

package require xml
# XML Package helps get the password
# This is the directory structure of our Commercial Jabber server.
# 
# spool/jabber:component:tc:roomlist
# spool/jabber:component:tc:roomstate
# spool/jabber:iq:auth
# spool/jabber:iq:auth:0k
# spool/jabber:iq:last
# spool/jabber:iq:register
# spool/jabber:iq:roster
# spool/jabber:x:offline
# spool/jabberim:prefs
# spool/jabberim:textconferencing

set timeout -1
set dir "/"
set server ""
# If a user hasn't logged in for 180days the login is discarded.
set cuttime [expr [clock seconds] - (180*24*60*60)]
proc cdata {data args} {
    global passwd
    set passwd $data
}
# Open a pipe to ls. TCL treats this pipe like it would a file for 
# easy reading of the output.
set dirlist [open "|ls $dir/jabber:iq:auth/"]
while {[gets $dirlist dname] >=0} {
        if {[file exists $dir/jabber:iq:last/$dname]} {
                file stat $dir/jabber:iq:last/$dname ftime
        } else {
                continue
        }
 # Ignore user who hasn't logged in for 180 days
        if {$ftime(mtime) <= $cuttime} {continue}
 # For some reason Jabber puts a '.' at the end of each file, need to trim that off.
        set usrname [string trimright $dname "."]
 # process the xml file to get the passwd.
        set parser [::xml::parser -characterdatacommand cdata]
        set ch [open $dir/jabber:iq:auth/$dname r]
        fconfigure $ch -encoding shiftjis
        $parser parse [read $ch]
        close $ch
 # Register the user
        set status [catch {exec sudo ejabberdctl register $usrname $passwd} result]
        puts stdout "Adding $usrname: Register Result $result, Status $status"
        if {[file exists $dir/jabber:iq:roster/$dname]} {
  # xml for the roster was very convoluted... used Unix commands to parse.
                set pipe [open "|cat $dir/jabber:iq:roster/$dname | xml2 | egrep \"jid|name\" | cut -f2 -d \"=\""]
        } else {
                continue
        }
        while {[gets $pipe line]>=0} {
                gets $pipe name
                set line [lindex [split $line "@"] 0]
  # add user's roster.  I added them all to the "Jabber" group regardless of 
  # where the user had it before. You could probably spend a little time and
  # parse the xml better.
                set status [catch {exec sudo ejabberdctl add-roster $usrname $line $server \"$name\" Jabber both} result]
                puts stdout "\tejabberdctl add-roster $usrname $line $server \"$name\" Jabber both"
        }
        close $pipe
}

We were able to add 6000+ registered users from the commercial version of Jabber into eJabber, and so far things are running fairly well. The only problem is that the rosters show the users configured as being "Not Authorized." Is there something we can do to the database to set these as "authorized?" There are some clients such as Exodus that doesn't handle this very well.

Thanks for all your help,

Rich

The patch worked great and the rosters were added just fine. The only problem is that the Pending field in the database states that it's 'out' so the users rosters all appear to be pending. Is there a way to change this so that the Pending field is set to 'none'?

I really appreciate the help you all have provided so far. eJabber is an awesome server, and we love it compared to the commercial version of Jabber.

Thanks,
Rich