acct.scm.in

来自「gnu 的radius服务器很好用的」· IN 代码 · 共 28 行

;;;; -*- scheme -*-
;;;; This file is part of GNU Radius testsuite.
;;;; Copyright (C) 2001,2003 Free Software Foundation, Inc.
;;;;
;;;; Written by Sergey Poznyakoff
;;;;
;;;; This file is free software; as a special exception the author gives
;;;; unlimited permission to copy and/or distribute it, with or without
;;;; modifications, as long as this notice is preserved.
;;;;
;;;; GNU Radius is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY, to the extent permitted by law; without even the
;;;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

(define radius-acct-file "@BUILDDIR@/raddb/acct/scheme")

(define (acct req)
  (call-with-output-file radius-acct-file
    (lambda (port)
      (for-each (lambda (pair)
		  (display (car pair) port)
		  (display "=" port)
		  (display (cdr pair) port)
		  (newline port))
		req)
      (newline port)))
  #t)