diff options
Diffstat (limited to 'examples/whoisd.scm')
-rw-r--r-- | examples/whoisd.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/examples/whoisd.scm b/examples/whoisd.scm index ec80467..a5bb68e 100644 --- a/examples/whoisd.scm +++ b/examples/whoisd.scm | |||
@@ -1,24 +1,23 @@ | |||
1 | #! /usr/local/bin/guile -s | 1 | #! /usr/local/bin/guile -s |
2 | !# | 2 | !# |
3 | ;;;; This is Scheme whoisd daemon | 3 | ;;;; This is Scheme whoisd daemon |
4 | ;;;; Copyright (C) 2002, Sergey Poznyakoff | 4 | ;;;; Copyright (C) 2002, 2007, Sergey Poznyakoff |
5 | ;;;; | 5 | ;;;; |
6 | ;;;; This program is free software; you can redistribute it and/or modify | 6 | ;;;; This program is free software; you can redistribute it and/or modify it |
7 | ;;;; it under the terms of the GNU General Public License as published by | 7 | ;;;; under the terms of the GNU General Public License as published by the |
8 | ;;;; the Free Software Foundation; either version 2 of the License, or | 8 | ;;;; Free Software Foundation; either version 3 of the License, or (at your |
9 | ;;;; (at your option) any later version. | 9 | ;;;; option) any later version. |
10 | ;;;; | 10 | ;;;; |
11 | ;;;; This program is distributed in the hope that it will be useful, | 11 | ;;;; This program is distributed in the hope that it will be useful, |
12 | ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 12 | ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 | ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 13 | ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
14 | ;;;; GNU General Public License for more details. | 14 | ;;;; GNU General Public License for more details. |
15 | ;;;; | 15 | ;;;; |
16 | ;;;; You should have received a copy of the GNU General Public License | 16 | ;;;; You should have received a copy of the GNU General Public License along |
17 | ;;;; along with this program; if not, write to the Free Software Foundation, | 17 | ;;;; with this program. If not, see <http://www.gnu.org/licenses/>. |
18 | ;;;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. | ||
19 | ;;;; | 18 | ;;;; |
20 | 19 | ||
21 | (set! %load-path (append %load-path (list "/usr/local/share/guile-sql"))) | 20 | (set! %load-path (append %load-path (list "/usr/local/share/guile-sql"))) |
22 | (use-modules (ice-9 getopt-long)) | 21 | (use-modules (ice-9 getopt-long)) |
23 | (use-modules (ice-9 format)) | 22 | (use-modules (ice-9 format)) |
24 | (use-modules (sql)) | 23 | (use-modules (sql)) |