pidgin/pidgin
Clone
Summary
Browse
Changes
Graph
Install our appdata file to $(datadir)/metainfo as that change was made a long time ago
release-2.x.y
2021-04-09, Gary Kramlich
a817d80eeb79
Install our appdata file to $(datadir)/metainfo as that change was made a long time ago
This patch originates from Lars Wendler from Gentoo
https://gitweb.gentoo.org/repo/gentoo.git/commit/net-im/pidgin/files/pidgin-2.13.0-metainfo.patch?id=2dd6c1852251b5b67c3045badf173be9535b97a9
Testing Done:
Installed to a prefix and verified the file ended up in `$prefix/share/metainfo`
Reviewed at https://reviews.imfreedom.org/r/607/
use
Purple
;
%PLUGIN_INFO
=
(
perl_api_version
=>
2
,
name
=>
'Test Perl Plugin'
,
version
=>
'1.0'
,
summary
=>
'Provides as a test base for the perl plugin.'
,
description
=>
'Provides as a test base for the perl plugin.'
,
author
=>
'Etan Reisner <deryni\@pidgin.im>'
,
url
=>
'http://pidgin.im'
,
load
=>
"plugin_load"
);
sub
plugin_init
{
return
%PLUGIN_INFO
;
}
sub
account_status_cb
{
my
(
$account
,
$old
,
$new
,
$data
)
=
@_
;
Purple::Debug::
info
(
"perl test plugin"
,
"In account_status_cb\n"
);
Purple::Debug::
info
(
"perl test plugin"
,
"Account "
.
$account
->
get_username
()
.
" changed status.\n"
);
Purple::Debug::
info
(
"perl test plugin"
,
$data
.
"\n"
);
}
sub
plugin_load
{
my
$plugin
=
shift
;
Purple::Debug::
info
(
"perl test plugin"
,
"plugin_load\n"
);
Purple::Debug::
info
(
"perl test plugin"
,
"Listing accounts.\n"
);
foreach
$account
(
Purple::Accounts::
get_all
())
{
Purple::Debug::
info
(
"perl test plugin"
,
$account
->
get_username
()
.
"\n"
);
}
Purple::Signal::
connect
(
Purple::Accounts::
get_handle
(),
"account-status-changed"
,
$plugin
,
\&
account_status_cb
,
"test"
);
}