1 files changed, 294 insertions, 0 deletions
diff --git a/tdecore/kurldrag.cpp b/tdecore/kurldrag.cpp
new file mode 100644
index 000000000..e0a7be227
--- /dev/null
+++ b/tdecore/kurldrag.cpp
@@ -0,0 +1,294 @@
+/* This file is part of the KDE project
+   Copyright (C) 2000 David Faure <faure@kde.org>
+
+   This program 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.
+
+   This program 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 program; see the file COPYING.  If not, write to
+   the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.
+*/
+
+#include "kurldrag.h"
+#include <tqstrlist.h>
+#include <tqdragobject.h>
+#include <tqfont.h>
+#include <unistd.h>
+
+#include <kdeversion.h>
+#include <kglobal.h>
+#include <klocale.h>
+#include <kdebug.h>
+
+class KURLDragPrivate
+{
+public:
+    bool m_exportAsText;
+};
+
+KURLDrag::KURLDrag( const KURL::List &urls, TQWidget* dragSource, const char * name )
+    : TQUriDrag(dragSource, name), m_metaData(), d( 0 )
+{
+    init(urls);
+}
+
+KURLDrag::KURLDrag( const KURL::List &urls, const TQMap<TQString,TQString>& metaData,
+                    TQWidget* dragSource, const char * name )
+    : TQUriDrag(dragSource, name), m_metaData(metaData), d( 0 )
+{
+    init(urls);
+}
+
+KURLDrag::~KURLDrag()
+{
+    delete d;
+}
+
+void KURLDrag::init(const KURL::List &urls)
+{
+    KURL::List::ConstIterator uit = urls.begin();
+    KURL::List::ConstIterator uEnd = urls.end();
+    // Get each URL encoded in utf8 - and since we get it in escaped
+    // form on top of that, .latin1() is fine.
+    for ( ; uit != uEnd ; ++uit )
+    {
+        m_urls.append( urlToString(*uit).latin1() );
+    }
+    setUris(m_urls);
+}
+
+void KURLDrag::setExportAsText( bool exp )
+{
+    // For now d is only used here, so create it on demand
+    if ( !d )
+        d = new KURLDragPrivate;
+    d->m_exportAsText = exp;
+}
+
+KURLDrag * KURLDrag::newDrag( const KURL::List &urls, TQWidget* dragSource, const char * name )
+{
+    return new KURLDrag( urls, TQMap<TQString, TQString>(), dragSource, name );
+}
+
+KURLDrag * KURLDrag::newDrag( const KURL::List &urls, const TQMap<TQString, TQString>& metaData,
+                              TQWidget* dragSource, const char * name )
+{
+    return new KURLDrag( urls, metaData, dragSource, name );
+}
+
+bool KURLDrag::decode( const TQMimeSource *e, KURL::List &uris )
+{
+    if ( e->provides( "application/x-kde-urilist" ) ) {
+        TQByteArray payload = e->tqencodedData( "application/x-kde-urilist" );
+        if ( payload.size() ) {
+            uint c=0;
+            const char* d = payload.data();
+            while (c < payload.size() && d[c]) {
+                uint f = c;
+                // Find line end
+                while (c < payload.size() && d[c] && d[c]!='\r'
+                        && d[c] != '\n')
+                    c++;
+                TQCString s(d+f,c-f+1);
+                if ( s[0] != '#' ) // non-comment?
+                    uris.append(stringToUrl(s));
+                // Skip junk
+                while (c < payload.size() && d[c] &&
+                        (d[c]=='\n' || d[c]=='\r'))
+                    c++;
+            }
+            return !uris.isEmpty();
+        }
+    }
+    
+    TQStrList lst;
+    TQUriDrag::decode( e, lst );
+    for (TQStrListIterator it(lst); *it; ++it)
+    {
+      KURL url = stringToUrl( *it );
+      if ( !url.isValid() )
+      {
+        uris.clear();
+        break;
+      }
+      uris.append( url );
+    }
+    return !uris.isEmpty();
+}
+
+bool KURLDrag::decode( const TQMimeSource *e, KURL::List &uris, TQMap<TQString,TQString>& metaData )
+{
+    if ( decode( e, uris ) ) // first decode the URLs (see above)
+    {
+        TQByteArray ba = e->tqencodedData( "application/x-kio-metadata" );
+        if ( ba.size() )
+        {
+            TQString s = ba.data();
+            TQStringList l = TQStringList::split( "$@@$", s );
+            TQStringList::ConstIterator it = l.begin();
+            bool readingKey = true; // true, then false, then true, etc.
+            TQString key;
+            for ( ; it != l.end(); ++it ) {
+                if ( readingKey )
+                    key = *it;
+                else
+                    metaData.replace( key, *it );
+                readingKey = !readingKey;
+            }
+            Q_ASSERT( readingKey ); // an odd number of items would be, well, odd ;-)
+        }
+        return true; // Success, even if no metadata was found
+    }
+    return false; // Couldn't decode the URLs
+}
+
+#ifdef Q_WS_QWS
+bool KURLDrag::decode( TQStringList const &e, KURL::List &uris )
+{
+	TQStringList::ConstIterator end(e.end());
+    for(TQStringList::ConstIterator it=e.begin(); it!=end; ++it)
+    {
+      KURL url = KURL( *it, 106 ); // 106 is mib enum for utf8 codec
+      if ( !url.isValid() )
+      {
+        uris.clear();
+        break;
+      }
+      uris.append( url );
+    }
+    return !uris.isEmpty();
+}
+#endif
+
+////
+
+const char * KURLDrag::format( int i ) const
+{
+    if ( i == 0 )
+        return "text/uri-list";
+    else if ( i == 1 )
+        return "application/x-kio-metadata";
+    if ( d && d->m_exportAsText == false )
+        return 0;
+    if ( i == 2 )
+        return "text/plain";
+    else if ( i == 3 ) //Support this for apps that use plain XA_STRING clipboard
+        return "text/plain;charset=ISO-8859-1";
+    else if ( i == 4 ) //Support this for apps that use the UTF_STRING clipboard
+        return "text/plain;charset=UTF-8";
+    else return 0;
+}
+
+TQByteArray KURLDrag::tqencodedData( const char* mime ) const
+{
+    TQByteArray a;
+    TQCString mimetype( mime );
+    if ( mimetype == "text/uri-list" )
+        return TQUriDrag::tqencodedData( mime );
+    else if ( mimetype == "text/plain" )
+    {
+	TQStringList uris;
+        for (TQStrListIterator it(m_urls); *it; ++it)
+           uris.append(stringToUrl(*it).prettyURL());
+
+        TQCString s = uris.join( "\n" ).local8Bit();
+        if( uris.count() > 1 ) // terminate last line, unless it's the only line
+            s.append( "\n" );
+        a.resize( s.length());
+        memcpy( a.data(), s.data(), s.length()); // no trailing zero in clipboard text
+    }
+    else if ( mimetype.lower() == "text/plain;charset=iso-8859-1")
+    {
+        TQStringList uris;
+        for (TQStrListIterator it(m_urls); *it; ++it)
+        for (TQStrListIterator it(m_urls); *it; ++it)
+           uris.append(stringToUrl(*it).url(0, 4)); // 4 is mib for latin1
+
+        TQCString s = uris.join( "\n" ).latin1();
+        if( uris.count() > 1 )
+            s.append( "\n" );
+        a.resize( s.length());
+        memcpy( a.data(), s.data(), s.length());
+    }
+    else if ( mimetype.lower() == "text/plain;charset=utf-8")
+    {
+        TQStringList uris;
+        for (TQStrListIterator it(m_urls); *it; ++it)
+           uris.append(stringToUrl(*it).prettyURL());
+
+        TQCString s = uris.join( "\n" ).utf8();
+        if( uris.count() > 1 )
+            s.append( "\n" );
+        a.resize( s.length());
+        memcpy( a.data(), s.data(), s.length());
+    }
+    else if ( mimetype == "application/x-kio-metadata" )
+    {
+        if ( !m_metaData.isEmpty() )
+        {
+            TQString s;
+            TQMap<TQString,TQString>::ConstIterator it;
+            for( it = m_metaData.begin(); it != m_metaData.end(); ++it )
+            {
+                s += it.key();
+                s += "$@@$";
+                s += it.data();
+                s += "$@@$";
+            }
+	    a.resize( s.length() + 1 );
+	    memcpy( a.data(), s.latin1(), a.size() );
+        }
+    }
+    return a;
+}
+
+KURL KURLDrag::stringToUrl(const TQCString &s)
+{
+    if (strncmp(s.data(), "file:", 5) == 0)
+       return KURL(s, KGlobal::locale()->fileEncodingMib());
+
+    return KURL(s, 106); // 106 is mib enum for utf8 codec;
+}
+
+TQString KURLDrag::urlToString(const KURL &url)
+{
+    if (url.isLocalFile())
+    {
+#if 1
+        return url.url(0, KGlobal::locale()->fileEncodingMib());
+#else
+        // According to the XDND spec, file:/ URLs for DND must have
+        // the hostname part. But in really it just breaks many apps,
+        // so it's disabled for now.
+        TQString s = url.url(0, KGlobal::locale()->fileEncodingMib());
+        if( !s.startsWith( "file://" ))
+        {
+            char hostname[257];
+            if ( gethostname( hostname, 255 ) == 0 )
+            {
+	        hostname[256] = '\0';
+                return TQString( "file://" ) + hostname + s.mid( 5 );
+            }
+        }
+#endif
+    }
+
+    if ( url.protocol() == "mailto" ) {
+        return url.path();
+    }
+
+    return url.url(0, 106); // 106 is mib enum for utf8 codec
+}
+
+// deprecated ctor
+KURLDrag::KURLDrag( const TQStrList & urls, const TQMap<TQString,TQString>& metaData,
+                    TQWidget * dragSource, const char* name ) :
+TQUriDrag( urls, dragSource, name ), m_urls( urls ), m_metaData( metaData ), d( 0 ) {}