>
> sub savelink ($modul: string min 4 max 4, $page: string
> default index.html) {
> my $r = Apache->request;
> my $session_id = $r->pnotes('sessionid');
>
> my $uri = Apache::URI->parse($r);
> my $hostinfo = $uri->hostinfo;
> my $scheme = $uri->scheme;
>
> my $url = $scheme . '
Hi,
we're using the following code:
sub savelink ($modul: string min 4 max 4, $page: string default index.html) {
my $r = Apache->request;
my $session_id = $r->pnotes('sessionid');
my $uri = Apache::URI->parse($r);
my $hostinfo = $uri->hostinfo;
my $scheme = $uri->scheme;
my $url