[BACK]Return to createaccount.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/createaccount.pm between versions 1.19 and 1.29

version 1.19, 2008/07/13 17:57:58 version 1.29, 2009/03/12 13:41:11
Line 52  sub handler { Line 52  sub handler {
     if ($r->header_only) {      if ($r->header_only) {
         return OK;          return OK;
     }      }
       
     my $domain;      my $domain;
   
     my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');      my $sso_username = $r->subprocess_env->get('REDIRECT_SSOUserUnknown');
     my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');      my $sso_domain = $r->subprocess_env->get('REDIRECT_SSOUserDomain');
   
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);
       &Apache::lonacc::get_posted_cgi($r);
       &Apache::lonlocal::get_language_handle($r);
   
     if ($sso_username ne '' && $sso_domain ne '') {      if ($sso_username ne '' && $sso_domain ne '') {
         $domain = $sso_domain;           $domain = $sso_domain; 
     } else {       } else {
         $domain = &Apache::lonnet::default_login_domain();          $domain = &Apache::lonnet::default_login_domain();
           if (defined($env{'form.courseid'})) {
               if (&validate_course($env{'form.courseid'})) {
                   if ($env{'form.courseid'} =~ /^($match_domain)_($match_courseid)$/) {
                       $domain = $1; 
                   }
               }
           }
     }      }
     my $domdesc = &Apache::lonnet::domain($domain,'description');      my $domdesc = &Apache::lonnet::domain($domain,'description');
     my $contact_name = &mt('LON-CAPA helpdesk');      my $contact_name = &mt('LON-CAPA helpdesk');
Line 74  sub handler { Line 85  sub handler {
     my $include = $r->dir_config('lonIncludes');      my $include = $r->dir_config('lonIncludes');
     my $start_page;      my $start_page;
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token','courseid']);  
     &Apache::lonacc::get_posted_cgi($r);  
     &Apache::lonlocal::get_language_handle($r);  
   
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
     if ($handle ne '') {      if ($handle ne '') {
         $start_page =          $start_page =
Line 87  sub handler { Line 94  sub handler {
         $r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.          $r->print($start_page."\n".'<h2>'.&mt('You are already logged in').'</h2>'.
                   '<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').                    '<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].','<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').
                   '</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);                    '</p><p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'.$end_page);
        return OK;          return OK;
     }      }
     $start_page =  
         &Apache::loncommon::start_page('Create a user account in LON-CAPA','',      my ($js,$courseid,$title);
                                        {'no_inline_link'   => 1,});      if (defined($env{'form.courseid'})) {
     if ($env{'form.phase'} eq 'username_activation') {          $courseid = &validate_course($env{'form.courseid'});
       }
       if ($courseid ne '') {
           $js = &catreturn_js();
           $title = 'Self-enroll in a LON-CAPA course';
       } else {
           $title = 'Create a user account in LON-CAPA';
       }
       if ($env{'form.phase'} eq 'selfenroll_login') {
           $title = 'Self-enroll in a LON-CAPA course';
         if ($env{'form.udom'} ne '') {          if ($env{'form.udom'} ne '') {
             $domain = $env{'form.udom'};              $domain = $env{'form.udom'};
         }          }
           my ($result,$output) =
               &username_validation($r,$env{'form.uname'},$domain,$domdesc,
                                    $contact_name,$contact_email,$courseid,
                                    $lonhost);
           if ($result eq 'existingaccount') {
               $r->print($output);
               &print_footer($r);
               return OK;
           } else {
               $start_page = 
                   &Apache::loncommon::start_page($title,$js,
                                                  {'no_inline_link'   => 1,});
               &print_header($r,$start_page,$courseid);
               $r->print($output);
               &print_footer($r);    
               return OK;
           }
     }      }
       $start_page =
           &Apache::loncommon::start_page($title,$js,
                                          {'no_inline_link'   => 1,});
     my @cancreate;      my @cancreate;
     my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);      my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
     if (ref($domconfig{'usercreation'}) eq 'HASH') {      if (ref($domconfig{'usercreation'}) eq 'HASH') {
Line 111  sub handler { Line 147  sub handler {
     }      }
   
     if (@cancreate == 0) {      if (@cancreate == 0) {
         &print_header($r,$start_page);          &print_header($r,$start_page,$courseid);
         my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.          my $output = '<h3>'.&mt('Account creation unavailable').'</h3>'.
                      '<span class="LC_warning">'.                       '<span class="LC_warning">'.
                      &mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted at this institution ([_1]).',$domdesc).'</span><br /><br />';                       &mt('Creation of a new user account using an e-mail address or an institutional log-in ID as username is not permitted at this institution ([_1]).',$domdesc).'</span><br /><br />';
         $r->print($output);          $r->print($output);
         $r->print(&Apache::loncommon::end_page());          &print_footer($r);
         return OK;          return OK;
     }      }
   
     my $courseid;  
     if (defined($env{'form.courseid'})) {  
         $courseid = &validate_course($env{'form.courseid'});  
     }  
   
     if ($sso_username ne '') {      if ($sso_username ne '') {
         &print_header($r,$start_page);          &print_header($r,$start_page,$courseid);
         my ($msg,$sso_logout);          my ($msg,$sso_logout);
         $sso_logout = &sso_logout_frag($r,$domain);          $sso_logout = &sso_logout_frag($r,$domain);
         if (grep(/^sso$/,@cancreate)) {          if (grep(/^sso$/,@cancreate)) {
Line 141  sub handler { Line 172  sub handler {
                    $sso_logout;                     $sso_logout;
         }          }
         $r->print($msg);          $r->print($msg);
         $r->print(&Apache::loncommon::end_page());          &print_footer($r);
         return OK;          return OK;
     }      }
   
Line 156  sub handler { Line 187  sub handler {
                 return OK;                  return OK;
             } else {              } else {
                 $r->print($output);                  $r->print($output);
                 $r->print(&Apache::loncommon::end_page());                  &print_footer($r);
                 return OK;                  return OK;
             }              }
         } else {          } else {
             &print_header($r,$start_page);              &print_header($r,$start_page,$courseid);
             $r->print($output);              $r->print($output);
             $r->print(&Apache::loncommon::end_page());              &print_footer($r);
             return OK;              return OK;
         }          }
     }      }
Line 176  sub handler { Line 207  sub handler {
                 return OK;                  return OK;
             }              }
         }          }
         &print_header($r,$start_page);          &print_header($r,$start_page,$courseid);
         $r->print($output);          $r->print($output);
         $r->print(&Apache::loncommon::end_page());          &print_footer($r);
         return OK;          return OK;
     } elsif ($env{'form.phase'} eq 'username_validation') {       } elsif ($env{'form.phase'} eq 'username_validation') { 
         (my $result,$output) =           (my $result,$output) = 
Line 187  sub handler { Line 218  sub handler {
                                  $lonhost);                                   $lonhost);
         if ($result eq 'existingaccount') {          if ($result eq 'existingaccount') {
             $r->print($output);              $r->print($output);
             $r->print(&Apache::loncommon::end_page());              &print_footer($r);
             return OK;              return OK;
         } else {          } else {
             &print_header($r,$start_page);              &print_header($r,$start_page,$courseid);
         }          }
     } elsif ($env{'form.create_with_email'}) {      } elsif ($env{'form.create_with_email'}) {
         &print_header($r,$start_page);          &print_header($r,$start_page,$courseid);
         $output = &process_email_request($env{'form.useremail'},$domain,$domdesc,          $output = &process_email_request($env{'form.useremail'},$domain,$domdesc,
                                          $contact_name,$contact_email,\@cancreate,                                           $contact_name,$contact_email,\@cancreate,
                                          $lonhost,$domconfig{'usercreation'},                                           $lonhost,$domconfig{'usercreation'},
                                          $courseid);                                           $courseid);
     } elsif (!$token) {      } elsif (!$token) {
         &print_header($r,$start_page);          &print_header($r,$start_page,$courseid);
         my $now=time;          my $now=time;
         if (grep(/^login$/,@cancreate)) {          if (grep(/^login$/,@cancreate)) {
             my $jsh=Apache::File->new($include."/londes.js");              my $jsh=Apache::File->new($include."/londes.js");
Line 210  sub handler { Line 241  sub handler {
             $r->print(&javascript_validmail());              $r->print(&javascript_validmail());
         }          }
         $output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost,          $output = &print_username_form($domain,$domdesc,\@cancreate,$now,$lonhost,
                                        $courseid);                                          $courseid);
     }      }
     $r->print($output);      $r->print($output);
     $r->print(&Apache::loncommon::end_page());      &print_footer($r);
     return OK;      return OK;
 }  }
   
 sub print_header {  sub print_header {
     my ($r,$start_page) = @_;      my ($r,$start_page,$courseid) = @_;
     $r->print($start_page);      $r->print($start_page);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
       if ($courseid ne '') {
           my %coursehash = &Apache::lonnet::coursedescription($courseid);
           &selfenroll_crumbs($r,$courseid,$coursehash{'description'});
       }
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
     ({href=>"/adm/createuser",      ({href=>"/adm/createuser",
       text=>"New username"});        text=>"New username"});
Line 228  sub print_header { Line 263  sub print_header {
     return;      return;
 }  }
   
   sub print_footer {
       my ($r) = @_;
       if ($env{'form.courseid'} ne '') {
           $r->print('<form name="backupcrumbs" method="post" action="">'.
                     &Apache::lonhtmlcommon::echo_form_input(['backto','logtoken',
                         'token','serverid','uname','upass','phase','create_with_email',
                         'code','useremail','crypt','cfirstname','clastname',
                         'cmiddlename','cgeneration','cpermanentemail','cid']).
                     '</form>');
       }
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub selfenroll_crumbs {
       my ($r,$courseid,$desc) = @_;
       &Apache::lonhtmlcommon::add_breadcrumb
            ({href=>"javascript:ToCatalog('backupcrumbs','')",
              text=>"Course Catalog"});
       if ($env{'form.coursenum'} ne '') {
           &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>"javascript:ToCatalog('backupcrumbs','details')",
               text=>"Course details"});
       }
       my $last_crumb;
       if ($desc ne '') {
           $last_crumb = &mt('Self-enroll in [_1]','<span class="LC_cusr_emph">'.$desc.'</span>');
       } else {
           $last_crumb = &mt('Self-enroll');
       }
       &Apache::lonhtmlcommon::add_breadcrumb
                      ({href=>"javascript:ToSelfenroll('backupcrumbs')",
                        text=>$last_crumb,
                        no_mt=>"1"});
       return;
   }
   
 sub validate_course {  sub validate_course {
     my ($courseid) = @_;      my ($courseid) = @_;
     my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);      my ($cdom,$cnum) = ($courseid =~ /^($match_domain)_($match_courseid)$/);
Line 317  sub print_username_form { Line 388  sub print_username_form {
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                          unam => 'username',                                           unam => 'username',
                                          udom => 'domain',                                           udom => 'domain',
                                          uemail => 'Email address in LON-CAPA',                                           uemail => 'E-mail address in LON-CAPA',
                                          proc => 'Proceed');                                           proc => 'Proceed');
     my $output;      my $output;
     if (ref($cancreate) eq 'ARRAY') {      if (ref($cancreate) eq 'ARRAY') {
Line 325  sub print_username_form { Line 396  sub print_username_form {
             my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);              my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
             if ((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth')) {              if ((($domdefaults{'auth_def'} =~/^krb/) && ($domdefaults{'auth_arg_def'} ne '')) || ($domdefaults{'auth_def'} eq 'localauth')) {
                 $output = '<div class="LC_left_float"><h3>'.&mt('Create account with a username provided by this institution').'</h3>';                  $output = '<div class="LC_left_float"><h3>'.&mt('Create account with a username provided by this institution').'</h3>';
                 $output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';  
                 my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();  
                 my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);  
                 my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',  
                                                    $lonhost);  
                 $output .= &serverform($logtoken,$lonhost,undef,$courseid);  
                 my $unameform = '<input type="text" name="uname" size="10" value="" />';  
                 my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';  
                 my $submit_text = &mt('Create LON-CAPA account');                  my $submit_text = &mt('Create LON-CAPA account');
                 $output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".                   $output .= &mt('If you already have a log-in ID at this institution,[_1] you may be able to use it for LON-CAPA.','<br />').'<br /><br />'.&mt('Type in your log-in ID and password to find out.').'<br /><br />';
                            &Apache::lonhtmlcommon::start_pick_box()."\n".                  $output .= &login_box($now,$lonhost,$courseid,$submit_text,
                            &Apache::lonhtmlcommon::row_title(&mt('Log-in ID'),                                        $domain,'createaccount').'</div>';
                                                         'LC_pick_box_title')."\n".  
                            $unameform."\n".  
                            &Apache::lonhtmlcommon::row_closure(1)."\n".  
                            &Apache::lonhtmlcommon::row_title(&mt('Password'),  
                                                         'LC_pick_box_title')."\n".  
                            $upassform."\n".'<br /><br />'."\n".  
                            '<input type="button" name="username_validation" value="'.  
                            $submit_text.'" onclick="javascript:send()" />'."\n".   
                            &Apache::lonhtmlcommon::row_closure(1)."\n".  
                            &Apache::lonhtmlcommon::end_pick_box().'<br /><br />'."\n".  
                            '<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".  
                            '<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".  
                            '</form></div>';  
             }              }
         }          }
         if (grep(/^email$/,@{$cancreate})) {          if (grep(/^email$/,@{$cancreate})) {
             $output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';              $output .= '<div class="LC_left_float"><h3>'.&mt('Create account with an e-mail address as your username').'</h3>';
             if (grep(/^login$/,@{$cancreate})) {  
                 $output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';  
             } else {  
                 $output .= '<br />';  
             }  
             my $emailform = '<input type="text" name="useremail" size="25" value="" />';  
             my $captchaform = &create_captcha();              my $captchaform = &create_captcha();
             my $submit_text = &mt('Request LON-CAPA account');              if ($captchaform) {
             $output .=  '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'.                  my $submit_text = &mt('Request LON-CAPA account');
                         &Apache::lonhtmlcommon::start_pick_box()."\n".                  my $emailform = '<input type="text" name="useremail" size="25" value="" />';
                         &Apache::lonhtmlcommon::row_title(&mt('E-mail address'),                  if (grep(/^login$/,@{$cancreate})) {
                                                          'LC_pick_box_title')."\n".                      $output .= &mt('Provide your e-mail address to request a LON-CAPA account,[_1] if you do not have a log-in ID at your institution.','<br />').'<br /><br />';
                         $emailform."\n".                  } else {
                         &Apache::lonhtmlcommon::row_closure(1).                      $output .= '<br />';
                         &Apache::lonhtmlcommon::row_title(&mt('Validation'),                  }
                                                          'LC_pick_box_title')."\n".                  $output .=  '<form name="createaccount" method="post" onSubmit="return validate_email()" action="/adm/createaccount">'.
                         $captchaform."\n".'<br /><br />';                              &Apache::lonhtmlcommon::start_pick_box()."\n".
             if ($courseid ne '') {                              &Apache::lonhtmlcommon::row_title(&mt('E-mail address'),
                 $output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";                                                                'LC_pick_box_title')."\n".
                               $emailform."\n".
                               &Apache::lonhtmlcommon::row_closure(1).
                               &Apache::lonhtmlcommon::row_title(&mt('Validation'),
                                                                'LC_pick_box_title')."\n".
                               $captchaform."\n".'<br /><br />';
                   if ($courseid ne '') {
                       $output .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n"; 
                   }
                   $output .= '<input type="submit" name="create_with_email" value="'. 
                               $submit_text.'" />'.
                               &Apache::lonhtmlcommon::row_closure(1).
                               &Apache::lonhtmlcommon::end_pick_box().'<br /><br />';
                   if ($courseid ne '') {
                       $output .= &Apache::lonhtmlcommon::echo_form_input(['courseid']);
                   }
                   $output .= '</form>';
               } else {
                   my $helpdesk = '/adm/helpdesk?origurl=%2fadm%2fcreateaccount';
                   if ($courseid ne '') {
                       $helpdesk .= '&courseid='.$courseid;
                   }
                   $output .= '<span class="LC_error">'.&mt('An error occurred generating the validation code[_1] required for an e-mail address to be used as username.','<br />').'</span><br /><br />'.&mt('[_1]Contact the helpdesk[_2] or [_3]reload[_2] the page and try again.','<a href="'.$helpdesk.'">','</a>','<a href="javascript:window.location.reload()">');
             }              }
             $output .= '<input type="submit" name="create_with_email" value="'.               $output .= '</div>';
                         $submit_text.'" />'.  
                         &Apache::lonhtmlcommon::row_closure(1).  
                         &Apache::lonhtmlcommon::end_pick_box().'<br /><br /></form>'.  
                         '</div>';  
         }          }
     }      }
     if ($output eq '') {      if ($output eq '') {
Line 389  sub print_username_form { Line 451  sub print_username_form {
     return $output;      return $output;
 }  }
   
   sub login_box {
       my ($now,$lonhost,$courseid,$submit_text,$domain,$context) = @_;
       my $output;
       my %titles = &Apache::lonlocal::texthash(
                                                 createaccount => 'Log-in ID',
                                                 selfenroll    => 'Username',
                                               );
       my ($lkey,$ukey) = &Apache::lonpreferences::des_keys();
       my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
       my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount',
                                          $lonhost);
       $output = &serverform($logtoken,$lonhost,undef,$courseid,$context);
       my $unameform = '<input type="text" name="uname" size="10" value="" />';
       my $upassform = '<input type="password" name="upass'.$now.'" size="10" />';
       $output .= '<form name="client" method="post" action="/adm/createaccount">'."\n".
                  &Apache::lonhtmlcommon::start_pick_box()."\n";
       if ($context eq 'selfenroll') {
           my $udomform =  '<input type="text" name="udom" size="10" value="'.
                           $domain.'" />';
           $output .= &Apache::lonhtmlcommon::row_title(&mt('Domain'),
                                                        'LC_pick_box_title')."\n".
                      $udomform."\n".
                      &Apache::lonhtmlcommon::row_closure(1)."\n";
       }
   
       $output .= &Apache::lonhtmlcommon::row_title($titles{$context},
                                                    'LC_pick_box_title')."\n".
                  $unameform."\n".
                  &Apache::lonhtmlcommon::row_closure(1)."\n".
                  &Apache::lonhtmlcommon::row_title(&mt('Password'),
                                                   'LC_pick_box_title')."\n".
                  $upassform."\n".'<br /><br />'."\n".
                  '<input type="button" name="username_validation" value="'.
                  $submit_text.'" onclick="javascript:send()" />'."\n".
                  &Apache::lonhtmlcommon::row_closure(1)."\n".
                  &Apache::lonhtmlcommon::end_pick_box();
       $output .= '<p>'.
                  '<a href="/adm/resetpw">'.&mt('Forgot password?').'</a>'.
                  '</p>'."\n";
       $output .= '<input type="hidden" name="lextkey" value="'.$lextkey.'">'."\n".
                  '<input type="hidden" name="uextkey" value="'.$uextkey.'">'."\n".
                  '</form>';
       return $output;
   }
   
 sub process_email_request {  sub process_email_request {
     my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,      my ($useremail,$domain,$domdesc,$contact_name,$contact_email,$cancreate,
         $server,$settings,$courseid) = @_;          $server,$settings,$courseid) = @_;
     my $useremail = $env{'form.useremail'};      $useremail = $env{'form.useremail'};
     my $output;      my $output;
     if (ref($cancreate) eq 'ARRAY') {      if (ref($cancreate) eq 'ARRAY') {
         if (!grep(/^email$/,@{$cancreate})) {          if (!grep(/^email$/,@{$cancreate})) {
Line 429  sub process_email_request { Line 536  sub process_email_request {
                                              $contact_email,$captcha_hash{$captcha_chk});                                               $contact_email,$captcha_hash{$captcha_chk});
                     return $output;                      return $output;
                 }                  }
                 my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);  
                 my $uhome=&Apache::lonnet::homeserver($useremail,$domain);                  my $uhome=&Apache::lonnet::homeserver($useremail,$domain);
                 if ($uhome eq 'no_host') {                  if ($uhome eq 'no_host') {
                     my $checkhash;                      my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts);
                     my $checks = { 'username' => 1 };                      &call_rulecheck($useremail,$domain,\%alerts,\%rulematch,
                     $checkhash->{$useremail.':'.$domain} = { 'newuser' => 1, };                                      \%inst_results,\%curr_rules,%got_rules,'username');
                     &Apache::loncommon::user_rule_check($checkhash,$checks,                      if (ref($alerts{'username'}) eq 'HASH') {
                           \%alerts,\%rulematch,\%inst_results,\%curr_rules,                          if (ref($alerts{'username'}{$domain}) eq 'HASH') {
                           \%got_rules);  
                     if (ref($alerts{'useremail'}) eq 'HASH') {  
                         if (ref($alerts{'useremail'}{$domain}) eq 'HASH') {  
                             if ($alerts{'username'}{$domain}{$useremail}) {                              if ($alerts{'username'}{$domain}{$useremail}) {
                                 $output = &invalid_state('userrules',$domdesc,                                  $output = &invalid_state('userrules',$domdesc,
                                                          $contact_name,$contact_email);                                                           $contact_name,$contact_email);
Line 464  sub process_email_request { Line 567  sub process_email_request {
     return $output;      return $output;
 }  }
   
   sub call_rulecheck {
       my ($uname,$udom,$alerts,$rulematch,$inst_results,$curr_rules,
           $got_rules,$tocheck) = @_;
       my ($checkhash,$checks);
       $checkhash->{$uname.':'.$udom} = { 'newuser' => 1, };
       if ($tocheck eq 'username') {
           $checks = { 'username' => 1 };
       }
       &Apache::loncommon::user_rule_check($checkhash,$checks,
              $alerts,$rulematch,$inst_results,$curr_rules,
              $got_rules);
       return;
   }
   
 sub send_token {  sub send_token {
     my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;      my ($domain,$email,$server,$domdesc,$contact_name,$contact_email,$courseid) = @_;
     my $msg = '<h3>'.&mt('Account creation status').'</h3>'.      my $msg = '<h3>'.&mt('Account creation status').'</h3>'.
Line 478  sub send_token { Line 595  sub send_token {
     my $token = &Apache::lonnet::tmpput(\%info,$server);      my $token = &Apache::lonnet::tmpput(\%info,$server);
     if ($token !~ /^error/ && $token ne 'no_such_host') {      if ($token !~ /^error/ && $token ne 'no_such_host') {
         my $esc_token = &escape($token);          my $esc_token = &escape($token);
         my $mailmsg = &mt('A request was submitted on [_1] for creation of a LON-CAPA account at the following institution: [_2].',localtime(time),$domdesc).' '.          my $showtime = localtime(time);
              &mt('To complete this process please open a web browser and enter the following'          my $mailmsg = &mt('A request was submitted on [_1] for creation of a LON-CAPA account at the following institution: [_2].',$showtime,$domdesc).' '.
                 .' URL in the address/location box: [_1]'               &mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]',
                 ,&Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);                   &Apache::lonnet::absolute_url().'/adm/createaccount?token='.$esc_token);
         my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,          my $result = &Apache::resetpw::send_mail($domdesc,$email,$mailmsg,$contact_name,
                                                  $contact_email);                                                   $contact_email);
         if ($result eq 'ok') {          if ($result eq 'ok') {
Line 569  sub start_session { Line 686  sub start_session {
         $courseid = &validate_course($courseid);          $courseid = &validate_course($courseid);
         if ($courseid ne '') {          if ($courseid ne '') {
             $form{'courseid'} = $courseid;              $form{'courseid'} = $courseid;
             $firsturl = '/adm/selfenroll?cid='.$courseid;              $firsturl = '/adm/selfenroll?courseid='.$courseid;
         }          }
     }      }
     if ($r->dir_config('lonBalancer') eq 'yes') {      if ($r->dir_config('lonBalancer') eq 'yes') {
Line 610  sub print_dataentry_form { Line 727  sub print_dataentry_form {
                     'lastname'       => "Last Name",                      'lastname'       => "Last Name",
                     'generation'     => "Generation",                      'generation'     => "Generation",
                     'permanentemail' => "Permanent e-mail address",                      'permanentemail' => "Permanent e-mail address",
                     'id'             => "ID/Student Number",                      'id'             => "Student/Employee ID",
                     'lg'             => "Login Data"                      'lg'             => "Login Data"
         );          );
         my %textboxsize = (          my %textboxsize = (
Line 691  sub create_account { Line 808  sub create_account {
                     &mt('Return to previous page').'</a>'.                      &mt('Return to previous page').'</a>'.
                     &Apache::loncommon::end_page();                      &Apache::loncommon::end_page();
     if ($retrieved eq 'ok') {      if ($retrieved eq 'ok') {
         if ($env{'form.cid'} ne '') {          if ($env{'form.courseid'} ne '') {
             my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);              my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
             if ($result eq 'fail') {              if ($result eq 'fail') {
                 $output = $error.&mt('Invalid ID format').$end.                  $output = $error.&mt('Invalid ID format').$end.
Line 736  sub username_validation { Line 853  sub username_validation {
             $output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');              $output = '<br /><br />'.&mt('A LON-CAPA account already exists for username [_1] at this institution ([_2]).','<tt>'.$username.'</tt>',$domdesc).'<br />'.&mt('The password entered was also correct so you have been logged in.');
             return ('existingaccount',$output);              return ('existingaccount',$output);
         } else {          } else {
             $output = '<div class="LC_warning">'.              $output = &login_failure_msg($courseid);
                       &mt('Username and/or password could not be authenticated.').  
                       '</div>'.  
                       &mt('Please check the username and password.');  
         }          }
     } else {      } else {
         my $primlibserv = &Apache::lonnet::domain($domain,'primary');          my $primlibserv = &Apache::lonnet::domain($domain,'primary');
Line 756  sub username_validation { Line 870  sub username_validation {
             $output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,              $output = &username_check($username,$domain,$domdesc,$courseid,$lonhost,
                                       $contact_email,$contact_name);                                        $contact_email,$contact_name);
         } else {          } else {
             $output = '<div class="LC_warning">'.              $output = &login_failure_msg($courseid);
                       &mt('Username and/or password could not be authenticated.').  
                       '</div>'.  
                       &mt('Please check the username and password.');   
         }          }
     }      }
     return ('ok',$output);      return ('ok',$output);
 }  }
   
   sub login_failure_msg {
       my ($courseid) = @_;
       my $url;
       if ($courseid ne '') {
           $url = "/adm/selfenroll?courseid=".$courseid;
       } else {
           $url = "/adm/createaccount";
       }
       my $output = '<h4>'.&mt('Authentication failed').'</h4><div class="LC_warning">'.
                    &mt('Username and/or password could not be authenticated.').
                    '</div>'.
                    &mt('Please check the username and password.').'<br /><br />';
                    '<a href="'.$url.'">'.&mt('Try again').'</a>';
       return $output;
   }
   
 sub username_check {  sub username_check {
     my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,$contact_name,      my ($username,$domain,$domdesc,$courseid,$lonhost,$contact_email,$contact_name,
         $sso_logout) = @_;          $sso_logout) = @_;
     my (%rulematch,%inst_results,$newuser,$checkfail,$rowcount,$editable,$output,$msg,      my (%rulematch,%inst_results,$checkfail,$rowcount,$editable,$output,$msg,
         %alerts,%curr_rules,%got_rules);          %alerts,%curr_rules,%got_rules);
     $newuser = 1;      &call_rulecheck($username,$domain,\%alerts,\%rulematch,
     my $checkhash;                      \%inst_results,\%curr_rules,%got_rules,'username');
     my $checks = { 'username' => 1 };  
     $checkhash->{$username.':'.$domain} = { 'newuser' => $newuser };  
     &Apache::loncommon::user_rule_check($checkhash,$checks,\%alerts,\%rulematch,  
                                         \%inst_results,\%curr_rules,\%got_rules);  
     if (ref($alerts{'username'}) eq 'HASH') {      if (ref($alerts{'username'}) eq 'HASH') {
         if (ref($alerts{'username'}{$domain}) eq 'HASH') {          if (ref($alerts{'username'}{$domain}) eq 'HASH') {
             if ($alerts{'username'}{$domain}{$username}) {              if ($alerts{'username'}{$domain}{$username}) {
Line 838  sub username_check { Line 961  sub username_check {
                    &mt('Create LON-CAPA account').'" /></form>';                     &mt('Create LON-CAPA account').'" /></form>';
         if ($rowcount) {          if ($rowcount) {
             if ($editable) {              if ($editable) {
                 $msg = &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';                  if ($courseid ne '') { 
                       $msg = '<h4>'.&mt('User information').'</h4>';
                   }
                   $msg .= &mt('To create one, use the table below to provide information about yourself, then click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
             } else {              } else {
                  $msg = &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';                   if ($courseid ne '') {
                        $msg = '<h4>'.&mt('Review user information').'</h4>';
                    }
                    $msg .= &mt('A user account will be created with information displayed in the table below, when you click the [_1]Create LON-CAPA account[_2] button.','<span class="LC_cusr_emph">','</span>').'<br />';
             }              }
         } else {          } else {
             $msg = '<br />'.&mt('Confirm that you wish to create an account.');              if ($courseid ne '') {
                   $msg = '<h4>'.&mt('Confirmation').'</h4>';
               }
               $msg .= &mt('Confirm that you wish to create an account.');
         }          }
         $msg .= $output;          $msg .= $output;
     }      }
Line 883  sub username_activation { Line 1015  sub username_activation {
     if ((($domdefaults{'auth_def'} =~/^krb(4|5)$/) &&       if ((($domdefaults{'auth_def'} =~/^krb(4|5)$/) && 
          ($domdefaults{'auth_arg_def'} ne '')) ||            ($domdefaults{'auth_arg_def'} ne '')) || 
         ($domdefaults{'auth_def'} eq 'localauth')) {          ($domdefaults{'auth_def'} eq 'localauth')) {
         if ($env{'form.cid'} ne '') {          if ($env{'form.courseid'} ne '') {
             my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);              my ($result,$userchkmsg) = &check_id($username,$domain,$domdesc);
             if ($result eq 'fail') {              if ($result eq 'fail') {
                 $output = $error.&mt('Invalid ID format').$end.                  $output = $error.&mt('Invalid ID format').$end.
Line 892  sub username_activation { Line 1024  sub username_activation {
             }              }
         }          }
         # Call modifyuser          # Call modifyuser
           my (%rulematch,%inst_results,%curr_rules,%got_rules,%alerts,%info);
           &call_rulecheck($username,$domain,\%alerts,\%rulematch,
                           \%inst_results,\%curr_rules,%got_rules);
           my @userinfo = ('firstname','middlename','lastname','generation',
                           'permanentemail','id');
           my %canmodify = 
               &Apache::loncreateuser::selfcreate_canmodify('selfcreate',$domain,
                                                            \@userinfo,\%inst_results);
           foreach my $item (@userinfo) {
               if ($canmodify{$item}) {
                   $info{$item} = $env{'form.c'.$item};
               } else {
                   $info{$item} = $inst_results{$username.':'.$domain}{$item}; 
               }
           }
           if (ref($inst_results{$username.':'.$domain}{'inststatus'}) eq 'ARRAY') {
               my @inststatuses = @{$inst_results{$username.':'.$domain}{'inststatus'}};
               $info{'inststatus'} = join(':',map { &escape($_); } @inststatuses);
           }
         my $result =          my $result =
             &Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},              &Apache::lonnet::modifyuser($domain,$username,$env{'form.cid'},
                           $domdefaults{'auth_def'},                            $domdefaults{'auth_def'},
                           $domdefaults{'auth_arg_def'},$env{'form.cfirstname'},                            $domdefaults{'auth_arg_def'},$info{'firstname'},
                           $env{'form.cmiddlename'},$env{'form.clastname'},                            $info{'middlename'},$info{'lastname'},
                           $env{'form.cgeneration'},undef,undef,                            $info{'generation'},undef,undef,
                           $env{'form.cpermanentemail'});                            $info{'permanentemail'},$info{'inststatus'});
         if ($result eq 'ok') {          if ($result eq 'ok') {
             my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});              my $delete = &Apache::lonnet::tmpdel($env{'form.authtoken'});
             $output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);              $output = &mt('A LON-CAPA account has been created for username: [_1] in domain: [_2].',$username,$domain);
Line 952  sub invalid_state { Line 1103  sub invalid_state {
     } elsif ($error eq 'existinguser') {      } elsif ($error eq 'existinguser') {
         $msg = &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');          $msg = &mt('The e-mail address you provided is already in use as a username in LON-CAPA at this institution.');
     } elsif ($error eq 'userrules') {      } elsif ($error eq 'userrules') {
         $msg = &mt('Username rules for this LON-CAPA at this institution do not allow the e-mail address you provided to be used as a username.');          $msg = &mt('Username rules at this institution do not allow the e-mail address you provided to be used as a username.');
     } elsif ($error eq 'userformat') {      } elsif ($error eq 'userformat') {
         $msg = &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');          $msg = &mt('The e-mail address you provided may not be used as a username at this LON-CAPA institution.');
     } elsif ($error eq 'captcha') {      } elsif ($error eq 'captcha') {
Line 983  sub linkto_email_help { Line 1134  sub linkto_email_help {
 sub create_captcha {  sub create_captcha {
     my ($output_dir,$db_dir) = @_;      my ($output_dir,$db_dir) = @_;
     my %captcha_params = &captcha_settings();      my %captcha_params = &captcha_settings();
     my $captcha = Authen::Captcha->new(      my ($output,$maxtries,$tries) = ('',10,0);
                                        output_folder => $captcha_params{'output_dir'},      while ($tries < $maxtries) {
                                        data_folder   => $captcha_params{'db_dir'},          $tries ++;
                                       );          my $captcha = Authen::Captcha->new (
     my $md5sum = $captcha->generate_code($captcha_params{'numchars'});                                             output_folder => $captcha_params{'output_dir'},
     my $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".                                             data_folder   => $captcha_params{'db_dir'},
                  &mt('Type in the letters/numbers shown below').'&nbsp;'.                                            );
                  '<input type="text" size="5" name="code" value="" /><br />'.          my $md5sum = $captcha->generate_code($captcha_params{'numchars'});
                  '<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png">';  
           if (-e $Apache::lonnet::perlvar{'lonCaptchaDir'}.'/'.$md5sum.'.png') {
               $output = '<input type="hidden" name="crypt" value="'.$md5sum.'" />'."\n".
                         &mt('Type in the letters/numbers shown below').'&nbsp;'.
                        '<input type="text" size="5" name="code" value="" /><br />'.
                        '<img src="'.$captcha_params{'www_output_dir'}.'/'.$md5sum.'.png">';
               last;
           }
       }
     return $output;      return $output;
 }  }
   
Line 1016  sub getkeys { Line 1175  sub getkeys {
 }  }
   
 sub serverform {  sub serverform {
     my ($logtoken,$lonhost,$mailtoken,$courseid) = @_;      my ($logtoken,$lonhost,$mailtoken,$courseid,$context) = @_;
     my $output .= <<ENDSERVERFORM;      my $phase = 'username_validation';
   <form name="server" method="post" target="_top">      my $catalog_elements;
       if ($context eq 'selfenroll') {
           $phase = 'selfenroll_login';
       }
       if ($courseid ne '') {
           $catalog_elements = &Apache::lonhtmlcommon::echo_form_input(['courseid','phase']);
       } 
       my $output = <<ENDSERVERFORM;
     <form name="server" method="post" action="/adm/createaccount">
    <input type="hidden" name="logtoken" value="$logtoken" />     <input type="hidden" name="logtoken" value="$logtoken" />
    <input type="hidden" name="token" value="$mailtoken" />     <input type="hidden" name="token" value="$mailtoken" />
    <input type="hidden" name="serverid" value="$lonhost" />     <input type="hidden" name="serverid" value="$lonhost" />
    <input type="hidden" name="uname" value="" />     <input type="hidden" name="uname" value="" />
    <input type="hidden" name="upass" value="" />     <input type="hidden" name="upass" value="" />
    <input type="hidden" name="phase" value="username_validation" />     <input type="hidden" name="phase" value="$phase" />
    <input type="hidden" name="courseid" value="$courseid" />     <input type="hidden" name="courseid" value="$courseid" />
      $catalog_elements
   </form>    </form>
 ENDSERVERFORM  ENDSERVERFORM
     return $output;      return $output;
Line 1110  sub sso_logout_frag { Line 1278  sub sso_logout_frag {
     return $endsessionmsg;      return $endsessionmsg;
 }  }
   
   sub catreturn_js {
       return  <<"ENDSCRIPT";
   <script type="text/javascript">
   
   function ToSelfenroll(formname) {
       var formidx = getFormByName(formname);
       if (formidx > -1) {
           document.forms[formidx].action = '/adm/selfenroll';
           numidx = getIndexByName(formidx,'phase');
           if (numidx > -1) {
               document.forms[formidx].elements[numidx].value = '';   
           }
           numidx = getIndexByName(formidx,'context');
           if (numidx > -1) {
               document.forms[formidx].elements[numidx].value = '';
           }
       }
       document.forms[formidx].submit();
   }
   
   function ToCatalog(formname,caller) {
       var formidx = getFormByName(formname);
       if (formidx > -1) {
           document.forms[formidx].action = '/adm/coursecatalog';
           numidx = getIndexByName(formidx,'coursenum');
           if (numidx > -1) {
               if (caller != 'details') {
                   document.forms[formidx].elements[numidx].value = '';
               }
           }
       }
       document.forms[formidx].submit();
   }
   
   function getIndexByName(formidx,item) {
       for (var i=0;i<document.forms[formidx].elements.length;i++) {
           if (document.forms[formidx].elements[i].name == item) {
               return i;
           }
       }
       return -1;
   }
   
   function getFormByName(item) {
       for (var i=0; i<document.forms.length; i++) {
           if (document.forms[i].name == item) {
               return i;
           }
       }
       return -1;
   }
   
   </script>
   ENDSCRIPT
   
   }
   
 1;  1;
Removed from v.1.19  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.