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.
21 lines
350 B
21 lines
350 B
15 years ago
|
#! /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/";
|
||
|
|
}
|
||
|
|
|