%# BEGIN BPS TAGGED BLOCK {{{ %# %# COPYRIGHT: %# %# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) %# %# %# LICENSE: %# %# This work is made available to you under the terms of Version 2 of %# the GNU General Public License. A copy of that license should have %# been provided with this software, but in any event can be snarfed %# from www.gnu.org. %# %# This work is distributed in the hope that it will be useful, but %# WITHOUT ANY WARRANTY; without even the implied warranty of %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU %# General Public License for more details. %# %# You should have received a copy of the GNU General Public License %# along with this program; if not, write to the Free Software %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA %# 02110-1301 or visit their web page on the internet at %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. %# %# %# CONTRIBUTION SUBMISSION POLICY: %# %# (The following paragraph is not intended to limit the rights granted %# to you to modify and distribute this software under the terms of %# the GNU General Public License and is only of importance to you if %# you choose to contribute your changes and enhancements to the %# community by submitting them to Best Practical Solutions, LLC.) %# %# By intentionally submitting any modifications, corrections or %# derivatives to this work, or any other work intended for use with %# Request Tracker, to Best Practical Solutions, LLC, you confirm that %# you are the copyright holder for those contributions and you grant %# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, %# royalty-free, perpetual, license to use, copy, create derivative %# works based on those contributions, and sublicense and distribute %# those contributions and any derivatives thereof. %# %# END BPS TAGGED BLOCK }}} %# REST/1.0/Forms/queue/default %# <%ARGS> $id $format => 's' $fields => undef # these are the fields passed to the rt "-f" flag. $changes => {} <%perl> my @comments; my ($c, $o, $k, $e) = ("", [], {}, 0); my %data = %$changes; my $queue = RT::Queue->new($session{CurrentUser}); my @fields = qw(Name Description CorrespondAddress CommentAddress InitialPriority FinalPriority DefaultDueIn Disabled); if ( $fields && %$fields ) { @fields = grep { exists $fields->{ lc $_ } } @fields; } my %fields = map { lc $_ => $_ } @fields; if ($id ne 'new') { $queue->Load($id); if (!$queue->Id) { return [ "# Queue $id does not exist.", [], {}, 1 ]; } } else { if (keys %data == 0) { return [ "# Required: Name", [ "id", @fields ], { id => 'queue/new', Name => '', Description => "", CommentAddress => "", CorrespondAddress => "", InitialPriority => "", FinalPriority => "", DefaultDueIn => "", }, 0 ]; } else { my %v; my %create = %fields; foreach my $k (keys %data) { if (exists $create{lc $k}) { $v{$create{lc $k}} = delete $data{$k}; } } if ($v{Name} eq '') { my %o = keys %$changes; delete @o{"id", @fields}; return [ "# Please set the queue name.", [ "id", @fields, keys %o ], $changes, 1 ]; } $queue->Create(%v); unless ($queue->Id) { return [ "# Could not create queue.", [], {}, 1 ]; } delete $data{id}; $id = $queue->Id; push(@comments, "# Queue $id created."); goto DONE if keys %data == 0; } } if ( keys %data == 0) { my @data; push @data, [ id => "queue/".$queue->Id ]; foreach my $key (@fields) { push @data, [ $key => $queue->$key ]; } # Custom fields my $CustomFields = $queue->CustomFields; while ( my $CustomField = $CustomFields->Next() ) { next unless ( !%$fields || exists $fields->{ lc "CF-" . $CustomField->Name } ); next unless $CustomField->CurrentUserHasRight('SeeCustomField'); my $CFvalues = $queue->CustomFieldValues( $CustomField->Id ); my @CFvalues; while ( my $CFvalue = $CFvalues->Next() ) { push @CFvalues, $CFvalue->Content; } push @data, [ "CF-" . $CustomField->Name => \@CFvalues ]; } my %k = map {@$_} @data; $o = [ map {$_->[0]} @data ]; $k = \%k; } else { my ($get, $set, $key, $val, $n, $s); my $updated; foreach $key (keys %data) { $val = $data{$key}; $key = lc $key; $n = 1; if (exists $fields{$key}) { $key = $fields{$key}; $set = "Set$key"; next if $val eq $queue->$key; ($n, $s) = $queue->$set($val); } elsif ($key ne 'id') { $n = 0; $s = "Unknown field."; } SET: if ($n == 0) { $e = 1; push @comments, "# $key: $s"; unless (@$o) { my %o = keys %$changes; delete @o{"id", @fields}; @$o = ("id", @fields, keys %o); $k = $changes; } } else { $updated ||= 1; } } push(@comments, "# Queue $id updated.") if $updated; } DONE: $c ||= join("\n", @comments) if @comments; return [ $c, $o, $k, $e ];