1 files changed, 120 insertions, 0 deletions
diff --git a/examples/network/infoprotocol/infoclient/client.cpp b/examples/network/infoprotocol/infoclient/client.cpp
new file mode 100644
index 000000000..24861ab55
--- /dev/null
+++ b/examples/network/infoprotocol/infoclient/client.cpp
@@ -0,0 +1,120 @@
+/****************************************************************************
+**
+** Copyright (C) 1992-2008 Trolltech ASA.  All rights reserved.
+**
+** This file is part of an example program for TQt.  This example
+** program may be used, distributed and modified without limitation.
+**
+*****************************************************************************/
+
+#include <qsocket.h>
+#include <qapplication.h>
+#include <qtextedit.h>
+#include <qlineedit.h>
+#include <qlabel.h>
+#include <qpushbutton.h>
+#include <qtextstream.h>
+#include <qlistbox.h>
+
+#include "client.h"
+
+
+ClientInfo::ClientInfo( TQWidget *parent, const char *name ) :
+    ClientInfoBase( parent, name ), socket( 0 )
+{
+    edHost->setText( "localhost" );
+    edPort->setText( TQString::number( (uint)infoPort ) );
+
+    connect( infoList, SIGNAL(selected(const TQString&)), SLOT(selectItem(const TQString&)) );
+    connect( btnConnect, SIGNAL(clicked()), SLOT(connectToServer()) );
+    connect( btnBack, SIGNAL(clicked()), SLOT(stepBack()) );
+    connect( btnQuit, SIGNAL(clicked()), qApp, SLOT(tquit()) );
+}
+
+
+void ClientInfo::connectToServer()
+{
+    delete socket;
+    socket = new TQSocket( this );
+    connect( socket, SIGNAL(connected()), SLOT(socketConnected()) );
+    connect( socket, SIGNAL(connectionClosed()), SLOT(socketConnectionClosed()) );
+    connect( socket, SIGNAL(readyRead()), SLOT(socketReadyRead()) );
+    connect( socket, SIGNAL(error(int)), SLOT(socketError(int)) );
+
+    socket->connectToHost( edHost->text(), edPort->text().toInt() );
+}
+
+void ClientInfo::selectItem( const TQString& item )
+{
+    // item in listBox selected, use LIST or GET depending of the node type.
+    if ( item.endsWith( "/" ) ) {
+	sendToServer( List, infoPath->text() + item );
+	infoPath->setText( infoPath->text() + item );
+    } else 
+	sendToServer( Get, infoPath->text() + item );
+}
+
+void ClientInfo::stepBack()
+{
+    // go back (up) in path hierarchy
+    int i = infoPath->text().findRev( '/', -2 );
+    if ( i > 0 ) 
+	infoPath->setText( infoPath->text().left( i + 1 ) );
+    else
+	infoPath->setText( "/" );
+    infoList->clear();
+    sendToServer( List, infoPath->text() );
+}
+
+
+void ClientInfo::socketConnected()
+{
+    sendToServer( List, "/" );
+}
+
+void ClientInfo::sendToServer( Operation op, const TQString& location )
+{
+    TQString line;
+    switch (op) {
+	case List:
+	    infoList->clear();
+	    line = "LIST " + location;
+	    break;
+	case Get:
+	    line = "GET " + location;
+	    break;
+    }
+    infoText->clear();
+    TQTextStream os(socket);
+    os << line << "\r\n";
+}
+
+void ClientInfo::socketReadyRead()
+{
+    TQTextStream stream( socket );
+    TQString line;
+    while ( socket->canReadLine() ) {
+	line = stream.readLine();
+	if ( line.startsWith( "500" ) || line.startsWith( "550" ) ) {
+	    infoText->append( tr( "error: " ) + line.mid( 4 ) );
+	} else if ( line.startsWith( "212+" ) ) {
+	    infoList->insertItem( line.mid( 6 ) + TQString( ( line[ 4 ] == 'D' ) ? "/" : "" ) );
+	} else if ( line.startsWith( "213+" ) ) {
+	    infoText->append( line.mid( 4 ) );
+	}
+    }
+}
+
+
+void ClientInfo::socketConnectionClosed()
+{
+    infoText->clear();
+    infoText->append( tr( "error: Connection closed by the server\n" ) );
+}
+
+void ClientInfo::socketError( int code )
+{
+    infoText->clear();
+    infoText->append( tr( "error: Error number %1 occurred\n" ).arg( code ) );
+}
+