Menu
▾
▴
[Gaim-commits] CVS: gaim/plugins fortuneprofile.pl,1.4,1.5
|
From: Christian H. <ch...@us...> - 2003-08-20 10:46:51
|
Update of /cvsroot/gaim/gaim/plugins In directory sc8-pr-cvs1:/tmp/cvs-serv28650 Modified Files: fortuneprofile.pl Log Message: Updated the fortune profile script for the new perl API. It doesn't work yet, but it will once I implement some new functions. Index: fortuneprofile.pl =================================================================== RCS file: /cvsroot/gaim/gaim/plugins/fortuneprofile.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- fortuneprofile.pl 15 Jul 2003 01:01:38 -0000 1.4 +++ fortuneprofile.pl 20 Aug 2003 09:33:56 -0000 1.5 @@ -20,6 +20,11 @@ # * Fixed a bug where your info would be set to nothing if you had # no pre and no post message # AIM: lbdash +# +# Updated by Christian Hammond, 20 August 2002 +# Changes: +# * Modified to work with the changed perl interface of gaim 0.68 +# AIM: ChipX86 # Copyright (C) 2001 Sean Egan @@ -37,35 +42,58 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +%PLUGIN_INFO = ( + perl_api_version => 2, + name => "Fortune Profile", + version => "3.4", + summary => "Sets your AIM profile to a fortune (with a header and footer of your choice).", + description => "Sets your AIM profile to a fortune (with a header and footer of your choice).", + author => "Sean Egan <bj91704\@binghamton.edu>", + url => "http://gaim.sf.net/", -$handle = GAIM::register("Fortune Profile", "3.3", "", ""); + load => "plugin_load" +); -$tab = " "; -$tab = $tab . $tab . $tab . $tab; -$nl = "<BR>"; +sub plugin_init { + return %PLUGIN_INFO; +} -$seconds = 30; # 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 +sub plugin_load { + my $plugin = shift; -$post_message =""; + $tab = " "; + $tab = $tab . $tab . $tab . $tab; + $nl = "<BR>"; -$len = 0; -if ($pre_message ne "") { - $len += length( $pre_message . "---$nl" ); -} -if ($post_message ne "") { - $len += length("---$nl" . $post_message); -} + $seconds = 30; # 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 -$command = "fortune -sn " . ($max - $len); # Command to get dynamic message from + $post_message =""; + + $len = 0; + if ($pre_message ne "") { + $len += length( $pre_message . "---$nl" ); + } + if ($post_message ne "") { + $len += length("---$nl" . $post_message); + } + + # Command to get dynamic message from + $command = "fortune -sn " . ($max - $len); + + # output the first message and start the timers... + # This is done as a timeout to prevent attempts to set the + # profile before logging in. + Gaim::timeout_add($plugin, $seconds, "update_away"); +} 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`; @@ -89,13 +117,4 @@ GAIM::add_timeout_handler($handle, $seconds, "update_away"); } -sub description { - my($a, $b, $c, $d, $e, $f) = @_; - ("Fortune Profile", "3.3", "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... -# This is done as a timeout to prevent attempts to set the profile before logging in. -GAIM::add_timeout_handler($handle, $seconds, "update_away"); |