rt/html/REST/1.0/Forms/ticket/attachments

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# END BPS TAGGED BLOCK }}}
  46 %# REST/1.0/Forms/ticket/attachments
  47 %#
  48 <%ARGS>
  49 $id
  50 $args => undef
  51 </%ARGS>
  52 <%perl>
  53 my @data;
  54 my ($c, $o, $k, $e) = ("", [], {}, "");
  55 my $ticket = new RT::Ticket $session{CurrentUser};
  56
  57 $ticket->Load($id);
  58 unless ($ticket->Id) {
  59     return [ "# Ticket $id does not exist.", [], {}, 1 ];
  60 }
  61
  62 my @arglist = split('/', $args);
  63 my ($aid, $content);
  64
  65 if ($arglist[1] eq 'content') {
  66     $aid = $arglist[0];
  67     $content = 1;
  68 } else {
  69     $aid = $args;
  70     $content = 0;
  71 }
  72
  73 if ($aid) {
  74     unless ($aid =~ /^\d+$/) {
  75         return [ "# Invalid attachment id: $aid", [], {}, 1 ];
  76     }
  77     my $attachment = new RT::Attachment $session{CurrentUser};
  78     $attachment->Load($aid);
  79     unless ($attachment->Id eq $aid) {
  80         return [ "# Invalid attachment id: $aid", [], {}, 1 ];
  81     }
  82     if ($content) {
  83         $c = $attachment->OriginalContent;
  84     } else {
  85         my @data;
  86         push @data, [ id    => $attachment->Id   ];
  87         push @data, [ Subject    => $attachment->Subject   ];
  88         push @data, [ Creator    => $attachment->Creator   ];
  89         push @data, [ Created    => $attachment->Created   ];
  90         push @data, [ Transaction    => $attachment->TransactionId   ];
  91         push @data, [ Parent    => $attachment->Parent   ];
  92         push @data, [ MessageId    => $attachment->MessageId   ];
  93         push @data, [ Filename    => $attachment->Filename   ];
  94         push @data, [ ContentType    => $attachment->ContentType   ];
  95         push @data, [ ContentEncoding    => $attachment->ContentEncoding   ];
  96         push @data, [ Headers    => $attachment->Headers   ];
  97         push @data, [ Content    => $attachment->Content   ];
  98
  99         my %k = map {@$_} @data;
 100         $o = [ map {$_->[0]} @data ];
 101         $k = \%k;
 102     }
 103
 104 }
 105 else {
 106     my @attachments;
 107     my $transactions = $ticket->Transactions;
 108     while (my $t = $transactions->Next) {
 109         my $attachments = $t->Attachments;
 110         while (my $a = $attachments->Next) {
 111             my $size = length($a->Content);
 112             if ($size > 1024) { $size  = int($size/102.4)/10 . "k" }
 113             else              { $size .= "b" }
 114             push @attachments, $a->Id.": ".$a->Filename." (".$a->ContentType . " / ".$size.")";
 115         }
 116     }
 117
 118     if (@attachments) {
 119         $o = [ "id", "Attachments" ];
 120         $k = {
 121             id => "ticket/".$ticket->Id."/attachments",
 122             Attachments => \@attachments
 123         };
 124     }
 125 }
 126
 127 return [ $c, $o, $k, $e ];
 128 </%perl>