Using racket-lang

collects/meta/drdr/analyze.ss

@@ -120,7 +120,7 @@
   (define totals
     (apply format "(timeout ~a) (unclean ~a) (stderr ~a) (changes ~a)" (map number->string nums)))
   (define (path->url pth)
-    (format "http://drdr.plt-scheme.org/~a~a" cur-rev pth))
+    (format "http://drdr.racket-lang.org/~a~a" cur-rev pth))
   (define responsible-ht (statuses->responsible-ht cur-rev timeout unclean stderr changes))
   (define responsibles 
     (for/list ([(responsible ht) (in-hash responsible-ht)]
@@ -168,7 +168,7 @@
                                       cur-rev
                                       (format-duration-ms abs-dur))
                               ""
-                              (format "http://drdr.plt-scheme.org/~a/" 
+                              (format "http://drdr.racket-lang.org/~a/" 
                                       cur-rev)
                               ""
                               (if include-committer?
@@ -200,7 +200,7 @@
                                        ""))))))
   
   (send-mail-message "drdr"
-                     (format "http://drdr.plt-scheme.org/~a/" 
+                     (format "http://drdr.racket-lang.org/~a/" 
                              cur-rev)
                      (list "eli+ircbot@eli.barzilay.org")
                      empty empty

collects/meta/drdr/graphs/README

@@ -7,7 +7,7 @@
 
 - to build a script for a particular page, do this:
 
-   mred-text build-graph.ss -l http://drdr.plt-scheme.org/~a/collects/path/to/file.scm \
+   mred-text build-graph.ss -l http://drdr.racket-lang.org/~a/collects/path/to/file.scm \
                             --image-loc /static/data/graph-images/  \
                             file_scm.timing \
                             file_scm_png_file_prefix \

collects/meta/drdr/graphs/build-graph.ss

@@ -4,7 +4,7 @@
 (require "constants.ss")
 
 ;; example data:
-;; http://drdr.plt-scheme.org/data/collects/tests/mzscheme/benchmarks/common/earley_ss.timing
+;; http://drdr.racket-lang.org/data/collects/tests/mzscheme/benchmarks/common/earley_ss.timing
 
 ;;; ========================================
 
@@ -47,7 +47,7 @@
 #|
    #:argv
    #("-l"
-     "http://drdr.plt-scheme.org/~a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm"
+     "http://drdr.racket-lang.org/~a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm"
      "expand-class_scm.timing" "out" "out.html" )
 |#
    #:once-each

collects/meta/drdr/render.ss

@@ -165,7 +165,7 @@
                 commits))]
      
     [(struct svn-rev-log (num author date msg changes))
-     (define url (format "http://svn.plt-scheme.org/view?view=rev&revision=~a" num))
+     (define url (format "http://svn.racket-lang.org/view?view=rev&revision=~a" num))
      (define cg-id (symbol->string (gensym 'changes)))
      (define ccss-id (symbol->string (gensym 'changes)))
      `(table ([class "data"])
@@ -236,7 +236,7 @@
           (base-path log-pth))
         (define scm-url
           (if ((current-rev) . < . 20000)
-              (format "http://svn.plt-scheme.org/view/trunk/~a?view=markup&pathrev=~a"
+              (format "http://svn.racket-lang.org/view/trunk/~a?view=markup&pathrev=~a"
                       the-base-path
                       (current-rev))
               (local [(define msg (read-cache* (revision-commit-msg (current-rev))))]
@@ -332,7 +332,7 @@
                         (format-commit-msg)
                         "")
                   ,(local [(define (path->url pth)
-                             (format "http://drdr.plt-scheme.org/~a~a" (current-rev) pth))
+                             (format "http://drdr.racket-lang.org/~a~a" (current-rev) pth))
                            
                            (define responsible->problems
                              (rendering->responsible-ht (current-rev) pth-rendering))

collects/meta/drdr/time.ss

@@ -61,7 +61,7 @@
       "-t"
       (path->string (build-path (drdr-directory) "graphs" "build-graph.ss"))
       "--"
-      "-l" (string-append "http://drdr.plt-scheme.org/~a/" (path->string* filename)) ; XXX
+      "-l" (string-append "http://drdr.racket-lang.org/~a/" (path->string* filename)) ; XXX
       "--image-loc" "/graph-images/"
       (path->string (path-timing-log filename))
       (path->string prefix)