Index: cgi-bin/gateway.cgi
===================================================================
RCS file: /cvsroot/shingetsu/shingetsu/cgi-bin/gateway.cgi,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -r1.101 -r1.102
--- cgi-bin/gateway.cgi	21 Dec 2004 04:47:59 -0000	1.101
+++ cgi-bin/gateway.cgi	21 Dec 2004 05:44:02 -0000	1.102
@@ -4,7 +4,7 @@
 #
 # (c) Fuktommy <fuktommy@users.sourceforge.net>
 # Released under the GNU General Public License
-# $Id: gateway.cgi,v 1.101 2004/12/21 04:47:59 fuktommy Exp $
+# $Id: gateway.cgi,v 1.102 2004/12/21 05:44:02 fuktommy Exp $
 #
 
 use strict;
@@ -122,7 +122,7 @@
 # print index page
 #
 sub printIndex() {
-	printHeader($$message{index}, rss=>"/gateway.cgi/changes/rss");
+	printHeader($$message{index}, rss=>"${root}gateway.cgi/changes/rss");
 	print "<form method='get' action='$ENV{SCRIPT_NAME}/delete'>\n";
 	local $_;
 	my $type;
@@ -149,7 +149,7 @@
 # print recent changes
 #
 sub printChanges() {
-	printHeader($$message{changes}, rss=>"/gateway.cgi/changes/rss");
+	printHeader($$message{changes}, rss=>"${root}gateway.cgi/changes/rss");
 	print "<form method='get' action='$ENV{SCRIPT_NAME}/delete'>\n";
 	local $_;
 	my $type;
@@ -210,7 +210,7 @@
 		print404($$message{update});
 		exit;
 	}
-	printHeader($$message{update}, rss=>"/gateway.cgi/update/rss");
+	printHeader($$message{update}, rss=>"${root}gateway.cgi/update/rss");
 	my $type;
 	my %stat = Shingetsu::CacheStat::list();
 	foreach $type (@types) {