mangavalk/lcdproc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixes submitted for the fortune client to LCDd

Browse Source
This commit is contained in:
ddouthitt
2001-10-12 04:34:21 +00:00
parent 10a2c963a7
commit 00ef5a1ac8
1 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
clients/examples/fortune.pl
+22 -5
View File
@@ -1,14 +1,31 @@
#!/usr/local/bin/perl -w #!/usr/bin/perl -w
use IO::Socket; use IO::Socket;
use Fcntl; 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... # Connect to the server...
$remote = IO::Socket::INET->new( $remote = IO::Socket::INET->new(
Proto => "tcp", Proto => "tcp",
PeerAddr => "localhost", PeerAddr => $HOST,
PeerPort => "13666", PeerPort => $PORT,
) )
|| die "Cannot connect to LCDproc port\n"; || die "Cannot connect to LCDproc port\n";
@@ -49,7 +66,7 @@ while(1)
@lines = split(/\n/, $input); @lines = split(/\n/, $input);
foreach $line (@lines) foreach $line (@lines)
{ {
if ( $line =~ /^success$/ ) next; if ( $line =~ /^success$/ ) { next; }
if($line =~ /^ignore (\S)/) # Update just after disappearing if($line =~ /^ignore (\S)/) # Update just after disappearing
{ {
&update_text(); &update_text();
@@ -66,7 +83,7 @@ exit;
sub update_text { sub update_text {
# Grab some 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); @lines = split(/\n/, $text);
$text = join(" / ", @lines); $text = join(" / ", @lines);