sub haupt_url
{
my &#36url_prefix;
my &#36self;

if (ref (&#36url_prefix)){
    &#36self = &#36url_prefix ;
}
&#36url_prefix = shift;

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

if (ref (&#36script)){
    &#36self = &#36script ;
}
&#36script = shift;

    return (haupt_url () . &#36script);
}
sub statische_seite_url
{
my &#36seite_name = shift;
my &#36self;

if (ref (&#36seite_name)){
    &#36self = &#36seite_name ;
}
&#36seite_name = shift;

    return (full_url ("statisch.pl") . "?seite=" . escape (&#36seite_name));
}
sub create_link
{

my &#36self;
my (&#36url, &#36bez);

if (ref (&#36_[0])){
    &#36self = &#36_[0] ;
}

&#36url = shift;
&#36bez = shift;

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