mirror.MikroTik/wifinigel.MikrotikScripting
1
0
Fork 0
mirror of https://github.com/wifinigel/MikrotikScripting.git synced 2025-07-13 03:24:29 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

publish copy updates

Browse source
This commit is contained in:
Wifinigel 2023-03-06 20:56:48 +00:00
parent 4548f7c5c1
commit 8a3419b536
22 changed files with 63 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

18
scripts/v7/ch8-08-while-timer.rsc
View file

@ -3,7 +3,7 @@
# script to report page load time of google.com
# get the current time
:local CurrentTime [/system/clock get time];
:local CurrentTime [/system clock get time];
# calculate the time in 1 minute
:local EndTime ($CurrentTime + 00:01:00);
@ -11,24 +11,28 @@
# define a target web site
:local WebSite "www.google.com";
# run a while loop until one minute interval expired
# run a while loop until one minute interval has expired
:while ( [/system/clock get time] < $EndTime ) do={
:put "Getting web page from $WebSite";
# fetch a page from web site
:local FetchResult [/tool fetch url=("https://$WebSite") mode=https \
http-method=get as-value keep-result=no];
:local FetchResult;
:local TimeTaken [:time {
:set FetchResult [/tool fetch url=("https://$WebSite") \
mode=https http-method=get as-value keep-result=no];
}];
if ($FetchResult->"status" = "finished") do={
# print out how long page retrieval took (if successful)
:local FetchDuration ($FetchResult->"duration");
:put "Web page fetch time: $FetchDuration secs";
:put "Web page fetch time: $TimeTaken secs";
} else={
# print failure message if fetch failed
:put "Web page fetch failed";
}
# pause for 5 seconds
:delay 5;
}
:put "One minute period has ended!"