1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
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();
}
|
