4 files changed, 284 insertions, 0 deletions
diff --git a/kfile-plugins/html/Makefile.am b/kfile-plugins/html/Makefile.am
new file mode 100644
index 0000000..610b74f
--- /dev/null
+++ b/kfile-plugins/html/Makefile.am
@@ -0,0 +1,22 @@
+## Makefile.am for html file meta info plugin
+
+# set the include path for X, qt and KDE
+INCLUDES         = $(all_includes)
+
+# these are the headers for your project
+noinst_HEADERS   = kfile_html.h
+
+kde_module_LTLIBRARIES = kfile_html.la
+
+kfile_html_la_SOURCES = kfile_html.cpp
+kfile_html_la_LDFLAGS = $(all_libraries) -module $(KDE_PLUGIN)
+kfile_html_la_LIBADD = $(LIB_KSYCOCA)
+
+# let automoc handle all of the meta source files (moc)
+METASOURCES = AUTO
+
+messages: rc.cpp
+	$(XGETTEXT) kfile_html.cpp -o $(podir)/kfile_html.pot
+
+services_DATA = kfile_html.desktop
+servicesdir = $(kde_servicesdir)
diff --git a/kfile-plugins/html/kfile_html.cpp b/kfile-plugins/html/kfile_html.cpp
new file mode 100644
index 0000000..bfe736b
--- /dev/null
+++ b/kfile-plugins/html/kfile_html.cpp
@@ -0,0 +1,158 @@
+/* This file is part of the KDE project
+ * Copyright (C) 2001, 2002 Rolf Magnus <ramagnus@kde.org>
+ *
+ * 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.
+ *
+ *  $Id$
+ */
+
+#include "kfile_html.h"
+#include "kfile_html.moc"
+#include <kgenericfactory.h>
+#include <kmimetype.h>
+#include <kurl.h>
+#include <kprocess.h>
+#include <kdebug.h>
+#include <qcstring.h>
+#include <qfile.h>
+#include <qregexp.h>
+#include <qtextcodec.h>
+
+typedef KGenericFactory<KHtmlPlugin> HtmlFactory;
+
+K_EXPORT_COMPONENT_FACTORY( kfile_html, HtmlFactory( "kfile_html" ) )
+
+KHtmlPlugin::KHtmlPlugin( QObject *parent, const char *name,
+                          const QStringList &args )
+    : KFilePlugin( parent, name, args )
+{
+    kdDebug(7034) << "html plugin\n";
+
+    KFileMimeTypeInfo* info = addMimeTypeInfo("text/html");
+
+    KFileMimeTypeInfo::GroupInfo* group;
+    KFileMimeTypeInfo::ItemInfo* item;
+
+    group = addGroupInfo(info, "General", i18n("General"));
+    addItemInfo(group, "Doctype", i18n("Document Type"), QVariant::String);
+    addItemInfo(group, "Javascript", i18n("JavaScript"), QVariant::Bool);
+    item = addItemInfo(group, "Title", i18n("Title"), QVariant::String);
+    setHint(item, KFileMimeTypeInfo::Name);
+
+    group = addGroupInfo(info, "Metatags", i18n("Meta Tags"));
+    addVariableInfo(group, QVariant::String, 0);
+}
+
+
+bool KHtmlPlugin::readInfo( KFileMetaInfo& info, uint )
+{
+    if ( info.path().isEmpty() ) // remote file
+        return false;
+
+    QFile f(info.path());
+    if (!f.open(IO_ReadOnly))
+        return false;
+
+    // we're only interested in the header, so just read until before </head>
+    // or until <body> if the author forgot it
+    // In this case, it's better to limit the size of the buffer to something
+    // sensible. Think a 0-filled 3GB file with an .html extension.
+    int maxBufSize = QMIN(f.size(), 32768);
+    QByteArray data(maxBufSize + 1);
+    f.readBlock(data.data(), maxBufSize);
+    data[maxBufSize]='\0';
+
+    QString s(data);
+
+    int start=0, last=0;
+    QRegExp exp;
+    exp.setCaseSensitive(false);
+    exp.setMinimal(true);
+
+    KFileMetaInfoGroup group = appendGroup(info, "General");
+
+    exp.setPattern("\\s*<\\s*!doctype\\s*([^>]*)\\s*>");
+    if (exp.search(s, last) != -1)
+    {
+        kdDebug(7034) << "DocType: " << exp.capturedTexts().join("-") << endl;
+        appendItem(group, "Doctype", exp.cap(1));
+        last += exp.matchedLength();
+    }
+
+    QString title;
+    exp.setPattern("<\\s*title\\s*>\\s*(.*)\\s*<\\s*/\\s*title\\s*>");
+    if (exp.search(s, last) != -1)
+    {
+        title = exp.cap(1);
+        last += exp.matchedLength();
+    }
+
+    KFileMetaInfoGroup metatags = appendGroup(info, "Metatags");
+
+    QString meta, name, content;
+    exp.setPattern("<\\s*meta\\s*([^>]*)\\s*>");
+    QRegExp rxName("(?:name|http-equiv)\\s*=\\s*\"([^\"]+)\"", false);
+    QRegExp rxContent("content\\s*=\\s*\"([^\"]+)\"", false);
+    QRegExp rxCharset("charset\\s*=\\s*(.*)", false);
+    QTextCodec *codec = 0;
+
+    // find the meta tags
+    last = 0;
+    while (1)
+    {
+        if ((start=exp.search(s, last)) == -1)
+            break;
+        meta = exp.cap(1);
+        last = start+exp.matchedLength();
+
+        kdDebug(7034) << "Found Meta: " << meta << endl;
+
+        if (rxName.search(meta) == -1)
+            continue;
+        name = rxName.cap(1);
+
+        if (rxContent.search(meta) == -1)
+            continue;
+        content = rxContent.cap(1);
+
+        appendItem(metatags, name, content.left(50));
+
+        // check if it has a charset defined
+        if ( rxCharset.search(content) != -1 )
+        {
+            kdDebug(7034) << "CodecForName : " << rxCharset.cap(1) << endl;
+            codec = QTextCodec::codecForName(rxCharset.cap(1).ascii());
+        }
+    }
+
+    if ( ! title.isEmpty() )
+    {
+        if ( codec )
+        {
+          title = codec->toUnicode(title.ascii());
+          kdDebug(7034) << "Codec : " << codec->name() << endl;
+        }
+
+        appendItem(group, "Title", title);
+    }
+
+    // find out if it contains javascript
+    exp.setPattern("<script>");
+
+    appendItem(group, "Javascript", QVariant( s.find(exp)!=-1, 42));
+
+    return true;
+}
+
diff --git a/kfile-plugins/html/kfile_html.desktop b/kfile-plugins/html/kfile_html.desktop
new file mode 100644
index 0000000..fd75703
--- /dev/null
+++ b/kfile-plugins/html/kfile_html.desktop
@@ -0,0 +1,66 @@
+[Desktop Entry]
+Type=Service
+Name=HTML Playlist Info
+Name[af]=Html Liedjielys Inligting
+Name[ar]=معلومات قائمة أغاني HTML
+Name[az]=HTML Çalğı Siyahısı Mə'lumatı
+Name[bg]=Информация за HTML файл
+Name[br]=Titouroù diwar-benn ar roll tonioù HTML
+Name[ca]=Info. de la llista de reproducció HTML
+Name[cs]=Informace o seznamu skladeb HTML
+Name[cy]=Gwybodaeth Rhestr Chwarae HTML
+Name[da]=Information om HTML-spilleliste
+Name[de]=HTML-Wiedergabelisteninfo
+Name[el]=Πληροφορίες λίστας αναπαραγωγής HTML
+Name[eo]=HTML-ludlistinformo
+Name[es]=Información de la lista de reproducción HTML
+Name[et]=HTML esitusnimekirja info
+Name[eu]=HTML erreprodukzio-zerrendaren informazioa
+Name[fa]=اطلاعات فهرست پخش زنگام
+Name[fi]=HTML soittolistan tiedot
+Name[fo]=HTML spælilistaupplýsingar
+Name[fr]=Informations sur une liste de lecture HTML
+Name[fy]=HTML-ôfspyllistynfo
+Name[gl]=Información de Listas de Reprodución HTML
+Name[he]=מידע רשימת ניגון HTML
+Name[hi]=एचटीएमएल प्लेलिस्ट जानकारी
+Name[hr]=HTML podaci o popisu za sviranje
+Name[hu]=HTML lejátszási lista jellemzői
+Name[is]=Upplýsingar um HTML lagalista
+Name[it]=Informazioni playlist HTML
+Name[ja]=HTML プレイリスト情報
+Name[ka]=HTML სიმღერათა სიის ინფორმაცია
+Name[kk]=HTML орындау тізім мәліметі
+Name[km]=ព័ត៌មានបញ្ជីចាក់ HTML
+Name[lt]=HTML grojaraščio informacija
+Name[mk]=Информации за HTML-листа на нумери
+Name[ms]=Maklumat Senarai Main HTML
+Name[nb]=HTML-spilleliste-informasjon
+Name[nds]=HTML-Afspellistinformatschonen
+Name[ne]=एचटीएमएल प्लेसूची सूचना
+Name[nl]=HTML-afspeellijstinfo
+Name[nn]=Informasjon om HTML-speleliste
+Name[pa]=HTML ਸੰਗੀਤ-ਸੂਚੀ ਜਾਣਕਾਰੀ
+Name[pl]=Informacja o liście nagrań w HTML-u
+Name[pt]=Informações de Listas de Músicas HTML
+Name[pt_BR]=Informação de listas de reprodução HTML
+Name[ro]=Informaţii listă de redare HTML
+Name[ru]=Информация о списке песен в формате HTML
+Name[sk]=HTML informácie o playliste
+Name[sl]=Informacije o predvajalnem seznamu HTML
+Name[sr]=HTML информације о листи нумера
+Name[sr@Latn]=HTML informacije o listi numera
+Name[sv]=Information om HTML-spellista
+Name[ta]=HTML வாசிப்புப்பட்டியல் தகவல்
+Name[tg]=Ахборот дар бораи рӯйхати сурудҳо дар HTML
+Name[th]=ข้อมูลรายการเล่น HTML
+Name[tr]=HTML Çalma Listesi Bilgisi
+Name[uk]=Інформація списку композицій в HTML
+Name[vi]=Thông tin danh mục nhạc HTML
+Name[xh]=Ulwazi loluhlu lodweliso lomdlali we HTML
+Name[zh_CN]=HTML 播放列表信息
+Name[zh_TW]=HTML 播放清單資訊
+ServiceTypes=KFilePlugin
+X-KDE-Library=kfile_html
+MimeType=text/html
+PreferredItems=Title,Javascript,Doctype,Keywords
diff --git a/kfile-plugins/html/kfile_html.h b/kfile-plugins/html/kfile_html.h
new file mode 100644
index 0000000..4d9eec6
--- /dev/null
+++ b/kfile-plugins/html/kfile_html.h
@@ -0,0 +1,38 @@
+/* This file is part of the KDE project
+ * Copyright (C) 2001, 2002 Rolf Magnus <ramagnus@kde.org>
+ *
+ * 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.
+ *
+ *  $Id$
+ */
+
+#ifndef __KMIME_HTML_H__
+#define __KMIME_HTML_H__
+
+#include <kfilemetainfo.h>
+#include <kurl.h>
+
+class QStringList;
+
+class KHtmlPlugin: public KFilePlugin
+{
+    Q_OBJECT
+    
+public:
+    KHtmlPlugin( QObject *parent, const char *name, const QStringList& args );
+    virtual bool readInfo( KFileMetaInfo& info, uint what );
+};
+
+#endif