#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use XML::LibXML;


## 
my $grade_sheet=$ARGV[0];
if(not defined($grade_sheet)) {
  print "fatal: no grade_sheet argument\n";
  exit;
}

if(not -f $grade_sheet) {
  print "fatal: no such file '$grade_sheet'\n";
  exit;
}

## get the password for wotan as me
my $whoami=`whoami`;
chomp $whoami;

my $doc=XML::LibXML->load_xml(location=>$grade_sheet);

my @student_elements=$doc->getElementsByTagName('student')->get_nodelist;

my $out_string='';
foreach my $student_element (@student_elements) {
  my @names=$student_element->getElementsByTagName('name')->get_nodelist;
  my $name=$names[0]->textContent // '';
  if(not $name) {
    next;
  }
  my @users=$student_element->getElementsByTagName('user')->get_nodelist;
  my $user=$users[0]->textContent // '';
  if(not $user) {
    print "fatal: no username for $name\n";
    exit;
  }
  $out_string.="surl($name)(http://wotan.liu.edu/home/$user/) and surl($name\'s omeka site)(http://wotan.liu.edu/omeka/$user/)nl()\n"; 
}

print $out_string;