1 files changed, 130 insertions, 0 deletions
diff --git a/tdefile-plugins/deb/tdefile_deb.cpp b/tdefile-plugins/deb/tdefile_deb.cpp
new file mode 100644
index 0000000..0fb86ee
--- /dev/null
+++ b/tdefile-plugins/deb/tdefile_deb.cpp
@@ -0,0 +1,130 @@
+/* This file is part of the KDE project
+ * Copyright (C) 2002 Laurence Anderson <l.d.anderson@warwick.ac.uk>
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public
+ * License as published by the Free Software Foundation version 2.
+ *
+ * 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
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU 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 <config.h>
+
+#include <kprocess.h>
+#include <klocale.h>
+#include <kgenericfactory.h>
+#include <kstringvalidator.h>
+#include <kdebug.h>
+
+#include <tqdict.h>
+#include <tqvalidator.h>
+#include <tqcstring.h>
+#include <tqfile.h>
+#include <tqdatetime.h>
+#include <tqbuffer.h>
+#include <kfilterdev.h>
+#include <tqregexp.h>
+#include <karchive.h>
+#include <ktar.h>
+#include <kar.h>
+
+#include "tdefile_deb.h"
+
+typedef KGenericFactory<KDebPlugin> DebFactory;
+
+K_EXPORT_COMPONENT_FACTORY(tdefile_deb, DebFactory( "tdefile_deb" ))
+
+KDebPlugin::KDebPlugin(TQObject *parent, const char *name,
+                       const TQStringList &args)
+    
+    : KFilePlugin(parent, name, args)
+{
+    KFileMimeTypeInfo* info = addMimeTypeInfo( "application/x-deb" );
+    KFileMimeTypeInfo::GroupInfo* group = 0L;
+    group = addGroupInfo(info, "General", i18n("General"));
+    KFileMimeTypeInfo::ItemInfo* item;
+
+    item = addItemInfo(group, "Name", i18n("Name"), TQVariant::String);
+    item = addItemInfo(group, "Version", i18n("Version"), TQVariant::String);
+    item = addItemInfo(group, "Summary", i18n("Summary"), TQVariant::String);
+    item = addItemInfo(group, "Size", i18n("Size"), TQVariant::Int);
+}
+
+bool KDebPlugin::readInfo( KFileMetaInfo& info, uint /*what*/)
+{
+    KAr debfile (info.path());
+  
+    if ( !debfile.open( IO_ReadOnly ) ) {
+        kdDebug(7034) << "Couldn't open " << TQFile::encodeName(info.path()).data() << endl;
+        return false;    
+    }
+
+    const KArchiveDirectory* debdir = debfile.directory();
+    const KArchiveEntry* controlentry = debdir->entry( "control.tar.gz" );
+    if ( !controlentry || !controlentry->isFile() ) {
+        kdWarning(7034) << "control.tar.gz not found" << endl;
+        return false;
+    }
+
+    TQIODevice* filterDev = KFilterDev::device( static_cast<const KArchiveFile *>( controlentry )->device(), "application/x-gzip" );
+    if ( !filterDev ) {
+        kdWarning(7034) << "Couldn't create filter device for control.tar.gz" << endl;
+        return false;
+    }
+    KTar tarfile( filterDev );
+
+    if ( !tarfile.open( IO_ReadOnly ) ) {
+        kdWarning(7034) << "Couldn't open control.tar.gz" << endl;
+        return false;
+    }
+
+    const KArchiveDirectory* controldir = tarfile.directory();
+    Q_ASSERT( controldir );
+    
+    const KArchiveEntry* controlfile = controldir->entry( "control" );
+    
+    Q_ASSERT( controlfile );
+    if (controlfile) {
+        KFileMetaInfoGroup group = appendGroup(info, "General");	
+        TQByteArray control( static_cast<const KArchiveFile *>(controlfile)->data() );
+    
+        // Now process control array
+        TQBuffer controldev(control);
+        controldev.open( IO_ReadOnly );
+        while (!controldev.atEnd()) {
+            char linebuf[100];
+            controldev.readLine(linebuf, sizeof( linebuf ));
+            TQString line(linebuf);
+            int fieldstart = line.find(TQRegExp(":"), 0) + 2;
+            if (fieldstart == 1) break;
+            TQString fieldname = line.mid(0, fieldstart - 2);
+            TQString fielddata = line.mid(fieldstart, line.length() - fieldstart - 1);
+
+            if (fieldname == "Package") appendItem(group, "Name", fielddata);
+            else if (fieldname == "Version") appendItem(group, "Version", fielddata);
+            else if (fieldname == "Description") appendItem(group, "Summary", fielddata);
+            else if (fieldname == "Installed-Size") appendItem(group, "Size", int(fielddata.toInt()));
+
+            kdDebug(7034) << "Name: [" << fieldname << "] Data: [" << fielddata << "]" << endl;
+        }
+    } else {
+        kdDebug(7034) << "Couldn't read control file" << endl;
+        return false;
+    }
+    
+    tarfile.close();    
+    debfile.close();
+
+    return true;
+}
+
+#include "tdefile_deb.moc"