Bad Cookie

#!/usr/bin/perl # CGI-script to allow download of all essay submissions of # multiple students. # # $Id: multidownload.pl,v 1.16 2007/04/27 22:07:19 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 Apache::lonhtmlcommon(); use Apache::grades; use Apache::lonnavmaps; use Apache::lonnet; use Apache::loncommon(); use Apache::lonlocal; use Apache::lonmsg(); use Apache::lonnet; 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'}; my $unique_path = $identifier.time(); print(&Apache::loncommon::start_page('Multiple Downloads')); my $scope = $env{'request.course.id'}; if ($env{'request.course.sec'}) { $scope .= '/'.$env{'request.course.sec'}; } if (&Apache::lonnet::allowed('vgr',$scope) eq 'F') { my $symb = $env{'cgi.'.$identifier.'.symb'}; my $navmap = Apache::lonnavmaps::navmap->new(); my $res = $navmap->getBySymb($symb); my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); $zipout =~ s/\s/_/g; $zipout .= ".zip"; my $courseid = $env{'request.course.id'}; 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); my $doc_zip_root = $Apache::lonnet::perlvar{'lonZipDir'}; # my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($symb); my $uname = $env{'user.name'}; my $udom = $env{'user.domain'}; my $unique_user = $uname.":".$udom; &mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path",0,0700); my $file_problem = 0; foreach my $stu (@stuchecked) { my %files_saved; my ($stuname,$studom,$fullname) = split(/:/,$stu); my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname); foreach my $part (@part_response_id) { my ($partid,$respid) = @{$part}; &mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700); my $files = &Apache::grades::get_submitted_files($studom,$stuname,$partid,$respid,\%record); foreach my $file (@$files) { $file =~ /(^.*\/)(.+$)/; my $file_name_only = $2; &Apache::lonnet::repcopy($file); my $source = &Apache::lonnet::filelocation("",$file); my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid/$file_name_only"; if (exists($files_saved{$destination})) { # file has already been saved once my ($file_name,$file_ext) = ($destination =~ /(^.*)(\..+$)/); $destination = $file_name.$files_saved{$destination}.$file_ext; $files_saved{$destination} ++; } $files_saved{$destination}++; if (!©($source,$destination)) { if (!$file_problem) { print &mt("Unable to create:
"); $file_problem = 1; } print ("$stuname/part$partid/resp$respid/$file_name_only
"); } } } } &mkpath($doc_zip_root."/zipout/$unique_user",0,0700); my $statement = "cd $doc_zip_root/zipdir/$unique_user/$unique_path\n"; $statement .= "zip -r $doc_zip_root/zipout/$unique_user/$zipout * > /dev/null"; system($statement); $statement = "rm -rf $doc_zip_root/zipdir/$unique_user/$unique_path"; system($statement); print(''. &mt("Click to download").'
'); } else { print(&mt('You are not authorized to download student submissions.')); } 1; __END__;