User: sits
Date: 08/06/22 18:26:02
Modified: lib/Codestriker/Http Response.pm
Log:
More fixes to make the URL rewriting work correctly when referencing the
style-sheets.
Index: Response.pm
===================================================================
RCS file: /cvsroot/codestriker/codestriker/lib/Codestriker/Http/Response.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- Response.pm 21 Jun 2008 10:55:56 -0000 1.44
+++ Response.pm 23 Jun 2008 01:26:01 -0000 1.45
@@ -215,7 +215,7 @@
$title = HTML::Entities::encode($title);
# Generate the URL to the codestriker CSS file.
- my $codestriker_css = $query->url();
+ my $codestriker_css;
if (defined $Codestriker::codestriker_css &&
$Codestriker::codestriker_css ne "") {
if ($Codestriker::codestriker_css =~ /[\/\\]/o) {
@@ -224,11 +224,13 @@
} else {
# Assume CSS file is in case html directory, just under
# a different name.
- $codestriker_css =~
s/\/.+?\/codestriker\.pl/\/codestrikerhtml\/$Codestriker::codestriker_css/;
+ $codestriker_css = $query->url();
+ $codestriker_css =~
s#/[^/]+?/codestriker\.pl#/codestrikerhtml/$Codestriker::codestriker_css#;
}
} else {
# Use the default CSS file.
- $codestriker_css =~
s/\/.+?\/codestriker\.pl/\/codestrikerhtml\/codestriker\.css/;
+ $codestriker_css = $query->url();
+ $codestriker_css =~
s#/[^/]+?/codestriker\.pl#/codestrikerhtml/codestriker.css#;
}
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
Codestriker-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/codestriker-commits
