};
$vars->{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
$vars->{make_url} = sub { return &Packages::CGI::make_url(@_) };
};
$vars->{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
$vars->{make_url} = sub { return &Packages::CGI::make_url(@_) };
$vars->{extract_host} = sub { my $uri = URI->new($_[0]);
my $host = $uri->host;
$host .= ':'.$uri->port if $uri->port != $uri->default_port;
$vars->{extract_host} = sub { my $uri = URI->new($_[0]);
my $host = $uri->host;
$host .= ':'.$uri->port if $uri->port != $uri->default_port;