Initialer Import der Synology Scripts

2026-08-05 08:43:57 +02:00
commit 5e32a7c411
404 changed files with 79932 additions and 0 deletions
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+# Author: William Lam
+# Website: www.williamlam.com
+# Reference: http://www.williamlam.com/2010/09/how-to-add-splash-of-color-to-esxi-dcui.html
+
+#example inputfile
+#
+#bgcolor:yellow
+#color:black
+#        {esxproduct} {esxversion}
+#        =space=
+#        Hostname: {hostname}
+#        Service Tag: {servicetag}
+#        =space=
+#bgcolor:dark-grey
+#color:white
+#        Primp Industries
+#        www.williamlam.com
+#        =space=
+#color:end
+
+use strict;
+use warnings;
+
+my @lines = ();
+my $output="welcome";
+
+@ARGV == 1 or
+        die("Script requires DCUI variable input file\n");
+
+&processConfigurationFile($ARGV[0]);
+
+open(WELCOME_OUTPUT, ">$output");
+
+foreach(@lines) {
+        if($_ =~ m/=space=/) {
+                print WELCOME_OUTPUT "\t"x9 . "\n";
+        } elsif($_ =~ m/color:/) {
+                my ($colortype,$color) = split(':',$_,2);
+                if($color ne "end") {
+                        print WELCOME_OUTPUT "{" . $colortype . ":" . $color . "}" .  "\t"x9 . "\n";
+                } else {
+                        print WELCOME_OUTPUT "{/color}" .  "\t"x9 . "\n";
+                }
+        } else {
+                print WELCOME_OUTPUT "\t" . $_ . "\t"x9 . "\n";
+        }
+}
+
+close(WELCOME_OUTPUT);
+
+# Subroutine to process the input file
+sub processConfigurationFile {
+        my ($local_conf) = @_;
+        my $CONF_HANDLE;
+
+        open(CONF_HANDLE, "$local_conf") || die "Couldn't open file \"$local_conf\"!\n";
+        while (<CONF_HANDLE>) {
+                chomp;
+                s/#.*//; # Remove comments
+                s/^\s+//; # Remove opening whitespace
+                s/\s+$//;  # Remove closing whitespace
+                next unless length;
+
+                push @lines,$_;
+        }
+        close(CONF_HANDLE);
+}