plugins/fortuneprofile.pl@b2810de319c8 (annotated)
plugins/fortuneprofile.pl
Tue, 15 Oct 2002 06:46:27 +0000
- author
- Mark Doliner <markdoliner@pidgin.im>
- date
- Tue, 15 Oct 2002 06:46:27 +0000
- changeset 3706
- b2810de319c8
- child 4603
- 32a104f6b115
- permissions
- -rw-r--r--
[gaim-migrate @ 3839]
Lukemeister said I should commit this because Seanmeister forgot.
I converted fortuneprofile.pl (best, perl script, ever) to work with the
new perl stuff. I also fixed a little bug type thing, where your info
would get set to nothing if you didn't have pre or post text.
| 3706 | 1 | # FORTUNE PROFILE |
| 2 | # | |
| 3 | # Sets your AIM profile to a fortune (with a header and footer of your | |
| 4 | # choice). | |
| 5 | # | |
| 6 | ||
| 7 | # By Sean Egan | |
| 8 | # bj91704@binghamton.edu | |
| 9 | # AIM: SeanEgn | |
| 10 | # | |
| 11 | # Updated by Nathan Conrad, 31 January 2002 | |
| 12 | # Changes: | |
| 13 | # * Fortunes have HTML tabs and newlines | |
| 14 | # AIM: t98502 | |
| 15 | # ICQ: 16106363 | |
| 16 | # | |
| 17 | # Updated by Mark Doliner, 15 October 2002 | |
| 18 | # Changes: | |
| 19 | # * Modified to work with the changed perl interface of gaim 0.60 | |
| 20 | # * Fixed a bug where your info would be set to nothing if you had | |
| 21 | # no pre and no post message | |
| 22 | # AIM: lbdash | |
| 23 | ||
| 24 | # Copyright (C) 2001 Sean Egan | |
| 25 | ||
| 26 | # This program is free software; you can redistribute it and/or modify | |
| 27 | # it under the terms of the GNU General Public License as published by | |
| 28 | # the Free Software Foundation; either version 2 of the License, or | |
| 29 | # (at your option) any later version. | |
| 30 | # | |
| 31 | # This program is distributed in the hope that it will be useful, | |
| 32 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 33 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 34 | # GNU General Public License for more details. | |
| 35 | # | |
| 36 | # You should have received a copy of the GNU General Public License | |
| 37 | # along with this program; if not, write to the Free Software | |
| 38 | # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| 39 | ||
| 40 | ||
| 41 | $handle = GAIM::register("Fortune Profile", "3.2", "", ""); | |
| 42 | ||
| 43 | $tab = " "; | |
| 44 | $tab = $tab . $tab . $tab . $tab; | |
| 45 | $nl = "<BR>"; | |
| 46 | ||
| 47 | $seconds = 9; # Delay before updating away messages. | |
| 48 | $max = 1020; # Max length of an profile. It should be | |
| 49 | # 1024, but I am being safe | |
| 50 | $pre_message = ""; # This gets added before the fortune | |
| 51 | ||
| 52 | $post_message =""; | |
| 53 | ||
| 54 | $len = 0; | |
| 55 | if ($pre_message ne "") { | |
| 56 | $len += length( $pre_message . "---$nl" ); | |
| 57 | } | |
| 58 | if ($post_message ne "") { | |
| 59 | $len += length("---$nl" . $post_message); | |
| 60 | } | |
| 61 | ||
| 62 | $command = "fortune -sn " . ($max - $len); # Command to get dynamic message from | |
| 63 | ||
| 64 | sub update_away { | |
| 65 | # The fortunes are expanded into HTML (the tabs and newlines) which | |
| 66 | # causes the -s option of fortune to be a little bit meaningless. This | |
| 67 | # will loop until it gets a fortune of a good size (after expansion). | |
| 68 | ||
| 69 | do { | |
| 70 | do { #It's a while loop because it doesn't always work for some reason | |
| 71 | $fortune = `$command`; | |
| 72 | } while ($fortune eq ""); | |
| 73 | $fortune =~ s/\n/$nl/g; | |
| 74 | $fortune =~ s/\t/$tab/g; | |
| 75 | } while ((length($fortune) + $len ) > $max); | |
| 76 | ||
| 77 | $message = $fortune; | |
| 78 | if ($pre_message ne "") { | |
| 79 | $message = $pre_message . "---$nl" . $message; | |
| 80 | } | |
| 81 | if ($post_message ne "") { | |
| 82 | $message = $message . "---$nl" . $post_message ; | |
| 83 | } | |
| 84 | ||
| 85 | foreach $id (GAIM::get_info(1)) {GAIM::command("info", $id, $message);} | |
| 86 | GAIM::add_timeout_handler($handle, $seconds, "update_away"); | |
| 87 | } | |
| 88 | ||
| 89 | sub description { | |
| 90 | my($a, $b, $c, $d, $e, $f) = @_; | |
| 91 | ("Fortune Profile", "3.2", "Sets your AIM profile to a fortune (with a header and footer of your choice).", | |
| 92 | "Sean Egan <bj91704\@binghamton.edu>", "http://gaim.sf.net/", | |
| 93 | "/dev/null"); | |
| 94 | } | |
| 95 | ||
| 96 | # output the first message and start the timers... | |
| 97 | update_away(); |
