#!/usr/local/bin/perl -w

use strict;

open F, "<../private/roster.lect.userid";
while(<F>) {
    print $_;
    chomp $_;
    `mkdir $_`;

if(system("pts", "createuser", "$_\@andrew.cmu.edu") != 0) {
#print "Could not run pts on $_\n";
}

if(system("fs", "sa", "$_", "$_\@andrew.cmu.edu", "li") != 0) {
print "ERROR ERROR ERROR". "Could not set permissions on $_\n";
}

    system("fs sa $_ system:anyuser none");
    system("fs", "sa", "$_", "system:authuser", "none");
}