publicWagsHome/KasmVNC
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vncserver: support Logger debug level

Browse Source
This commit is contained in:
Dmitry Maksyoma
2023-02-23 05:39:12 +13:00
parent a1cd656910
commit a1b138e5e1
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
unix/KasmVNC/Logger.pm
View File

@@ -8,9 +8,18 @@ use Data::Dumper;
sub new { sub new {
my ($class, $args) = @_; my ($class, $args) = @_;
my $self = bless { my $self = bless {
level => $args->{level} // "warn"
}, $class; }, $class;
} }
sub debug {
my $self = shift;
return unless ($self->{level} eq "debug");
say { *STDERR } @_;
}
sub warn { sub warn {
my $self = shift; my $self = shift;