The uploaded screenshot file ($attachmentsize bytes) included with your request exceeded the maximum allowed size - 128 KB, and has therefore been discarded."; } else { $attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests'); } } } my %cookies = (); my $cookie=CGI::Cookie->parse($r->header_in('Cookie')); if ($$cookie{'lonID'} =~ /lonID=(\w+);/) { $cookies{'lonID'} = $1; } if ($attachmentpath =~ m-/([^/]+)$-) { $fname = $1; $displaymsg .= "
An uploaded screenshot file - $fname ($attachmentsize bytes) was included in the request sent by $env{'user.name'} from LON-CAPA domain: $env{'user.domain'}"; $supportmsg .= "\n"; foreach (@cookievars) { $supportmsg .= "$_: $cookies{$_}\n"; } foreach (@ENVvars) { $supportmsg .= "$_: $ENV{$_}\n"; } foreach (@envvars) { $supportmsg .= "$_: $env{$_}\n"; } } my $msg = MIME::Lite->new( From => $from, To => $to, Subject => $subject, Type =>'TEXT', Data => $supportmsg, ); if ($attachmentpath) { my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath); $msg->attach(Type => $type, Path => $attachmentpath, Filename => $fname ); } else { my $envdata = ''; foreach (@cookievars) { $envdata .= "$_: $cookies{$_}\n"; } foreach (@ENVvars) { $envdata .= "$_: $ENV{$_}\n"; } foreach (@envvars) { $envdata .= "$_: $env{$_}\n"; } foreach (@loncvars) { $envdata .= "$_: $env{$_}\n"; } $msg->attach(Type => 'TEXT', Data => $envdata); } ### Send it: $msg->send('sendmail'); if ($attachmentpath =~ m#$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+#) { unlink($attachmentpath); } $r->print(qq| Your support request contained the following information:
|
||||||||||||
'.&mt('Note').': '.&mt('Student questions about course content should be directed to the course instructor').'.