Mercurial > pidgin
annotate plugins/gaim.pl @ 1551:497a074fa1c8
[gaim-migrate @ 1561]
fun stuff
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Fri, 09 Mar 2001 09:58:35 +0000 |
parents | 190cef255530 |
children | 571971659533 |
rev | line source |
---|---|
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
1 GAIM::register("gaim test", "0.0.1", "goodbye", ""); |
806 | 2 |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
3 $ver = GAIM::get_info(0); |
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
4 $nam = GAIM::get_info(1); |
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
5 $pro = GAIM::get_info(2, $nam); |
806 | 6 |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
7 GAIM::print("Perl Says", "Gaim $ver, $nam using $pro"); |
806 | 8 |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
9 GAIM::command("idle", 60000); |
806 | 10 |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
11 GAIM::add_event_handler("event_buddy_signon", "say_hello"); |
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
12 GAIM::add_timeout_handler(600, "notify"); |
806 | 13 |
14 sub echo_reply { | |
15 $args = @_; | |
16 $args =~ s/\"//g; | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
17 GAIM::print_to_conv($args, "Hello"); |
806 | 18 } |
19 | |
20 sub notify { | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
21 GAIM::print("10 minutes", "gaim test has been loaded for 10 minutes"); |
806 | 22 } |
23 | |
24 sub goodbye { | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
25 GAIM::print("You Bastard!", "You killed Kenny!"); |
806 | 26 } |