From: Tuc at B. H. <tu...@tu...> - 2004-05-19 22:17:45
|
Hi, I have a bit of logic in the plugin : @all_accounts =3D Gaim::accounts; foreach my $acct (@all_accounts) { if ($acct->is_connected) { if (Gaim::Conversations::find_with_account($destination,$acc= t)) { Gaim::Conversation::IM::send($im,$shortmsg); Gaim::debug_info("Tucs Perl Plugin", "Account found\n"); } else { $im =3D Gaim::Conversation::IM::new($acct,$destination); Gaim::Conversation::IM::send($im,$shortmsg); Gaim::debug_info("Tucs Perl Plugin", "Account not found\n"= ); } } } The first message that I need to get sent opens a window, sends the message, then "Account not found". Subsequent ones send the message = and print "Account found".=20 Now, I'm not complaining, this is the right way to do it. HOWEVER........................................... If I close the window that had been opened, the next time something needs to happen, it just core dumps... A backtrace is : #0 0x289d1dcf in kill () from /lib/libc.so.5 #1 0x289c6878 in raise () from /lib/libc.so.5 #2 0x28a3ef82 in abort () from /lib/libc.so.5 #3 0x080f38db in sighandler () #4 0x2896ef34 in _thread_sig_handler () from /usr/lib/libc_r.so.5 #5 0x2896ed9d in _thread_sig_handler () from /usr/lib/libc_r.so.5 #6 <signal handler called> #7 0x08074331 in gaim_conversation_get_gc () #8 0x08073d2f in gaim_conversation_destroy () #9 0x28fdeaa3 in XS_Gaim__Conversation__IM_DESTROY (cv=3D0x84b6be0) at Conversation_IM.xs:19 #10 0x28c31b3b in Perl_pp_entersub () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #11 0x28bd7359 in S_call_body () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #12 0x28bd70ca in Perl_call_sv () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #13 0x28c39b7a in Perl_sv_clear () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #14 0x28c3a208 in Perl_sv_free () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #15 0x28c4e801 in Perl_free_tmps () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #16 0x28c2a97f in Perl_pp_nextstate () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #17 0x28c2a865 in Perl_runops_standard () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #18 0x28bd7383 in S_call_body () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #19 0x28bd6e73 in Perl_call_sv () from /usr/local/lib/perl5/5.8.2/mach/CORE/libperl.so #20 0x28bb20b6 in perl_signal_cb ( args=3D0xbfbfdc4c "vq\202(8=B3\206(\200_b\b`=D5\020\b", data=3D0x8448= 900) at perl-handlers.c:115 #21 0x08091758 in gaim_signal_emit_vargs () #22 0x08091645 in gaim_signal_emit () #23 0x0806b5b9 in gaim_blist_update_buddy_status () #24 0x0808ff4c in serv_got_update () #25 0x28f76c4f in gaim_parse_oncoming (sess=3D0x0, fr=3D0x81f9940) at osc= ar.c:2135 #26 0x28f590a1 in buddychange (sess=3D0x8626400, mod=3D0x8622a40, rx=3D0x= 81f9940,=20 snac=3D0xbfbfde40, bs=3D0x0) at buddylist.c:253 #27 0x28f59150 in snachandler (sess=3D0x8626400, mod=3D0x8622a40, rx=3D0x= 81f9940,=20 snac=3D0x28980320, bs=3D0x81f994c) at buddylist.c:268 #28 0x28f6875e in consumesnac (sess=3D0x8626400, rx=3D0x81f9940) at rxhandlers.c:138 #29 0x28f68e92 in aim_rxdispatch (sess=3D0x8626400) at rxhandlers.c:525 #30 0x28f72fe7 in oscar_callback (data=3D0x0, source=3D7,=20 condition=3DGAIM_INPUT_READ) at oscar.c:767 #31 0x080c9992 in gaim_gtk_debug_get_ui_ops () #32 0x288376e4 in g_io_unix_dispatch () from /usr/local/lib/libglib-2.0.s= o.400 #33 0x28811ba4 in g_main_dispatch () from /usr/local/lib/libglib-2.0.so.4= 00 #34 0x28812acd in g_main_context_dispatch () from /usr/local/lib/libglib-2.0.so.400 #35 0x28812edc in g_main_context_iterate () from /usr/local/lib/libglib-2.0.so.400 #36 0x28813621 in g_main_loop_run () from /usr/local/lib/libglib-2.0.so.4= 00 #37 0x283497e0 in gtk_main () from /usr/X11R6/lib/libgtk-x11-2.0.so.400 #38 0x080f458a in main () #39 0x08066232 in _start () Why?? Tuc/TTSG Internet Services, Inc. |