rt/html/REST/1.0/Forms/queue/default

   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/queue/default
  47 %#
  48 <%ARGS>
  49 $id
  50 $format => 's'
  51 $changes => {}
  52 </%ARGS>
  53 <%perl>
  54 my @comments;
  55 my ($c, $o, $k, $e) = ("", [], {}, 0);
  56 my %data = %$changes;
  57 my $queue = new RT::Queue $session{CurrentUser};
  58 my @fields = qw(Name Description CorrespondAddress CommentAddress
  59                 InitialPriority FinalPriority DefaultDueIn);
  60 my %fields = map { lc $_ => $_ } @fields;
  61
  62 if ($id ne 'new') {
  63     $queue->Load($id);
  64     if (!$queue->Id) {
  65         return [ "# Queue $id does not exist.", [], {}, 1 ];
  66     }
  67 }
  68 else {
  69     if (%data == 0) {
  70         return [
  71             "# Required: Name",
  72             [ "id", @fields ],
  73             {
  74                 id => 'queue/new',
  75                 Name => '<queue name>',
  76                 Description => "",
  77                 CommentAddress => "",
  78                 CorrespondAddress => "",
  79                 InitialPriority => "",
  80                 FinalPriority => "",
  81                 DefaultDueIn => "",
  82             },
  83             0
  84         ];
  85     }
  86     else {
  87         my %v;
  88         my %create = %fields;
  89
  90         foreach my $k (keys %data) {
  91             if (exists $create{lc $k}) {
  92                 $v{$create{lc $k}} = delete $data{$k};
  93             }
  94         }
  95
  96         if ($v{Name} eq '<queue name>') {
  97             my %o = keys %$changes;
  98             delete @o{"id", @fields};
  99             return [
 100                 "# Please set the queue name.",
 101                 [ "id", @fields, keys %o ], $changes, 1
 102             ];
 103         }
 104
 105         $queue->Create(%v);
 106         unless ($queue->Id) {
 107             return [ "# Could not create queue.", [], {}, 1 ];
 108         }
 109
 110         delete $data{id};
 111         $id = $queue->Id;
 112         push(@comments, "# Queue $id created.");
 113         goto DONE if %data == 0;
 114     }
 115 }
 116
 117 if (%data == 0) {
 118     my @data;
 119
 120     push @data, [ id => "queue/".$queue->Id ];
 121     foreach my $key (@fields) {
 122         push @data, [ $key => $queue->$key ];
 123     }
 124
 125     my %k = map {@$_} @data;
 126     $o = [ map {$_->[0]} @data ];
 127     $k = \%k;
 128 }
 129 else {
 130     my ($get, $set, $key, $val, $n, $s);
 131
 132     foreach $key (keys %data) {
 133         $val = $data{$key};
 134         $key = lc $key;
 135         $n = 1;
 136
 137         if (exists $fields{$key}) {
 138             $key = $fields{$key};
 139             $set = "Set$key";
 140
 141             next if $val eq $queue->$key;
 142             ($n, $s) = $queue->$set($val);
 143         }
 144         elsif ($key ne 'id') {
 145             $n = 0;
 146             $s = "Unknown field.";
 147         }
 148
 149     SET:
 150         if ($n == 0) {
 151             $e = 1;
 152             push @comments, "# $key: $s";
 153             unless (@$o) {
 154                 my %o = keys %$changes;
 155                 delete @o{"id", @fields};
 156                 @$o = ("id", @fields, keys %o);
 157                 $k = $changes;
 158             }
 159         }
 160     }
 161
 162     push(@comments, "# Queue $id updated.") unless $n == 0;
 163 }
 164
 165 DONE:
 166 $c ||= join("\n", @comments) if @comments;
 167 return [ $c, $o, $k, $e ];
 168 </%perl>