Changeset 2424 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

Timestamp:

06/26/20 10:04:24 (4 years ago)

Author:

nanardon

Message:

Add setting command to la-cli

By the way this patch add a limit to history.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (2 diffs)

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

@@ -249 +249 @@
     }
 
+=head3 setting
+
+    Set la-cli settings
+
+    setting: list settings
+    setting PARAM: show this settings
+    setting PARAM VALUE:  set the setting to this value
+    setting PARAM default: back setting to default
+
+=cut
+
+    $self->add_func( 'setting',
+        {
+            code => sub {
+                my ( $self, $setting, $value ) = @_;
+                if (! $setting ) {
+                    foreach $setting ( $self->Context->DefaultSetting() ) {
+                        $self->printf("%s (def %s): %s\n", $setting, $self->Context->DefaultSetting( $setting ), $self->Context->Setting( $setting ) );
+                    }
+                } elsif ( $setting ) {
+                    if (!defined( $self->Context->DefaultSetting( $setting ) ) ) {
+                        $self->printf("unknown setting $setting\n");
+                        return;
+                    }
+                    $self->printf("%s (def %s): %s\n", $setting, $self->Context->DefaultSetting( $setting ), $self->Context->Setting( $setting ) );
+                } elsif ($value) {
+                    my $default = $self->Context->DefaultSetting( $setting );
+                    if (!defined( $default ) ) {
+                        $self->printf("unknown setting $setting\n");
+                        return;
+                    }
+                    $self->printf(
+                        "%s (def %s): %s => %s\n",
+                        $setting,
+                        $self->Context->DefaultSetting( $setting ),
+                        $self->Context->Setting( $setting, $value ),
+                        $value,
+                    );
+                }
+            },
+            completion => sub {
+                my ($self, undef, $setting, $value) = @_;
+                if ( ! $setting ) {
+                    return $self->Context->DefaultSetting();
+                }
+            },
+        }
+    );
+
 =head3 collection
 
@@ -640 +689 @@
     my ( $self ) = @_;
 
+    $self->Context->ReadPreferences();
     $self->Context->ReadHistory();
-    $self->Context->ReadPreferences();
     $self->cli();
     if (! $self->Context->WriteHistory() ) {