#!/usr/bin/perl

@hosts=qw(sanluis blanca crestone shavano wetterhorn);
$rootdbpasswd=$ARGV[0];

open(LIST, "../public_html/cgi-bin/grade/CS301F2004Grade.txt");
<LIST>; # skip title line
while (<LIST>) {
	chomp();
   ($name, $login, $passwd)=split(/\t/);
	print "login=$login, passwd=$passwd\n";
	

open(OUT, ">acc.sql");
print OUT <<END;
GRANT all privileges on $login\db.* to $login\@localhost identified by '$passwd';
GRANT all privileges on $login\db.* to $login\@'%' identified by '$passwd';
create database $login\db;
END

close(OUT);

$lastDigit=substr($passwd, 3,1);
$hostIndex=$lastDigit%5;
print "lastDigit=$lastDigit, hostIndex=$hostIndex\n";
#foreach $host (@hosts) {
$host=$hosts[$hostIndex];
   print "host=$host\n";

   print "mysql -u root -p$rootdbpasswd -h $host -B < acc.sql > output.txt\n";
   print "mysql -u root -p$rootdbpasswd -h redcloud -B < acc.sql > output.txt\n";
   print "rm acc.sql\n";
   system("mysql -u root -p$rootdbpasswd -h $host -B < acc.sql > output.txt");
   system("mysql -u root -p$rootdbpasswd -h redcloud -B < acc.sql > output.txt");
   system("rm acc.sql");
}