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

Diff for /loncom/auth/lonauth.pm between versions 1.121.2.23 and 1.121.2.24.2.5

version 1.121.2.23, 2021/12/16 21:48:19 version 1.121.2.24.2.5, 2022/08/30 12:10:43
Line 29 Line 29
 package Apache::lonauth;  package Apache::lonauth;
   
 use strict;  use strict;
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use CGI qw(:standard);  use CGI qw(:standard);
 use Apache::loncommon();  use Apache::loncommon();
Line 41  use Apache::lonlocal; Line 41  use Apache::lonlocal;
 use Apache::File();  use Apache::File();
 use HTML::Entities;  use HTML::Entities;
 use Digest::MD5;  use Digest::MD5;
   use CGI::Cookie();
     
 # ------------------------------------------------------------ Successful login  # ------------------------------------------------------------ Successful login
 sub success {  sub success {
     my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,      my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
  $form,$cid,$expirepub) = @_;   $form,$cid,$expirepub,$write_to_opener) = @_;
   
 # ------------------------------------------------------------ Get cookie ready  # ------------------------------------------------------------ Get cookie ready
     my $cookie =      my $cookie =
Line 147  sub success { Line 148  sub success {
         $destination .= 'source=login';          $destination .= 'source=login';
     }      }
   
       my $brcrum = [{'href' => '',
                      'text' => 'Successful Login'},];
       my $args = {'no_inline_link' => 1,
                   'bread_crumbs' => $brcrum,};
       if (($env{'request.deeplink.login'} eq $lowerurl) &&
           (($env{'request.linkprot'}) || ($env{'request.linkkey'} ne ''))) {
           my %info;
           if ($env{'request.linkprot'}) {
               $info{'linkprot'} = $env{'request.linkprot'};
               foreach my $item ('linkprotuser','linkprotexit') {
                   if ($form->{$item}) {
                       $info{$item} = $form->{$item};
                   }
               }
               $args = {'only_body' => 1,};
           } elsif ($env{'request.linkkey'} ne '') {
               $info{'linkkey'} = $env{'request.linkkey'};
           }
           $info{'origurl'} = $lowerurl;
           my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');
           unless (($token eq 'con_lost') || ($token eq 'refused') ||
                   ($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
               $destination .= (($destination =~ /\?/) ? '&' : '?') . 'ttoken='.$token;
           }
       }
       if ($env{'request.deeplink.login'}) {
           if ($env{'environment.remote'} eq 'on') {
               &Apache::lonnet::appenv({'environment.remote' => 'off'});
           }
       }
       my $startupremote;
       if ($write_to_opener) {
           if ($env{'environment.remote'} eq 'on') {
               &Apache::lonnet::appenv({'environment.remote' => 'off'});
           }
           $args->{'redirect'} = [0,$destination,'',$write_to_opener];
       } else {
           $startupremote=&Apache::lonmenu::startupremote($destination);
       }
   
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});      my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
     my $startupremote=&Apache::lonmenu::startupremote($destination);  
     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);      my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();      my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();      my $maincall=&Apache::lonmenu::maincall();
     my $brcrum = [{'href' => '',  
                    'text' => 'Successful Login'},];  
     my $start_page=&Apache::loncommon::start_page('Successful Login',      my $start_page=&Apache::loncommon::start_page('Successful Login',
                                                   $startupremote,                                                    $startupremote,$args);
                                                   {'no_inline_link' => 1,  
                                                    'bread_crumbs' => $brcrum,});  
     my $end_page  =&Apache::loncommon::end_page();      my $end_page  =&Apache::loncommon::end_page();
   
     my $continuelink;      my $continuelink;
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
  $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';          unless ($write_to_opener) {
       $continuelink='<a href="'.$destination.'">'.&mt('Continue').'</a>';
           }
     }      }
 # ------------------------------------------------- Output for successful login  # ------------------------------------------------- Output for successful login
   
Line 181  sub success { Line 219  sub success {
     }      }
     $r->send_http_header;      $r->send_http_header;
   
     my %lt=&Apache::lonlocal::texthash(      if ($env{'request.linkprot'}) {
        'wel' => 'Welcome',          $r->print(<<END);
        'pro' => 'Login problems?',  $start_page
        );  <br />$continuelink
     my $loginhelp = &loginhelpdisplay($domain);  $end_page
     if ($loginhelp) {  END
         $loginhelp = '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';      } else {
     }          my %lt=&Apache::lonlocal::texthash(
              'wel' => 'Welcome',
              'pro' => 'Login problems?',
             );
           my $loginhelp = &loginhelpdisplay($domain);
           if ($loginhelp) {
               $loginhelp = '<p><a href="'.$loginhelp.'">'.$lt{'pro'}.'</a></p>';
           }
   
     my $welcome = &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>');           my $welcome = &mt('Welcome to the Learning[_1]Online[_2] Network with CAPA. Please wait while your session is being set up.','<i>','</i>'); 
     $r->print(<<ENDSUCCESS);          $r->print(<<ENDSUCCESS);
 $start_page  $start_page
 $setflags  $setflags
 $windowinfo  $windowinfo
Line 203  $maincall Line 248  $maincall
 $continuelink  $continuelink
 $end_page  $end_page
 ENDSUCCESS  ENDSUCCESS
       }
     return;      return;
 }  }
   
Line 216  sub failed { Line 262  sub failed {
     if ($clientunicode && !$clientmathml) {      if ($clientunicode && !$clientmathml) {
         $args = {'browser.unicode' => 1};          $args = {'browser.unicode' => 1};
     }      }
       if ($form->{firsturl} =~ m{^/tiny/$match_domain/\w+$}) {
           if ($form->{linkprot}) {
               $args->{only_body} = 1;
           }
       }
   
     my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef,$args);      my $start_page = &Apache::loncommon::start_page('Unsuccessful Login',undef,$args);
     my $uname = &Apache::loncommon::cleanup_html($form->{'uname'});      my $uname = &Apache::loncommon::cleanup_html($form->{'uname'});
Line 250  sub failed { Line 301  sub failed {
             my $firsturl = &Apache::loncommon::cleanup_html($form->{firsturl});              my $firsturl = &Apache::loncommon::cleanup_html($form->{firsturl});
             if ($firsturl ne '') {              if ($firsturl ne '') {
                 $retry .= (($retry=~/\?/)?'&amp;':'?').'firsturl='.$firsturl;                  $retry .= (($retry=~/\?/)?'&amp;':'?').'firsturl='.$firsturl;
                   if ($form->{firsturl} =~ m{^/tiny/$match_domain/\w+$}) {
                       unless (exists($form->{linkprot})) {
                           if (exists($form->{linkkey})) {
                               $retry .= 'linkkey='.$form->{linkkey};
                           }
                       }
                   }
               }
           }
           if (exists($form->{linkprot})) {
               my %info = (
                            'linkprot' => $form->{'linkprot'},
                          );
               foreach my $item ('linkprotuser','linkprotexit') {
                   if ($form->{$item} ne '') {
                       $info{$item} = $form->{$item};
                   }
               }
               my $ltoken = &Apache::lonnet::tmpput(\%info,
                                                    $r->dir_config('lonHostID'),'retry');
               if ($ltoken) {
                   $retry .= (($retry =~ /\?/) ? '&' : '?').'ltoken='.$ltoken;
             }              }
         }          }
     } elsif ($querystr ne '') {      } elsif ($querystr ne '') {
Line 332  sub handler { Line 405  sub handler {
                     if ($firsturl ne '') {                      if ($firsturl ne '') {
                         $info{'firsturl'} = $firsturl;                          $info{'firsturl'} = $firsturl;
                         $dest = $firsturl;                          $dest = $firsturl;
                           my $relogin;
                           if ($dest =~ m{^/tiny/$match_domain/\w+$}) {
                               if ($env{'request.course.id'}) {
                                   my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                                   my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                                   my $symb = &Apache::loncommon::symb_from_tinyurl($dest,$cnum,$cdom);
                                   if ($symb) {
                                       unless (&set_deeplink_login(%info) eq 'ok') {
                                           $relogin = 1;
                                       }
                                   }
                               }
                               if ($relogin) {
                                   $r->print(
                                         $start_page
                                        .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
                                        .'<p>'.&mt('Please [_1]log out[_2] first, and then try your access again',
                                                   '<a href="/adm/logout">','</a>')
                                        .'</p>'
                                        .$end_page);
                               } else {
                                   if (($info{'linkprot'}) || ($info{'linkkey'} ne '')) {
                                       if (($info{'linkprot'}) && ($info{'linkprotuser'} ne '')) {
                                           unless ($info{'linkprotuser'} eq $env{'user.name'}.':'.$env{'user.domain'}) {
                                               $r->print(
                                                         $start_page
                                                         .'<p class="LC_warning">'.&mt('You are already logged in, but as a different user from the one expected for the link you followed from another system').'</p>'
                                                         .'<p>'.&mt('Please [_1]log out[_2] first, and then try following the link again from the other system',
                                                                    '<a href="/adm/logout">','</a>')
   
                                                         .'</p>'
                                                         .$end_page);
                                               return OK;
                                           }
                                       }
                                       my $token = &Apache::lonnet::tmpput(\%info,$r->dir_config('lonHostID'),'link');
                                       unless (($token eq 'con_lost') || ($token eq 'refused') ||
                                               ($token eq 'unknown_cmd') || ($token eq 'no_such_host')) {
                                           $dest .= (($dest =~ /\?/) ? '&' : '?') . 'ttoken='.$token;
                                       }
                                   }
                                   $r->print(
                                         $start_page
                                        .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
                                        .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4] first, and then try your access again',
                                                   '<a href="'.$dest.'">','</a>',
                                                   '<a href="/adm/logout">','</a>')
                                        .'</p>'
                                        .$end_page);
                               }
                               return OK;
                           }
                     }                      }
                 }                  }
             }              }
Line 399  sub handler { Line 524  sub handler {
         my ($key,$value) = split(/=/,$item);          my ($key,$value) = split(/=/,$item);
         $form{$key} = &unescape($value);          $form{$key} = &unescape($value);
     }      }
       if ($firsturl =~ m{^/tiny/$match_domain/\w+$}) {
           $form{'firsturl'} = $firsturl;
       }
     my $upass = &Apache::loncommon::des_decrypt($des_key,$form{'upass0'});      my $upass = &Apache::loncommon::des_decrypt($des_key,$form{'upass0'});
   
 # ---------------------------------------------------------------- Authenticate  # ---------------------------------------------------------------- Authenticate
Line 420  sub handler { Line 548  sub handler {
 # --------------------------------------------------------------------- Failed?  # --------------------------------------------------------------------- Failed?
   
     if ($authhost eq 'no_host') {      if ($authhost eq 'no_host') {
  &failed($r,'Username and/or password could not be authenticated.',          my $pwdverify;
  \%form);          if (&Apache::lonnet::homeserver($form{'uname'},$form{'udom'}) eq 'no_host') {
         return OK;              my %possunames = &alternate_unames_check($form{'uname'},$form{'udom'});
               if (keys(%possunames) > 0) {
                   foreach my $rulematch (keys(%possunames)) {
                       my $possuname = $possunames{$rulematch};
                       if (($possuname ne '') && ($possuname =~ /^$match_username$/)) {
                           $authhost=Apache::lonnet::authenticate($possuname,$upass,
                                                                  $form{'udom'},undef,
                                                                  $clientcancheckhost);
                           if (($authhost eq 'no_host') || ($authhost eq 'no_account_on_host')) {
                               next;
                           } elsif (($authhost ne '') && (&Apache::lonnet::hostname($authhost) ne '')) {
                               $pwdverify = 1;
                               &Apache::lonnet::logthis("Authenticated user: $possuname was submitted as: $form{'uname'}");
                               $form{'uname'} = $possuname;
                               last;
                           }
                       }
                   }
               }
           }
           unless ($pwdverify) {
               &failed($r,'Username and/or password could not be authenticated.',
                       \%form);
               return OK;
           }
     } elsif ($authhost eq 'no_account_on_host') {      } elsif ($authhost eq 'no_account_on_host') {
         if ($defaultauth) {          if ($defaultauth) {
             my $domdesc = &Apache::lonnet::domain($form{'udom'},'description');              my $domdesc = &Apache::lonnet::domain($form{'udom'},'description');
Line 542  sub handler { Line 694  sub handler {
  }   }
     }      }
   
       if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
           if (($form{'linkprot'}) && ($form{'linkprotuser'} ne '')) {
               unless($form{'linkprotuser'} eq $form{'uname'}.':'.$form{'udom'}) {
                   delete($form{'udom'});
                   delete($form{'uname'});
                   &failed($r,'Username and/or domain are different to that expected for the link you followed from another system',
                           \%form,$authhost);
                   return OK;
               }
           }
       }
   
     my ($is_balancer,$otherserver);      my ($is_balancer,$otherserver);
   
     unless ($hosthere) {      unless ($hosthere) {
Line 583  sub handler { Line 747  sub handler {
             if ($form{'symb'}) {              if ($form{'symb'}) {
                 $switchto .= '&symb='.$form{'symb'};                  $switchto .= '&symb='.$form{'symb'};
             }              }
               if ($form{'linkprot'}) {
                   $env{'request.linkprot'} = $form{'linkprot'};
                   foreach my $item ('linkprotuser','linkprotexit') {
                       if ($form{$item}) {
                           $env{'request.'.$item} = $form{$item};
                       }
                   }
               } elsif ($form{'linkkey'} ne '') {
                   $env{'request.linkkey'} = $form{'linkkey'};
               }
               if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                   &set_deeplink_login(%form);
               }
             $r->internal_redirect($switchto);              $r->internal_redirect($switchto);
         } else {          } else {
             &Apache::loncommon::content_type($r,'text/html');              &Apache::loncommon::content_type($r,'text/html');
Line 606  sub handler { Line 783  sub handler {
                 if ($form{'symb'}) {                  if ($form{'symb'}) {
                     $switchto .= '&symb='.$form{'symb'};                      $switchto .= '&symb='.$form{'symb'};
                 }                  }
                   if ($form{'linkprot'}) {
                       $env{'request.linkprot'} = $form{'linkprot'};
                       foreach my $item ('linkprotuser','linkprotexit') {
                           if ($form{$item}) {
                               $env{'request.'.$item} = $form{$item};
                           }
                       }
                   } elsif ($form{'linkkey'} ne '') {
                       $env{'request.linkkey'} = $form{'linkkey'};
                   }
                   if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                       &set_deeplink_login(%form);
                   }
                 $r->internal_redirect($switchto);                  $r->internal_redirect($switchto);
             } else {              } else {
                 &Apache::loncommon::content_type($r,'text/html');                  &Apache::loncommon::content_type($r,'text/html');
Line 637  sub handler { Line 827  sub handler {
             if ($unloaded) {              if ($unloaded) {
                 &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',                  &success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',
                          undef,\%form);                           undef,\%form);
                   if ($form{'linkprot'}) {
                       $env{'request.linkprot'} = $form{'linkprot'};
                   } elsif ($form{'linkkey'} ne '') {
                       $env{'request.linkkey'} = $form{'linkkey'};
                   }
                   if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                       &set_deeplink_login(%form);
                   }
                 $r->internal_redirect('/adm/switchserver?otherserver='.$unloaded.'&origurl='.$firsturl);                  $r->internal_redirect('/adm/switchserver?otherserver='.$unloaded.'&origurl='.$firsturl);
                 return OK;                  return OK;
             }              }
Line 657  sub handler { Line 855  sub handler {
                 }                  }
             }              }
         }          }
         &success($r,$form{'uname'},$form{'udom'},$authhost,$firsturl,undef,          if ($form{'linkprot'}) {
               my ($linkprotector,$uri) = split(/:/,$form{'linkprot'},2);
               if ($linkprotector) {
                   $extra_env = {'user.linkprotector' => $linkprotector,
                                 'user.linkproturi'   => $uri};
               }
           } elsif ($form{'linkkey'} ne '') {
               $extra_env = {'user.deeplinkkey'  => $form{'linkkey'},
                             'user.keyedlinkuri' => $form{'firsturl'}};
           }
           if ($form{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
               &set_deeplink_login(%form);
               if ($form{'linkprot'}) {
                   if (ref($extra_env) eq 'HASH') {
                       %{$extra_env} = ( %{$extra_env}, 'request.linkprot' => $form{'linkprot'} );
                   } else {
                       $extra_env = {'request.linkprot' => $form{'linkprot'}};
                   }
                   if ($form{'linkprotexit'}) {
                       $extra_env->{'request.linkprotexit'} = $form{'linkprotexit'};
                   }
               } elsif ($form{'linkkey'} ne '') {
                   if (ref($extra_env) eq 'HASH') {
                       %{$extra_env} = ( %{$extra_env}, 'request.linkkey' => $form{'linkkey'} );
                   } else {
                       $extra_env = {'request.linkkey' => $form{'linkkey'}};
                   }
               }
               if ($env{'request.deeplink.login'}) {
                   if (ref($extra_env) eq 'HASH') {
                       %{$extra_env} = ( %{$extra_env}, 'request.deeplink.login' => $form{'firsturl'} );
                   } else {
                       $extra_env = {'request.deeplink.login' => $form{'firsturl'}};
                   }
               }
           }
           &success($r,$form{'uname'},$form{'udom'},$authhost,$firsturl,$extra_env,
                  \%form);                   \%form);
         return OK;          return OK;
     }      }
Line 679  sub get_form_items { Line 913  sub get_form_items {
     return %form;      return %form;
 }  }
   
   sub set_deeplink_login {
       my (%form) = @_;
       my $disallow;
       if ($form{'firsturl'} =~ m{^/tiny/($match_domain)/\w+$}) {
           my $cdom = $1;
           my ($cnum,$symb) = &Apache::loncommon::symb_from_tinyurl($form{'firsturl'},'',$cdom);
           if ($symb) {
               if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                   my $deeplink;
                   if ($symb =~ /\.(page|sequence)$/) {
                       my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($symb))[2]);
                       my $navmap = Apache::lonnavmaps::navmap->new();
                       if (ref($navmap)) {
                           $deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');
                       }
                   } else {
                       $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$symb);
                   }
                   if ($deeplink ne '') {
                       my ($state,$others,$listed,$scope,$protect) = split(/,/,$deeplink);
                       if (($protect ne 'none') && ($protect ne '')) {
                           my ($acctype,$item) = split(/:/,$protect);
                           if ($acctype =~ /lti(c|d)$/) {
                               unless ($form{'linkprot'} eq $item.$1.':'.$env{'request.deeplink.login'}) {
                                   $disallow = 1;
                               }
                           } elsif ($acctype eq 'key') {
                               unless ($form{'linkkey'} eq $item) {
                                   $disallow = 1;
                               }
                           }
                       }
                   }
                   unless ($disallow) {
                       $env{'request.deeplink.login'} = $form{'firsturl'};
                   }
               } else {
                   $env{'request.deeplink.login'} = $form{'firsturl'};
               }
           }
       }
       if ($disallow) {
           return;
       }
       return 'ok';
   }
   
 sub set_retry_token {  sub set_retry_token {
     my ($form,$lonhost,$querystr) = @_;      my ($form,$lonhost,$querystr) = @_;
     if (ref($form) eq 'HASH') {      if (ref($form) eq 'HASH') {
         my ($firsturl,$token,$extras,@names);          my ($firsturl,$token,$extras,@names);
         @names = ('role','symb','iptoken');          @names = ('role','symb','linkprotuser','linkprotexit','linkprot','linkkey','iptoken');
         foreach my $name (@names) {          foreach my $name (@names) {
             if ($form->{$name} ne '') {              if ($form->{$name} ne '') {
                 $extras .= '&'.$name.'='.&escape($form->{$name});                  $extras .= '&'.$name.'='.&escape($form->{$name});
Line 751  sub check_can_host { Line 1032  sub check_can_host {
                 my $alias = &Apache::lonnet::use_proxy_alias($r,$login_host);                  my $alias = &Apache::lonnet::use_proxy_alias($r,$login_host);
                 $hostname = $alias if ($alias ne '');                  $hostname = $alias if ($alias ne '');
                 my $newurl = $protocol.'://'.$hostname.'/adm/createaccount';                  my $newurl = $protocol.'://'.$hostname.'/adm/createaccount';
   #FIXME Should preserve where user was going and linkprot by setting ltoken at $login_host
                 $r->print(&Apache::loncommon::start_page('Create a user account in LON-CAPA').                  $r->print(&Apache::loncommon::start_page('Create a user account in LON-CAPA').
                           '<h3>'.&mt('Account creation').'</h3>'.                            '<h3>'.&mt('Account creation').'</h3>'.
                           &mt('You do not currently have a LON-CAPA account at this institution.').'<br />'.                            &mt('You do not currently have a LON-CAPA account at this institution.').'<br />'.
Line 767  sub check_can_host { Line 1049  sub check_can_host {
         } else {          } else {
             &success($r,$form->{'uname'},$udom,$authhost,'noredirect',undef,              &success($r,$form->{'uname'},$udom,$authhost,'noredirect',undef,
                      $form);                       $form);
               if ($form->{'firsturl'} =~ m{^/tiny/$match_domain/\w+$}) {
                   $env{'request.deeplink.login'} = $form->{'firsturl'};
               }
               if ($form->{'linkprot'}) {
                   $env{'request.linkprot'} = $form->{'linkprot'};
               } elsif ($form->{'linkkey'} ne '') {
                   $env{'request.linkkey'} = $form->{'linkkey'};
               }
             my ($otherserver) = &Apache::lonnet::choose_server($udom);              my ($otherserver) = &Apache::lonnet::choose_server($udom);
             $r->internal_redirect('/adm/switchserver?otherserver='.$otherserver);              $r->internal_redirect('/adm/switchserver?otherserver='.$otherserver);
         }          }
Line 810  sub loginhelpdisplay { Line 1100  sub loginhelpdisplay {
     return;      return;
 }  }
   
   sub alternate_unames_check {
       my ($uname,$udom) = @_;
       my %possunames;
       my %domdefs = &Apache::lonnet::get_domain_defaults($udom);
       if (ref($domdefs{'unamemap_rule'}) eq 'ARRAY') {
           if (@{$domdefs{'unamemap_rule'}} > 0) {
               %possunames =
                   &Apache::lonnet::inst_rulecheck($udom,$uname,undef,
                                                   'unamemap',$domdefs{'unamemap_rule'});
           }
       }
       return %possunames;
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.121.2.23  
changed lines
  Added in v.1.121.2.24.2.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>