vtysh/daemons.pl

   1 #!/usr/bin/perl
   2 ##
   3 ## generate daemons list and help strings
   4 ##
   5 ## Copyright (C) 2020 NFWare Inc.
   6 ##
   7 ## This file is part of FRR.
   8 ##
   9 ## FRR is free software; you can redistribute it and/or modify it
  10 ## under the terms of the GNU General Public License as published by the
  11 ## Free Software Foundation; either version 2, or (at your option) any
  12 ## later version.
  13 ##
  14 ## FRR is distributed in the hope that it will be useful, but
  15 ## WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 ## General Public License for more details.
  18 ##
  19 ## You should have received a copy of the GNU General Public License
  20 ## along with FRR; see the file COPYING; if not, write to the Free
  21 ## Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
  22 ## 02110-1301, USA.
  23 ##
  24
  25 use strict;
  26
  27 my @daemons_list = ();
  28 my @daemons_str = ();
  29
  30 foreach (@ARGV) {
  31         push (@daemons_list, $_);
  32         push (@daemons_str, "For the $_ daemon\\n");
  33 }
  34
  35 print "#define DAEMONS_LIST \"<" . join('|', @daemons_list) . ">\"\n";
  36 print "#define DAEMONS_STR \"" . join('', @daemons_str) . "\"\n";