3 files changed, 125 insertions, 0 deletions
diff --git a/twin/killer/CMakeLists.txt b/twin/killer/CMakeLists.txt
new file mode 100644
index 000000000..5a7b36918
--- /dev/null
+++ b/twin/killer/CMakeLists.txt
@@ -0,0 +1,28 @@
+#################################################
+#
+#  (C) 2010-2011 Serghei Amelian
+#  serghei (DOT) amelian (AT) gmail.com
+#
+#  Improvements and feedback are welcome
+#
+#  This file is released under GPL >= 2
+#
+#################################################
+
+include_directories(
+  ${TDE_INCLUDE_DIR}
+  ${TQT_INCLUDE_DIRS}
+)
+
+link_directories(
+  ${TQT_LIBRARY_DIRS}
+)
+
+
+##### twin_killer_helper (executable) ###########
+
+tde_add_executable( twin_killer_helper
+  SOURCES killer.cpp
+  LINK tdeui-shared
+  DESTINATION ${BIN_INSTALL_DIR}
+)
diff --git a/twin/killer/Makefile.am b/twin/killer/Makefile.am
new file mode 100644
index 000000000..cd396bde7
--- /dev/null
+++ b/twin/killer/Makefile.am
@@ -0,0 +1,9 @@
+INCLUDES = $(all_includes)
+
+bin_PROGRAMS = twin_killer_helper
+
+twin_killer_helper_SOURCES = killer.cpp
+twin_killer_helper_LDADD = $(LIB_TDEUI)
+twin_killer_helper_LDFLAGS = $(all_libraries) $(KDE_RPATH) $(LIB_QT) -lDCOP $(LIB_TDECORE) $(LIB_TDEUI) -ltdefx $(LIB_KIO) -lktexteditor
+
+METASOURCES = AUTO
diff --git a/twin/killer/killer.cpp b/twin/killer/killer.cpp
new file mode 100644
index 000000000..716b829cc
--- /dev/null
+++ b/twin/killer/killer.cpp
@@ -0,0 +1,88 @@
+/****************************************************************************
+
+ Copyright (C) 2003 Lubos Lunak        <l.lunak@kde.org>
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the "Software"),
+to deal in the Software without restriction, including without limitation
+the rights to use, copy, modify, merge, publish, distribute, sublicense,
+and/or sell copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
+THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+DEALINGS IN THE SOFTWARE.
+
+****************************************************************************/
+
+#include <kcmdlineargs.h>
+#include <kapplication.h>
+#include <kmessagebox.h>
+#include <kprocess.h>
+#include <klocale.h>
+#include <unistd.h>
+#include <twin.h>
+#include <X11/Xlib.h>
+
+static const KCmdLineOptions options[] =
+    {
+    // no need for I18N_NOOP(), this is not supposed to be used directly
+        { "pid <pid>", "PID of the application to terminate.", 0 },
+        { "hostname <hostname>", "Hostname on which the application is running.", 0 },
+        { "windowname <caption>", "Caption of the window to be terminated.", 0 },
+        { "applicationname <name>", "Name of the application to be terminated.", 0 },
+        { "wid <id>", "ID of resource belonging to the application.", 0 },
+        { "timestamp <time>", "Time of user action causing killing.", 0 },
+        KCmdLineLastOption
+    };
+
+int main( int argc, char* argv[] )
+    {
+    KLocale::setMainCatalogue( "twin" ); // the messages are in twin's .po file
+    KCmdLineArgs::init( argc, argv, "twin_killer_helper", I18N_NOOP( "KWin" ),
+	I18N_NOOP( "KWin helper utility" ), "1.0" );
+    KCmdLineArgs::addCmdLineOptions( options );
+    KApplication app;
+    KCmdLineArgs* args = KCmdLineArgs::parsedArgs();
+    TQCString hostname = args->getOption( "hostname" );
+    bool pid_ok = false;
+    pid_t pid = args->getOption( "pid" ).toULong( &pid_ok );
+    TQString caption = TQString::fromUtf8( args->getOption( "windowname" ));
+    TQString appname = TQString::tqfromLatin1( args->getOption( "applicationname" ));
+    bool id_ok = false;
+    Window id = args->getOption( "wid" ).toULong( &id_ok );
+    bool time_ok = false;
+    Time timestamp =args->getOption( "timestamp" ).toULong( &time_ok );
+    args->clear();
+    if( !pid_ok || pid == 0 || !id_ok || id == None || !time_ok || timestamp == CurrentTime
+	|| hostname.isEmpty() || caption.isEmpty() || appname.isEmpty())
+        {
+	KCmdLineArgs::usage( i18n( "This helper utility is not supposed to be called directly." ));
+	return 1;
+        }
+    TQString question = i18n(
+	"<qt>Window with title \"<b>%2</b>\" is not responding. "
+	"This window belongs to application <b>%1</b> (PID=%3, hostname=%4).<p>"
+	"Do you wish to terminate this application? (All unsaved data in this application will be lost.)</qt>" )
+	.tqarg( appname ).tqarg( caption ).tqarg( pid ).tqarg( static_cast<const char *>(hostname) );
+    app.updateUserTimestamp( timestamp );
+    if( KMessageBox::warningYesNoWId( id, question, TQString::null, i18n("Terminate"), i18n("Keep Running") ) == KMessageBox::Yes )
+        {    
+	if( hostname != "localhost" )
+            {
+    	    KProcess proc;
+	    proc << "xon" << hostname << "kill" << pid;
+    	    proc.start( KProcess::DontCare );
+	    }
+	else
+	    ::kill( pid, SIGKILL );
+	XKillClient( qt_xdisplay(), id );
+        }
+    }