From 60c2704969ac65a2872b8d96849c91f7376fda28 Mon Sep 17 00:00:00 2001 From: bnewbold Date: Fri, 24 Jun 2011 22:28:42 +0000 Subject: production tweaks --- how-to-run-news | 2 +- news.arc | 16 +++++++++++++--- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/how-to-run-news b/how-to-run-news index dae9db7..d8fff77 100644 --- a/how-to-run-news +++ b/how-to-run-news @@ -16,7 +16,7 @@ at the arc prompt: (nsv) -go to http://localhost:8080 +go to http://localhost:5009 click on login, and create an account called myname diff --git a/news.arc b/news.arc index 915de3e..2bfbebd 100644 --- a/news.arc +++ b/news.arc @@ -1,10 +1,20 @@ ; News. 2 Sep 06. -; to run news: (nsv), then go to http://localhost:8080 +; to run news: (nsv), then go to http://localhost:5009 ; put usernames of admins, separated by whitespace, in arc/admins ; bug: somehow (+ votedir* nil) is getting evaluated. +; fix bug with reverse proxy +; https://sites.google.com/site/arclanguagewiki/arc-3_1/known-bugs-and-gotchas +(def abusive-ip (ip) nil) + +; increase performance +(= static-max-age* 7200) ; browsers can cache static files for 7200 sec +(declare 'direct-calls t) ; you promise not to redefine fns as tables +(declare 'explicit-flush t) ; you take responsibility for flushing output + ; (all existing news code already does) + (declare 'atstrings t) (= this-site* "slackernews" @@ -79,7 +89,7 @@ (= initload-users* nil) -(def nsv ((o port 8080)) +(def nsv ((o port 5009)) (map ensure-dir (list arcdir* newsdir* storydir* votedir* profdir*)) (unless stories* (load-items)) (if (and initload-users* (empty profs*)) (load-users)) @@ -264,7 +274,7 @@ ; Votes divided by the age in hours to the gravityth power. ; Would be interesting to scale gravity in a slider. -(= gravity* 1.8 timebase* 120 front-threshold* 1 +(= gravity* 1.8 timebase* 240 front-threshold* 1 nourl-factor* .4 lightweight-factor* .3 ) (def frontpage-rank (s (o scorefn realscore) (o gravity gravity*)) -- cgit v1.2.3