use a different internal url

svn: r3157

collects/help/private/internal-hp.ss

@@ -17,14 +17,14 @@
   ;;  when cross-manual references are implemented as relative
   ;;  URLs.)
 
-  (define internal-host "helpdesk.plt-scheme.org")
+  (define internal-host "helpdesk-internal.localhost")
   (define internal-port 8000)
 
   (define (generate-hosts prefix dirs)
     (let loop ([dirs dirs][n 0])
       (if (null? dirs)
 	  null
-	  (cons (format "~a~a.helpdesk.plt-scheme.org" prefix n)
+	  (cons (format "~a~a.~a" prefix n internal-host)
 		(loop (cdr dirs) (add1 n))))))
 
   (define collects-dirs