Russian Users MikroTik | Форум пользователей MikroTik

Код: Выделить всё

:log info "Log Backup Sended to email...";
:local sysname [/system identity get name];
:local sysver [/system package get system version];
#read log
:local logcontent
:foreach int in=[/log find ] do={
:set logcontent ("$logcontent\r\n" .[/log get $int time]. " - " .[/log get $int message])
}
#send email
/tool e-mail send to="mail@mail.local" subject=([/system identity get name] . " Log " . [/system clock get date]) body=("Log of $sysname\nRouterOS version: \
$sysver\nTime and Date stamp: " . [/system clock get time] . " " . [/system clock get date] . "\n " . \
$logcontent);
#delete old log
/system logging action set memory memory-lines=1
/system logging action set memory memory-lines=65000
:log info "System log cleared by email-log-backup script...";

Код: Выделить всё

:local LogLen 100

:local logMessages [:toarray ""]
:local count 0
:foreach i in=[/log find ] do={
	:set count ($count + 1)
	:set ($logMessages->$count) ([/log get $i time ] . " " . [/log get $i message ]);
}

:local LogToOut ""
if ([:len $logMessages] <= $LogLen) do={
	:set LogLen ($logMessages - 1)
}
:for i from=[:len $logMessages] to ([:len $logMessages] - $LogLen) do={	
	set $LogToOut ($LogToOut . ($logMessages->$i) . "\n")
}