:local userX;
:local userY;
:local i;
:local u;
:local clogged 0;
:local addr [ :resolve "www.maxfava.com" ];
:local addr2 [ :resolve "www.maxfava.com" ];
:foreach i in=[/ppp active find] do={
:set userX [/ppp active get $i name];
:set clogged 0;
:foreach u in=[/ppp active find name=$userX ] do={
:set clogged ($clogged+1);
:if ($clogged>1) do={
:set userY [/ppp active get $u name];
:set addr [/ppp active get $u caller-id];
:set addr2 [/ppp active get $i caller-id];
:if ($addr != $addr2) do={
/ppp active remove $u;
}
}
}
}