Changeset 245


Ignore:
Timestamp:
12/30/10 20:05:46 (13 years ago)
Author:
nanardon
Message:
  • delete old paste (when new one is request)
  • paste title is the command line
Location:
server/trunk/web
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r238 r245  
    118118        my @char = ('a' .. 'z', 'A' .. 'Z', 0 .. 9); 
    119119        my $id = join('', map { $char[rand(@char)] } (0..7)); 
     120        $c->model('Base::ChatPaste')->search({ 
     121            -nest => \[ 
     122                "whenpaste < now() - ?::interval", 
     123                [ plain_text => "30 days" ], 
     124            ] 
     125        })->delete; 
    120126        $c->model('Base::ChatPaste')->create( 
    121127            { 

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

    r240 r245  
    4747 
    4848    if ($needpaste && !$reqspec->{nopaste}) { 
    49         my $id = $c->forward('/chat/paste', [ 'Bot paste', join("\n", @backup) ]); 
     49        my $cmd = ($c->action =~ /([^\/]+)$/)[0]; 
     50        my (undef, undef, @args) = @{ $c->req->arguments }; 
     51        my $title = join(' ', $cmd, @args);  
     52        my $id = $c->forward('/chat/paste', [ $title, join("\n", @backup) ]); 
    5053        if ($id) { 
    5154            push(@{ $message->{message} }, 'All results available here: ' . $c->uri_for('/chat', $id)); 

  • server/trunk/web/root/templates/html/chat/viewpaste.tt

    r109 r245  
    11<!-- $Id$ --> 
    22 
    3 <p>[% xmlrpc.title %]</p> 
     3<p>[% xmlrpc.title %] (the [% xmlrpc.whenpaste %])</p> 
    44 
    55<pre class="filedata"> 
Note: See TracChangeset for help on using the changeset viewer.