diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 21:01:57 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 21:01:57 -0600 |
| commit | a5a7573f3597f76e3cf9ebfb5a38416906289ff3 (patch) | |
| tree | beabf7411b6bfeb386bea8016fa48eebf61db192 /konq-plugins/mediarealfolder/tdeio_media_realfolder | |
| parent | f21b0182707822a0aeaedd00578eb18ce191c47d (diff) | |
| download | tdeaddons-a5a7573f3597f76e3cf9ebfb5a38416906289ff3.tar.gz tdeaddons-a5a7573f3597f76e3cf9ebfb5a38416906289ff3.zip | |
Rename kiobuffer and KHTML
Diffstat (limited to 'konq-plugins/mediarealfolder/tdeio_media_realfolder')
| -rwxr-xr-x | konq-plugins/mediarealfolder/tdeio_media_realfolder | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/konq-plugins/mediarealfolder/tdeio_media_realfolder b/konq-plugins/mediarealfolder/tdeio_media_realfolder new file mode 100755 index 0000000..cbb3d06 --- /dev/null +++ b/konq-plugins/mediarealfolder/tdeio_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/"; +} + |