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

Diff for /loncom/auth/restrictedaccess.pm between versions 1.5 and 1.10

version 1.5, 2006/07/21 19:42:12 version 1.10, 2013/07/15 14:32:47
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # Passphrase Entry and Validation for Portfolio files   # Passphrase Entry and Validation for Portfolio files 
 #  #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 53  sub handler { Line 55  sub handler {
    $origurl);     $origurl);
     $env{'request.state'} = "published";      $env{'request.state'} = "published";
     $env{'request.filename'} = $origurl;      $env{'request.filename'} = $origurl;
     $r->header_out(Location => 'http://'.$ENV{'HTTP_HOST'}.$origurl);              my $newurl = &Apache::lonnet::absolute_url($ENV{'HTTP_HOST'}).$origurl;
       $r->header_out(Location => $newurl);
     return REDIRECT;      return REDIRECT;
         } else {          } else {
     $msg = 'Invalid passphrase';      $msg = 'Invalid passphrase';
Line 73  sub handler { Line 76  sub handler {
 sub setup_handler {  sub setup_handler {
     my ($r) = @_;      my ($r) = @_;
     $r->set_handlers('PerlHandler'=>       $r->set_handlers('PerlHandler'=> 
      \&Apache::restrictedaccess::handler);       [\&Apache::restrictedaccess::handler]);
     $r->content_type('perl-script');          $r->handler('perl-script');    
 }  }
   
 sub print_entryform {  sub print_entryform {
Line 97  function verify() { Line 100  function verify() {
     $r->print('<br /><br /><br />');      $r->print('<br /><br /><br />');
     $r->print(&Apache::loncommon::start_data_table());      $r->print(&Apache::loncommon::start_data_table());
     $r->print(&Apache::loncommon::start_data_table_row());           $r->print(&Apache::loncommon::start_data_table_row());     
     $r->print('<td><nobr>'.&mt('Passphrase: ').'</nobr></td>'.      $r->print('<td><span class="LC_nobreak">'.&mt('Passphrase: ').'</span></td>'.
               '<td><input type="password" size="20" name="pass1" /></td>');                '<td><input type="password" size="20" name="pass1" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::start_data_table_row());      $r->print(&Apache::loncommon::start_data_table_row());
     $r->print('<td align="center" colspan="2"><br />'.      $r->print('<td align="center" colspan="2"><br />'.
               '<input type="button" name="sendpass" value="'.                '<input type="button" name="sendpass" value="'.
               &mt('Submit passphrase').'" onClick="verify()" /></td>');                &mt('Submit passphrase').'" onclick="verify()" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());      $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::end_data_table());      $r->print(&Apache::loncommon::end_data_table());
     $r->print('<input type="hidden" name="origurl" value="'.      $r->print('<input type="hidden" name="origurl" value="'.
Removed from v.1.5  
changed lines
  Added in v.1.10

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