Bad Cookie

#!/usr/bin/perl # CGI-script to allow download of all essay submissions of # multiple students. # # $Id: multidownload.pl,v 1.1 2007/03/30 22:57:39 banghart 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/ # use lib '/home/httpd/lib/perl'; use LONCAPA::loncgi; use File::Path; use File::Basename; use File::Copy; use IO::File; use Image::Magick; use Apache::lonhtmlcommon(); use Apache::lonnet; use Apache::grades; use Apache::loncommon(); use Apache::lonlocal; use Apache::lonmsg(); use LONCAPA::Enrollment; use strict; $|=1; if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { print < Bad Cookie Your cookie information is incorrect. END return; } &Apache::lonlocal::get_language_handle(); &Apache::loncommon::content_type(undef,'text/html'); my $identifier = $ENV{'QUERY_STRING'}; print(&Apache::loncommon::start_page('Multiple Downloads')); my $symb = $env{'cgi.'.$identifier.'.symb'}; my $courseid = $env{'cgi.'.$identifier.'.courseid'}; my @stuchecked = split /\n/,$env{'cgi.'.$identifier.'.students'}; my @parts = split /\n/,$env{'cgi.'.$identifier.'.parts'}; my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($symb); my @part_response_id = &Apache::grades::flatten_responseType($responseType); print "number of parts is: ".@parts."
"; my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($symb); print "in the CGI script
"; foreach (@stuchecked) { my ($uname,$udom,$fullname) = split(/:/); my %record = &Apache::lonnet::restore($symb,$courseid,$udom,$uname); print $uname."
"; foreach my $part(@part_response_id) { print $part."
"; my ($partid,$respid) = @{ $part }; my $files = &Apache::grades::get_submitted_files($udom,$uname,$partid,$respid,\%record); foreach my $file(@$files) { print $file."
"; } } } die;