1 files changed, 102 insertions, 0 deletions
diff --git a/examples/network/archivesearch/archivedialog.ui.h b/examples/network/archivesearch/archivedialog.ui.h
new file mode 100644
index 000000000..e5b70cb10
--- /dev/null
+++ b/examples/network/archivesearch/archivedialog.ui.h
@@ -0,0 +1,102 @@
+/****************************************************************************
+**
+** 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.
+**
+*****************************************************************************/
+
+/****************************************************************************
+** ui.h extension file, included from the uic-generated form implementation.
+**
+** If you wish to add, delete or rename functions or slots use
+** TQt Designer which will update this file, preserving your code. Create an
+** init() function in place of a constructor, and a destroy() function in
+** place of a destructor.
+*****************************************************************************/
+
+void ArchiveDialog::init()
+{
+    connect(&articleSearcher, SIGNAL(done(bool)), this, SLOT(searchDone(bool)));
+    connect(&articleFetcher, SIGNAL(done(bool)), this, SLOT(fetchDone(bool)));
+    connect(myListView, SIGNAL(selectionChanged(TQListViewItem*)), this, SLOT(fetch(TQListViewItem*)));
+    connect(myLineEdit, SIGNAL(returnPressed()), this, SLOT(search()));
+    connect(myListView, SIGNAL(returnPressed(TQListViewItem*)), this, SLOT(fetch(TQListViewItem*)));
+    connect(myPushButton, SIGNAL(clicked()), this, SLOT(close()));
+}
+
+void ArchiveDialog::fetch( TQListViewItem *it )
+{
+    TQUrl u(it->text(1));
+    articleFetcher.setHost(u.host());
+    articleFetcher.get(it->text(1));
+}
+
+void ArchiveDialog::fetchDone( bool error )
+{
+    if (error) {
+	TQMessageBox::critical(this, "Error fetching",
+			      "An error occurred when fetching this document: "
+			      + articleFetcher.errorString(),	
+			      TQMessageBox::Ok, TQMessageBox::NoButton);
+    } else {
+	myTextBrowser->setText(articleFetcher.readAll());
+    }
+}
+
+void ArchiveDialog::search()
+{
+    if (articleSearcher.state() == TQHttp::HostLookup
+	|| articleSearcher.state() == TQHttp::Connecting
+	|| articleSearcher.state() == TQHttp::Sending
+	|| articleSearcher.state() == TQHttp::Reading) {
+	articleSearcher.abort();
+    }
+    
+    if (myLineEdit->text() == "") {
+	TQMessageBox::critical(this, "Empty query",
+			      "Please type a search string.",
+			      TQMessageBox::Ok, TQMessageBox::NoButton);
+    } else {
+	TQApplication::setOverrideCursor(TQCursor(TQt::WaitCursor));
+    
+	articleSearcher.setHost("lists.trolltech.com");
+    
+	TQHttpRequestHeader header("POST", "/qt-interest/search.php");
+	header.setValue("Host", "lists.trolltech.com");
+	header.setContentType("application/x-www-form-urlencoded");
+    
+	TQString encodedTopic = myLineEdit->text();
+	TQUrl::encode(encodedTopic);
+	TQString searchString = "qt-interest=on&search=" + encodedTopic;
+
+	articleSearcher.request(header, searchString.utf8());
+    }
+
+}
+
+void ArchiveDialog::searchDone( bool error )
+{
+    if (error) {
+	TQMessageBox::critical(this, "Error searching",
+			      "An error occurred when searching: "
+			      + articleSearcher.errorString(),
+			      TQMessageBox::Ok, TQMessageBox::NoButton);
+    } else {
+	TQString result(articleSearcher.readAll());
+	
+	TQRegExp rx("<a href=\"(http://lists\\.trolltech\\.com/qt-interest/.*)\">(.*)</a>");
+	rx.setMinimal(TRUE);
+	int pos = 0;
+	while (pos >= 0) {
+	    pos = rx.search(result, pos);
+	    if (pos > -1) {
+		pos += rx.matchedLength();
+		new TQListViewItem(myListView, rx.cap(2), rx.cap(1));
+	    }
+	}
+    }
+    
+    TQApplication::restoreOverrideCursor();
+}