Mercurial > pidgin.yaz
view plugins/fortuneprofile.pl @ 4359:5fb47ec9bfe4
[gaim-migrate @ 4625]
Wow, okay, where to begin with this one ;)
I rewrote the whole conversation backend. It is now core/UI split. Here's
how it works..
Every conversation is represented by a gaim_conversation structure. This
branches out into gaim_im and gaim_chat structures. Every conversation
lives in (well, normally, but it doesn't have to) a gaim_window structure.
This is a _CORE_ representation of a window. There can be multiple
gaim_window structures around.
The gaim_window and gaim_conversation structures have UI-specific operation
structures associated with them. At the moment, the only UI is GTK+, and
this will be for some time. Don't start thinking you can write a QT UI now.
It's just not going to happen.
Everything that is done on a conversation is done through the core API.
This API does core processing and then calls the UI operations for the
rendering and anything else.
Now, what does this give the user?
- Multiple windows.
- Multiple tabs per window.
- Draggable tabs.
- Send As menu is moved to the menubar.
- Menubar for chats.
- Some very cool stuff in the future, like replacing, say, IRC chat windows
with an X-Chat interface, or whatever.
- Later on, customizable window/conversation positioning.
For developers:
- Fully documented API
- Core/UI split
- Variable checking and mostly sane handling of incorrect variables.
- Logical structure to conversations, both core and UI.
- Some very cool stuff in the future, like replacing, say, IRC chat windows
with an X-Chat interface, or whatever.
- Later on, customizable window/conversation positioning.
- Oh yeah, and the beginning of a stock icon system.
Now, there are things that aren't there yet. You will see tabs even if you
have them turned off. This will be fixed in time. Also, the preferences
will change to work with the new structure. I'm starting school in 2 days,
so it may not be done immediately, but hopefully in the next week.
Enjoy!
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Mon, 20 Jan 2003 09:10:23 +0000 |
parents | 8cd8deb4234d |
children | 6316a0a33680 |
line wrap: on
line source
# FORTUNE PROFILE # # Sets your AIM profile to a fortune (with a header and footer of your # choice). # # By Sean Egan # bj91704@binghamton.edu # AIM: SeanEgn # # Updated by Nathan Conrad, 31 January 2002 # Changes: # * Fortunes have HTML tabs and newlines # AIM: t98502 # ICQ: 16106363 # # Updated by Mark Doliner, 15 October 2002 # Changes: # * Modified to work with the changed perl interface of gaim 0.60 # * Fixed a bug where your info would be set to nothing if you had # no pre and no post message # AIM: lbdash # Copyright (C) 2001 Sean Egan # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA $handle = GAIM::register("Fortune Profile", "3.2", "", ""); $tab = " "; $tab = $tab . $tab . $tab . $tab; $nl = "<BR>"; $seconds = 9; # Delay before updating away messages. $max = 1020; # Max length of an profile. It should be # 1024, but I am being safe $pre_message = ""; # This gets added before the fortune $post_message =""; $len = 0; if ($pre_message ne "") { $len += length( $pre_message . "---$nl" ); } if ($post_message ne "") { $len += length("---$nl" . $post_message); } $command = "fortune -sn " . ($max - $len); # Command to get dynamic message from sub update_away { # The fortunes are expanded into HTML (the tabs and newlines) which # causes the -s option of fortune to be a little bit meaningless. This # will loop until it gets a fortune of a good size (after expansion). do { do { #It's a while loop because it doesn't always work for some reason $fortune = `$command`; } while ($fortune eq ""); $fortune =~ s/\n/$nl/g; $fortune =~ s/\t/$tab/g; } while ((length($fortune) + $len ) > $max); $message = $fortune; if ($pre_message ne "") { $message = $pre_message . "---$nl" . $message; } if ($post_message ne "") { $message = $message . "---$nl" . $post_message ; } foreach $id (GAIM::get_info(1)) {GAIM::command("info", $id, $message);} GAIM::add_timeout_handler($handle, $seconds, "update_away"); } sub description { my($a, $b, $c, $d, $e, $f) = @_; ("Fortune Profile", "3.2", "Sets your AIM profile to a fortune (with a header and footer of your choice).", "Sean Egan <bj91704\@binghamton.edu>", "http://gaim.sf.net/", "/dev/null"); } # output the first message and start the timers... update_away();