[Haver-commits] r205 - trunk/haver-gtk/bin

[haver]

Author: dylan
Date: 2004-05-30 21:24:40 -0400 (Sun, 30 May 2004)
New Revision: 205

Modified:
   trunk/haver-gtk/bin/haver-gtk.pl
Log:
Aliases are now saved to the config file.
However, the config file isn't being saved...
So I added a /save command.



Modified: trunk/haver-gtk/bin/haver-gtk.pl
===================================================================
--- trunk/haver-gtk/bin/haver-gtk.pl    2004-05-30 22:06:04 UTC (rev 204)
+++ trunk/haver-gtk/bin/haver-gtk.pl    2004-05-31 01:24:40 UTC (rev 205)
@@ -86,13 +86,16 @@
        $globals{config} = $config = Haver::Config->new(
                file => "$confdir/config",
                default => {
-                       UID => $ENV{USER} || '',
+                       UID => lc $user,
                        Address => 'hardison.net:7070',
+                       Alias => {},
                },
        );
 };
 
-my $cmd = new Haver::Client::Command::Callback;
+my $cmd = new Haver::Client::Command::Callback (
+       alias => $config->{Alias},
+);
 
 
 
@@ -231,7 +234,13 @@
                handler => sub {
                        $cmd->unalias($_[0]);
                },
-       );      
+       );
+       $cmd->register('save',
+               handler => sub {
+                       # FIXME; make this display something.
+                       $config->save;
+               },
+       );
 }
 
 sub input {