Setting Password for new unpriv users (was: Newbie questions)

  1. Is there any way that e-mail tickets that require a new user to be
    created can assign a password too? None of the Scrips seem appropriate.

I just figured out how to implement this for a site here that’s
planning to deploy RT. There was an old scrip posted to this list many
months ago that gave me a starting point, but it appears to have been
written for RT2 or an early prelrelease of RT3.

The following scrip and template are running on RT 3.0.2 plus a couple
of my patches which I’m also appending below.

First, the scrip. Perhaps more seasoned RT hackers can see a more
elegant way to accomplish the same thing; this is my first real RT work.

  1. Add a new global scrip called “Create Password”, with the following
    settings:

Condition: "On Create"
Action: "User Defined"
Template: “Global Template: Blank"
The custom action condition and cleanup code are both set to “1;”.
All of the business is in the “preparation” code, which is:
----------start code-------------
{
my $tmplName = ‘RT_PasswordChange’; ## hardwired template name
my ($user) = $self->TransactionObj->CreatorObj;
if (($user->id != $RT::Nobody->id) && (!$user->Privileged) &&
$user->__Value(‘Password’) eq ‘NO-PASSWORD’ && $user->Name =~ /@/) {
my ($stat, $pass) = $self->TransactionObj->CreatorObj->SetRandomPassword();
if ($stat) {
my $template = RT::Template->new( $user->CurrentUser );
$template->LoadGlobalTemplate($tmplName);
unless ($template->Id) {
$RT::Logger->crit( “$user tried to send “. $user->Name .
” a password reminder, but couldn’t find tmpl: $tmplName”);
die “failed to load $tmplName template”;
}
my $notification = RT::Action::SendEmail->new(
TemplateObj => $template,
TransactionObj => $self->TransactionObj,
TicketObj => $self->TicketObj,
ScripObj => $self->ScripObj,
Argument => $pass);
@{ $notification->{‘To’} } = ( $user->EmailAddress );
my ($ret) = $notification->Prepare();
$ret = $notification->Commit() if $ret;
$RT::Logger->crit(“Set Password scrip: $user: SendEmail failed sending “.
$user->Name . " the password setting reminder.”)
unless ($ret);
} else {
$RT::Logger->crit(“Set Password Scrip: Failed to set password for: “”.
$user->Name.””, pass=”.$pass);
}
}
1;
}
----------------end scrip prepare code-----------------

  1. Add a global template for the email:

Name: “RT_PasswordChange”
---------------- Contents of template ----------------------------------

Greetings, {$Transaction->CreatorObj->Name()}

A login account has been created for you automatically
with your first request to this tracking system.
To use it, go to the following URL with your browser:

{$RT::WebURL}

To login, enter the username "{$Transaction->CreatorObj->Name()}"
and the password “{$Argument}”.

Please contact {$RT::OwnerEmail} if you have any problems or questions.

Enjoy,

– Your RT Administrator
---------------- End Contents of template ----------------------------------

  1. Finally apply the following source patches to fix a couple of bugs
    that interfered with this working.

---------------- Begin source patch ----------------------------------
*** RT/User_Overlay.pm.orig Mon May 12 20:31:24 2003
— RT/User_Overlay.pm Wed Jun 18 02:16:33 2003
*** 871,877 ****

  my $length = $min_length + int( rand( $max_length - $min_length ) );

! my $char = $self->GenerateRandomNextChar( $total_sum, $start_freq );
my @word = ( $char + $a );
for ( 2 … $length ) {
$char =
— 871,877 ----

  my $length = $min_length + int( rand( $max_length - $min_length ) );

! my $char = $self->_GenerateRandomNextChar( $total_sum, $start_freq );
my @word = ( $char + $a );
for ( 2 … $length ) {
$char =
*** RT/Template_Overlay.pm.orig Mon May 12 20:31:24 2003
— RT/Template_Overlay.pm Wed Jun 18 02:21:51 2003
*** 203,212 ****
my $self = shift;
my %args = (
Queue => undef,
! Name => undef
);

! return ( $self->LoadByCols( Name => $args{‘Name’}, Queue => {‘Queue’} ) );

}

— 203,213 ----
my $self = shift;
my %args = (
Queue => undef,
! Name => undef,
! @_
);

! return ( $self->LoadByCols( Name => $args{‘Name’}, Queue => $args{‘Queue’} ) );

}