Changeset 2606

Timestamp:

04/06/24 18:08:56 (3 weeks ago)

Author:

nanardon

Message:

Ignore comment in ssh key update from filter

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -406 +406 @@
                 my $ouser = $self->get_object('user', $user) or next;
                 my $rawold = $ouser->_get_c_field('authorizedKeys');
-                my @old = sort grep { defined $_ } ( ref $rawold ? @{ $rawold } : ( $rawold ) );
+                my @old = sort grep { ! /^#/ } grep { defined $_ } ( ref $rawold ? @{ $rawold } : ( $rawold ) );
                 my $rawnew = $ouser->_get_c_field('_authorizedKeys');
-                my @new = sort grep { defined $_ } ( ref $rawnew ? @{ $rawnew } : ( $rawnew ) );
+                my @new = sort grep { ! /^#/ } grep { defined $_ } ( ref $rawnew ? @{ $rawnew } : ( $rawnew ) );
                 if ( join( "\n", @old ) ne join( "\n", @new ) ) {
                     $self->log(LA_INFO, "Updating authorizedKeys from filter for user $user" );