andre/scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Perl_tinyca/CA.pm aktualisiert

Browse Source
This commit is contained in:
andre
2025-01-22 11:48:08 +01:00
parent 03fa303787
commit 88f55d9c57
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Perl_tinyca/CA.pm
View File

@@ -52,6 +52,8 @@ sub new {
next if $ca eq "."; next if $ca eq ".";
next if $ca eq ".."; next if $ca eq "..";
next if $ca eq "tmp"; next if $ca eq "tmp";
### ArG 12.09.2023
if ( $ca eq "CONET_CA2" and $ENV{'TERM'} =~ /^screen/ ) { next; }
my $dir = $self->{'init'}->{'basedir'}."/".$ca; my $dir = $self->{'init'}->{'basedir'}."/".$ca;
next unless -d $dir; next unless -d $dir;