1 files changed, 88 insertions, 0 deletions
diff --git a/twin/killer/killer.cpp b/twin/killer/killer.cpp
new file mode 100644
index 000000000..bf763e7c1
--- /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 <tdecmdlineargs.h>
+#include <tdeapplication.h>
+#include <tdemessagebox.h>
+#include <kprocess.h>
+#include <tdelocale.h>
+#include <unistd.h>
+#include <twin.h>
+#include <X11/Xlib.h>
+
+static const TDECmdLineOptions 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 },
+        TDECmdLineLastOption
+    };
+
+int main( int argc, char* argv[] )
+    {
+    TDELocale::setMainCatalogue( "twin" ); // the messages are in twin's .po file
+    TDECmdLineArgs::init( argc, argv, "twin_killer_helper", I18N_NOOP( "TWin" ),
+	I18N_NOOP( "TWin helper utility" ), "1.0" );
+    TDECmdLineArgs::addCmdLineOptions( options );
+    TDEApplication app;
+    TDECmdLineArgs* args = TDECmdLineArgs::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::fromLatin1( 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())
+        {
+	TDECmdLineArgs::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>" )
+	.arg( appname ).arg( caption ).arg( pid ).arg( 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" )
+            {
+    	    TDEProcess proc;
+	    proc << "xon" << hostname << "kill" << pid;
+    	    proc.start( TDEProcess::DontCare );
+	    }
+	else
+	    ::kill( pid, SIGKILL );
+	XKillClient( tqt_xdisplay(), id );
+        }
+    }