From 84da08d7b7fcda12c85caeb5a10b4903770a6f69 Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdeaddons@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 konq-plugins/mediarealfolder/kio_media_realfolder | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 konq-plugins/mediarealfolder/kio_media_realfolder

(limited to 'konq-plugins/mediarealfolder/kio_media_realfolder')

diff --git a/konq-plugins/mediarealfolder/kio_media_realfolder b/konq-plugins/mediarealfolder/kio_media_realfolder
new file mode 100755
index 0000000..cbb3d06
--- /dev/null
+++ b/konq-plugins/mediarealfolder/kio_media_realfolder
@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use warnings;
+use strict;
+
+my @parts = split(/\//, $ARGV[0]);
+
+my $medium = $parts[$#parts];
+
+open(IN, "-|") || exec "dcop", "kded", "mediamanager", "properties", $medium;
+my @prop = <IN>;
+close(IN);
+
+if ($prop[6] =~ /^\//)
+{
+	my $mountpoint = $prop[6];
+	chomp($mountpoint);
+	exec "kfmclient", "exec", "file://$mountpoint/";
+}
+
-- 
cgit v1.2.1