Adding upstream version 9.1.upstream/9.1

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 19 insertions, 0 deletions

diff --git a/vtysh/daemons.pl b/vtysh/daemons.pl
new file mode 100755
index 0000000..c75bae0
--- /dev/null
+++ b/vtysh/daemons.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+# SPDX-License-Identifier: GPL-2.0-or-later
+##
+## generate daemons list and help strings
+##
+## Copyright (C) 2020 NFWare Inc.
+
+use strict;
+
+my @daemons_list = ();
+my @daemons_str = ();
+
+foreach (@ARGV) {
+	push (@daemons_list, $_);
+	push (@daemons_str, "For the $_ daemon\\n");
+}
+
+print "#define DAEMONS_LIST \"<" . join('|', @daemons_list) . ">\"\n";
+print "#define DAEMONS_STR \"" . join('', @daemons_str) . "\"\n";