FileFilterRequiringAssignmentZero < ISG

ISG Web>ISGScripts>SubmitFileFilter>FileFilterRequiringAssignmentZero (2012-12-14, CurtisKroetsch) (raw view)

---+ Requiring Assignment 0 Submissions

The =file_filter= program can enforce that a given assignment (likely 0) be completely submitted and have all components passing before submissions of any other assignments are accepted.  A sample filter which would go in <tt>/u/<em>csXXX</em>/bin/file_filter</tt> and be designed to be called indirectly from the ISG =file_filter= is:

<pre>#!/usr/bin/env perl -w

use strict;

# The required assignment and the current term.
use constant LOGGED_ASSIGN => '00';
use constant TERM => '1095';

# The rejection error code, and corresponding filter message.
use constant ERRCODE => 51;
use constant REJMSG => 'Assignment ' . LOGGED_ASSIGN . ' has not been fully successfully submitted yet.';

# The course name, assignment and student id; guaranteed safe so untaint them.
$ARGV[0] =~ /^(.*)$/;
my $course = $1;

$ARGV[1] =~ /^(.*)$/;
my $assign = $1;

$ARGV[2] =~ /^(.*)$/;
my $student = substr($1, 0, 8);


# Constants that technically depend on .submitrc settings;
# should read .submitrc directly, but we aren't for simplicity.
my $pubtestlog = "/u/$course/course/publictests/" . TERM . '/' . LOGGED_ASSIGN . '.completedrun.log';



# If this assignment is not the one that's required first, check if we need
# to do filtering.

unless ($assign eq LOGGED_ASSIGN) {
   my $passed = 0;
   if ( -e $pubtestlog ) {
      open( PTL, $pubtestlog ) or print "Cannot open log: $!\n" and exit ERRCODE;
      while(my $pubtestline = &lt;PTL&gt;) {

         # If this student has a perfect mark recorded, then the requirement
         # has been met; terminate the loop
         # NOTE: As we know the value of $student will not change for the
         # lifetime of this program, we set this regex to compile only once.
         if ($pubtestline =~ /^\s*\d+\s*${student}\s*\S*\s*([0-9.]+)\s*\/\s*([0-9.]+)\s*$/o) {
            if ($1 == $2) {
               $passed = 1;
               last;
            }
         }

      }
      close( PTL );
   }

   # Unless the student passed the required assignment, reject all
   # submission attempts.
   unless ($passed) {
      print REJMSG . "\n";
      exit ERRCODE;
   }
}


# Now re-call the main ISG filter; this environment variable was set by the
# calling program, and again is known to be safe as a result.
$ENV{'ISG_FILTER'} =~ /^(.*)$/;
my $filter = $1;

$ENV{'PATH'} =~ /^(.*)$/;
$ENV{'PATH'} = $1;

for my $arg (@ARGV) {
   $arg =~ /^(.*)$/;
   $arg = $1;
}
exec $filter, $ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4];</pre>


The public test log =/u/<em>csXXX</em>/course/publictests/<em>term</em>= is used to determine whether the assignment was passed; there must have been at least one public test request made where a perfect mark was earned from a public test request.  Doing a full retest on every submission request would be too time consuming, and this confirms that the students confirmed that they received full marks.

This filter relies on marks being written to the mark list in the form =$student:$mark/$total=, which is created by calls of the form =writeToMarkList "$mark/$total"= inside of an RST suite's computeMarks script.  This is done automatically for users of BitterSuite.

Attachments

Topic attachments
I	Attachment	History	Action	Size	Date	Who	Comment
ext	AdvancedFilter	r1	manage	0.5 K	2012-12-14 - 11:05	CurtisKroetsch	Require A00 script done in Bash.
ext	file_filter	r1	manage	3.1 K	2009-09-17 - 16:17	KarenAnderson	Final version of file_filter used in CS135 Fall 2009

Topic revision: r4 - 2012-12-14 - CurtisKroetsch

ISG Web

ISG Web Home
- Changes
- Index
- Search

Webs
- AIMAS
- CERAS
- CF
- CrySP
- External
- Faqtest
- HCI
- Himrod
- ISG
- Main
- Multicore
- Sandbox
- TWiki
- TestNewSandbox
- TestWebS
- UW

My links
- People
- CERAS
- WatForm
- Tetherless lab
- Ubuntu Main.HowTo
- eDocs
- RGG NE notes
- RGG
- CS infrastructure
- Grad images

Edit

Instructional Support Group, David R. Cheriton School of Computer Science, University of Waterloo