changeset 6897:69e0a3e29aa1

[gaim-migrate @ 7444] Added new stashes for value subtypes in perl. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Sat, 20 Sep 2003 21:38:12 +0000
parents 7c6324124b66
children 806f6e950e76
files plugins/perl/perl-common.c
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/plugins/perl/perl-common.c	Sat Sep 20 05:20:37 2003 +0000
+++ b/plugins/perl/perl-common.c	Sat Sep 20 21:38:12 2003 +0000
@@ -363,9 +363,15 @@
 
 	switch (gaim_value_get_subtype(value))
 	{
-		case GAIM_SUBTYPE_ACCOUNT:
-			stash = "Gaim::Account";
-			break;
+		case GAIM_SUBTYPE_ACCOUNT:      stash = "Gaim::Account";          break;
+		case GAIM_SUBTYPE_BLIST:        stash = "Gaim::BuddyList";        break;
+		case GAIM_SUBTYPE_BLIST_BUDDY:  stash = "Gaim::BuddyList::Buddy"; break;
+		case GAIM_SUBTYPE_BLIST_GROUP:  stash = "Gaim::BuddyList::Group"; break;
+		case GAIM_SUBTYPE_BLIST_CHAT:   stash = "Gaim::BuddyList::Chat";  break;
+		case GAIM_SUBTYPE_CONNECTION:   stash = "Gaim::Connection";       break;
+		case GAIM_SUBTYPE_CONVERSATION: stash = "Gaim::Conversation";     break;
+		case GAIM_SUBTYPE_CONV_WINDOW:  stash = "Gaim::ConvWindow";       break;
+		case GAIM_SUBTYPE_PLUGIN:       stash = "Gaim::Plugin";           break;
 
 		default:
 			stash = "Gaim"; /* ? */