[NeoStats-Devel] [Commits] r2805 - trunk/src

Author: Fish
Date: Mon Sep 12 21:18:53 2005
New Revision: 2805

Modified:
   trunk/src/perl.c
Log:
setup perl to handle the Unhandled CTCP requests and replies. (sorry for the multiple commits, its XCode, not me!)

Modified: trunk/src/perl.c
==============================================================================
--- trunk/src/perl.c	(original)
+++ trunk/src/perl.c	Mon Sep 12 21:18:53 2005
@@ -288,6 +288,15 @@
 		case EVENT_DELBAN:
 			dlog(DEBUG1, "EVENT_*BAN Todo!");
 			break;
+		case EVENT_CTCPUNHANDLEDRPL:
+		case EVENT_CTCPUNHANDLEDRPLBC:
+			ret = execute_perl(mod_ptr, mod_ptr->pm->event_list[evt]->pe->callback, 2, cmdparams->source->name, cmdparams->param);
+			break;
+		case EVENT_CTCPUNHANDLEDREQ:
+		case EVENT_CTCPUNHANDLEDREQBC:
+			ret = execute_perl(mod_ptr, mod_ptr->pm->event_list[evt]->pe->callback, 2, cmdparams->source->name, cmdparams->param);
+			break;
+
 		case EVENT_COUNT:
 			/* nothing */
 			break;