20 lines
433 B
Perl
20 lines
433 B
Perl
|
#!/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";
|