*** queuesimple share user *** (rafajulian)

*** queuesimple share user ***
# On Login , ganti HOTSPOT-PARENT dengan parent di queue simple
{
:local usernya $user;
:local ipnya $address;
:local maxlimitnya [/queue simple get [find target="$ipnya/32"] max-limit]
:local limitatnya [/queue simple get [find target="$ipnya/32"] limit-at]
/queue simple remove [find target="$ipnya/32"]
:if ([/queue simple find name="share-$usernya"]="") do={
/queue simple add name="share-$usernya" comment="share" parent="HOTSPOT-PARENT" queue=default/default target=$ipnya max-limit=$maxlimitnya
/queue simple add name="$usernya$ipnya" comment="share" parent="share-$usernya" target=$ipnya max-limit=$maxlimitnya limit-at=$limitatnya
} else={
/queue simple add name="$usernya$ipnya" comment="share" parent="share-$usernya" target=$ipnya max-limit=$maxlimitnya limit-at=$limitatnya
}
}
{
:local usernya $user;
:local ipnya $address;
:local aa 1;
:local targetnya "";
:foreach z in=[ /queue simple find parent="share-$usernya"] do={
if (aa=1) do={
:set targetnya [/queue simple get value-name=target $z ];
} else={
:set targetnya ($targetnya . "," . [/queue simple get value-name=target $z ]);
}
:set aa ($aa+1);
}
/queue simple set [find name="share-$usernya"] target=$targetnya
}
# On Logout
{
:local usernya $user;
:local ipnya $address;
/queue simple remove [find name="$usernya$ipnya" comment="share"]
:if ([/queue simple find parent="share-$usernya"]="") do={/queue simple remove [find name="share-$usernya"]}
:local aa 1;
:local targetnya "";
:foreach z in=[ /queue simple find parent="share-$usernya"] do={
if (aa=1) do={
:set targetnya [/queue simple get value-name=target $z ];
} else={
:set targetnya ($targetnya . "," . [/queue simple get value-name=target $z ]);
}
:set aa ($aa+1);
}
/queue simple set [find name="share-$usernya"] target=$targetnya
}
# system scheduler
/system scheduler
add name=remove-queue on-event="/queue simple remove [find comment=\"share\"]" policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon start-