summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--how-to-run-news2
-rw-r--r--news.arc16
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*))