[Codestriker-commits] CVS update: codestriker/lib/Codestriker/Http Response.pm

[<si...@us...>]

  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#;
       }