1 files changed, 63 insertions, 0 deletions
diff --git a/tdecore/kidna.cpp b/tdecore/kidna.cpp
new file mode 100644
index 000000000..1ce2c1348
--- /dev/null
+++ b/tdecore/kidna.cpp
@@ -0,0 +1,63 @@
+/*
+    This file is part of the KDE libraries
+
+    Copyright (c) 2003 Waldo Bastian <bastian@kde.org>
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation; either
+    version 2 of the License, or (at your option) any later version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public License
+    along with this library; see the file COPYING.LIB.  If not, write to
+    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+    Boston, MA 02110-1301, USA.
+*/
+
+#include "kidna.h"
+
+#ifndef Q_WS_WIN //TODO kresolver not ported
+#include "kresolver.h"
+#endif
+#include <kdebug.h>
+
+#ifndef Q_WS_WIN //TODO knetwork not ported
+using namespace KNetwork;
+#endif
+
+TQCString KIDNA::toAsciiCString(const TQString &idna)
+{
+#ifndef Q_WS_WIN //TODO kresolver not ported
+	return KResolver::domainToAscii(idna);
+#else
+	return TQCString();
+#endif
+}
+
+TQString KIDNA::toAscii(const TQString &idna)
+{
+  if (idna.length() && (idna[0] == (QChar)'.'))
+  {
+     TQString host = TQString::tqfromLatin1(toAsciiCString(idna.mid(1)));
+     if (host.isEmpty())
+        return TQString::null; // Error
+     return idna[0] + host;
+  }
+  return TQString::tqfromLatin1(toAsciiCString(idna));
+}
+
+TQString KIDNA::toUnicode(const TQString &idna)
+{
+#ifndef Q_WS_WIN //TODO kresolver not ported
+  if (idna.length() && (idna[0] == (QChar)'.'))
+     return idna[0] + KResolver::domainToUnicode(idna.mid(1));
+  return KResolver::domainToUnicode(idna);
+#else
+	return TQString::null;
+#endif
+}