comparison: doc/PERL-HOWTO.dox
doc/PERL-HOWTO.dox
- changeset 6603
- 61602137a629
- parent 6602
- c37054d84539
- child 6720
- cdc5348dd848
equal
deleted
inserted
replaced
| 6602:c37054d84539 | 6603:61602137a629 |
|---|---|
| 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", |
