Pull fixes for bug #267 from the head

diff --git a/src/modules/rlm_perl/example.pl b/src/modules/rlm_perl/example.pl
index f9714ff..96d5fd2 100644 (file)
--- a/src/modules/rlm_perl/example.pl
+++ b/src/modules/rlm_perl/example.pl
@@ -37,7 +37,7 @@ use Data::Dumper;
 #my %RAD_CHECK;
 
 #
-# This the remaping of return values 
+# This the remapping of return values 
 #
        use constant    RLM_MODULE_REJECT=>    0;#  /* immediately reject the request */
        use constant    RLM_MODULE_FAIL=>      1;#  /* module failed, don't reply */
@@ -105,6 +105,30 @@ sub checksimul {
        return RLM_MODULE_OK;
 }
 
+# Function to handle pre_proxy
+sub pre_proxy {
+       # For debugging purposes only
+#      &log_request_attributes;
+
+       return RLM_MODULE_OK;
+}
+
+# Function to handle post_proxy
+sub post_proxy {
+       # For debugging purposes only
+#      &log_request_attributes;
+
+       return RLM_MODULE_OK;
+}
+
+# Function to handle post_auth
+sub post_auth {
+       # For debugging purposes only
+#      &log_request_attributes;
+
+       return RLM_MODULE_OK;
+}
+
 # Function to handle xlat
 sub xlat {
        # For debugging purposes only