[ic] auto-create failure (revisited)

[Bob Puff]

> 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?  

Bob