From 2271934ed37d266a4ebf206549ca213158489f13 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Aug 2015 00:16:33 -0600 Subject: [PATCH] Update domain name to kpe.io --- debian/copyright | 2 +- genpage.lisp | 10 +++++----- project.lisp | 2 +- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/debian/copyright b/debian/copyright index 7bbc29e..a84ed91 100644 --- a/debian/copyright +++ b/debian/copyright @@ -1,7 +1,7 @@ This package was debianized by Kevin M. Rosenberg in July 2003. -It was downloaded from http://wol.b9.com/ +It was downloaded from http://wol.kpe.io/ Upstream Author: Kevin Rosenberg Debian Maintainer: Kevin M. Rosenberg diff --git a/genpage.lisp b/genpage.lisp index 451b04f..3da3006 100644 --- a/genpage.lisp +++ b/genpage.lisp @@ -93,7 +93,7 @@ (gen-std-footer ,site ,plist ,command)))))) -(defun ml-head (title-str &optional (css "http://b9.com/main.css") altcss) +(defun ml-head (title-str &optional (css "http://kpe.io/main.css") altcss) (html (:head ((:link :rel "stylesheet" :href css :type "text/css")) @@ -101,7 +101,7 @@ (html ((:link :rel "stylesheet" :type "text/css" :href (if (eq altcss t) - "http://b9.com/umls.css" altcss))))) + "http://kpe.io/umls.css" altcss))))) (when title-str (html (:title (lml-write-string title-str))))))) @@ -110,7 +110,7 @@ (:xml (dtd-prologue format) (lml-format "~%" - (aif css it "http://b9.com/umlsxml.css")) + (aif css it "http://kpe.io/umlsxml.css")) (lml-write-string "") (lml-write-char #\Newline) (when title @@ -119,14 +119,14 @@ (:html (dtd-prologue format) (lml-write-string "") - (ml-head title (aif css it "http://b9.com/main.css") altcss) + (ml-head title (aif css it "http://kpe.io/main.css") altcss) (lml-write-string "")) ((:xhtml :xhtml11 :xhtml10-strict :xhtml10-transitional :xhtml10-frameset) (dtd-prologue format) (lml-write-string "") - (ml-head title (aif css it "http://b9.com/main.css") altcss) + (ml-head title (aif css it "http://kpe.io/main.css") altcss) (lml-write-string "")) (:text ;; nothing to do diff --git a/project.lisp b/project.lisp index fd2b4ab..7532273 100644 --- a/project.lisp +++ b/project.lisp @@ -159,7 +159,7 @@ (entity-project ent)) :expires :never :secure nil - :domain ".b9.com" + :domain ".kpe.io" :value (websession-key (websession-from-req req)) :path "/")) -- 2.34.1