Changeset 100

Timestamp:

12/09/10 06:08:08 (13 years ago)

Author:

nanardon

Message:

• add web page to view paste from the bot
• add first function

Location:

server/trunk/web/lib/Sophie

Files:

• Base/Result/ChatPaste.pm (added)
• Controller/Chat.pm (modified) (2 diffs)
• Controller/Chat/Cmd.pm (modified) (4 diffs)

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

@@ -28 +28 @@
 
 
+}
+
+sub viewpaste :Path :Args(1) {
+    my ($self, $c, $pasteid) = @_;
+
+    $c->forward('get_paste', [ $pasteid ]);
+    if (! $c->stash->{xmlrpc}) {
+        $c->go('/404/index');
+    }
 }
 
@@ -72 +81 @@
 }
 
+sub paste : XMLRPCLocal {
+    my ($self, $c, $title, $text) = @_;
+
+    my @char = ('a' .. 'z', 'A' .. 'Z', 0 .. 9);
+    my $id = join('', map { $char[rand(@char)] } (0..7));
+    $c->model('Base::ChatPaste')->create(
+        {
+            id => $id,
+            user_id => $c->model('Base::Users')->find(
+                { mail => $c->user->mail })->ukey,
+            title => $title,
+            reply => $text,
+        }
+    );
+    $c->model('Base')->storage->dbh->commit;
+    $c->stash->{xmlrpc} = $id;
+}
+
+sub get_paste : XMLRPCLocal {
+    my ($self, $c, $id) = @_;
+
+    my $paste = $c->model('Base::ChatPaste')->find(
+            { id => $id, },
+            { select => [ qw(whenpaste title reply) ], }
+        );
+    if ($paste) {
+        return $c->stash->{xmlrpc} = { $paste->get_columns };
+    } else {
+        return $c->stash->{xmlrpc} = undef;
+    }
+}
+
 =head1 AUTHOR
 

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

@@ -2 +2 @@
 use Moose;
 use namespace::autoclean;
+use Getopt::Long;
 
 BEGIN {extends 'Catalyst::Controller'; }
@@ -33 +34 @@
 }
 
+sub _getopt : Private {
+    my ( $self, $c, $options, @args) = @_;
+
+    local @ARGV = @args;
+
+    GetOptions(%{ $options || {} });
+
+    return \@ARGV;
+}
+
+
+
+
 sub help : XMLRPC {
     my ( $self, $c, $reqspec, @args ) = @_;
     return $c->{stash}->{xmlrpc} = {
+        private_reply => 1,
         message => [
             'availlable command:',
@@ -42 +57 @@
     }
 }
-
 
 sub asv : XMLRPC {
@@ -51 +65 @@
 }
 
+sub version : XMLRPC {
+    my ($self, $c, $reqspec, @args) = @_;
+
+    my @message;
+    $reqspec->{src} = 0;
+
+    @args = @{ $c->forward('_getopt', [
+        {
+            'd=s' => \$reqspec->{distribution},
+            'v=s' => \$reqspec->{release},
+            'a=s' => \$reqspec->{arch},
+            's'   => sub { $reqspec->{src} = 1 },
+        }, @args ]) };
+
+    my $rpmlist = $c->forward('/search/byname', [ $reqspec, $args[0] ]);
+    foreach (@{ $rpmlist->{results} }) {
+        my $info = $c->forward('/rpms/basicinfo', [ $_ ]);
+        push @message, $info->{evr};
+    }
+    return $c->stash->{xmlrpc} = {
+        message => \@message,
+    }
+}
+
 sub end : Private {
     my ($self, $c ) = @_;
     my $reqspec = $c->req->arguments->[0];
+    $reqspec->{max_line} ||= 4;
+    my $message =  $c->stash->{xmlrpc};
+
+    my @backup = @{ $message->{message} };
+    my $needpaste = 0;
+
+    if (@{ $message->{message} } > ($reqspec->{max_line})) {
+        @{ $message->{message} } = 
+            # -2 because line 0 and we remove one for paste url
+            @backup[0 .. $reqspec->{max_line} -2];
+        $needpaste = 1;
+    } 
+
+    if ($needpaste) {
+        my $id = $c->forward('/chat/paste', [ 'Bot paste', join("\n", @backup) ]);
+        push(@{ $message->{message} }, $c->uri_for('/chat', $id));
+    }
+
+    $c->stash->{xmlrpc} = $message;
 
     $c->forward('/end');