# getHTML: Get template and fill in with generated data sub getHTML { $UserInfo = getUserInfo($tempUID); $theme = getTheme($UserInfo->{Theme}); my $template = $theme->{ThemeDir}."index.html"; my $HTML .= <) { $HTML .= $_ } close(FILE); while ($HTML =~ //) { my $command_output = &$1($call); $HTML =~ s//$command_output/; } return $HTML; } # end getHTML()