Mercurial > pidgin.yaz
comparison plugins/fortuneprofile.pl @ 6593:540edd51051b
[gaim-migrate @ 7117]
Updated fortuneprofile.pl.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Sun, 24 Aug 2003 02:44:49 +0000 |
parents | e4e87ffd9f14 |
children | 6de3b775d5b1 |
comparison
equal
deleted
inserted
replaced
6592:b1ea29d1293e | 6593:540edd51051b |
---|---|
87 | 87 |
88 $seconds = 10; # Delay before updating away messages. | 88 $seconds = 10; # Delay before updating away messages. |
89 # output the first message and start the timers... | 89 # output the first message and start the timers... |
90 # This is done as a timeout to prevent attempts to set the | 90 # This is done as a timeout to prevent attempts to set the |
91 # profile before logging in. | 91 # profile before logging in. |
92 Gaim::timeout_add($plugin, $seconds, "update_away", NULL); | 92 Gaim::timeout_add($plugin, $seconds, \&update_away, 0); |
93 } | 93 } |
94 | 94 |
95 sub update_away { | 95 sub update_away { |
96 # The fortunes are expanded into HTML (the tabs and newlines) which | 96 # The fortunes are expanded into HTML (the tabs and newlines) which |
97 # causes the -s option of fortune to be a little bit meaningless. This | 97 # causes the -s option of fortune to be a little bit meaningless. This |
120 if ($account->is_connected()) { | 120 if ($account->is_connected()) { |
121 $account->set_user_info($message); | 121 $account->set_user_info($message); |
122 } | 122 } |
123 } | 123 } |
124 | 124 |
125 Gaim::timeout_add($plugin, $seconds, "update_away", NULL); | 125 Gaim::timeout_add($plugin, $seconds, \&update_away, 0); |
126 } | 126 } |
127 | |
128 |