# HG changeset patch
# User Etan Reisner <pidgin@unreliablesource.net>
# Date 1137915442 0
# Node ID 750968cab201a978b310481549389633ff664cf8
# Parent  4e9935a539dba6f41dedfba32e226a1b7722061e
[gaim-migrate @ 15340]
This should fix tcl scripts the same way I fixed perl scripts, all tcl scripts
will now have ids. Ethan, you are going to want to make sure I fixed this in a
way you find appropriate.

committer: Tailor Script <tailor@pidgin.im>

diff -r 4e9935a539db -r 750968cab201 plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Sun Jan 22 07:09:06 2006 +0000
+++ b/plugins/tcl/tcl.c	Sun Jan 22 07:37:22 2006 +0000
@@ -219,7 +219,7 @@
 		if (Tcl_EvalEx(interp, "plugin_init", -1, TCL_EVAL_GLOBAL) == TCL_OK) {
 			result = Tcl_GetObjResult(interp);
 			if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) {
-				if (nelems == 6) {
+				if ((nelems == 6) || (nelems == 7)) {
 					info = g_new0(GaimPluginInfo, 1);
 
 					info->magic = GAIM_PLUGIN_MAGIC;
@@ -235,6 +235,11 @@
 					info->author = g_strdup(Tcl_GetString(listitems[4]));
 					info->homepage = g_strdup(Tcl_GetString(listitems[5]));
 
+					if (nelems == 6)
+						info->id = g_strdup_printf("tcl-%s", Tcl_GetString(listitems[0]));
+					else if (nelems == 7)
+						info->id = g_strdup_printf("tcl-%s", Tcl_GetString(listitems[6]));
+
 					plugin->info = info;
 
 					if (gaim_plugin_register(plugin))