New -list-devices option

This will make it possible for the Debian package to fetch the list of
supported firewall/router devices and prompt the user to choose one
upon installation.
This commit is contained in:
Richard Hansen 2020-08-02 16:57:25 -04:00 committed by Sandro Jäckel
parent 0ea681645b
commit 251b167d41
No known key found for this signature in database
GPG key ID: 3AF5A43A3EECC2E5

View file

@ -884,6 +884,10 @@ my %opt = ();
my $deprecated_handler = sub { warning("'-$_[0]' is deprecated and does nothing"); };
$opt{'fw-banlocal'} = $deprecated_handler;
$opt{'if-skip'} = $deprecated_handler;
$opt{'list-devices'} = sub {
printf("%s %s\n", $_, $builtinfw{$_}{name}) for sort(keys(%builtinfw));
exit(0);
};
$opt{'list-protocols'} = sub {
printf("%s\n", $_) for sort(keys(%services));
exit(0);
@ -941,6 +945,7 @@ my @opt = (
["fwv6-skip", "=s", "-fwv6-skip <pattern> : skip any IP addresses before <pattern> in the text returned from the device"],
["fw-login", "=s", "-fw-login <login> : use <login> when getting the IP from the device"],
["fw-password", "=s", "-fw-password <secret> : use password <secret> when getting the IP from the device"],
["list-devices", "", "-list-devices : print a machine-readable list of supported firewall/router devices and exit. Format: one device per line, each line has the form '<device> <description>'"],
"",
" Options that apply to 'use=cmd':",
["cmd", "=s", "-cmd <command> : deprecated, use 'cmdv4' or 'cmdv6'"],