extern/KasmVNC
1
0
Fork 0
mirror of https://github.com/kasmtech/KasmVNC.git synced 2025-01-07 14:39:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

vncserver: CLI optional option arg support (-select-de=[DE])

Browse Source
This commit is contained in:
Dmitry Maksyoma 2021-08-20 22:33:34 +12:00
parent 36ffbe1572
commit 551f292144
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
unix/vncserver
View File

@ -27,6 +27,13 @@
use v5.10; use v5.10;
use Time::HiRes qw (sleep); use Time::HiRes qw (sleep);
use Switch;
use constant {
NO_ARG_VALUE => 0,
REQUIRED_ARG_VALUE => 1,
OPTIONAL_ARG_VALUE => 2
};
&CheckWeCanRunInThisEnvironment(); &CheckWeCanRunInThisEnvironment();
@ -419,16 +426,33 @@ sub ParseOptionsAndRemoveMatchesFromARGV
foreach $opt (@opts) { foreach $opt (@opts) {
if ($arg eq $opt) { if ($arg eq $opt) {
push(@optArgs, $arg); push(@optArgs, $arg);
if ($valFollows{$opt}) { switch($valFollows{$opt}) {
if (@ARGV == 0) { case NO_ARG_VALUE {
&Usage(); $opt{$opt} = 1;
next arg;
}
case REQUIRED_ARG_VALUE {
if (@ARGV == 0) {
&Usage();
}
$opt{$opt} = shift(@ARGV);
push(@optArgs, $opt{$opt});
next arg;
}
case OPTIONAL_ARG_VALUE {
if (scalar @ARGV == 0 || $ARGV[0] =~ /^-/) {
$opt{$opt} = 1;
next arg;
}
$opt{$opt} = shift(@ARGV);
push(@optArgs, $opt{$opt});
next arg;
} }
$opt{$opt} = shift(@ARGV);
push(@optArgs, $opt{$opt});
} else {
$opt{$opt} = 1;
} }
next arg;
} }
} }
push(@newargs,$arg); push(@newargs,$arg);