--- loncom/interface/Attic/lonremote.pm 2003/04/02 20:28:27 1.1 +++ loncom/interface/Attic/lonremote.pm 2003/04/02 21:23:04 1.2 @@ -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.2 2003/04/02 21:23:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,36 +42,58 @@ use Apache::lonnet(); use Apache::lonmenu(); sub launchremote { - my ($r,$clientos,$lowerurl)=@_; + my ($r,$lowerurl)=@_; # -------------------------------------------------------- Menu script and info - my $windowinfo=&Apache::lonmenu::open($clientos); - 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 -$startupremote +The LearningOnline Network with CAPA $bodytag -$setflags -$windowinfo -

Welcome!

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

-Problems?

-$maincall -ENDSUCCESS +ENDLAUNCH + &Apache::lonnet::put('environment',{'remote' => 'on'}); + &Apache::lonnet::appenv('environment.remote' => 'on'); +} + +sub collapseremote { + my ($r,$lowerurl)=@_; +# -------------------------------------------------------- Menu script and info + my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control'); + $r->print(< + +The LearningOnline Network with CAPA + +$bodytag + + +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']); + unless ($ENV{'form.action'}) { + if ($ENV{'environment.remote'} eq 'on') { + $ENV{'form.action'}='collapse'; + } else { + $ENV{'form.action'}='launch'; + } + } + if ($ENV{'form.action'} eq 'launch') { + &launchremote($r); + } else { + &collapseremote($r); + } return OK; }