#!/usr/bin/perl

($username) = @ARGV;

$file = "users\\$username\\codetr.scp";
$file1 = "users\\$username\\train.scp";
$file2 = "users\\$username\\threstr.scp";
$file3 = "users\\$username\\thres1.scp";
$file4 = "users\\$username\\thres2.scp";
$file5 = "users\\$username\\thres3.scp";
$file6 = "users\\$username\\thres4.scp";
$file7 = "users\\$username\\thres5.scp";


open (NEW, ">$file")|| die ("Unable to open $file file for writing");
open (NEW1, ">$file1")|| die ("Unable to open $file1 file for writing");
open (NEW2, ">$file2")|| die ("Unable to open $file2 file for writing");
open (NEW3, ">$file3")|| die ("Unable to open $file2 file for writing");
open (NEW4, ">$file4")|| die ("Unable to open $file2 file for writing");
open (NEW5, ">$file5")|| die ("Unable to open $file2 file for writing");
open (NEW6, ">$file6")|| die ("Unable to open $file2 file for writing");
open (NEW7, ">$file7")|| die ("Unable to open $file2 file for writing");

print NEW "users\\$username\\S0001.wav users\\$username\\S0001.mfc \n";
print NEW "users\\$username\\S0002.wav users\\$username\\S0002.mfc \n";
print NEW "users\\$username\\S0003.wav users\\$username\\S0003.mfc \n";
print NEW "users\\$username\\S0004.wav users\\$username\\S0004.mfc \n";
print NEW "users\\$username\\S0005.wav users\\$username\\S0005.mfc \n";
print NEW "users\\$username\\S0006.wav users\\$username\\S0006.mfc \n";
print NEW "users\\$username\\S0007.wav users\\$username\\S0007.mfc \n";
print NEW "users\\$username\\S0008.wav users\\$username\\S0008.mfc \n";
print NEW "users\\$username\\S0009.wav users\\$username\\S0009.mfc \n";
print NEW "users\\$username\\S0010.wav users\\$username\\S0010.mfc \n";
print NEW "users\\$username\\S0011.wav users\\$username\\S0011.mfc \n";
print NEW "users\\$username\\S0012.wav users\\$username\\S0012.mfc \n";
print NEW "users\\$username\\S0013.wav users\\$username\\S0013.mfc \n";
print NEW "users\\$username\\S0014.wav users\\$username\\S0014.mfc \n";
print NEW "users\\$username\\S0015.wav users\\$username\\S0015.mfc \n";
print NEW "users\\$username\\S0016.wav users\\$username\\S0016.mfc \n";
print NEW "users\\$username\\S0017.wav users\\$username\\S0017.mfc \n";

close(NEW);

print NEW1 "users\\$username\\S0001.mfc \n";
print NEW1 "users\\$username\\S0002.mfc \n";
print NEW1 "users\\$username\\S0003.mfc \n";
print NEW1 "users\\$username\\S0004.mfc \n";
print NEW1 "users\\$username\\S0005.mfc \n";
print NEW1 "users\\$username\\S0006.mfc \n";
print NEW1 "users\\$username\\S0007.mfc \n";
print NEW1 "users\\$username\\S0008.mfc \n";
print NEW1 "users\\$username\\S0009.mfc \n";
print NEW1 "users\\$username\\S0010.mfc \n";
print NEW1 "users\\$username\\S0011.mfc \n";
print NEW1 "users\\$username\\S0012.mfc \n";
print NEW1 "users\\$username\\S0013.mfc \n";
print NEW1 "users\\$username\\S0014.mfc \n";
print NEW1 "users\\$username\\S0015.mfc \n";
print NEW1 "users\\$username\\S0016.mfc \n";
print NEW1 "users\\$username\\S0017.mfc \n";

close(NEW1);

print NEW2 "users\\$username\\T0001.wav users\\$username\\T0001.mfc \n";
print NEW2 "users\\$username\\T0002.wav users\\$username\\T0002.mfc \n";
print NEW2 "users\\$username\\T0003.wav users\\$username\\T0003.mfc \n";
print NEW2 "users\\$username\\T0004.wav users\\$username\\T0004.mfc \n";
print NEW2 "users\\$username\\T0005.wav users\\$username\\T0005.mfc \n";

close(NEW2);

print NEW3 "users\\$username\\T0001.mfc \n";
close(NEW3);

print NEW4 "users\\$username\\T0002.mfc \n";
close(NEW4);

print NEW5 "users\\$username\\T0003.mfc \n";
close(NEW5);

print NEW6 "users\\$username\\T0004.mfc \n";
close(NEW6);

print NEW7 "users\\$username\\T0005.mfc \n";
close(NEW7);