Mercurial > pidgin.yaz

diff plugins/gaim.pl @ 3551:cd938f18f3f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 3626] In the interest of continued progress, I pulled what's usable out of my development tree and am committing it. Here, we have gotten rid of the plugins dialog and perl menu under Tools and put them both in preferences. Perl scripts now work like plugins--you have to load them explicitly (it will probe $prefix/lib/gaim and $HOME/.gaim for them) and you can unload them (although right now, this is entirely unreliable) Oh, and I broke all your perl scripts. Sorry about that. Don't try fixing them yet, though--I'm gonna make unloading single scripts more reliable tommorow. I should also finish Phase Two tommorow as well. committer: Tailor Script <tailor@pidgin.im>
author Sean Egan <seanegan@gmail.com>
date Thu, 26 Sep 2002 07:37:52 +0000
parents a83b4a5ffcd6
children e120097bbd72
line wrap: on
line diff
--- a/plugins/gaim.pl	Wed Sep 25 14:27:18 2002 +0000
+++ b/plugins/gaim.pl	Thu Sep 26 07:37:52 2002 +0000
@@ -1,4 +1,4 @@
-GAIM::register("gaim test", "0.0.1", "goodbye", "");
+GAIM::register("Example", "1.0", "goodbye", "");
 
 $ver = GAIM::get_info(0);
 @ids = GAIM::get_info(1);
@@ -30,3 +30,9 @@
 sub goodbye {
 	GAIM::print("You Bastard!", "You killed Kenny!");
 }
+
+sub description {
+	my($a, $b, $c, $d, $e, $f) = @_;
+		("Example", "1.0", "An example Gaim perl script that does nothing particularly useful:\n\t-Show a dialog on load\n\t-Set user idle for 6,000 seconds\n\t-Greets people signing on with \"Hello\"\n\t-Informs you when script has been loaded for one minute.", "Eric Warmenhoven &lt;eric\@warmenhoven.org>", "http://gaim.sf.net", "/dev/null");
+		}
+