diff options
| -rw-r--r-- | hotspot-to-wpa | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/hotspot-to-wpa b/hotspot-to-wpa index d1e7cee..bf5ce81 100644 --- a/hotspot-to-wpa +++ b/hotspot-to-wpa @@ -16,5 +16,14 @@ } / caps-man access-list remove [ find where mac-address=$MacAddress comment~"^hotspot-to-wpa: " ]; -/ caps-man access-list add comment=("hotspot-to-wpa: " . $UserName . ", " . $MacAddress . ", " . $Date) \ - mac-address=$MacAddress private-passphrase=$PassWord ssid-regexp="-wpa\$" place-before=$PlaceBefore; + +:local Limits [ / caps-man access-list get $PlaceBefore ]; +:if (($Limits->"ap-tx-limit") > 0 && ($Limits->"client-tx-limit") > 0) do={ + / caps-man access-list add comment=("hotspot-to-wpa: " . $UserName . ", " . $MacAddress . ", " . $Date) \ + mac-address=$MacAddress private-passphrase=$PassWord ssid-regexp="-wpa\$" \ + ap-tx-limit=($Limits->"ap-tx-limit") client-tx-limit=($Limits->"client-tx-limit") \ + place-before=$PlaceBefore; +} else={ + / caps-man access-list add comment=("hotspot-to-wpa: " . $UserName . ", " . $MacAddress . ", " . $Date) \ + mac-address=$MacAddress private-passphrase=$PassWord ssid-regexp="-wpa\$" place-before=$PlaceBefore; +} |