1 files changed, 31 insertions, 0 deletions
diff --git a/konversation/scripts/cmd b/konversation/scripts/cmd
new file mode 100755
index 0000000..ebd7112
--- /dev/null
+++ b/konversation/scripts/cmd
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+# Copyright (C) 2004 by İsmail Dönmez
+# Licensed under GPL v2 or later at your option
+
+$PORT= shift;
+$SERVER= shift;
+$TARGET= shift;
+
+my $i;
+my $command;
+
+if( $ARGV[0] eq "yes" ){
+    exec 'dcop', $PORT, 'default', 'error', 'Requested command is not executed!';
+}
+
+foreach $word (@ARGV) {
+    $command = $command." ".$word;
+}
+
+$ARG_MESSAGE = `exec $command`;
+
+foreach $entry (split(/\n/, $ARG_MESSAGE)) {
+    chomp $entry;
+    $i=1;
+    $entry =~ s/^\//\/\//;
+    system 'dcop', $PORT, 'default', 'say', $SERVER, $TARGET, $entry;
+}
+
+unless($i) {
+    exec 'dcop', $PORT, 'default', 'error', "Command @ARGV doesn't exist";
+}