remove extra dollar sign

This commit is contained in:
Christian Hesse 2018-12-12 21:57:17 +01:00
parent dee4495c0c
commit a0fb616715
5 changed files with 9 additions and 9 deletions

View file

@ -21,7 +21,7 @@
} }
:if ($skip = 0) do={ :if ($skip = 0) do={
/ caps-man access-list print where mac-address=$mac; / caps-man access-list print where mac-address=$mac;
:set $shown ( $shown , $mac ); :set shown ( $shown , $mac );
:put "\nEnter to skip, numeric id to remove!"; :put "\nEnter to skip, numeric id to remove!";
:local remove [ $Read ]; :local remove [ $Read ];
@ -32,5 +32,5 @@
} }
} }
} }
:set $seen ( $seen , $mac ); :set seen ( $seen , $mac );
} }

View file

@ -21,7 +21,7 @@
} }
:if ($skip = 0) do={ :if ($skip = 0) do={
/ interface wireless access-list print where mac-address=$mac; / interface wireless access-list print where mac-address=$mac;
:set $shown ( $shown , $mac ); :set shown ( $shown , $mac );
:put "\nEnter to skip, numeric id to remove!"; :put "\nEnter to skip, numeric id to remove!";
:local remove [ $Read ]; :local remove [ $Read ];
@ -32,5 +32,5 @@
} }
} }
} }
:set $seen ( $seen , $mac ); :set seen ( $seen , $mac );
} }

View file

@ -22,7 +22,7 @@
} }
:if ($skip = 0) do={ :if ($skip = 0) do={
/ %PATH% access-list print where mac-address=$mac; / %PATH% access-list print where mac-address=$mac;
:set $shown ( $shown , $mac ); :set shown ( $shown , $mac );
:put "\nEnter to skip, numeric id to remove!"; :put "\nEnter to skip, numeric id to remove!";
:local remove [ $Read ]; :local remove [ $Read ];
@ -33,5 +33,5 @@
} }
} }
} }
:set $seen ( $seen , $mac ); :set seen ( $seen , $mac );
} }

View file

@ -76,7 +76,7 @@
} }
:if ($skip = 0) do={ :if ($skip = 0) do={
:set $seen ( $seen, $ssid ); :set seen ( $seen, $ssid );
:local host "www.eworm.de" :local host "www.eworm.de"
:local srcpath ("/cgi-bin/cqrlogo-wifi.cgi" . \ :local srcpath ("/cgi-bin/cqrlogo-wifi.cgi" . \

View file

@ -23,9 +23,9 @@
:local replace [ :find $chars $char ]; :local replace [ :find $chars $char ];
:if ([ :len $replace ] > 0) do={ :if ([ :len $replace ] > 0) do={
:set $char ($subs->$replace); :set char ($subs->$replace);
} }
:set $return ($return . $char); :set return ($return . $char);
} }
} }