diff src/perl.c @ 797:c13e78ae0f86

[gaim-migrate @ 807] egassem gniggubed lufesu erom committer: Tailor Script <[e-mail]>

--- a/src/perl.c	Wed Aug 30 03:49:00 2000 +0000
+++ b/src/perl.c	Wed Aug 30 04:31:05 2000 +0000
@@ -445,79 +445,6 @@
 	serv_chat_send(c->id, what);
 }
 
-static char *event_name(enum gaim_event event)
-{
-	static char buf[128];
-	switch(event) {
-		case event_signon:
-			sprintf(buf, "event_signon");
-			break;
-		case event_signoff:
-			sprintf(buf, "event_signoff");
-			break;
-		case event_away:
-			sprintf(buf, "event_away");
-			break;
-		case event_back:
-			sprintf(buf, "event_back");
-			break;
-		case event_im_recv:
-			sprintf(buf, "event_im_recv");
-			break;
-		case event_im_send:
-			sprintf(buf, "event_im_send");
-			break;
-		case event_buddy_signon:
-			sprintf(buf, "event_buddy_signon");
-			break;
-		case event_buddy_signoff:
-			sprintf(buf, "event_buddy_signoff");
-			break;
-		case event_buddy_away:
-			sprintf(buf, "event_buddy_away");
-			break;
-		case event_buddy_back:
-			sprintf(buf, "event_buddy_back");
-			break;
-		case event_blist_update:
-			sprintf(buf, "event_blist_update");
-			break;
-		case event_chat_invited:
-			sprintf(buf, "event_chat_invited");
-			break;
-		case event_chat_join:
-			sprintf(buf, "event_chat_join");
-			break;
-		case event_chat_leave:
-			sprintf(buf, "event_chat_leave");
-			break;
-		case event_chat_buddy_join:
-			sprintf(buf, "event_chat_buddy_join");
-			break;
-		case event_chat_buddy_leave:
-			sprintf(buf, "event_chat_buddy_leave");
-			break;
-		case event_chat_recv:
-			sprintf(buf, "event_chat_recv");
-			break;
-		case event_chat_send:
-			sprintf(buf, "event_chat_send");
-			break;
-		case event_warned:
-			sprintf(buf, "event_warned");
-			break;
-		case event_error:
-			sprintf(buf, "event_error");
-			break;
-		case event_quit:
-			sprintf(buf, "event_quit");
-			break;
-		default:
-			sprintf(buf, "event_unknown");
-			break;
-	}
-}
-
 int perl_event(enum gaim_event event, char *args)
 {
 	GList *handler;