scripts/unix.pl

   1 #!/usr/bin/perl
   2
   3 # Shell.FM UNIX Socket Control
   4 # Copyright (C) by Jonas Kramer. All rights reserved.
   5 # Published under the terms of the GNU General Public License (GPL).
   6 #
   7 #   Usage: $0 <command>
   8 #
   9 # See the shell-fm(1) manual for a list of commands.
  10
  11
  12 use strict;
  13 use warnings;
  14
  15 use IO::Socket::UNIX;
  16 use IO::File;
  17
  18
  19 die "Usage: $0 <command>\n" unless @ARGV;
  20
  21
  22 my $rc = new IO::File("$ENV{HOME}/.shell-fm/shell-fm.rc");
  23
  24 die "Can't open configuration. $!.\n" unless $rc;
  25
  26
  27 my $path;
  28
  29 for($rc->getlines) {
  30         $path = $1 if /^\s*unix\s*=\s*([^#\s]+)/;
  31 }
  32
  33 $rc->close;
  34
  35 die "No socket path found.\n" unless $path;
  36
  37
  38 my $socket = new IO::Socket::UNIX($path);
  39
  40 die "Failed to create socket. $!.\n" unless $socket;
  41
  42 $socket->print("@ARGV\n") or die("Failed to send command. $!.\n");
  43 $socket->print("detach\n");
  44
  45 my $reply = $socket->getline;
  46
  47 print $reply if $reply;
  48
  49 $socket->close;