Mercurial > pidgin
annotate plugins/test.pl @ 10849:c203cd637f95
[gaim-migrate @ 12521]
sf patch #1185449, from Richard Laager
"As the comment in gtkconv.c says, saving a duplicate copy
of the entire conversation is completely bogus. Saving a
copy of a conversation is a UI thing (if the UI is only showing
the last five messages, for example, that's all the user
would expect to be saved). Therefore, there's no problem
having the UI save its own buffer. The GTK+ UI is already
doing this with the imhtml object. This patch removes the
history from GaimConversation and uses the buffer in the
imhtml object when saving a conversation.
It also adds <html>, <head>, <title>, and <body> tags to
the file to make it a bit more valid.
This patch is extremely likely to break plugins because it
changes the size of the GaimConversation struct. As such,
if this is committed, I recommend the developers recompile
non-default plugins. This broke Gaim-Encryption for me,
hence the warning."
committer: Tailor Script <tailor@pidgin.im>
| author | Mark Doliner <mark@kingant.net> |
|---|---|
| date | Tue, 19 Apr 2005 04:21:39 +0000 |
| parents | b1ea29d1293e |
| children |
| rev | line source |
|---|---|
| 6529 | 1 #!/usr/bin/perl -w |
| 2 | |
| 3 use Gaim; | |
| 4 | |
| 5 %PLUGIN_INFO = ( | |
| 6 perl_api_version => 2, | |
| 7 name => 'Test Perl Plugin', | |
| 8 version => '1.0', | |
| 9 summary => 'Provides as a test base for the perl plugin.', | |
| 10 description => 'Provides as a test base for the perl plugin.', | |
| 11 author => 'Christian Hammond <chipx86@gnupdate.org>', | |
| 12 url => 'http://gaim.sf.net/', | |
| 13 | |
| 14 load => "plugin_load", | |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
15 unload => "plugin_unload" |
| 6529 | 16 ); |
| 17 | |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
18 sub account_away_cb { |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
19 Gaim::debug_info("perl test plugin", "In account_away_cb\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
20 |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
21 my ($account, $state, $message, $data) = @_; |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
22 |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
23 Gaim::debug_info("perl test plugin", "Account " . |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
24 $account->get_username() . " went away.\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
25 Gaim::debug_info("perl test plugin", $data . "\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
26 } |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
27 |
| 6529 | 28 sub plugin_init { |
| 29 return %PLUGIN_INFO; | |
| 30 } | |
| 31 | |
| 32 sub plugin_load { | |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
33 Gaim::debug_info("perl test plugin", "plugin_load\n"); |
| 6529 | 34 my $plugin = shift; |
| 35 | |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
36 Gaim::debug_info("perl test plugin", "Listing accounts.\n"); |
| 6529 | 37 foreach $account (Gaim::accounts()) { |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
38 Gaim::debug_info("perl test plugin", $account->get_username() . "\n"); |
| 6529 | 39 } |
|
6592
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
40 |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
41 Gaim::debug_info("perl test plugin", "Listing buddy list.\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
42 foreach $group (Gaim::BuddyList::groups()) { |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
43 Gaim::debug_info("perl test plugin", |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
44 $group->get_name() . ":\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
45 |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
46 foreach $buddy ($group->buddies()) { |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
47 Gaim::debug_info("perl test plugin", |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
48 " " . $buddy->get_name() . "\n"); |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
49 } |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
50 } |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
51 |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
52 Gaim::signal_connect(Gaim::Accounts::handle, "account-away", |
|
b1ea29d1293e
[gaim-migrate @ 7116]
Christian Hammond <chipx86@chipx86.com>
parents:
6529
diff
changeset
|
53 $plugin, \&account_away_cb, "test"); |
| 6529 | 54 } |
| 55 | |
| 56 sub plugin_unload { | |
| 57 my $plugin = shift; | |
| 58 } |