# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1058230898 0
# Node ID e8204ffce9f8c42751ae628df1315b9bffff4424
# Parent  16fd7811effd7576ef6610a6352fc0c9bd8b58c1
[gaim-migrate @ 6599]
Make fortuneprofile.pl not infinite loop when you don't have fortune installed.

committer: Tailor Script <tailor@pidgin.im>

diff -r 16fd7811effd -r e8204ffce9f8 plugins/fortuneprofile.pl
--- a/plugins/fortuneprofile.pl	Mon Jul 14 23:05:21 2003 +0000
+++ b/plugins/fortuneprofile.pl	Tue Jul 15 01:01:38 2003 +0000
@@ -38,7 +38,7 @@
 #    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 
 
-$handle = GAIM::register("Fortune Profile", "3.2", "", "");
+$handle = GAIM::register("Fortune Profile", "3.3", "", "");
 
 $tab = "&nbsp;";
 $tab = $tab . $tab . $tab . $tab;
@@ -69,6 +69,9 @@
   do {
     do {  #It's a while loop because it doesn't always work for some reason
       $fortune =  `$command`;
+      if ($? == -1) {
+        return;
+      }
     } while ($fortune eq "");
     $fortune =~ s/\n/$nl/g;
     $fortune =~ s/\t/$tab/g;
@@ -88,8 +91,8 @@
 
 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 &lt;bj91704\@binghamton.edu>", "http://gaim.sf.net/",
+  ("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");
 }