#! /usr/bin/env perl

@parts = split(/\//, $ARGV[0]);

my $medium = $parts[$#parts];

open(IN, "dcop kded mediamanager properties $medium |");

@prop = <IN>;

if ($prop[6] =~ /^\//)
{
	$mountpoint = $prop[6];
	chomp($mountpoint);
	exec "kfmclient exec 'file://$mountpoint/'";
}

