global-functions: move $IPCalc to optional module

1 files changed, 0 insertions, 30 deletions

diff --git a/global-functions b/global-functions
index e6b6527..1a13588 100644
--- a/global-functions
+++ b/global-functions
@@ -32,7 +32,6 @@
 :global GetRandomNumber;
 :global HexToNum;
 :global IfThenElse;
-:global IPCalc;
 :global LogPrintExit;
 :global LogPrintExit2;
 :global MkDir;
@@ -440,35 +439,6 @@
   :return $3;
 }
 
-# calculate and print netmask, network, min host, max host and broadcast
-:set IPCalc do={
-  :local Input [ :tostr $1 ];
-  :local Address [ :toip [ :pick $Input 0 [ :find $Input "/" ] ] ];
-  :local Bits [ :tonum [ :pick $Input ([ :find $Input "/" ] + 1) [ :len $Input ] ] ];
-  :local Mask ((255.255.255.255 << (32 - $Bits)) & 255.255.255.255);
-
-  :local Return {
-    "address"=$Address;
-    "netmask"=$Mask;
-    "networkaddress"=($Address & $Mask);
-    "networkbits"=$Bits;
-    "network"=(($Address & $Mask) . "/" . $Bits);
-    "hostmin"=(($Address & $Mask) | 0.0.0.1);
-    "hostmax"=(($Address | ~$Mask) ^ 0.0.0.1);
-    "broadcast"=($Address | ~$Mask);
-  }
-
-  :put ( \
-    "Address:   " . $Return->"address" . "\n\r" . \
-    "Netmask:   " . $Return->"netmask" . "\n\r" . \
-    "Network:   " . $Return->"network" . "\n\r" . \
-    "HostMin:   " . $Return->"hostmin" . "\n\r" . \
-    "HostMax:   " . $Return->"hostmax" . "\n\r" . \
-    "Broadcast: " . $Return->"broadcast");
-
-  :return $Return;
-}
-
 # deprecated compatibility wrapper
 :set LogPrintExit do={
   :global LogPrintExit2;