1 package FS::TicketSystem::RT_Internal;
4 use vars qw( @ISA $DEBUG $me );
8 use FS::CGI qw(popurl);
9 use FS::TicketSystem::RT_Libs;
12 @ISA = qw( FS::TicketSystem::RT_Libs );
15 $me = '[FS::TicketSystem::RT_Internal]';
17 sub sql_num_customer_tickets {
18 "( select count(*) from Tickets
19 join Links on ( Tickets.id = Links.LocalBase )
20 where ( Status = 'new' or Status = 'open' or Status = 'stalled' )
21 and Target = 'freeside://freeside/cust_main/' || custnum
27 if ( $RT::URI::freeside::URL ) {
28 $RT::URI::freeside::URL. '/rt/';
30 'http://you_need_to_set_RT_URI_freeside_URL_in_SiteConfig.pm/';
35 #ShowConfigTab ModifySelf
37 my( $self, $session, $right ) = @_;
39 #return '' unless $conf->config('ticket_system');
40 return '' unless FS::Conf->new->config('ticket_system');
42 $session = $self->session($session);
44 $session->{'CurrentUser'}->HasRight( Right => $right,
45 Object => $RT::System );
49 my( $self, $session ) = @_;
51 if ( $session && $session->{'Current_User'} ) {
52 warn "$me session: using existing session and CurrentUser: \n".
53 Dumper($session->{'CurrentUser'})
56 warn "$me session: loading session and CurrentUser\n" if $DEBUG > 1;
57 $session = $self->_web_external_auth($session);
66 warn "$me init: loading RT libraries\n" if $DEBUG;
68 use lib ( "/opt/rt3/local/lib", "/opt/rt3/lib" );
70 #it looks like the rest are taken care of these days in RT::InitClasses
72 #use RT::Transactions;
77 #use RT::ScripActions;
78 #use RT::ScripConditions;
81 #use RT::GroupMembers;
82 #use RT::CustomFields;
83 #use RT::CustomFieldValues;
84 #use RT::ObjectCustomFieldValues;
86 #for web external auth...
87 use RT::Interface::Web;
91 warn "$me init: loading RT config\n" if $DEBUG;
94 eval 'RT::LoadConfig();';
98 warn "$me init: initializing RT\n" if $DEBUG;
101 eval 'RT::Init("NoSignalHandlers"=>1);';
105 warn "$me init: complete" if $DEBUG;
108 =item create_ticket SESSION_HASHREF, OPTION => VALUE ...
110 Class method. Creates a ticket. If there is an error, returns the scalar
111 error, otherwise returns the newly created RT::Ticket object.
113 Accepts the following options:
127 Requestor email address or arrayref of addresses
131 Cc: email address or arrayref of addresses
139 MIME type to use for message. Defaults to text/plain. Specifying text/html
140 can be useful to use HTML markup in message.
144 Customer number (see L<FS::cust_main>) to associate with ticket.
148 Service number (see L<FS::cust_svc>) to associate with ticket. Will also
149 associate the customer who has this service (unless the service is unlinked).
156 my($self, $session, %param) = @_;
158 $session = $self->session($session);
160 my $Queue = RT::Queue->new($session->{'CurrentUser'});
161 $Queue->Load( $param{'queue'} );
163 my $req = ref($param{'requestor'})
164 ? $param{'requestor'}
165 : ( $param{'requestor'} ? [ $param{'requestor'} ] : [] );
167 my $cc = ref($param{'cc'})
169 : ( $param{'cc'} ? [ $param{'cc'} ] : [] );
171 my $mimeobj = MIME::Entity->build(
172 'Data' => $param{'message'},
173 'Type' => ( $param{'mime_type'} || 'text/plain' ),
177 'Queue' => $Queue->Id,
178 'Subject' => $param{'subject'},
181 'MIMEObj' => $mimeobj,
183 warn Dumper(\%ticket) if $DEBUG > 1;
185 my $Ticket = RT::Ticket->new($session->{'CurrentUser'});
186 my( $id, $Transaction, $ErrStr );
189 ( $id, $Transaction, $ErrStr ) = $Ticket->Create( %ticket );
191 return $ErrStr if $id == 0;
193 warn "ticket got id $id\n" if $DEBUG;
195 #XXX check errors adding custnum/svcnum links (put it in a transaction)...
196 # but we do already know they're good
198 if ( $param{'custnum'} ) {
199 my( $val, $msg ) = $Ticket->_AddLink(
200 'Type' => 'MemberOf',
201 'Target' => 'freeside://freeside/cust_main/'. $param{'custnum'},
205 if ( $param{'svcnum'} ) {
206 my( $val, $msg ) = $Ticket->_AddLink(
207 'Type' => 'MemberOf',
208 'Target' => 'freeside://freeside/cust_svc/'. $param{'svcnum'},
215 #shameless false laziness w/rt/html/autohandler to get logged into RT from afar
216 sub _web_external_auth {
217 my( $self, $session ) = @_;
219 my $user = $FS::CurrentUser::CurrentUser->username;
222 $session->{'CurrentUser'} = RT::CurrentUser->new();
224 warn "$me _web_external_auth loading RT user for $user\n"
227 $session->{'CurrentUser'}->Load($user);
229 if ( ! $session->{'CurrentUser'}->Id() ) {
231 # Create users on-the-fly
233 warn "can't load RT user for $user; auto-creating\n"
236 my $UserObj = RT::User->new( RT::CurrentUser->new('RT_System') );
238 my ( $val, $msg ) = $UserObj->Create(
239 %{ ref($RT::AutoCreate) ? $RT::AutoCreate : {} },
246 # now get user specific information, to better create our user.
248 = RT::Interface::Web::WebExternalAutoInfo($user);
250 # set the attributes that have been defined.
251 # FIXME: this is a horrible kludge. I'm sure there's something cleaner
252 foreach my $attribute (
254 'Signature', 'EmailAddress',
255 'PagerEmailAddress', 'FreeformContactInfo',
256 'Organization', 'Disabled',
257 'Privileged', 'RealName',
259 'EmailEncoding', 'WebEncoding',
260 'ExternalContactInfoId', 'ContactInfoSystem',
261 'ExternalAuthId', 'Gecos',
262 'HomePhone', 'WorkPhone',
263 'MobilePhone', 'PagerPhone',
264 'Address1', 'Address2',
270 #$m->comp( '/Elements/Callback', %ARGS,
271 # _CallbackName => 'NewUser' );
273 my $method = "Set$attribute";
274 $UserObj->$method( $new_user_info->{$attribute} )
275 if ( defined $new_user_info->{$attribute} );
277 $session->{'CurrentUser'}->Load($user);
281 # we failed to successfully create the user. abort abort abort.
282 delete $session->{'CurrentUser'};
284 die "can't auto-create RT user"; #an error message would be nice :/
285 #$m->abort() unless $RT::WebFallbackToInternalAuth;
286 #$m->comp( '/Elements/Login', %ARGS,
287 # Error => loc( 'Cannot create user: [_1]', $msg ) );
291 unless ( $session->{'CurrentUser'}->Id() ) {
292 delete $session->{'CurrentUser'};
294 die "can't auto-create RT user";
297 #if ($RT::WebExternalOnly) {
298 # $m->comp( '/Elements/Login', %ARGS,
299 # Error => loc('You are not an authorized user') );