# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1266511409 0
# Node ID ae1c7756f1bd97d69c26e8196bf6fe5b844b2d06
# Parent  fff648ea95ae33d2202e32f8f6afd56428161439
Add timeout_add() example to the Perl signals-test plugin

diff -r fff648ea95ae -r ae1c7756f1bd libpurple/plugins/perl/scripts/signals-test.pl
--- a/libpurple/plugins/perl/scripts/signals-test.pl	Thu Feb 18 16:37:18 2010 +0000
+++ b/libpurple/plugins/perl/scripts/signals-test.pl	Thu Feb 18 16:43:29 2010 +0000
@@ -44,6 +44,11 @@
 	Purple::Debug::misc("signals test in perl", "$data (" . $account->get_username() . ", $sender, $message, $flags)\n");
 }
 
+sub timeout_cb
+{
+	Purple::Debug::misc("signals test in perl", "timeout elapsed\n");
+}
+
 sub plugin_load
 {
 	my $plugin = shift;
@@ -71,6 +76,9 @@
 					\&conv_received_msg, "received im message");
 	Purple::Signal::connect($conv, "received-chat-msg", $plugin,
 					\&conv_received_msg, "received chat message");
+
+
+	Purple::timeout_add($plugin, 10, \&timeout_cb);
 }
 
 sub plugin_unload