[ic] auto-create failure (revisited)

[Mike Heins]

Quoting Bob Puff (bob at nleaudio.com):
> 
> 
> > I have fallen down on this one -- I should have put this
> > fix in the demo a long time ago...
> > 
> >     [tmp auto_create]1[/tmp]
> >     [calcn]
> >         $Tag->tmp('tmp_pass');
> >         for(qw/ zip phone_day phone_night /) {
> >             my $pass = $Values->{$_};
> >             $pass =~ s/\s+//g;
> >             next if length($pass) < 4;
> >             $Scratch->{tmp_pass} = $pass;
> >         }
> > 	
> > 		my @lets = ('A' .. 'Z', '0 .. 9', 'a' .. 'z');
> > 		$Scratch->{tmp_pass} .= $lets[ rand @lets ]
> > 			while length($Scratch->{tmp_pass}) < 5;
> >         return;
> >     [/calcn]
> >     [if type=explicit compare=|
> >         [userdb
> >             function=new_account
> >                 assign_username=1
> >                     password='[scratch tmp_pass]'
> >                         verify='[scratch tmp_pass]'
> >         ]
> >         |]
> >         [seti mv_autocreate]
> >             mv_username=[data session username]
> >             mv_password=[scratch tmp_pass]
> >         [/seti]
> >         Auto-created user [seti auto_username][data session 
> > username][/seti][scratch auto_username].    [else]    Auto-create of 
> > user failed.    [perl] die errmsg("Auto-create of user failed."); [/perl]
> >     [/else]
> >     [/if]
> > 
> > -- 
> > Mike Heins
> 
> Hi Mike,
> 
> THanks for addressing this!  Is this a diff, or the entire contents of a file?
>  Which file?  

The section of CATDIR/etc/log_transaction that the original poster
was talking about.  If you want the whole file, go to:

    http://cvs.icdevgroup.org/cgi-bin/cvsweb/interchange/dist/standard/etc/log_transaction

or 

    http://perusion.com/b0po

-- 
Mike Heins
Perusion -- Expert Interchange Consulting    http://www.perusion.com/
phone +1.765.647.1295  tollfree 800-949-1889 <mike at perusion.com>

Being against torture ought to be sort of a bipartisan thing.
-- Karl Lehenbauer