Initial revision
This commit is contained in:
William Ferrell
Executable
+75
@@ -0,0 +1,75 @@
|
||||
#!/usr/local/bin/perl -w
|
||||
|
||||
use IO::Socket;
|
||||
use Fcntl;
|
||||
|
||||
|
||||
# Connect to the server...
|
||||
$remote = IO::Socket::INET->new(
|
||||
Proto => "tcp",
|
||||
PeerAddr => "localhost",
|
||||
PeerPort => "13666",
|
||||
)
|
||||
|| die "Cannot connect to LCDproc port\n";
|
||||
|
||||
# Make sure our messages get there right away
|
||||
$remote->autoflush(1);
|
||||
|
||||
sleep 1; # Give server plenty of time to notice us...
|
||||
|
||||
print $remote "hello\n";
|
||||
my $lcdconnect = <$remote>;
|
||||
#print $lcdconnect;
|
||||
|
||||
|
||||
# Turn off blocking mode...
|
||||
fcntl($remote, F_SETFL, O_NONBLOCK);
|
||||
|
||||
|
||||
# Set up some screen widgets...
|
||||
print $remote "client_set name {fortune.pl}\n";
|
||||
print $remote "screen_add fortune\n";
|
||||
print $remote "screen_set fortune name {Fortune}\n";
|
||||
print $remote "widget_add fortune title title\n";
|
||||
print $remote "widget_set fortune title {Fortune}\n";
|
||||
print $remote "widget_add fortune text scroller\n";
|
||||
|
||||
|
||||
&update_text();
|
||||
|
||||
# Forever, we should do stuff...
|
||||
while(1)
|
||||
{
|
||||
# Handle input... (spew it to the console)
|
||||
# Also, certain keys scroll the display
|
||||
while(defined($input = <$remote>)) {
|
||||
#print $input;
|
||||
|
||||
# Make sure we handle each line...
|
||||
@lines = split(/\n/, $input);
|
||||
foreach $line (@lines)
|
||||
{
|
||||
if($line =~ /^ignore (\S)/) # Update just after disappearing
|
||||
{
|
||||
&update_text();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# And wait a little while before we check for input again.
|
||||
sleep 1;
|
||||
}
|
||||
|
||||
close ($remote) || die "close: $!";
|
||||
exit;
|
||||
|
||||
sub update_text {
|
||||
# Grab some text.
|
||||
$text = `fortune`;
|
||||
@lines = split(/\n/, $text);
|
||||
$text = join(" / ", @lines);
|
||||
|
||||
# Now, show a fortune...
|
||||
print $remote "widget_set fortune text 1 2 20 4 v 16 {$text}\n";
|
||||
|
||||
}
|
||||
Executable
+85
@@ -0,0 +1,85 @@
|
||||
#!/usr/local/bin/perl -w
|
||||
|
||||
use IO::Socket;
|
||||
use Fcntl;
|
||||
|
||||
# Connect to the server...
|
||||
$remote = IO::Socket::INET->new(
|
||||
Proto => "tcp",
|
||||
PeerAddr => "localhost",
|
||||
PeerPort => "13666",
|
||||
)
|
||||
|| die "Cannot connect to LCDproc port\n";
|
||||
|
||||
# Make sure our messages get there right away
|
||||
$remote->autoflush(1);
|
||||
|
||||
`sleep 1`; # Give server plenty of time to notice us...
|
||||
|
||||
print $remote "hello\n";
|
||||
my $lcdconnect = <$remote>;
|
||||
print $lcdconnect;
|
||||
|
||||
|
||||
# Turn off blocking mode...
|
||||
fcntl($remote, F_SETFL, O_NONBLOCK);
|
||||
|
||||
|
||||
# Set up some screen widgets...
|
||||
print $remote "client_set name {Test Client (Perl)}\n";
|
||||
print $remote "screen_add pings\n";
|
||||
print $remote "screen_set pings name {Ping Status}\n";
|
||||
print $remote "widget_add pings title title\n";
|
||||
print $remote "widget_set pings title {Ping Status}\n";
|
||||
print $remote "widget_add pings one string\n";
|
||||
print $remote "widget_add pings two string\n";
|
||||
print $remote "widget_set pings one 1 2 {Checking machines...}\n";
|
||||
|
||||
|
||||
my ($machine, %down, %up, $i, $list);
|
||||
|
||||
while(1)
|
||||
{
|
||||
#print "Main loop...\n";
|
||||
# Handle input... (just spew it to the console)
|
||||
while(defined($line = <$remote>)) {
|
||||
print $line;
|
||||
}
|
||||
|
||||
undef %down;
|
||||
undef %up;
|
||||
foreach $machine ("ZakaZak",
|
||||
"webfoot",
|
||||
"degas",
|
||||
"cassat",
|
||||
"miro",
|
||||
"monet",
|
||||
"dali",
|
||||
"escher",
|
||||
"seurat",
|
||||
"rodin",
|
||||
"matisse",
|
||||
)
|
||||
{
|
||||
`ping -c 1 $machine`;
|
||||
if($?) { $down{$machine} = 1; }
|
||||
else { $up{$machine} = 1; }
|
||||
}
|
||||
$i = 0; $list = "";
|
||||
foreach $machine (keys %up)
|
||||
{
|
||||
$i++;
|
||||
$list .= "$machine, ";
|
||||
}
|
||||
print $remote "widget_set pings one 1 2 {Machines Up: $i}\n";
|
||||
$i = 0; $list = "";
|
||||
foreach $machine (keys %down)
|
||||
{
|
||||
$i++;
|
||||
$list .= "$machine, ";
|
||||
}
|
||||
print $remote "widget_set pings two 1 3 {Down ($i): $list}\n";
|
||||
}
|
||||
|
||||
close ($remote) || die "close: $!";
|
||||
exit;
|
||||
Executable
+121
@@ -0,0 +1,121 @@
|
||||
#!/usr/local/bin/perl -w
|
||||
|
||||
use IO::Socket;
|
||||
use Fcntl;
|
||||
|
||||
if($#ARGV < 0)
|
||||
{
|
||||
print "Usage: tail.pl file\n";
|
||||
exit;
|
||||
}
|
||||
$filename = shift @ARGV;
|
||||
|
||||
|
||||
# Connect to the server...
|
||||
$remote = IO::Socket::INET->new(
|
||||
Proto => "tcp",
|
||||
PeerAddr => "localhost",
|
||||
PeerPort => "13666",
|
||||
)
|
||||
|| die "Cannot connect to LCDproc port\n";
|
||||
|
||||
# Make sure our messages get there right away
|
||||
$remote->autoflush(1);
|
||||
|
||||
sleep 1; # Give server plenty of time to notice us...
|
||||
|
||||
print $remote "hello\n";
|
||||
my $lcdconnect = <$remote>;
|
||||
print $lcdconnect;
|
||||
|
||||
|
||||
# Turn off blocking mode...
|
||||
fcntl($remote, F_SETFL, O_NONBLOCK);
|
||||
|
||||
|
||||
# Set up some screen widgets...
|
||||
print $remote "client_set name {Tail ($filename)}\n";
|
||||
print $remote "screen_add tail\n";
|
||||
print $remote "screen_set tail name {Tail $filename}\n";
|
||||
print $remote "widget_add tail title title\n";
|
||||
print $remote "widget_set tail title {Tail: $filename}\n";
|
||||
print $remote "widget_add tail 1 string\n";
|
||||
print $remote "widget_add tail 2 string\n";
|
||||
print $remote "widget_add tail 3 string\n";
|
||||
|
||||
|
||||
# These define the visible part of the file...
|
||||
$top = 3; # How far from the end of the file should we start?
|
||||
$lines = 3; # How many lines to display?
|
||||
$left = 1; # Left/right scrolling position,
|
||||
$width = 20; # and number of characters per line to show
|
||||
|
||||
$slow = 1; # Should we pause after the current frame?
|
||||
|
||||
# Forever, we should do stuff...
|
||||
while(1)
|
||||
{
|
||||
# Handle input... (spew it to the console)
|
||||
# Also, certain keys scroll the display
|
||||
while(defined($input = <$remote>)) {
|
||||
print $input;
|
||||
|
||||
$slow = -10;
|
||||
# Make sure we handle each line...
|
||||
@lines = split(/\n/, $input);
|
||||
foreach $line (@lines)
|
||||
{
|
||||
if($line =~ /^key (\S)/) # Keypresses are useful.
|
||||
{
|
||||
$key = $1;
|
||||
if($key eq "G") { $top++; }
|
||||
if($key eq "H")
|
||||
{
|
||||
if($top > $lines) {$top--; }
|
||||
}
|
||||
if($key eq "F") { $left++; }
|
||||
if($key eq "E")
|
||||
{
|
||||
if($left > 1) {$left--; }
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Now, show what the file contains, if anything...
|
||||
if( -f $filename )
|
||||
{
|
||||
# Grab some text.
|
||||
$right = $left + $width - 1;
|
||||
$text = `tail -$top $filename | head -$lines | cut -c$left-$right`;
|
||||
@lines = split(/\n/, $text);
|
||||
# Now, display that text...
|
||||
for($i=0; $i<$lines; $i++)
|
||||
{
|
||||
$j = $i + 1;
|
||||
$k = $i + 2;
|
||||
if($#lines < $i) { $line = " "; } # Avoid blank lines
|
||||
else { $line = $lines[$i]; }
|
||||
if(!($line =~ /\S/)) { $line = " ";}
|
||||
print $remote "widget_set tail $j 1 $k {$line }\n";
|
||||
}
|
||||
}
|
||||
else # If the file is unreadable, show an error
|
||||
{
|
||||
print $remote "widget_set tail one 1 2 {$filename}\n";
|
||||
print $remote "widget_set tail two 1 3 {doesn't exist.}\n";
|
||||
print $remote "widget_set tail three 1 4 { }\n";
|
||||
}
|
||||
|
||||
# And wait a little while before we show stuff again.
|
||||
if($slow > 0) {sleep 1; $slow++;}
|
||||
elsif($slow > 4) {sleep 2; $slow++;}
|
||||
elsif($slow > 64) {sleep 4; }
|
||||
else {$slow++;}
|
||||
# The "slow" thing just lets us have a better response time
|
||||
# while the user is pressing keys... But while the user
|
||||
# is inactive, it gradually decreases update frequency.
|
||||
}
|
||||
|
||||
close ($remote) || die "close: $!";
|
||||
exit;
|
||||
Executable
+85
@@ -0,0 +1,85 @@
|
||||
#!/usr/local/bin/perl -w
|
||||
|
||||
#
|
||||
# This is just a test! It's simple, cheesy, and doesn't do much
|
||||
# or even look very nice.
|
||||
#
|
||||
# However, it demonstrates one way to handle input from the server.
|
||||
# (although it seems buggy.. oops! :)
|
||||
#
|
||||
|
||||
use IO::Socket;
|
||||
use Fcntl;
|
||||
|
||||
# Connect to the server...
|
||||
$remote = IO::Socket::INET->new(
|
||||
Proto => "tcp",
|
||||
PeerAddr => "localhost",
|
||||
PeerPort => "13666",
|
||||
)
|
||||
|| die "Cannot connect to LCDproc port\n";
|
||||
|
||||
# Make sure our messages get there right away
|
||||
$remote->autoflush(1);
|
||||
|
||||
sleep 1; # Give server plenty of time to notice us...
|
||||
|
||||
print $remote "hello\n";
|
||||
my $lcdconnect = <$remote>;
|
||||
#print $lcdconnect;
|
||||
|
||||
|
||||
# Turn off blocking mode...
|
||||
fcntl($remote, F_SETFL, O_NONBLOCK);
|
||||
|
||||
|
||||
# Set up some screen widgets...
|
||||
print $remote "client_set name {X11AMP test}\n";
|
||||
print $remote "screen_add x11amp\n";
|
||||
print $remote "screen_set x11amp name {X11AMP test}\n";
|
||||
print $remote "widget_add x11amp title title\n";
|
||||
print $remote "widget_set x11amp title {X11AMP test}\n";
|
||||
print $remote "widget_add x11amp one string\n";
|
||||
print $remote "widget_set x11amp one 1 2 { <-: E ; F :->}\n";
|
||||
|
||||
|
||||
while(1)
|
||||
{
|
||||
# Handle input...
|
||||
while(defined($line = <$remote>)) {
|
||||
@items = split(" ", $line);
|
||||
$command = shift @items;
|
||||
# Use input to change songs...
|
||||
if($command eq "key")
|
||||
{
|
||||
$key = shift @items;
|
||||
if($key eq "E")
|
||||
{
|
||||
system("x11amp --rew");
|
||||
}
|
||||
if($key eq "F")
|
||||
{
|
||||
system("x11amp --fwd");
|
||||
}
|
||||
}
|
||||
# And ignore everything else
|
||||
elsif($command eq "connect")
|
||||
{
|
||||
}
|
||||
elsif($command eq "listen")
|
||||
{
|
||||
}
|
||||
elsif($command eq "ignore")
|
||||
{
|
||||
}
|
||||
else {
|
||||
if($line =~ /\S/) {print "Huh? $line\n";}
|
||||
}
|
||||
}
|
||||
|
||||
sleep 1;
|
||||
|
||||
}
|
||||
|
||||
close ($remote) || die "close: $!";
|
||||
exit;
|
||||
Reference in New Issue
Block a user