require "../lib/vars.lib";
require "../lib/topnav.lib";
require "../lib/nostatus.lib";
require "../lib/printsave.lib";
require "../lib/curstatus.lib";
require "../lib/printsave2.lib";
require "../lib/bottomnav.lib";
require "../lib/footertop.lib";
require "../lib/gloss.lib";

#require "../welcome/thumb.lib";
require "../welcome/index.lib";
require "../welcome/indexheader.lib";
require "../welcome/visa.lib";
require "../welcome/testnavig.lib";
require "../welcome/kinga.lib";
require "../welcome/tushar.lib";
require "../welcome/rachel.lib";
require "../welcome/tim.lib";
require "../welcome/sung.lib";
require "../welcome/poom.lib";
require "../welcome/pamella.lib";
require "../welcome/lebogang.lib";
require "../welcome/linwu.lib";

#print "Content-type: text/html\n\n"; #html page starts here
&parsevars;

#####Print metadata header###################
if ($option eq kinga){
print `cat ../welcome/kingaheader.shtml`;
}elsif ($option eq lebogang){
print `cat ../welcome/leboheader.shtml`;
}elsif ($option eq linwu){
print `cat ../welcome/linwuheader.shtml`;
}elsif ($option eq pamella){
print `cat ../welcome/pamellaheader.shtml`;
}elsif ($option eq poom){
print `cat ../welcome/poomheader.shtml`;
}elsif ($option eq rachel){
print `cat ../welcome/rachelheader.shtml`;
}elsif ($option eq sung){
print `cat ../welcome/sungheader.shtml`;
}elsif ($option eq tim){
print `cat ../welcome/timheader.shtml`;
}elsif ($option eq tushar){
print `cat ../welcome/tusharheader.shtml`;
}else{
print `cat ../welcome/_header.shtml`;
}#end print metadata header

print `cat ../ssi/header.shtml`;
&topnav;

###No status note#########
#&nostatus;
####End No status note from nostatus.lib#######


#print begin table for body and rightnav

if ($option eq main || $option eq contact || $option eq visa || $option eq gloss){
print `cat ../welcome/_copytable1.shtml`;
#&indexheader;
}


####End Print Header################

###print save pages###
&printsave2;


if($option eq main || $option eq submit || $option eq ""){
#########################print body ##########################
&welcomeindex;

 
print `cat ../ssi/copyrnav.shtml`;
#&thumb;
&testnavig;

}

if($option eq tim){
&tim;
}
elsif($option eq pamella){
&pamella;
}
elsif($option eq tushar){
&tushar;
}
elsif($option eq kinga){
&kinga;
}
elsif($option eq poom){
&poom;
}
elsif($option eq lebogang){
&lebogang;
}
elsif($option eq sung){
♪
}
elsif($option eq rachel){
&rachel;
}
elsif($option eq linwu){
&linwu;
}

elsif ($option eq contact)
{
print `cat ../ssi/contactus.shtml`;
}
elsif ($option eq visa)
{
&visa;
}

#print end of table for body and right nav
if($option eq main || $option eq visa || $option eq gloss){
&bottomnav;
}
print `cat ../ssi/copytable2.shtml`;

####breadcrumb & txt only link from curstatus.lib###
&breadcrumb;

#&footertop;
print `cat ../ssi/footer.shtml`; #print international admissions footer 
print `cat ../ssi/end.shtml`;