Made dpidc a C language program

1 files changed, 0 insertions, 37 deletions

diff --git a/dpid/dpidc b/dpid/dpidc
deleted file mode 100644
index 7f8bc0e6..00000000
--- a/dpid/dpidc
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/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::INET;
-
-# Get socket directory name
-#open(DSD, "<$ENV{HOME}/.dillo/dpi_socket_dir");
-#my $dir = <DSD>;
-#close(DSD);
-
-# Get dpid's listening port from saved file
-open(DSD, "<$ENV{HOME}/.dillo/dpid_comm_keys");
-my $port = <DSD>;
-close(DSD);
-print "Got: localhost:$port\n";
-
-my $socket = IO::Socket::INET->new(Peer => "localhost:$port", Type => SOCK_STREAM, Timeout => 1000 ) or die "new: $@";
-
-$socket->autoflush(1);
-
-my %dpi_command = ( 
-        "register" => "<dpi cmd='register_all' '>",
-        "stop" => "<dpi cmd='DpiBye' '>",
-        );
-
-if ( $#ARGV == 0 && exists($dpi_command{$ARGV[0]}) ) {
-        print $socket $dpi_command{$ARGV[0]};
-} else {
-        close($socket);
-        print "Usage: dpidc register|stop\n";
-}