sub header_file {
# ---------------------------------------------
# Displays the number of accounts

my (%patterns) = (
'MSIE' => 'header.htm',
'Mozilla\/4' => 'header.htm',
'Mozilla\/3' => 'header.htm',
'Mozilla\/2.02' => 'header.htm',
'Mozilla\/2' => 'header.htm',
'Mozilla\/1' => 'header.htm',
'Other' => 'header.htm'
);
foreach (keys %patterns) {
if ($ENV{'HTTP_USER_AGENT'} =~ /$_/) {
open (INC, "C:/Inetpub/wwwroot/Coconino/~hr/$patterns{$_}") or return "Can't find include file: $patterns{$_}";
return join ("", <INC> );
}
}
open (INC, "/path/to/patterns{'Other'}") or return "Can't find include file: $patterns{'Other'}";
return join ("", <INC> );
}

# This prints out footer file that is inserted into web pages.
#
sub footer_file {
# ---------------------------------------------
# Displays the number of accounts

my (%patterns) = (
'MSIE' => 'footer.htm',
'Mozilla\/4' => 'footer.htm',
'Mozilla\/3' => 'footer.htm',
'Mozilla\/2.02' => 'footer.htm',
'Mozilla\/2' => 'footer.htm',
'Mozilla\/1' => 'footer.htm',
'Other' => 'footer.htm'
);
foreach (keys %patterns) {
if ($ENV{'HTTP_USER_AGENT'} =~ /$_/) {
open (INC, "C:/Inetpub/wwwroot/Coconino/~hr/$patterns{$_}") or return "Can't find include file: $patterns{$_}";
return join ("", <INC> );
}
}
open (INC, "path/to/$patterns{'Other'}") or return "Can't find include file: $patterns{'Other'}";
return join ("", <INC> );
}