vtysh/daemons.pl

   1 #!/usr/bin/perl
   2 # SPDX-License-Identifier: GPL-2.0-or-later
   3 ##
   4 ## generate daemons list and help strings
   5 ##
   6 ## Copyright (C) 2020 NFWare Inc.
   7
   8 use strict;
   9
  10 my @daemons_list = ();
  11 my @daemons_str = ();
  12
  13 foreach (@ARGV) {
  14         push (@daemons_list, $_);
  15         push (@daemons_str, "For the $_ daemon\\n");
  16 }
  17
  18 print "#define DAEMONS_LIST \"<" . join('|', @daemons_list) . ">\"\n";
  19 print "#define DAEMONS_STR \"" . join('', @daemons_str) . "\"\n";