diff options
author | Christian Hesse <mail@eworm.de> | 2019-01-03 17:45:43 +0100 |
---|---|---|
committer | Christian Hesse <mail@eworm.de> | 2019-01-04 12:35:34 +0100 |
commit | 870f00bb36f5af3088344371764da48bbde9651a (patch) | |
tree | 4e41839d17515cf05cb563fbb4dee92970889941 /email-backup | |
parent | 7d06a7e8c2b66a12db65130bddb3578b3f04468f (diff) |
global: variable names are CamelCase
___ _ ___ __
/ _ )(_)__ _ / _/__ _/ /_
/ _ / / _ `/ / _/ _ `/ __/
/____/_/\_, / /_/ \_,_/\__/
_ __ /___/ _ __
| | / /___ __________ (_)___ ____ _/ /
| | /| / / __ `/ ___/ __ \/ / __ \/ __ `/ /
| |/ |/ / /_/ / / / / / / / / / / /_/ /_/
|__/|__/\__,_/_/ /_/ /_/_/_/ /_/\__, (_)
/____/
RouterOS has some odd behavior when it comes to variable names. Let's
have a look at the interfaces:
[admin@MikroTik] > / interface print where name=en1
Flags: D - dynamic, X - disabled, R - running, S - slave
# NAME TYPE ACTUAL-MTU L2MTU
0 RS en1 ether 1500 1598
That looks ok. Now we use a script:
{ :local interface "en1";
/ interface print where name=$interface; }
And the result...
[admin@MikroTik] > { :local interface "en1";
{... / interface print where name=$interface; }
Flags: D - dynamic, X - disabled, R - running, S - slave
# NAME TYPE ACTUAL-MTU L2MTU
0 RS en1 ether 1500 1598
... still looks ok.
We make a little modification to the script:
{ :local name "en1";
/ interface print where name=$name; }
And the result:
[admin@MikroTik] > { :local name "en1";
{... / interface print where name=$name; }
Flags: D - dynamic, X - disabled, R - running, S - slave
# NAME TYPE ACTUAL-MTU L2MTU
0 RS en1 ether 1500 1598
1 S en2 ether 1500 1598
2 S en3 ether 1500 1598
3 S en4 ether 1500 1598
4 S en5 ether 1500 1598
5 R br-local bridge 1500 1598
Ups! The filter has no effect!
That happens whenever the variable name ($name) matches the property
name (name=).
And another modification:
{ :local type "en1";
/ interface print where name=$type; }
And the result:
[admin@MikroTik] > { :local type "en1";
{... / interface print where name=$type; }
Flags: D - dynamic, X - disabled, R - running, S - slave
# NAME TYPE ACTUAL-MTU L2MTU
Ups! Nothing?
Even if the variable name ($type) matches whatever property name (type=)
things go wrong.
The answer from MikroTik support (in Ticket#2019010222000454):
> This is how scripting works in RouterOS and we will not fix it.
To get around this we use variable names in CamelCase. Let's hope
Mikrotik never ever introduces property names in CamelCase...
*fingers crossed*
Diffstat (limited to 'email-backup')
-rw-r--r-- | email-backup | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/email-backup b/email-backup index a13a2ed..a15f766 100644 --- a/email-backup +++ b/email-backup @@ -4,72 +4,72 @@ # # create and email backup and config file -:global "identity"; -:global "domain"; -:global "email-backup-to"; -:global "email-backup-cc"; -:global "backup-send-binary"; -:global "backup-send-export"; -:global "backup-cloud"; -:global "backup-password"; +:global Identity; +:global Domain; +:global EmailBackupTo; +:global EmailBackupCc; +:global BackupSendBinary; +:global BackupSendExport; +:global BackupCloud; +:global BackupPassword; -:if ($"backup-send-binary" != true && \ - $"backup-send-export" != true && \ - $"backup-cloud" != true) do={ +:if ($BackupSendBinary != true && \ + $BackupSendExport != true && \ + $BackupCloud != true) do={ :error ("Configured to send neither backup nor config export."); } # filename based on identity -:local filename ($identity . "." . $domain); -:local cloudstatus $"backup-cloud"; -:local attach [ :toarray "" ]; +:local FileName ($Identity . "." . $Domain); +:local CloudStatus $BackupCloud; +:local Attach [ :toarray "" ]; # get some system information -:local model [ / system routerboard get model ]; -:local serialnumber [ / system routerboard get serial-number ]; -:local channel [ / system package update get channel ]; -:local installedversion [ / system package update get installed-version ]; +:local Model [ / system routerboard get model ]; +:local SerialNumber [ / system routerboard get serial-number ]; +:local Channel [ / system package update get channel ]; +:local InstalledVersion [ / system package update get installed-version ]; # binary backup -:if ($"backup-send-binary" = true || \ - $"backup-cloud" = true) do={ - / system backup save encryption=aes-sha256 name=$filename password=$"backup-password"; +:if ($BackupSendBinary = true || \ + $BackupCloud = true) do={ + / system backup save encryption=aes-sha256 name=$FileName password=$BackupPassword; # attach to mail - :if ($"backup-send-binary" = true) do={ - :set attach ( $attach, ($filename . ".backup") ); + :if ($BackupSendBinary = true) do={ + :set Attach ($Attach, ($FileName . ".backup")); } # upload to cloud - :if ($"backup-cloud" = true) do={ + :if ($BackupCloud = true) do={ :do { :if ([ / system backup cloud print count-only ] > 0) do={ / system backup cloud remove-file [ find ]; } - / system backup cloud upload-file action=upload src-file=($filename . ".backup"); + / system backup cloud upload-file action=upload src-file=($FileName . ".backup"); } on-error={ - :set cloudstatus "failed"; + :set CloudStatus "failed"; } } } # create configuration export -:if ($"backup-send-export" = true) do={ - / export terse file=$filename; - :set attach ( $attach, ($filename . ".rsc") ); +:if ($BackupSendExport = true) do={ + / export terse file=$FileName; + :set Attach ($Attach, ($FileName . ".rsc")); } # send email with status and files -/ tool e-mail send to=$"email-backup-to" cc=$"email-backup-cc" \ - subject=("[" . $identity . "] Backup & Config") \ - body=("Backup and config export for " . $identity . ".\n\n" . \ - "Routerboard: " . $model . "\n" . \ - "Serial number: " . $serialnumber . "\n" . \ - "Hostname: " . $identity . "\n" . \ - "Channel: " . $channel . "\n" . \ - "RouterOS: " . $installedversion . "\n\n" . \ - "Backup attached: " . $"backup-send-binary" . "\n" . \ - "Config attached: " . $"backup-send-export" . "\n" . \ - "Cloud backup: " . $cloudstatus) \ - file=$attach; +/ tool e-mail send to=$EmailBackupTo cc=$EmailBackupCc \ + subject=("[" . $Identity . "] Backup & Config") \ + body=("Backup and config export for " . $Identity . ".\n\n" . \ + "Routerboard: " . $Model . "\n" . \ + "Serial number: " . $SerialNumber . "\n" . \ + "Hostname: " . $Identity . "\n" . \ + "Channel: " . $Channel . "\n" . \ + "RouterOS: " . $InstalledVersion . "\n\n" . \ + "Backup attached: " . $BackupSendBinary . "\n" . \ + "Config attached: " . $BackupSendExport . "\n" . \ + "Cloud backup: " . $CloudStatus) \ + file=$Attach; } |