From: <gor...@us...> - 2003-05-07 05:03:19
|
Update of /cvsroot/jungerl/jungerl/lib/epop/src In directory sc8-pr-cvs1:/tmp/cvs-serv23973 Modified Files: epop_client.erl Log Message: Changed parsing of client uid/address to allow uid's that contain @'s, as some email operators use the email address as uid. Example the uid@address ad...@ac...@x1.acme.com vill now be split into uid=ad...@ac..., and address=x1.acme.com Index: epop_client.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/epop/src/epop_client.erl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- epop_client.erl 6 May 2003 11:10:43 -0000 1.1 +++ epop_client.erl 7 May 2003 05:03:15 -0000 1.2 @@ -397,9 +397,15 @@ user_address(User) -> case string:tokens(User,"@") of - [Uid,Adr] -> {Uid,Adr}; + List when length(List)>1 -> make_uid_address(List); _ -> throw({error,address_format}) end. + +make_uid_address(L) -> make_uid_address(L, ""). + +make_uid_address([_Uid, Adr], Uid) -> {Uid++_Uid, Adr}; +make_uid_address([_Uid|L], Uid) -> make_uid_address(L, Uid++_Uid++"@"). + set_options([{snoop,Flag}|T],S) -> set_options(T,S#sk{snoop=Flag}); |