comparison src/perl.c @ 781:95ebfdb31a9b

[gaim-migrate @ 791] arg committer: Tailor Script <[e-mail]>

780:c714def9cebb

};

struct _perl_event_handlers {
	char *event_type;
	char *handler_name;
}

struct _perl_timeout_handlers {
	char *handler_name;
	gint iotag;
};

	struct _perl_event_handlers *data;

	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
		data = handler->data;
		if (!strcmp(event_name(event), data->event_type))
			execute_perl(args);
	}

	return 0;
}

781:95ebfdb31a9b

};

struct _perl_event_handlers {
	char *event_type;
	char *handler_name;
};

struct _perl_timeout_handlers {
	char *handler_name;
	gint iotag;
};

	struct _perl_event_handlers *data;

	for (handler = perl_event_handlers; handler != NULL; handler = handler->next) {
		data = handler->data;
		if (!strcmp(event_name(event), data->event_type))
			execute_perl(data->handler_name, args);
	}

	return 0;
}