Changeset 24610 for trunk/console/lib/Console.pm

Timestamp:

Jun 26, 2009, 3:28:02 PM (17 years ago)

Author:

jhoblitt

Message:

fwv of console-config

File:

• trunk/console/lib/Console.pm (modified) (3 diffs)

trunk/console/lib/Console.pm

@@ -8 +8 @@
 
 use Config::YAML;
+use Params::Validate qw(:all);
+
 
 sub find_rcfile
 {
+    validate_pos(@_);
+
     my $rcname = "." . __PACKAGE__ . "rc";
     my $rcfile;
@@ -25 +29 @@
 sub read_rcfile
 {
+    validate_pos(@_, 1);
+
     my $rcfile = shift;
 
@@ -40 +46 @@
 }
 
+sub add_host
+{
+    my %p = validate(@_,
+        {
+            config      => { isa => 'Config::YAML', },
+            hostname    => { type => SCALAR, },
+            console     => { type => SCALAR, },
+         },
+    );
+
+    my $c = $p{config};
+
+    my $hosts = $c->get_hosts;
+    $hosts->{$p{hostname}} = { console => $p{console} };
+    $c->set_hosts($hosts);
+    $c->write;
+
+    return 1;
+}
+
+sub delete_host
+{
+    my %p = validate(@_,
+        {
+            config      => { isa => 'Config::YAML', },
+            hostname    => { type => SCALAR, },
+         },
+    );
+
+    my $c = $p{config};
+
+    my $hosts = $c->get_hosts;
+    delete $hosts->{$p{hostname}};
+    $c->set_hosts($hosts);
+    $c->write;
+
+    return 1;
+}
+
 
 1;