sub welcome
{
# Get the HTML for the welcome template:
my @lines = getfile($welcomefile,0);
# Print a content header to tell it we're sending HTML:
print "Content-type: text/html\n\n";
# Loop over each line of HTML as follows:
# 1. Feed the line through expand_vars() to handle special content tags.
# 2. Print the line out.
foreach my $line (@lines){
$line = expand_vars($line,'');
print $line;
}
# We're done so we can now exit:
exit;
}
1;