From 93715c46a99c96d6c866968312691ec9ab0f6a03 Mon Sep 17 00:00:00 2001
From: jcid <devnull@localhost>
Date: Sun, 7 Oct 2007 00:36:34 +0200
Subject: Initial revision

---
 dpid/dpidc | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 dpid/dpidc

(limited to 'dpid/dpidc')

diff --git a/dpid/dpidc b/dpid/dpidc
new file mode 100644
index 00000000..88b887cb
--- /dev/null
+++ b/dpid/dpidc
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+# Author: Ferdi Franceschini
+#
+# dpid control program
+# Currently allows
+# register: Tells dpid to register all available dpis
+# stop: Stops dpid.
+
+use strict;
+use IO::Socket::UNIX;
+
+# Get socket directory name
+open(DSD, "<$ENV{HOME}/.dillo/dpi_socket_dir");
+my $dir = <DSD>;
+close(DSD);
+
+my $socket = IO::Socket::UNIX->new(Peer => "$dir/dpid.srs", Type => SOCK_STREAM, Timeout => 1000 ) or die "new: $@";
+
+$socket->autoflush(1);
+
+my %dpi_command = ( 
+        "register" => "<dpi cmd='register_all' '>",
+        "stop" => "<dpi cmd='DpiBye' '>",
+        );
+
+if ( exists($dpi_command{$ARGV[0]}) ) {
+        print $socket $dpi_command{$ARGV[0]};
+} else {
+        close($socket);
+        print "Usage: dpidc register|stop\n";
+}
-- 
cgit v1.2.3