System information

Manual:Scripting-examples

# Check and set NTP servers - "setntppool"

# We need to use the following globals which must be defined here even

# though they are also defined in the script we call to set them.

:global SYSname;

:global SYSsendemail;

:global SYSmyemail;

:global SYSmyname;

:global SYSemailserver;

:global SYSntpa;

:global SYSntpb;

# Load the global variables with the system defaults

/system script run GlobalVars

# Resolve the two ntp pool hostnames

:local ntpipa [:resolve $SYSntpa];

:local ntpipb [:resolve $SYSntpb];

# Get the current settings

:local ntpcura [/system ntp client get primary-ntp];

:local ntpcurb [/system ntp client get secondary-ntp];

# Define a variable so we know if anything's changed.

:local changea 0;

:local changeb 0;

# Debug output

:put ("Old: " . $ntpcura . " New: " . $ntpipa);

:put ("Old: " . $ntpcurb . " New: " . $ntpipb);

# Change primary if required

:if ($ntpipa != $ntpcura) do={

:put "Changing primary NTP";

/system ntp client set primary-ntp="$ntpipa";

:set changea 1;

}

# Change secondary if required

:if ($ntpipb != $ntpcurb) do={

:put "Changing secondary NTP";

/system ntp client set secondary-ntp="$ntpipb";

:set changeb 1;

}

# If we've made a change, send an e-mail to say so.

:if (($changea = 1) || ($changeb = 1)) do={