From 00ef5a1ac866dcf45271e46c31ab249173845936 Mon Sep 17 00:00:00 2001
From: ddouthitt <ddouthitt@users.sourceforge.net>
Date: Fri, 12 Oct 2001 04:34:21 +0000
Subject: [PATCH] Fixes submitted for the fortune client to LCDd

---
 clients/examples/fortune.pl | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/clients/examples/fortune.pl b/clients/examples/fortune.pl
index 611db9f..fc5d03c 100755
--- a/clients/examples/fortune.pl
+++ b/clients/examples/fortune.pl
@@ -1,14 +1,31 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use IO::Socket;
 use Fcntl;
 
+############################################################
+# Configurable part. Set it according your setup.
+############################################################
+
+# Path to `fortune' program.
+$FORTUNE = "fortune";
+
+# Host which runs lcdproc daemon (LCDd)
+$HOST = "localhost";
+
+# Port on which LCDd listens to requests
+$PORT = "13666";
+
+############################################################
+# End of user configurable parts
+############################################################
+
 
 # Connect to the server...
 $remote = IO::Socket::INET->new(
 		Proto     => "tcp",
-		PeerAddr  => "localhost",
-		PeerPort  => "13666",
+		PeerAddr  => $HOST,
+		PeerPort  => $PORT,
 	)
 	|| die "Cannot connect to LCDproc port\n";
 
@@ -49,7 +66,7 @@ while(1)
 	    @lines = split(/\n/, $input);
 	    foreach $line (@lines)
 	    {
-		if ( $line =~ /^success$/ ) next;
+		if ( $line =~ /^success$/ ) { next; }
 		if($line =~ /^ignore (\S)/)  # Update just after disappearing
 		{
 		    &update_text();
@@ -66,7 +83,7 @@ exit;
 
 sub update_text {
     # Grab some text.
-    $text = `fortune`;
+    $text = `$FORTUNE` || die "\n$0: Error running `$FORTUNE'.\nPlease check that the path is correct.\n\n";
     @lines = split(/\n/, $text);
     $text = join(" / ", @lines);