[Rt-devel] using ___Approvals queue

[Ronan Le Normand]

I am using RT for a couple of weeks and I have to allow an unknown user to
create a ticket without an account.
Submitting user information and request, the user is created and the ticket
is supposed to be approved by the administrator.
It's like a registration and first time ticket creation all in one.

I am using the RT API to write Perl interface opened to the public where
user and request information are submitted
and I am trying to use the ___Approvals queue to manage the ticket and
automatically email the administrator
that he needs to review it before approving user account and give him RT
access.

Is using this queue the right way to go?
I cannot find documentation on the Approval queue which seems to offer what
i am looking for.
I have enabled the queue and entered the administrator email address in the
Reply-to and Comment fields as well as adding it as a watcher.
Nevertheless, I am failing to generate the right email using the 'Pending
for approval' template to the administrator (the wanted owner of the
ticket).
I only get the 'ticket created' email.

Also i dont know how to use the RT API to put a Comment with the description
of the ticket.

Thank you for any information you could provide,

Here is the code I wrote so far:

                my $UserObj = new RT::User( $RT::SystemUser );

                # Creates new user
                #
                # my ($id, $message) =
$UserObj->LoadOrCreateByEmail(param('EmailAddress'));
                # $UserObj->SetName(param('Name'));
                # $UserObj->SetPassword(param('Password'));
                # $UserObj->SetComments('Waiting for account approval');
                # $UserObj->Set(param(''));
                my ($id, $message) = $UserObj->Create(
                         Name => param('Name')
                        ,Password => param('Password')
                        ,Comments => 'Waiting for account approval'
                        ,EmailAddress => param('EmailAddress')
                        ,Organization => param('Organization')
                        ,RealName => $RealName
                        ,NickName => param('RealName_1')
                        ,WorkPhone => param('WorkPhone')
                        ,Address1 => (param('Address1') || '')
                        ,Address2 => (param('Address2') || '')
                        ,City => (param('City') || '')
                        ,State => (param('State') || '')
                        ,Zip => (param('Zip') || '')
                        ,Country => (param('Country') || '')
                );

        my $CurrentUserObj = new RT::CurrentUser();
        $CurrentUserObj->Load( $UserObj->Id );

        # Load user root
        #
        my $UserRootObj = new RT::User( $RT::SystemUser );
        $UserRootObj->Load( 'root' );

        # Load queue
        #
        my $QueueObj = new RT::Queue( $RT::SystemUser );
        $QueueObj->Load( '___Approvals' );

        # Create ticket with question
        #
        # my $TicketObj = $UserObj->Ticket;
        # my $current_user = $TicketObj->CurrentUser;
        # $TicketObj->CurrentUser( $RT::SystemUser );
        my $TicketObj = new RT::Ticket( $RT::SystemUser );
        my ($id, $message) = $TicketObj->Create(
                 Queue         => $QueueObj->Id
                ,Subject       => $request # ("First time request for
".$UserObj->Name)
                ,Requestor     => $UserObj->Id
                ,Owner         => $UserRootObj->Id
                ,Status        =>'open'
                #,Type          =>'approval'
                #,LastUpdatedBy => $UserObj->Id
                #,Cc            => $UserObj->Id
                #,AdminCc       => $UserRootObj->Id
                #,Creator       => $UserObj->Id
        );
        $TicketObj->CurrentUser( $CurrentUserObj );

-- 
Regards,

Ronan Le Normand
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.bestpractical.com/pipermail/rt-devel/attachments/20070528/3d9119c1/attachment.htm