From e2280aad84fe78043d8b47f72b96f1de194df20e Mon Sep 17 00:00:00 2001
From: Grzegorz Budny <grzegorz.budny@paccor.com>
Date: Sun, 14 Jul 2019 22:52:31 +0200
Subject: [PATCH] Intial Commit. First Release

---
 RouterOS_Count_Log_Occurences.rsc |  0
 RouterOS_File_Screening.rsc       |  2 ++
 RouterOS_LCD_Change.rsc           | 27 +++++++++++++++++++++++++++
 RouterOS_Low_Disk_Space.rsc       | 21 +++++++++++++++++++++
 4 files changed, 50 insertions(+)
 delete mode 100644 RouterOS_Count_Log_Occurences.rsc

diff --git a/RouterOS_Count_Log_Occurences.rsc b/RouterOS_Count_Log_Occurences.rsc
deleted file mode 100644
index e69de29..0000000
diff --git a/RouterOS_File_Screening.rsc b/RouterOS_File_Screening.rsc
index e69de29..6609f95 100644
--- a/RouterOS_File_Screening.rsc
+++ b/RouterOS_File_Screening.rsc
@@ -0,0 +1,2 @@
+:global n [file get value-name=name number=2]
+:if ($n ~ ".txt") do={/file remove $n} else={:put "No"}
\ No newline at end of file
diff --git a/RouterOS_LCD_Change.rsc b/RouterOS_LCD_Change.rsc
index e69de29..05fda35 100644
--- a/RouterOS_LCD_Change.rsc
+++ b/RouterOS_LCD_Change.rsc
@@ -0,0 +1,27 @@
+# RouterOS Function
+# Copyright (c) Grzegorz Budny 
+# Changes LCD mode based on time schedule 
+
+:global ChangeLcd do={
+
+    :local systemTime [/system clock get value-name=time];
+    :local lcdMode [/lcd get color-scheme];
+
+    :local lightModeStart $lightModeStartTime;
+    :local darkModeStart $darkModeStartTime;
+
+    :if ($systemTime = $lightModeStart && $lcdMode = "dark") do={
+
+        /lcd set color-scheme=light;
+        /log info "..::Changed LCD mode to LIGHT::.."
+    
+    }
+    :if ($systemTime = $darkModeStart && $lcdMode = "light") do={
+
+        /lcd set color-scheme=light;
+        /log info "..::Changed LCD mode to DARK::.."
+
+    }
+}
+
+$ChangeLcd lightModeStartTime="08:00:00" darkModeStartTime="17:00:00";
\ No newline at end of file
diff --git a/RouterOS_Low_Disk_Space.rsc b/RouterOS_Low_Disk_Space.rsc
index e69de29..2483b03 100644
--- a/RouterOS_Low_Disk_Space.rsc
+++ b/RouterOS_Low_Disk_Space.rsc
@@ -0,0 +1,21 @@
+# RouterOS Function
+# Copyright (c) Grzegorz Budny 
+# Generates log alert when free disk space reach specified treshhold 
+
+:global LowDiskSpace do={
+
+    :local alertSpace $treshhold;
+    
+    :local freeSpace [/system resource get free-hdd-space];
+    :local totalSpace [/system resource get total-hdd-space];
+
+    :local diskUsage (($freeSpace * 100)/$totalSpace);
+
+    :if ($diskUsage < $treshhold) do={
+
+        /log warning ("Disk space reached ".$treshhold." % treshold. Free disk space is ".$diskUsage."%");
+
+    }
+}
+
+$LowDiskSpace treshhold=free_disk_space_in_%;
\ No newline at end of file