From a0b27b27a11b6033e6bbbd6d2d50379ac1e44e63 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 24 Mar 2008 10:32:08 +0000
Subject: [PATCH] Fixed processing of link rel="forum-user-list"

---
 forum/forum | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/forum/forum b/forum/forum
index c9bb2c6..ba95dcd 100755
--- a/forum/forum
+++ b/forum/forum
@@ -377,6 +377,18 @@ sub fix_forum_links {
 		} else {
 			$attr ="src";
 		}
+		
+		# Обрабатываем наши специальные link rel=""
+		if ($element->tag eq "link") {
+			if ($element->attr("rel") eq "forum-user-list") {
+				$element->attr("href" => $cgi->url(-absolute=>1,
+					-path_info=>0,-query_string=>0).$forum->{userurl});
+				next ELEMENT;	
+			} elsif ($element->attr("rel") eq "forum-script")  {
+				$element->attr("href" => $script_with_path);
+				next ELEMENT;
+			}	
+		}
 		my $link = $element->attr($attr);
 		# Абсолютная ссылка - оставляем как есть. 
 		next ELEMENT if (! defined $link || $link=~/^\w+:/); 
-- 
2.39.2