1 |
;;;; -*- scheme -*- |
;;;; -*- scheme -*- |
2 |
;;;; This file is part of GNU RADIUS testsuite. |
;;;; This file is part of GNU Radius testsuite. |
3 |
;;;; Copyright (C) 2001, Sergey Poznyakoff |
;;;; Copyright (C) 2001,2003 Sergey Poznyakoff |
4 |
;;;; |
;;;; |
5 |
;;;; This file is free software; as a special exception the author gives |
;;;; This file is free software; as a special exception the author gives |
6 |
;;;; unlimited permission to copy and/or distribute it, with or without |
;;;; unlimited permission to copy and/or distribute it, with or without |
7 |
;;;; modifications, as long as this notice is preserved. |
;;;; modifications, as long as this notice is preserved. |
8 |
;;;; |
;;;; |
9 |
;;;; This program is distributed in the hope that it will be useful, but |
;;;; GNU Radius is distributed in the hope that it will be useful, but |
10 |
;;;; WITHOUT ANY WARRANTY, to the extent permitted by law; without even the |
;;;; WITHOUT ANY WARRANTY, to the extent permitted by law; without even the |
11 |
;;;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
;;;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
12 |
|
|
13 |
(define radius-acct-file "@BUILDDIR@/test/acct/scheme") |
(define radius-acct-file "@BUILDDIR@/raddb/acct/scheme") |
14 |
|
|
15 |
(define (acct req) |
(define (acct req) |
16 |
(call-with-output-file radius-acct-file |
(call-with-output-file radius-acct-file |