mod_shared_roster: The name of a new group is lowercased

Until now it was possible to create a shared roster group with name
"Group1", and it was a different group that "group1".

From now on, new group names will be stored lowercase,
just like the username in a Jabber ID.

This only affects commands srg_add and srg_create.
All the other commands are still case sensitive, to allow admins of
existing databases with case-sensitive groups manage them.

Author: badlop

src/mod_shared_roster.erl

@@ -381,6 +381,19 @@ create_group(Host, Group) ->
     create_group(Host, Group, []).
 
 create_group(Host, Group, Opts) ->
+    case jid:nodeprep(Group) of
+	error ->
+	    {error, invalid_group_name};
+	LGroup ->
+	    case jid:nameprep(Host) of
+		error ->
+		    {error, invalid_group_host};
+		LHost ->
+		    create_group2(LHost, LGroup, Opts)
+	    end
+    end.
+
+create_group2(Host, Group, Opts) ->
     Mod = gen_mod:db_mod(Host, ?MODULE),
     case proplists:get_value(all_users, Opts, false) orelse
 	 proplists:get_value(online_users, Opts, false) of