| 1 |
brianr |
1.1 |
diff -urN smeserver-learn-1.0.old/root/usr/bin/Learn.pl smeserver-learn-1.0/root/usr/bin/Learn.pl |
| 2 |
|
|
--- smeserver-learn-1.0.old/root/usr/bin/Learn.pl 2020-12-24 07:29:04.051369987 +0000 |
| 3 |
|
|
+++ smeserver-learn-1.0/root/usr/bin/Learn.pl 2020-12-31 10:23:19.522872456 +0000 |
| 4 |
|
|
@@ -74,8 +74,8 @@ |
| 5 |
|
|
# verification if user included or excluded |
| 6 |
|
|
my @include= split(',',$sadb->get_prop("Learn", "Include")) if $sadb->get_prop("Learn", "Include"); |
| 7 |
|
|
my @exclude= split(',',$sadb->get_prop("Learn", "Exclude")) if $sadb->get_prop("Learn", "Exclude"); |
| 8 |
|
|
- next if ( defined @exclude and @found = grep { $_ eq $key } @exclude ); |
| 9 |
|
|
- next unless ( ! defined @include or @found = grep { $_ eq $key } @include ); |
| 10 |
|
|
+ next if ( (@exclude) and @found = grep { $_ eq $key } @exclude ); |
| 11 |
|
|
+ next unless ( ! (@include) or @found = grep { $_ eq $key } @include ); |
| 12 |
|
|
|
| 13 |
|
|
$currentuser = sprintf("Checking for user (%s): %s %s\n", $key,$firstname, $lastname); |
| 14 |
|
|
print $currentuser unless ($verbose eq "active"); |
Parent Directory
| 
Revision Log
| 
Revision Graph
