Changeset 152

Timestamp:

12/20/10 18:58:27 (13 years ago)

Author:

nanardon

Message:

• manage end-user config

Location:

client/trunk/lib/Sophie

Files:

• Client.pm (modified) (2 diffs)
• Client/IRC.pm (modified) (1 diff)
• Client/Term.pm (modified) (2 diffs)

client/trunk/lib/Sophie/Client.pm

@@ -63 +63 @@
     my ($self, $varname, $data) = @_;
 
-    my $resp = $self->send_request('user.updatedata', $varname, $data);
+    my $resp = $self->send_request('user.update_data', $varname, $data);
     if (ref $resp) {
         return 1;
@@ -75 +75 @@
 
     $self->login;
-    $self->submit_query($heap, $context, $message);
+    if ($message =~ /^\s*set\s+(\w+)\s+(\S+)/) {
+        warn "$1, $2";
+        $self->user_config($heap, $1, $2);
+    } else {
+        $self->submit_query($heap, $context, $message);
+    }
 }
 

client/trunk/lib/Sophie/Client/IRC.pm

@@ -129 +129 @@
     }
 
+}
+
+sub user_config {
+    my ($self, $heap, $var, $value) = @_;
+
+    $self->set_var($heap->{heap}{server} . '@' . $heap->{from},
+        { $var => $value });
 }
 

client/trunk/lib/Sophie/Client/Term.pm

@@ -21 +21 @@
 }
 
+sub user_config {
+    my ($self, $heap, $var, $value) = @_;
+
+    $self->set_var('client', { $var => $value });
+}
+
 sub run {
     my ($self) = @_;
@@ -33 +39 @@
             return;
         };
-        $self->handle_message(undef, undef, $line);
+        $self->handle_message(undef, [ 'client' ], $line);
         $term->addhistory($line);
     }