Changeset 379

Timestamp:

09/29/11 17:33:35 (13 years ago)

Author:

nanardon

Message:

• add set and show bot function, server side

Location:

server/trunk/web/lib/Sophie/Controller

Files:

• Chat.pm (modified) (1 diff)
• Chat/Cmd.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Controller/Chat.pm

@@ -91 +91 @@
     }
 
+    if (! ref($contexts[-1])) {
+        $reqspec->{from} = $contexts[-1];
+    }
+
     my ($cmd, @args) = @msgargs
         ? ($message, @msgargs)

server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm

@@ -172 +172 @@
 }
 
+=head2 set [distribution|release|arch] value
+
+Set default search value
+
+=cut
+
+sub set : XMLRPC {
+    my ( $self, $c, $reqspec, $var, $val ) = @_;
+
+    $c->forward('/user/update_data', [ $reqspec->{from}, { $var => $val } ]);
+    
+    return $c->stash->{xmlrpc} = {
+        private_reply => 1,
+        message => [ "$var set to: " . ($val || '(none)') ],
+    };
+}
+
+=head2 show [var]
+
+Show your user settings
+
+=cut
+
+sub show : XMLRPC {
+    my ( $self, $c, $reqspec, $var, ) = @_;
+
+    my $res = $c->forward('/user/fetchdata', [ $reqspec->{from}, ]);
+    
+    if ($var) {
+        my $own = $res->{$var} || '(none)';
+        my $applied = $reqspec->{$var} || '(none)';
+        return $c->stash->{xmlrpc} = {
+            message => [ sprintf("%s is set to %s%s",
+                $var,
+                $own,
+                ($own ne $applied
+                    ? " ($applied is used in this context)"
+                    : '')
+            ) ]
+        };
+    } else {
+        warn my $own = $c->forward('_fmt_question', [$res]);
+        warn my $applied = $c->forward('_fmt_question', [$reqspec]);
+        return $c->stash->{xmlrpc} = {
+            message => [ sprintf('your setting is: %s%s',
+                $own,
+                ($own ne $applied
+                    ? " ($applied is used in this context)"
+                    : ''
+                )
+            ) ],
+        }
+    }
+}
+
 =head2 asv
 
@@ -374 +429 @@
     }
     return $c->stash->{xmlrpc} = {
-        message => \@message,
+        private_reply => 1,
+        message => [ @message ],
     }
 }