The joke server uses the Linux/Unix "fortune" database, reworked to be a Tcl list with one joke per list element.
Here's the files