Changeset 2424

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.

Location:

trunk

Files:

• LATMOS-Accounts-Web/root/html/nethosts/default.tt (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (2 diffs)
• LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm (modified) (3 diffs)

trunk/LATMOS-Accounts-Web/root/html/nethosts/default.tt

@@ -12 +12 @@
 
 <table border=1>
+[% IF (support = nethost.get_attributes('support')) %]
+[% osupport = c.model('Accounts').db.get_object('support', support) %]
+<tr><th>
+Support
+</th></tr>
+<tr><td>
+l('Support Name'): [% osupport.id | html %]<br>
+</td></tr>
+[% END %]
+
 [% IF c.model('Accounts').db.check_acl('netzone', 'name', 'r') %]
 <tr><th>Zone de cette hÃŽte</th></tr>

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() ) {

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

@@ -61 +61 @@
     my $OUT = \*STDOUT;
 
-    $term->ReadHistory( _historyFile() );
-
     return $class->$orig( Out => $OUT, Term => $term, @_ );
 
@@ -87 +85 @@
         $self->Preferences( YAML::LoadFile( _preferenceFile() ) );
     }
+    
+    $self->ApplySetting();
 }
 
@@ -93 +93 @@
 
     YAML::DumpFile( _preferenceFile(), $self->Preferences() );
+}
+
+sub DefaultSetting {
+    my ( $self, $setting ) = @_;
+
+    my $defaults = {
+        'historysize' => 1000,
+    };
+    if ($setting) {
+        return $defaults->{ $setting };
+    } else {
+        return sort keys %{ $defaults };
+    }
+}
+
+sub ApplySetting {
+    my ( $self ) = @_;
+
+    $self->Term->StifleHistory( $self->Setting('historysize') );
+}
+
+sub Setting {
+    my ( $self, $setting, $value ) = @_;
+
+    my $oldvalue = defined($self->Preferences->{settings}{ $setting })
+        ? $self->Preferences->{settings}{ $setting } : $self->DefaultSetting( $setting );
+
+    if (defined($value)) {
+        if ($value eq 'default') {
+            delete($self->Preferences->{settings}{ $setting });
+        } else {
+            $self->Preferences->{settings}{ $setting } = $value;
+        }
+
+        $self->ApplySetting();
+    }
+
+    return ($oldvalue);
 }