diff options
Diffstat (limited to 'Bugzilla/WebService/Util.pm')
-rw-r--r-- | Bugzilla/WebService/Util.pm | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/Bugzilla/WebService/Util.pm b/Bugzilla/WebService/Util.pm index cd75bee8c..74c1f2f02 100644 --- a/Bugzilla/WebService/Util.pm +++ b/Bugzilla/WebService/Util.pm @@ -24,7 +24,7 @@ use strict; use base qw(Exporter); -our @EXPORT_OK = qw(filter); +our @EXPORT_OK = qw(filter validate); sub filter ($$) { my ($params, $hash) = @_; @@ -44,6 +44,23 @@ sub filter ($$) { return \%newhash; } +sub validate { + my ($self, $params, @keys) = @_; + + # If @keys is not empty then we convert any named + # parameters that have scalar values to arrayrefs + # that match. + foreach my $key (@keys) { + if (exists $params->{$key}) { + $params->{$key} = ref $params->{$key} + ? $params->{$key} + : [ $params->{$key} ]; + } + } + + return ($self, $params); +} + __END__ =head1 NAME @@ -61,6 +78,8 @@ internally in the WebService code. filter({ include_fields => ['id', 'name'], exclude_fields => ['name'] }, $hash); + validate(@_, 'ids'); + =head1 METHODS =over @@ -72,4 +91,11 @@ of WebService methods. Given a hash (the second argument to this subroutine), this will remove any keys that are I<not> in C<include_fields> and then remove any keys that I<are> in C<exclude_fields>. +=item C<validate> + +This helps in the validation of parameters passed into the WebSerice +methods. Currently it converts listed parameters into an array reference +if the client only passed a single scalar value. It modifies the parameters +hash in place so other parameters should be unaltered. + =back |