diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.ss index 778aa04174..29d8cb61db 100644 --- a/collects/meta/drdr/analyze.ss +++ b/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 diff --git a/collects/meta/drdr/graphs/README b/collects/meta/drdr/graphs/README index 95865db3aa..69ee4833d8 100644 --- a/collects/meta/drdr/graphs/README +++ b/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 \ diff --git a/collects/meta/drdr/graphs/build-graph.ss b/collects/meta/drdr/graphs/build-graph.ss index b6aec6c6c6..6958047009 100644 --- a/collects/meta/drdr/graphs/build-graph.ss +++ b/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 diff --git a/collects/meta/drdr/render.ss b/collects/meta/drdr/render.ss index 29328d2ea8..ebbeaab7f7 100644 --- a/collects/meta/drdr/render.ss +++ b/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)) diff --git a/collects/meta/drdr/time.ss b/collects/meta/drdr/time.ss index 453bedce37..301d119be1 100644 --- a/collects/meta/drdr/time.ss +++ b/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)