[Rt-commit] [svn] r827 - in RT-Client: . lib/RT

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Tue May  4 10:45:02 2004
New Revision: 827

Modified:
   RT-Client/   (props changed)
   RT-Client/lib/RT/Client.pm
Log:
 ----------------------------------------------------------------------
 r4455 at not:  autrijus | 2004-05-04T14:26:28.127383Z
 
 * Be generous in what we accept... so include */*.
 * Use HEAD to establish server's realm.
 * Cleaned up examples.
 ----------------------------------------------------------------------


Modified: RT-Client/lib/RT/Client.pm
==============================================================================
--- RT-Client/lib/RT/Client.pm	(original)
+++ RT-Client/lib/RT/Client.pm	Tue May  4 10:45:02 2004
@@ -24,7 +24,7 @@
     my $rt = RT::Client->new('http://root@password:localhost');
 
     # search / list
-    my $tickets = $rt->search(
+    my $results = $rt->search(
         URI     => 'tickets',
         Query   => "Priority > 5 and Status='new'",
         OrderBy => 'Subject',
@@ -32,15 +32,14 @@
     );
 
     # narrow search scope
-    $tickets->search(Query => "Owner='autrijus'");
+    $results->search(Query => "Owner='autrijus'");
 
     # perform actions
-    $tickets->delete(); # perform action
+    $results->delete(); # perform action
 
     # get / show -- single parameter means URI implicitly
     my $user = $rt->get( 'users/autrijus' );
 
-    $rt->groups(3)->
     # update / edit
     my $group = $rt->edit(
         URI     => 'groups/3',
@@ -163,7 +162,7 @@
 
 sub server_realm {
     my $self = shift;
-    my $req = HTTP::Request->new(GET => $self->server_uri);
+    my $req = HTTP::Request->new(HEAD => $self->server_uri);
     $self->munge_request($req);
 
     my $res = $self->{ua}->request($req);
@@ -179,7 +178,7 @@
 sub munge_request {
     my ($self, $req) = @_;
     $req->header(
-        Accept => 'application/x.atom+xml, application/xml, text/xml',
+        Accept => 'application/x.atom+xml, application/xml, text/xml, */*',
     );
     return $req unless $self->realm;
     return $self->SUPER::munge_request($req);