ejabberd - Comments for "Populate vjud with email address"

How do I use the Teo TCL Script

bcorbet — Wed, 28 Sep 2005 19:02:16 +0000

I am new to ERLang. How do I use the TCL script? I am trying to populate all my users v_card info.

Some simple instructions would be greatly appreciated

Thanks,
Brian C

I think I got it

bbrazell — Tue, 19 Jul 2005 18:23:55 +0000

Changed the reference to the EMAIL element like this and it works:

set vCard [xmlelement vCard \
-attr {xmlns vcard-temp} \
-subtag [xmlelement FN -cdata "$given $family"] \
-subtag [xmlelement N \
-subtag [xmlelement FAMILY -cdata $family] \
-subtag [xmlelement GIVEN -cdata $given]] \
-subtag [xmlelement EMAIL \
-subtag [xmlelement INTERNET] \
-subtag [xmlelement PREF] \
-subtag [xmlelement USERID -cdata $email]]]

Getting close, but need some assistance

bbrazell — Tue, 19 Jul 2005 17:59:07 +0000

I can't get the script to change the value of the email address field. Here is what I've tried.

I modified the script to accept another argument on the command line : set email [lindex $argv 3]

I then changed the following section as follows:

When I run the script with these values:
./vcard.tcl bbrazell Bill Brazell bill@home.com, I can see the $query value equal to:

{iq, "", set, "", "en", {xmlelement, "vCard", [{"xmlns", "vcard-temp"}], [{xmlelement, "FN", [], [{xmlcdata, "Bill Brazell"}]}, {xmlelement, "N", [], [{xmlelement, "FAMILY", [], [{xmlcdata, "Brazell"}]}, {xmlelement, "GIVEN", [], [{xmlcdata, "Bill"}]}]}, {xmlelement, "EMAIL", [], [{xmlelement, "USERID", [], [{xmlcdata, "bill@home.com"}]}]}]}}

I know it must be something with the way I'm specifying the EMAIL element. If I change the reference to NICKNAME, it works fine. Here is a line from mod_vcard.erl that may lend a clue:

EMail1 = xml:get_path_s(VCARD, [{elem, "EMAIL"}, {elem, "USERID"},cdata]),

Any ideas how to get this to work?

You are right. There's a bug

teo — Mon, 18 Jul 2005 18:44:42 +0000

You are right. There's a bug in the script. I've put corrected version under the same link as above.

Sorry. More details...

bbrazell — Mon, 18 Jul 2005 16:56:22 +0000

Prior to running the script, I verified that I'm able to view/modify the vcard from a Jabber client.

I modified the following lines in the script:

set username [lindex $argv 0]
set servername "jabbertest.wireless.attws.com"
set given [lindex $argv 1]
set family [lindex $argv 2]
set orgname "Cingular"

I also changed these lines, changing from -sname to -name and giving it the FQDN of the ejabberd host. If I leave it set to $hostname, it reports the following error: =ERROR REPORT==== 18-Jul-2005::09:47:18 ===
** System running to use fully qualified hostnames **
** Hostname localhost is illegal **

set res [exec /usr/local/bin/erl -name vcards << \
"rpc:call('ejabberd@jabbertest.wireless.attws.com', mod_vcard, process_sm_iq, \[$jid, $jid, $query\])."]

I then run the script giving it the following arguments:

./vcard.tcl bbrazell Bill Brazell

Script returns: bbrazell@jabbertest.wireless.attws.com: OK

I then try to view the vcard for the modified record and the client is unable to retrieve it. Does that help? I can provide more information upon request. Thanks

You wrote: I modified it and

teo — Mon, 18 Jul 2005 16:33:23 +0000

You wrote: I modified it and got it to run. How then can I have an idea about its behavior?

Corrupting the record??

bbrazell — Mon, 18 Jul 2005 15:04:50 +0000

Teo,

Thanks for providing the script. I modified it and got it to run. It returns bbrazell@jabbertest.wireless.attws.com: OK. The problem is that I think it's corrupting the record since I'm unable to view it after running the script. Here is the command I entered:

./vcard.tcl bbrazell Bill Brazell

Does that look right? Any ideas why the record is getting corrupted?

I use this script for

teo — Sun, 17 Jul 2005 08:16:05 +0000

I use this script for modifying users' vCard data. You could modify it to suit your requirements.

Modify vcard table via command line

bbrazell — Sat, 16 Jul 2005 15:54:31 +0000

I'm still trying to populate the vjud automatically when a user signs up (registers) their account. I've looked at the code and have to admit that the mnesia commands have me stumped. Probably simple syntax errors.

Anyhow, is there a way to populate the vcard table on the command line? Looks like the mod_vcard may be a possibility, but I can't tell if it is able accept arguments. At a minimum, I'd like to be able to write to the fn, family, and email fields. Any help is appreciated.

Reset user password

bbrazell — Mon, 11 Jul 2005 21:34:54 +0000

OK. I figured out how to reset user passwords by modifying the ejabberdctl behavior. Here is what I did:

Edited ejabberd_ctl.erl and inserted the following right before the line reading: process(Node, ["register", User, Server, Password]) -> (line 86)

process(Node, ["reset", User, Server, Password]) ->
    case rpc:call(Node, ejabberd_auth, set_password, [User, Server, Password]) of
        {atomic, ok} ->
            ?STATUS_SUCCESS;
        {error, Reason} ->
            io:format("Can't locate user ~p at node ~p: ~p~n",
                      [User ++ "@" ++ Server, Node, Reason]),
            ?STATUS_ERROR;
        {badrpc, Reason} ->
            io:format("Can't locate user ~p at node ~p: ~p~n",
                      [User ++ "@" ++ Server, Node, Reason]),
            ?STATUS_BADRPC
    end;

Next, I added the following right before the line reading: " register user server password\tregister a user~n" (line 261)

      "  reset user server password\treset user's password~n"

Recompiled and it works fine.

Now I just need to be able to populate the email address field in the database upon registration and I'll be set.