From d2a6da75617b3c97235f489188c50daa3aab23b8 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 3 Feb 2011 21:24:11 -0500
Subject: [PATCH] Proxy the irc logs from pre.racket-lang.org.

That's where the bot needs to run; use a proxy instead of NFS.
---
 collects/meta/web/www/irc.rkt | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/collects/meta/web/www/irc.rkt b/collects/meta/web/www/irc.rkt
index 5e10970200..42835d509e 100644
--- a/collects/meta/web/www/irc.rkt
+++ b/collects/meta/web/www/irc.rkt
@@ -11,9 +11,14 @@
   @page[#:title "IRC" #:part-of 'community]{
     @iframe[src: webchat-link width: "100%" height: "400"]})
 
-(define irc-logs-symlink
-  (symlink "/home/scheme/irc-logs/racket/" "irc-logs"))
-(define (irc-logs text) @a[href: (list irc-logs-symlink "/")]{@text})
+(define irc-logs
+  (let ()
+    @plain[#:file "irc-logs/.htaccess" #:referrer values]{
+      RewriteEngine on
+      RewriteRule ^(.*)$ http://pre.racket-lang.org@;
+         /irc-logs/@||racket/@|"$1"| [P]
+    }
+    (lambda (text) @a[href: "irc-logs/"]{@text})))
 
 (define (irc-quick)
   @parlist[@strong{Discussion Channel}