--- loncom/auth/loncacc.pm 2004/01/27 22:54:59 1.33 +++ loncom/auth/loncacc.pm 2004/10/29 20:44:30 1.37 @@ -2,7 +2,7 @@ # Cookie Based Access Handler for Construction Area # (lonacc: 5/21/99,5/22,5/29,5/31 Gerd Kortemeyer) # -# $Id: loncacc.pm,v 1.33 2004/01/27 22:54:59 albertel Exp $ +# $Id: loncacc.pm,v 1.37 2004/10/29 20:44:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,7 +53,6 @@ sub constructaccess { # We do not allow editing of previous versions of files. if ($url=~/\.(\d+)\.(\w+)$/) { return ''; } my @possibledomains = &Apache::lonnet::current_machine_domains(); - &Apache::lonnet::logthis("got domains of ".join(':',@possibledomains)); if ($ownername eq $ENV{'user.name'}) { foreach my $domain (@possibledomains) { if ($domain eq $ENV{'user.domain'}) { @@ -62,7 +61,6 @@ sub constructaccess { } } - foreach my $domain (@possibledomains) { my $capriv='user.priv.ca./'.$domain.'/'.$ownername.'./'; foreach (keys %ENV) { @@ -104,15 +102,6 @@ sub handler { $r->log_reason("Unauthorized $requrl", $r->filename); return HTTP_NOT_ACCEPTABLE; } -# Construction space needs Remote to work - if ($ENV{'environment.remote'} eq 'off') { - $r->content_type('text/html'); - $r->header_out(Location => - 'http://'.$r->server->server_hostname. - '/adm/remote?action=launch&url='. - &Apache::lonnet::escape($requrl)); - return REDIRECT; - } # -------------------------------------------------------- Load POST parameters