1 files changed, 95 insertions, 0 deletions
diff --git a/kcontrol/samba/kcmsambaimports.cpp b/kcontrol/samba/kcmsambaimports.cpp
new file mode 100644
index 000000000..a88e2448f
--- /dev/null
+++ b/kcontrol/samba/kcmsambaimports.cpp
@@ -0,0 +1,95 @@
+/*
+ * kcmsambaimports.cpp
+ *
+ * Copyright (c) 2000 Alexander Neundorf <alexander.neundorf@rz.tu-ilmenau.de>
+ *
+ * Requires the Qt widget libraries, available at no cost at
+ * http://www.troll.no/
+ *
+ *  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; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  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; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+ */
+#include "kcmsambaimports.h"
+#include "kcmsambaimports.moc"
+
+#include <qlayout.h>
+#include <qwhatsthis.h>
+
+#include <klocale.h>
+#include <kdialog.h>
+
+#include <stdio.h>
+
+ImportsView::ImportsView(QWidget * parent, KConfig *config, const char * name )
+   : QWidget (parent, name)
+   ,configFile(config)
+   ,list(this)
+{
+    QBoxLayout *topLayout = new QVBoxLayout(this, KDialog::marginHint(),
+        KDialog::spacingHint());
+    topLayout->setAutoAdd(true);
+
+    list.setAllColumnsShowFocus(true);
+    list.setShowSortIndicator(true);
+    list.setMinimumSize(425,200);
+    list.addColumn(i18n("Type"), 50);
+    list.addColumn(i18n("Resource"), 200);
+    list.addColumn(i18n("Mounted Under"), 190);
+
+    QWhatsThis::add( this, i18n("This list shows the Samba and NFS shared"
+      " resources mounted on your system from other hosts. The \"Type\""
+      " column tells you whether the mounted resource is a Samba or an NFS"
+      " type of resource. The \"Resource\" column shows the descriptive name"
+      " of the shared resource. Finally, the third column, which is labeled"
+      " \"Mounted under\" shows the location on your system where the shared"
+      " resource is mounted.") );
+ 
+    timer.start(10000);
+    QObject::connect(&timer, SIGNAL(timeout()), this, SLOT(updateList()));
+    updateList();
+}
+
+void ImportsView::updateList()
+{
+   list.clear();
+   char *e;
+   char buf[250];
+   QCString s(""),strSource, strMount, strType;
+   FILE *f=popen("mount","r");
+   if (f==0) return;
+   do
+   {
+      e=fgets(buf,250,f);
+      if (e!=0)
+      {
+         s=buf;
+         if ((s.contains(" nfs ")) || (s.contains(" smbfs ")))
+         {
+            strSource=s.left(s.find(" on /"));
+            strMount=s.mid(s.find(" on /")+4,s.length());
+            if ((s.contains(" nfs ")) || (s.contains("/remote on ")))
+               strType="NFS";
+            else if (s.contains(" smbfs "))
+               strType="SMB";
+            int pos(strMount.find(" type "));
+            if (pos==-1) pos=strMount.find(" read/");
+            strMount=strMount.left(pos);
+            new QListViewItem(&list,strType,strSource,strMount);
+         };
+      };
+   }
+   while (!feof(f));
+   pclose(f);
+}
+