sub haupt_url
{
my &#36url_prefix;

    (&#36url_prefix = url ()) =~ s|[^/]*&#36||;
    &#36url_prefix =~ s/^https:/http:/i;    # https -> http
    return (&#36url_prefix);
}
sub full_url
{
my &#36script = shift;

    return (haupt_url () . &#36script);
}
sub create_link
{
my (&#36url, &#36bez) = @_;

    &#36bez = &#36url unless &#36bez;
    return (a ({-href => &#36url}, escapeHTML (&#36bez)));
}