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",