Mercurial > pidgin.yaz
comparison doc/PERL-HOWTO.dox @ 6603:21084026030b
[gaim-migrate @ 7127]
Gah. Fix.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Sun, 24 Aug 2003 05:07:30 +0000 |
parents | 76683fe3c96d |
children | 41120df7ed94 |
comparison
equal
deleted
inserted
replaced
6602:76683fe3c96d | 6603:21084026030b |
---|---|
9 functions. However, with the latest changes to Gaim's perl API, a much | 9 functions. However, with the latest changes to Gaim's perl API, a much |
10 larger part of Gaim is now open. In time, even such things as Gtk+ | 10 larger part of Gaim is now open. In time, even such things as Gtk+ |
11 preference panes for perl scripts will be possible. | 11 preference panes for perl scripts will be possible. |
12 @endsection | 12 @endsection |
13 | 13 |
14 @section Writing your first perl script | 14 @section first-script Writing your first perl script |
15 Enough of that. You want to know how to write a perl script, right? | 15 Enough of that. You want to know how to write a perl script, right? |
16 | 16 |
17 First off, we're going to assume here that you are familiar with perl. Perl | 17 First off, we're going to assume here that you are familiar with perl. Perl |
18 scripts in Gaim are just normal perl scripts, which happen to use Gaim's | 18 scripts in Gaim are just normal perl scripts, which happen to use Gaim's |
19 loadable perl module. | 19 loadable perl module. |
148 my $account = $gc->get_account(); | 148 my $account = $gc->get_account(); |
149 | 149 |
150 Gaim::debug_info("my perl plugin", | 150 Gaim::debug_info("my perl plugin", |
151 "Account " . $account->get_username() . " signed on.\n"); | 151 "Account " . $account->get_username() . " signed on.\n"); |
152 } | 152 } |
153 | 153 |
154 sub plugin_load { | 154 sub plugin_load { |
155 my $plugin = shift; | 155 my $plugin = shift; |
156 my $data = ""; | 156 my $data = ""; |
157 | 157 |
158 Gaim::signal_connect(Gaim::Connections::handle, "signed-on", | 158 Gaim::signal_connect(Gaim::Connections::handle, "signed-on", |