#!rsc
# RouterOS script: script-updates
# Copyright (c) 2013-2018 Christian Hesse <mail@eworm.de>
#
# update installed scripts from file or url

:global "script-updates-fetch";
:global "script-updates-baseurl";
:global "script-updates-urlsuffix";
:global "script-updates-ignore";

:foreach script in=[ / system script find ] do={
  :local ignore 0;
  :local scriptname [ / system script get $script name ];
  :local scriptpolicy [ / system script get $script policy ];
  :local scriptfile [ / file find where name=("script-updates/" . $scriptname) ];
  :local sourcenew;
  :if ([ :len $scriptfile ] > 0) do={
    :set sourcenew [ / file get $scriptfile content ];
    / file remove $scriptfile;
  }

  :foreach scheduler in=[ / system scheduler find where on-event=$scriptname ] do={
    :local schedulername [ / system scheduler get $scheduler name ];
    :local schedulerpolicy [ / system scheduler get $scheduler policy ];
    :if ($scriptpolicy != schedulerpolicy) do={
      :log warning ("Policies differ for script " . $scriptname . \
        " and its scheduler " . $schedulername . "!");
    }
  }

  :if ([ :len $sourcenew ] = 0 && $"script-updates-fetch" = true) do={
    :foreach "ignore-loop" in=$"script-updates-ignore" do={
      :if ($"ignore-loop" = $scriptname) do={ :set ignore 1; }
    }

    :if ($ignore = 0) do={
      :log debug ("Fetching script from url: " . $scriptname);
      :do {
        :local result [ / tool fetch check-certificate=yes-without-crl \
            ($"script-updates-baseurl" . $scriptname . $"script-updates-urlsuffix") \
            output=user as-value ];
        :if ($result->"status" = "finished") do={
          :set sourcenew ($result->"data");
        }
      } on-error={
        :log info ("Failed fetching " . $scriptname);
      }
    }
  }

  :if ([ :len $sourcenew ] > 0) do={
    :if ([ :pick $sourcenew 0 5 ] = "#!rsc") do={
      :local sourcecurrent [ / system script get $script source ];
      :if ($sourcenew != $sourcecurrent) do={
        :log info ("Updating script: " . $scriptname);
        / system script set owner=$scriptname source=$sourcenew $script;
      } else={
        :log debug ("Script " .  $scriptname . " did not change");
      }
    } else={
      :log warning ("Looks like new script " . $scriptname . " is not valid. Ignoring!");
    }
  } else={
    :log debug ("No update for script " . $scriptname);
  }
}