#!/usr/bin/perl

use strict;
use warnings;
use File::Slurp;

my $home_dir=$ENV{'HOME'};
my $yodl_dir="$home_dir/yo";

## run parameters
my $in='lis654b11a';
my $out='lis654n11a';

## files
my $in_file="$yodl_dir/$in.yo";
my $out_file="$yodl_dir/$out.yo";

## using the default string
$_=read_file($in_file);

## get the omeka installation script from wotan to install locally
system("rsync -va krichel\@wotan:/root/perl/maintain_omeka ~/4/bin/maintain_omeka");
system("chgrp krichel ~/4/bin/install_omeka");
system("rm ~/4/bin/*~");

## changes 
s|room 122 on the Brentwood campus|PC1 at Bobst Library|;
s|Thursdays|Tuesdays|;
s|18:20 to 20:10|18:30 to 20:20|g;
s|18:10 to 20:10|18:30 to 20:30|g;
s|b11a|n11a|g;
s|\Q2011+endash()09+endash()08\E|2011+endash()09+endash()13|g;
s|\Q2011+endash()09+endash()15\E|2011+endash()09+endash()20|g;
s|\Q2011+endash()09+endash()22\E|2011+endash()09+endash()27|g;
s|\Q2011+endash()09+endash()29\E|2011+endash()10+endash()04|g;
s|\Q2011+endash()10+endash()06\E|2011+endash()10+endash()11|g;
s|\Q2011+endash()10+endash()13\E|2011+endash()10+endash()18|g;
s|\Q2011+endash()10+endash()20\E|2011+endash()10+endash()25|g;
s|\Q2011+endash()10+endash()27\E|2011+endash()11+endash()01|g;
s|\Q2011+endash()11+endash()03\E|2011+endash()11+endash()08|g;
s|\Q2011+endash()11+endash()10\E|2011+endash()11+endash()15|g;
s|\Q2011+endash()11+endash()17\E|2011+endash()11+endash()22|g;
s|\Q2011+endash()12+endash()01\E|2011+endash()11+endash()29|g;
s|\Q2011+endash()12+endash()08\E|2011+endash()12+endash()06|g;
## last class cancelled
#s|\Q2011+endash()12+endash()15\E|2011+endash()12+endash()13|g;

## create student yodl list for both courses 
#system("~/4/bin/gradesheet_to_student_list ~/doc/grades/lis654b11a_grades.xml > ~/yo/lis654b11a_students.yo");
system("~/4/bin/gradesheet_to_student_list ~/doc/grades/lis654n11a_grades.xml > ~/yo/lis654n11a_students.yo");

## writing
write_file($out_file,$_);