/[radius]/radius/radiusd/scheme.c
ViewVC logotype

Diff of /radius/radiusd/scheme.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by gray, Thu May 29 15:39:52 2003 UTC revision 1.39 by gray, Thu Jun 5 17:32:57 2003 UTC
# Line 139  scheme_auth(char *procname, RADIUS_REQ * Line 139  scheme_auth(char *procname, RADIUS_REQ *
139                  avl_free(list);                  avl_free(list);
140                  return code == SCM_BOOL_F;                  return code == SCM_BOOL_F;
141          }          }
142          /*FIXME: message*/          radlog(L_ERR,
143                   _("Unexpected return value from Guile authentication function `%s'"),
144                   procname);
145          return 1;          return 1;
146  }  }
147    
# Line 169  scheme_acct(char *procname, RADIUS_REQ * Line 171  scheme_acct(char *procname, RADIUS_REQ *
171                  eval_catch_handler, &jmp_env);                  eval_catch_handler, &jmp_env);
172          if (SCM_IMP(res) && SCM_BOOLP(res))          if (SCM_IMP(res) && SCM_BOOLP(res))
173                  return res == SCM_BOOL_F;                  return res == SCM_BOOL_F;
174            else
175                    radlog(L_ERR,
176                           _("Unexpected return value from Guile accounting function `%s'"),
177                           procname);
178    
179          return 1;          return 1;
180  }  }
181    

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26