use RT;<br>use RT::Ticket;<br><br>RT::LoadConfig();<br>RT::Init();<br><br>$ticket = $RT::Ticket->new( $RT::SystemUser );<br>$ticket->Load( 123 );<br><br>print $ticket->Subject;<br><br><div class="gmail_quote">On Wed, Apr 30, 2008 at 9:50 AM, Morten Guldager <<a href="mailto:morten.guldager@gmail.com">morten.guldager@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">'Aloha!<br><br>Below you see the text book example (from RT Essentials) using DBIx::SearchBuilder to accessing the Tickets table from a stand alone perl program.<br>
Since I need restricting access to what a specific user would be allowed to do, I think I have to transform this code into something using RT::Record (or should it be RT::Ticket?)<br>
<br>Simply replacing DBIx::SearchBuilder with RT did not work. (well I sorta did not expect that either..)<br> - and where do I feed it the username/password?<br><br>This must have been done a million times before, but google refuses to help me :-(<br>

<br>Anyone?<br><br>-- <br>/Morten %-)<br><br><br>#!/usr/bin/perl<br>use strict;<br>use warnings;<br><br>my $X = tkt->new;<br>$X->Load(123);<br>printf STDERR "%s: %s (%s)\n",  $X->id,  $X->Subject,  $X->Status;<br>

<br>package tkt;<br>use strict;<br>use warnings;<br>use DBIx::SearchBuilder::Handle;<br>use base qw(DBIx::SearchBuilder::Record);<br><br>sub _Init<br>{<br>  my $self = shift;<br>  my $handle= DBIx::SearchBuilder::Handle->new;<br>

  $handle->Connect(Driver   => 'mysql',<br>                   Database => 'rtdb',<br>                   User     => 'rtuser',<br>                   Password => $ENV{RTDBPW});<br>  $self->_Handle($handle);<br>

  $self->Table('Tickets');<br>}<br><br>sub _ClassAccessible<br>{<br>  return { Id      => {read => 1},<br>           Status  => {read => 1},<br>           Subject => {read => 1}<br>         };<br>

}<br><br>
<br>_______________________________________________<br>
<a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users" target="_blank">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users</a><br>
<br>
Community help: <a href="http://wiki.bestpractical.com" target="_blank">http://wiki.bestpractical.com</a><br>
Commercial support: <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a><br>
<br>
<br>
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.<br>
Buy a copy at <a href="http://rtbook.bestpractical.com" target="_blank">http://rtbook.bestpractical.com</a><br></blockquote></div><br>