You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdeaddons/konq-plugins/mediarealfolder/kio_media_realfolder

21 lines
350 B

#! /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/";
}