#!/usr/bin/perl

use Socket;

if ($ARGV[0] ne 'off' && $ARGV[0] ne 'on') {
  die 'Unknown argument';
}

my $proto = getprotobyname('tcp');
socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto) || die "Couldn't open socket";
my $sin = sockaddr_in(13666, inet_aton('localhost'));
connect(Socket_Handle, $sin) || die "Couldn't connection to localhost";
select(Socket_Handle);
$| = 1;
select(STDOUT);
print Socket_Handle "hello\n";
my $response = <Socket_Handle>;
die "LCDd isn't responding" if ($response !~ /^connect LCDproc/);
print Socket_Handle "screen_add blstrap\n";
$response = <Socket_Handle>;
die "Couldn't add strapping screen" if ($response != /^success/);
$response = <Socket_Handle>;
die "Not listening to screen blstrap" if ($response!= /^listen blstrap/);
print Socket_Handle "backlight $ARGV[0]\n";
$response = <Socket_Handle>;
if ($response !~ /^success/) {
  die "Couldn't turn off backlight" if ($ARGV[0] eq 'off');
  die "Couldn't turn on backlight" if ($ARGV[0] eq 'on');
}
print Socket_Handle "screen_del blstrap\n";
close Socket_Handle;

