Changeset 2446

Timestamp:

10/13/20 13:42:23 (4 years ago)

Author:

nanardon

Message:

Add la-cli sed(), Fill Changes

Location:

trunk/LATMOS-Accounts

Files:

• Changes (modified) (1 diff)
• lib/LATMOS/Accounts/Cli/Object.pm (modified) (1 diff)

trunk/LATMOS-Accounts/Changes

@@ -1 @@
-6.1.2.1
+6.1.3
     - Fix attribute constraint check during synchronisation
+    - la-cli: add sed function to change attribute using perl regular expression
+    - strip ' and " when building mail address
+    - clearly flag changes done by background process
 
 6.1.2

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

@@ -377 +377 @@
                     $env->{_objects}[0]->get_attributes($args[0]);
                 }
+            }
+        },
+    });
+    $self->add_func('sed', {
+        help => 'Apply regular expression on curent attribute',
+        code => sub {
+            my ($env, $attr, $reg) = @_;
+            $reg or do {
+                $self->print( "attribute and value must be specified\n" );
+                return;
+            };
+            foreach (@{$env->{_objects}}) {
+                my @newvalues;
+                my $Change = 0;
+                foreach my $val ($_->get_attributes($attr)) {
+                    my $nval = $val;
+                    eval "\$nval =~ $reg;";
+                    if ($@) {
+                        $self->print("$@No change done\n");
+                        $env->rollback;
+                        return;
+                    }
+                    if ($val ne $nval) {
+                        $self->printf("%s: %s => %s\n", $_->id, $val, $nval);
+                        $Change ++;
+                    }
+                    push(@newvalues, $nval) if($nval);
+                }
+                if ( $Change ) {
+                    defined $_->set_c_fields($attr => @newvalues <= 1 ? $newvalues[0] : \@newvalues) or do {
+                        $_->base->rollback;
+                        $self->printf ("Cannot set $attr to %s for %s\n", join(', ', @newvalues), $_->id);
+                        return;
+                    };
+                } else {
+                    $self->printf("No change for %s\n", $_->id);
+                }
+            }
+            $env->commit;
+            $self->print( "Done.\n" );
+        },
+        completion => sub {
+            my ($env, $lastw, @args) = @_;
+            if (!$args[0]) {
+                return $env->base->list_canonical_fields($env->{_otype}, 'w')
             }
         },