b3n.org

2005-01-01 23:38:00
Happy New Year!
The 6 month switchover completed on schedule. All data is off the Falcon so its ready to go down. Hosting is now completely California-free.

Take a look at Jon Clede’s new kidbritish.org for the new year! 4 days of Christmas left.

2004-12-28 15:04:00
Power Restored
All systems back online folks. We’re hoping to have all our servers out of California by end of year.

2004-12-28 12:27:00
Power Failure
We have a power failure at our California datacenter. The Falcon server has been taken down (154 days uptime). Most people are on Hobbes (in the Florida datacenter) so this is not likely to effect you.

2004-12-11 02:17:00
.plan
Before End of Year. 

1. Get all of my hosted sites into the Fort Lauderdale or New Jersey datacenters.
2. Wrap presents (finished shopping!)
3. Think about inventing a meta-markup language for b3n.org
4. Finish 2005 budget

2004-11-26 01:24:00
First shot at LISP

; beer.lisp
; Benjamin Bryan
; November 25, 2004 (midnight of course)
; This Program writes the lyrics to 99 bottles of beer on the wall.

(setf lyrics '((" bottles") (" of beer") (" on the wall ") (" take one down pass it around ")))

(defun bottles-of-beer (x)
  (princ x)
  (if (= x 1)
      (princ " bottle")
    (princ(first(first lyrics))))
  (princ(first(first(rest lyrics)))))

(defun display (x)
  (bottles-of-beer x)
  (princ(first(first(rest(rest lyrics)))))  (bottles-of-beer x)
  (princ(first(first(rest(rest(rest lyrics))))))
  (if (> x 1)
      (bottles-of-beer (- x 1))
    (princ "no more bottles of beer"))
  (princ(first(first(rest(rest lyrics))))))

(defun beer (x)
  (display x)
  (if (> x 1)
      (beer (- x 1))
    (format t "~%The End")))

(beer 99)