# # $Id: lonsupportreq.pm,v 1.66.6.1 2012/02/08 17:49:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # package Apache::lonsupportreq; use strict; use MIME::Types; use MIME::Lite; use CGI::Cookie(); use Apache::Constants qw(:common); use Apache::loncommon(); use Apache::lonhtmlcommon; use Apache::lonnet; use Apache::lonlocal; use Apache::lonacc(); use LONCAPA qw(:DEFAULT :match); sub handler { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; if ($r->header_only) { return OK; } if ($r->uri eq '/adm/helpdesk') { &Apache::lonlocal::get_language_handle($r); } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']); if ($r->uri eq '/adm/helpdesk') { &Apache::lonacc::get_posted_cgi($r); } my $function = $env{'form.function'}; my $origurl = $env{'form.origurl'}; my $command = $env{'form.command'}; if ($command eq 'process') { &print_request_receipt($r,$origurl,$function); } else { &print_request_form($r,$origurl,$function); } return OK; } sub print_request_form { my ($r,$origurl,$function) = @_; my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$email, $lastname,$firstname,$server,$formname,$public); $function = &Apache::loncommon::get_users_function() if (!$function); $ccode = ''; $os = $env{'browser.os'}; $browser = $env{'browser.type'}; $bversion = $env{'browser.version'}; $uhost = $env{'request.host'}; if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) { $public = 1; } else { $uname = $env{'user.name'}; $udom = $env{'user.domain'}; } $uhome = $env{'user.home'}; $formname = 'logproblem'; my $machine = &Apache::lonnet::absolute_url(); if ($origurl =~ m-^https?://-) { $server = $origurl; } else { $server = $machine.$origurl; } my $showserver = $server; $showserver =~ s/\?.*$//; my %lt = &Apache::lonlocal::texthash ( email => 'The e-mail address you entered', notv => 'is not a valid e-mail address', rsub => 'You must include a subject', rdes => 'You must include a description', name => 'Name', subm => 'Submit Request', emad => 'Your e-mail address', emac => 'Cc', unme => 'username', doma => 'domain', entu => 'Enter the username you use to log-in to LON-CAPA', chdo => 'Choose your LON-CAPA domain', entr => 'Enter the username you use to log-in to LON-CAPA, and your domain.', urlp => 'URL of page', phon => 'Phone', pick => 'Pick', subj => 'Subject', detd => 'Detailed Description', opfi => 'Optional file upload', uplf => 'Upload a file (e.g., a screenshot) relevant to your help request (128 KB max.)', fini => 'Finish', clfm => 'Clear Form', ); my $scripttag = (<<"END"); function validate() { if (validmail(document.logproblem.email) == false) { alert("$lt{'email'}: "+document.logproblem.email.value+" $lt{'notv'}."); return; } if (document.logproblem.subject.value == '') { alert("$lt{'rsub'}."); return; } if (document.logproblem.description.value == '') { alert("$lt{'rdes'}."); return; } document.logproblem.submit(); } END $scripttag .= &Apache::lonhtmlcommon::javascript_valid_email(); if ($env{'environment.permanentemail'}) { $email = $env{'environment.permanentemail'}; } elsif ($env{'environment.critnotification'}) { $email = $env{'environment.critnotification'}; } elsif ($env{'environment.notification'}) { $email = $env{'environment.notification'}; } if ($env{'environment.lastname'}) { $lastname = $env{'environment.lastname'}; } if ($env{'environment.firstname'}) { $firstname = $env{'environment.firstname'}; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom', 'useremail','useraccount']); if ($env{'form.origurl'} eq '/adm/createaccount') { if ($email eq '') { if ($env{'form.useremail'} =~ /^[^\@]+\@[^\@]+$/) { $email = &HTML::Entities::encode($env{'form.useremail'},'"<>&'); } } if ($uname eq '') { if ($env{'form.useraccount'} =~ /^$match_username$/) { $uname = &HTML::Entities::encode($env{'form.useraccount'},'"<>&'); } } } my $codedom = &get_domain(); my $caller = 'global'; my $format_reply; my $jscript = ''; my $js = ''; my %add_entries = (topmargin => "0", marginheight => "0", ); $r->print(&Apache::loncommon::start_page('Support Request',$js, { 'function' => $function, 'add_entries' => \%add_entries, 'only_body' => 1,})); if ($r->uri eq '/adm/helpdesk') { &print_header($r,$origurl); } my @css = ('LC_evenrow_value','LC_oddrow_value'); my $num = 1; my $i = $num%2; $r->print('