Changeset 36 for server/trunk/web/lib/Sophie/Model

Timestamp:

11/25/10 03:34:05 (14 years ago)

Author:

nanardon

Message:

• propery call fetchdata

command line parsing is done by the Model

File:

• server/trunk/web/lib/Sophie/Model/Chat.pm (modified) (2 diffs)

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

@@ -2 +2 @@
 use Moose;
 use namespace::autoclean;
+use Getopt::Long;
+use Text::ParseWords;
 
 extends 'Catalyst::Model';
@@ -31 +33 @@
     },
     t => {
-        code => sub { $_[0]->forward('/distrib/list') },
+        code => sub { 
+            my ($c, $context, @args) = @_;
+            local @ARGV = @args;
+            join(', ', @{ $_[0]->forward('/distrib/list', [ { 
+                distribution => $args[0],
+                release => $args[1],
+                arch => $args[2],
+                }, ]
+            ) });;
+        },
     },
 };
 
 sub process {
-    my ( $self, $c, $context, $cmd, @args) = @_;
+    my ( $self, $c, $context, $message) = @_;
 
-    warn keys %$context;
+    my ($cmd, @args) = Text::ParseWords::shellwords($message);
 
     my $msg;