← Back to branch summary

~ubuntu-branches/ubuntu/natty/freeradius/natty-updates

« back to all changes in this revision

Viewing changes to src/modules/rlm_perl/example.pl

  • Committer: Bazaar Package Importer
  • Author(s): Paul Hampson
  • Date: 2006-01-15 13:34:13 UTC
  • mto: (3.1.3 dapper) (4.1.3 sid) (1.1.14 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20060115133413-zo1dslttvdoalqym
Tags: upstream-1.1.0
Import upstream version 1.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/modules/rlm_perl/example.pl
37
37
#my %RAD_CHECK;
38
38
 
39
39
#
40
 
# This the remaping of return values 
 
40
# This the remapping of return values 
41
41
#
42
42
        use constant    RLM_MODULE_REJECT=>    0;#  /* immediately reject the request */
43
43
        use constant    RLM_MODULE_FAIL=>      1;#  /* module failed, don't reply */
105
105
        return RLM_MODULE_OK;
106
106
}
107
107
 
 
108
# Function to handle pre_proxy
 
109
sub pre_proxy {
 
110
        # For debugging purposes only
 
111
#       &log_request_attributes;
 
112
 
 
113
        return RLM_MODULE_OK;
 
114
}
 
115
 
 
116
# Function to handle post_proxy
 
117
sub post_proxy {
 
118
        # For debugging purposes only
 
119
#       &log_request_attributes;
 
120
 
 
121
        return RLM_MODULE_OK;
 
122
}
 
123
 
 
124
# Function to handle post_auth
 
125
sub post_auth {
 
126
        # For debugging purposes only
 
127
#       &log_request_attributes;
 
128
 
 
129
        return RLM_MODULE_OK;
 
130
}
 
131
 
108
132
# Function to handle xlat
109
133
sub xlat {
110
134
        # For debugging purposes only