/[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.41 by gray, Wed Jun 11 15:04:22 2003 UTC revision 1.42 by gray, Fri Jun 13 07:26:59 2003 UTC
# Line 47  catch_body(void *data) Line 47  catch_body(void *data)
47  {  {
48          scm_init_load_path();          scm_init_load_path();
49          radscm_init();          radscm_init();
50          rscm_radlog_init();          rscm_server_init();
         rscm_rewrite_init();  
51          radiusd_main();          radiusd_main();
52          return SCM_BOOL_F;          return SCM_BOOL_F;
53  }  }
# Line 112  scheme_auth(char *procname, RADIUS_REQ * Line 111  scheme_auth(char *procname, RADIUS_REQ *
111                         _("%s is not a procedure object"), procname);                         _("%s is not a procedure object"), procname);
112                  return 1;                  return 1;
113          }          }
114          if (setjmp(jmp_env))          if (setjmp(jmp_env)) {
115                    radlog(L_NOTICE,
116                           _("Procedure `%s' failed: see error output for details"),
117                           procname);
118                  return 1;                  return 1;
119            }
120            
121          res = scm_internal_lazy_catch(          res = scm_internal_lazy_catch(
122                  SCM_BOOL_T,                  SCM_BOOL_T,
123                  eval_catch_body,                  eval_catch_body,
# Line 159  scheme_acct(char *procname, RADIUS_REQ * Line 162  scheme_acct(char *procname, RADIUS_REQ *
162                         _("%s is not a procedure object"), procname);                         _("%s is not a procedure object"), procname);
163                  return 1;                  return 1;
164          }          }
165          if (setjmp(jmp_env))          if (setjmp(jmp_env)) {
166                    radlog(L_NOTICE,
167                           _("Procedure `%s' failed: see error output for details"),
168                           procname);
169                  return 1;                  return 1;
170            }
171          res = scm_internal_lazy_catch(          res = scm_internal_lazy_catch(
172                  SCM_BOOL_T,                  SCM_BOOL_T,
173                  eval_catch_body,                  eval_catch_body,

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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