--- loncom/interface/Attic/lonremote.pm 2003/04/02 20:28:27 1.1 +++ loncom/interface/Attic/lonremote.pm 2003/04/03 14:44:01 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network # User Authentication Module # -# $Id: lonremote.pm,v 1.1 2003/04/02 20:28:27 www Exp $ +# $Id: lonremote.pm,v 1.5 2003/04/03 14:44:01 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,36 +42,68 @@ use Apache::lonnet(); use Apache::lonmenu(); sub launchremote { - my ($r,$clientos,$lowerurl)=@_; + my ($r,$lowerurl)=@_; + &Apache::lonnet::put('environment',{'remote' => 'on'}); + &Apache::lonnet::appenv('environment.remote' => 'on'); # -------------------------------------------------------- Menu script and info - my $windowinfo=&Apache::lonmenu::open($clientos); + my $windowinfo=&Apache::lonmenu::open($ENV{'browser.os'}); my $startupremote=&Apache::lonmenu::startupremote($lowerurl); my $setflags=&Apache::lonmenu::setflags(); my $maincall=&Apache::lonmenu::maincall(); - my $bodytag=&Apache::loncommon::bodytag('Successful Login'); -# ------------------------------------------------- Output for successful login - $r->print(<print(< -Successful Login to the LearningOnline Network with CAPA +The LearningOnline Network with CAPA $startupremote $bodytag $setflags $windowinfo -

Welcome!

-Welcome to the LearningOnline Network with CAPA. -Please wait while your session -is being set up.

-Problems?

$maincall -ENDSUCCESS +ENDLAUNCH +} + +sub collapseremote { + my ($r,$lowerurl)=@_; +# -------------------------------------------------------- Menu script and info + my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); + my $windowinfo=&Apache::lonmenu::close(); + $r->print(< + +The LearningOnline Network with CAPA + +$bodytag +$windowinfo + + +ENDCOLLAPSE + &Apache::lonnet::put('environment',{'remote' => 'off'}); + &Apache::lonnet::appenv('environment.remote' => 'off'); } sub handler { my $r = shift; + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['action','url']); + unless ($ENV{'form.action'}) { + if ($ENV{'environment.remote'} eq 'on') { + $ENV{'form.action'}='collapse'; + } else { + $ENV{'form.action'}='launch'; + } + } + + my $lowerurl=$ENV{'form.url'}; + + if ($ENV{'form.action'} eq 'launch') { + &launchremote($r,$lowerurl); + } else { + &collapseremote($r,$lowerurl); + } return OK; }