r54713 - in /trunk/librt-client-rest-perl: CHANGES Changes MANIFEST META.yml debian/changelog lib/RT/Client/REST.pm lib/RT/Client/REST/Forms.pm lib/RT/Client/REST/Object.pm lib/RT/Client/REST/Ticket.pm lib/RT/Client/REST/User.pm t/21-user.t
christine at users.alioth.debian.org
christine at users.alioth.debian.org
Wed Mar 24 02:06:19 UTC 2010
Author: christine
Date: Wed Mar 24 02:05:27 2010
New Revision: 54713
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54713
Log:
new upstream release
Added:
trunk/librt-client-rest-perl/CHANGES
- copied unchanged from r54712, branches/upstream/librt-client-rest-perl/current/CHANGES
Removed:
trunk/librt-client-rest-perl/Changes
Modified:
trunk/librt-client-rest-perl/MANIFEST
trunk/librt-client-rest-perl/META.yml
trunk/librt-client-rest-perl/debian/changelog
trunk/librt-client-rest-perl/lib/RT/Client/REST.pm
trunk/librt-client-rest-perl/lib/RT/Client/REST/Forms.pm
trunk/librt-client-rest-perl/lib/RT/Client/REST/Object.pm
trunk/librt-client-rest-perl/lib/RT/Client/REST/Ticket.pm
trunk/librt-client-rest-perl/lib/RT/Client/REST/User.pm
trunk/librt-client-rest-perl/t/21-user.t
Modified: trunk/librt-client-rest-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/MANIFEST?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/MANIFEST (original)
+++ trunk/librt-client-rest-perl/MANIFEST Wed Mar 24 02:05:27 2010
@@ -1,4 +1,4 @@
-Changes
+CHANGES
examples/comment_on_ticket.pl
examples/create_ticket.pl
examples/create_user.pl
Modified: trunk/librt-client-rest-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/META.yml?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/META.yml (original)
+++ trunk/librt-client-rest-perl/META.yml Wed Mar 24 02:05:27 2010
@@ -1,20 +1,28 @@
--- #YAML:1.0
-name: RT-Client-REST
-version: 0.37
-abstract: ~
-license: perl
-author: ~
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
- Encode: 0
- Error: 0
- Exception::Class: 0
- HTTP::Cookies: 0
- HTTP::Request::Common: 0
- LWP: 0
- Params::Validate: 0
- Test::Exception: 0
+name: RT-Client-REST
+version: 0.4
+abstract: ~
+author: []
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Encode: 0
+ Error: 0
+ Exception::Class: 0
+ HTTP::Cookies: 0
+ HTTP::Request::Common: 0
+ LWP: 0
+ Params::Validate: 0
+ Test::Exception: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/librt-client-rest-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/debian/changelog?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/debian/changelog (original)
+++ trunk/librt-client-rest-perl/debian/changelog Wed Mar 24 02:05:27 2010
@@ -1,3 +1,10 @@
+librt-client-rest-perl (1:0.4-1) unstable; urgency=low
+
+ * New upstream release
+ - Upstream screwed up version number, add epoch.
+
+ -- Christine Spang <christine at debian.org> Tue, 23 Mar 2010 21:58:10 -0400
+
librt-client-rest-perl (0.37-1) unstable; urgency=low
* Initial Release. (Closes: #542310)
Modified: trunk/librt-client-rest-perl/lib/RT/Client/REST.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/lib/RT/Client/REST.pm?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/lib/RT/Client/REST.pm (original)
+++ trunk/librt-client-rest-perl/lib/RT/Client/REST.pm Wed Mar 24 02:05:27 2010
@@ -1,4 +1,4 @@
-# $Id: REST.pm 30 2008-08-16 00:58:07Z dtikhonov $
+# $Id: REST.pm 38 2010-03-10 17:30:50Z pplusdomain $
# RT::Client::REST
#
# Dmitri Tikhonov <dtikhonov at yahoo.com>
@@ -25,7 +25,7 @@
use warnings;
use vars qw/$VERSION/;
-$VERSION = '0.37';
+$VERSION = 0.40;
use Error qw(:try);
use HTTP::Cookies;
@@ -1080,14 +1080,14 @@
=head1 VERSION
-This is version 0.37 of B<RT::Client::REST>.
+This is version 0.40 of B<RT::Client::REST>.
=head1 AUTHORS
Original /usr/bin/rt was written by Abhijit Menon-Sen <ams at wiw.org>. rt
was later converted to this module by Dmitri Tikhonov <dtikhonov at yahoo.com>.
In January of 2008, Damien "dams" Krotkine <dams at cpan.org> joined as the
-project's co-maintainer.
+project's co-maintainer. JLMARTIN has become co-maintainer as of March 2010.
=head1 LICENSE
Modified: trunk/librt-client-rest-perl/lib/RT/Client/REST/Forms.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/lib/RT/Client/REST/Forms.pm?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/lib/RT/Client/REST/Forms.pm (original)
+++ trunk/librt-client-rest-perl/lib/RT/Client/REST/Forms.pm Wed Mar 24 02:05:27 2010
@@ -1,8 +1,7 @@
-# $Id: Forms.pm 2 2007-12-23 02:16:25Z dtikhonov $
+# $Id: Forms.pm 34 2009-04-10 01:45:19Z belg4mit $
#
-# This package provides functions from RT::Interface::REST, because we do
-# not want to depend on rt being installed. The source code is copied from
-# rt 3.4.5.
+# This package provides functions from RT::Interface::REST, because we don't
+# want to depend on rt being installed. Derived from rt 3.4.5.
package RT::Client::REST::Forms;
@@ -10,12 +9,14 @@
use warnings;
use Exporter;
-use vars qw(@EXPORT @ISA);
+use vars qw(@EXPORT @ISA $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(expand_list form_parse form_compose vpush vsplit);
-
-my $field = '(?:[a-zA-Z][a-zA-Z0-9_-]*|CF-[a-zA-Z0-9_ -]*)';
+$VERSION = .02;
+
+my $CF_name = qr%[\s\w:()/-]+%;
+my $field = qr/[a-z][\w-]*|C(?:ustom)?F(?:ield)?-$CF_name|CF\.{$CF_name}/i;
sub expand_list {
my ($list) = @_;
Modified: trunk/librt-client-rest-perl/lib/RT/Client/REST/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/lib/RT/Client/REST/Object.pm?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/lib/RT/Client/REST/Object.pm (original)
+++ trunk/librt-client-rest-perl/lib/RT/Client/REST/Object.pm Wed Mar 24 02:05:27 2010
@@ -1,4 +1,4 @@
-# $Id: Object.pm 13 2008-01-25 19:17:27Z dkrotkine $
+# $Id: Object.pm 34 2009-04-10 01:45:19Z belg4mit $
package RT::Client::REST::Object;
@@ -434,10 +434,14 @@
$rest2attr{$rest_name} = $attr;
}
- # Now set attbibutes:
+ # Now set attributes:
while (my ($key, $value) = each(%$hash)) {
- if ($key =~ s/^cf-//) { # Handle custom fields.
- if ($value =~ /,/) { # OK, this is questionable.
+ # Handle custom fields, ideally /(?(1)})/ would be appened to RE
+ if( $key =~ m%^(?:cf|customfield)(?:-|\.{)([\s\w_:()/-]+)% ){
+ $key = $1;
+
+ # XXX very sketchy. Will fail on long form data e.g; wiki CF
+ if ($value =~ /,/) {
$value = [ split(/\s*,\s*/, $value) ];
}
Modified: trunk/librt-client-rest-perl/lib/RT/Client/REST/Ticket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/lib/RT/Client/REST/Ticket.pm?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/lib/RT/Client/REST/Ticket.pm (original)
+++ trunk/librt-client-rest-perl/lib/RT/Client/REST/Ticket.pm Wed Mar 24 02:05:27 2010
@@ -1,4 +1,4 @@
-# $Id: Ticket.pm 28 2008-08-16 00:23:30Z dtikhonov $
+# $Id: Ticket.pm 36 2009-04-10 18:43:46Z belg4mit $
#
# RT::Client::REST::Ticket -- ticket object representation.
@@ -8,7 +8,7 @@
use warnings;
use vars qw($VERSION);
-$VERSION = '0.09';
+$VERSION = 0.10;
use Error qw(:try);
use Params::Validate qw(:types);
@@ -136,6 +136,13 @@
list => 1,
},
+ requestor => {
+ validation => {
+ type => ARRAYREF,
+ },
+ list => 1,
+ },
+
cc => {
validation => {
type => ARRAYREF,
@@ -254,11 +261,22 @@
=item B<final_priority>
+=item B<requestor>
+
+This is the attribute for setting the requestor on ticket creation.
+If you use requestors to do this in 3.8, the recipient may not receive
+an autoreply from RT because the ticket is initially created as the user
+your REST session is connected as.
+
+It is a list attribute (for explanation of list attributes, see
+B<LIST ATTRIBUTE PROPERTIES> in L<RT::Client::REST::Object>).
+
=item B<requestors>
-This is a list attribute (for explanation of list attributes, see
-B<LIST ATTRIBUTE PROPERTIES> in L<RT::Client::REST::Object>). Contains
-e-mail addresses of the requestors.
+This contains e-mail addresses of the requestors.
+
+It is a list attribute (for explanation of list attributes, see
+B<LIST ATTRIBUTE PROPERTIES> in L<RT::Client::REST::Object>).
=item B<cc>
Modified: trunk/librt-client-rest-perl/lib/RT/Client/REST/User.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/lib/RT/Client/REST/User.pm?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/lib/RT/Client/REST/User.pm (original)
+++ trunk/librt-client-rest-perl/lib/RT/Client/REST/User.pm Wed Mar 24 02:05:27 2010
@@ -1,4 +1,4 @@
-# $Id: User.pm 2 2007-12-23 02:16:25Z dtikhonov $
+# $Id: User.pm 34 2009-04-10 01:45:19Z belg4mit $
#
# RT::Client::REST::User -- user object representation.
@@ -8,7 +8,7 @@
use warnings;
use vars qw($VERSION);
-$VERSION = '0.02';
+$VERSION = 0.03;
use Params::Validate qw(:types);
use RT::Client::REST 0.14;
@@ -41,7 +41,7 @@
=cut
sub _attributes {{
- id => {
+ id => {
validation => {
type => SCALAR,
},
@@ -54,42 +54,110 @@
},
},
- name => {
- validation => {
- type => SCALAR,
- },
- },
-
- password => {
- validation => {
- type => SCALAR,
- },
- },
-
+
+
+ priveleged => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ name => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ password => {
+ validation => {
+ type => SCALAR,
+ },
+ },
email_address => {
validation => {
type => SCALAR,
},
rest_name => 'EmailAddress',
},
-
real_name => {
validation => {
type => SCALAR,
},
rest_name => 'RealName',
},
-
gecos => {
validation => {
type => SCALAR,
},
},
-
comments => {
validation => {
type => SCALAR,
},
+ },
+
+
+
+ organization => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ address_one => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'Address1',
+ },
+ address_two => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'Address2',
+ },
+ city => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ state => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ zip => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+ country => {
+ validation => {
+ type => SCALAR,
+ },
+ },
+
+
+ home_phone => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'HomePhone',
+ },
+ work_phone => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'WorkPhone',
+ },
+ cell_phone => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'MobilePhone',
+ },
+ pager => {
+ validation => {
+ type => SCALAR,
+ },
+ rest_name => 'PagerPhone',
},
}}
@@ -112,13 +180,17 @@
User's password. Reading it will only give you a bunch of stars (what
else would you expect?).
+=item B<priveleged>
+
+Can the user have special rights?
+
=item B<email_address>
-E-mail address of the user.
+E-mail address of the user, EmailAddress.
=item B<real_name>
-Real name of the user.
+Real name of the user, RealName.
=item B<gecos>
@@ -127,6 +199,44 @@
=item B<comments>
Comments about this user.
+
+=item B<organization>
+
+=item B<address_one>
+
+First line of the street address, Address1.
+
+=item B<address_two>
+
+Second line of the street address, Address2.
+
+=item B<city>
+
+City segment of user's address.
+
+=item B<zip>
+
+ZIP or Postal code segment of user's address.
+
+=item B<country>
+
+Country segment of user's address.
+
+=item B<home_phone>
+
+User's home phone number, HomePhone.
+
+=item B<work_phone>
+
+User's work phone number, WorkPhone.
+
+=item B<cell_phone>
+
+User's cell phone number, MobilePhone.
+
+=item B<pager>
+
+User's pager number, PagerPhone.
=back
Modified: trunk/librt-client-rest-perl/t/21-user.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librt-client-rest-perl/t/21-user.t?rev=54713&op=diff
==============================================================================
--- trunk/librt-client-rest-perl/t/21-user.t (original)
+++ trunk/librt-client-rest-perl/t/21-user.t Wed Mar 24 02:05:27 2010
@@ -1,15 +1,18 @@
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 26;
use Test::Exception;
use constant METHODS => (
- 'new', 'to_form', 'from_form', 'rt_type',
+ 'new', 'to_form', 'from_form',
+ 'rt_type', 'id',
- # attrubutes:
- 'id', 'name', 'password', 'real_name', 'email_address', 'gecos',
- 'comments',
+ # attributes:
+ 'name', 'password', 'real_name', 'gecos',
+ 'priveleged', 'email_address', 'comments', 'organization',
+ 'address_one', 'address_two', 'city', 'state', 'zip', 'country',
+ 'home_phone', 'work_phone', 'cell_phone', 'pager'
);
BEGIN {
More information about the Pkg-perl-cvs-commits
mailing list