summaryrefslogtreecommitdiffstats
path: root/konq-plugins/mediarealfolder/tdeio_media_realfolder
blob: cbb3d06aab7e27d1ec6fc1345c2159b029e27693 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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/";
}