Mercurial > pidgin.yaz

comparison plugins/gaim.pl @ 2511:a83b4a5ffcd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 2524] malsyned's patch for args in perl. committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Mon, 15 Oct 2001 19:52:44 +0000
parents 571971659533
children cd938f18f3f8
comparison
equal deleted inserted replaced
2510:1950afffd107 2511:a83b4a5ffcd6
16 16
17 GAIM::add_event_handler("event_buddy_signon", "echo_reply"); 17 GAIM::add_event_handler("event_buddy_signon", "echo_reply");
18 GAIM::add_timeout_handler(60, "notify"); 18 GAIM::add_timeout_handler(60, "notify");
19 19
20 sub echo_reply { 20 sub echo_reply {
21 $args = $_[0]; 21 $index = $_[0];
22 $args =~ s/(.+) \"(.+)\"//; 22 $who = $_[1];
23 GAIM::print_to_conv($1, $2, "Hello", 0); 23 GAIM::print_to_conv($index, $who, "Hello", 0);
24 } 24 }
25 25
26 sub notify { 26 sub notify {
27 GAIM::print("1 minute", "gaim test has been loaded for 1 minute"); 27 GAIM::print("1 minute", "gaim test has been loaded for 1 minute");
28 } 28 }