diff options
Diffstat (limited to 'languages/perl/perldoc.cpp')
| -rw-r--r-- | languages/perl/perldoc.cpp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/languages/perl/perldoc.cpp b/languages/perl/perldoc.cpp index cbb4d18f..cc0a03f9 100644 --- a/languages/perl/perldoc.cpp +++ b/languages/perl/perldoc.cpp @@ -5,7 +5,7 @@ #include <sys/stat.h> #include <unistd.h> -#include <qtextstream.h> +#include <tqtextstream.h> #include <kdebug.h> #include <klocale.h> #include <kstandarddirs.h> @@ -17,7 +17,7 @@ using namespace KIO; -PerldocProtocol::PerldocProtocol(const QCString &pool, const QCString &app) +PerldocProtocol::PerldocProtocol(const TQCString &pool, const TQCString &app) : SlaveBase("perldoc", pool, app) {} @@ -28,12 +28,12 @@ PerldocProtocol::~PerldocProtocol() void PerldocProtocol::get(const KURL& url) { - QStringList l = QStringList::split('/', url.path()); + TQStringList l = TQStringList::split('/', url.path()); mimeType("text/html"); bool plain = false; - QString cmd = "perldoc "; + TQString cmd = "perldoc "; if (l[0] == "functions") { plain = true; cmd += "-t -f "; @@ -43,7 +43,7 @@ void PerldocProtocol::get(const KURL& url) cmd += KProcess::quote(l[1]); cmd += " | pod2html"; } else { - QCString errstr(i18n("The only existing directories are functions and faq.").local8Bit()); + TQCString errstr(i18n("The only existing directories are functions and faq.").local8Bit()); data(errstr); finished(); return; @@ -52,11 +52,11 @@ void PerldocProtocol::get(const KURL& url) kdDebug() << "Command: " << cmd << endl; if (plain) - data(QCString("<blockquote>")); + data(TQCString("<blockquote>")); FILE *fd = popen(cmd.local8Bit().data(), "r"); char buffer[4090]; - QByteArray array; + TQByteArray array; while (!feof(fd)) { int n = fread(buffer, 1, 2048, fd); @@ -72,7 +72,7 @@ void PerldocProtocol::get(const KURL& url) pclose(fd); if (plain) - data(QCString("</blockquote>")); + data(TQCString("</blockquote>")); finished(); } @@ -80,15 +80,15 @@ void PerldocProtocol::get(const KURL& url) void PerldocProtocol::mimetype(const KURL &url) { - QStringList l = QStringList::split('/', url.path()); + TQStringList l = TQStringList::split('/', url.path()); mimeType((l[0] == "faq")? "text/html" : "text/plain"); finished(); } -QCString PerldocProtocol::errorMessage() +TQCString PerldocProtocol::errorMessage() { - return QCString( "<html><body bgcolor=\"#FFFFFF\">" + i18n("Error in perldoc").local8Bit() + "</body></html>" ); + return TQCString( "<html><body bgcolor=\"#FFFFFF\">" + i18n("Error in perldoc").local8Bit() + "</body></html>" ); } |