Date: Sat, 01 Apr 2006 23:32:18 +0200 From: Craig Manley <cmanley@xs4all.nl> To: freebsd-cvsweb@freebsd.org Subject: Patch to make cvsweb.cgi work with relative icon and css paths Message-ID: <442EF162.6090406@xs4all.nl>
next in thread | raw e-mail | index | archive | help
To whom cares,
This is the patch I just made. It also contains a fix for making warns
and die's work when run in ModPerl::PerlRun.
144a145,149
>
> $ENV{'MOD_PERL_API_VERSION'} && ($ENV{'MOD_PERL_API_VERSION'} >= 2)
&& (local $SIG{__WARN__} = \&Apache2::ServerRec::warn);
> $ENV{'MOD_PERL_API_VERSION'} && ($ENV{'MOD_PERL_API_VERSION'} >= 2)
&& (local $SIG{__DIE__} = \&Apache2::ServerRec::die);
>
>
205a211
> sub extractScriptUriPath();
373a380,386
> # Prepend script's path uri to css url if css url is relative.
> if ($cssurl) {
> unless($cssurl =~ m|^/|) {
> $cssurl = extractScriptUriPath() . "/$cssurl";
> }
> }
>
640a654,657
> # Prepend script's path uri to icon uri if icon uri is relative.
> unless($ipath =~ m|^/|) {
> $ipath = extractScriptUriPath() . "/$ipath";
> }
4426a4444,4455
>
>
> #
> # Extracts and returns the URI path of this script.
> #
> sub extractScriptUriPath() {
> my $s = $ENV{'SCRIPT_NAME'};
> $s =~ s|/[^/]+$||;
> return $s;
> }
>
>
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?442EF162.6090406>