tdebase tdeioslaves media instead. Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>pull/11/head
parent
14d1d3a502
commit
025f091b8a
@ -1,20 +0,0 @@
|
|||||||
#################################################
|
|
||||||
#
|
|
||||||
# (C) 2013 Golubev Alexander
|
|
||||||
# fatzer2 (AT) gmail.com
|
|
||||||
#
|
|
||||||
# Improvements and feedback are welcome
|
|
||||||
#
|
|
||||||
# This file is released under GPL >= 2
|
|
||||||
#
|
|
||||||
#################################################
|
|
||||||
|
|
||||||
install( PROGRAMS tdeio_media_realfolder
|
|
||||||
DESTINATION ${BIN_INSTALL_DIR}
|
|
||||||
)
|
|
||||||
|
|
||||||
tde_create_translated_desktop(
|
|
||||||
SOURCE media_realfolder.desktop
|
|
||||||
DESTINATION ${DATA_INSTALL_DIR}/konqueror/servicemenus
|
|
||||||
PO_DIR konq-plugins-desktops
|
|
||||||
)
|
|
@ -1,5 +0,0 @@
|
|||||||
servicesdir = $(kde_datadir)/konqueror/servicemenus
|
|
||||||
services_DATA = media_realfolder.desktop
|
|
||||||
|
|
||||||
bin_SCRIPTS = tdeio_media_realfolder
|
|
||||||
|
|
@ -1,11 +0,0 @@
|
|||||||
[Desktop Entry]
|
|
||||||
X-TDE-ServiceTypes=media/bluray_mounted,media/cdrom_mounted,media/cd-r_mounted,media/cd-rw_mounted,media/dvd_mounted,media/floppy5_mounted,media/floppy_mounted,media/hdd_mounted,media/nfs_mounted,media/smb_mounted,media/removable_mounted,media/zip_mounted
|
|
||||||
Actions=MediaRealFolder
|
|
||||||
X-TDE-Priority=TopLevel
|
|
||||||
X-TDE-MediaNotifierHide=true
|
|
||||||
Icon=folder_red
|
|
||||||
|
|
||||||
[Desktop Action MediaRealFolder]
|
|
||||||
Name=Open Medium System Folder
|
|
||||||
Exec=tdeio_media_realfolder %u
|
|
||||||
Icon=folder_red
|
|
@ -1,20 +0,0 @@
|
|||||||
#! /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/";
|
|
||||||
}
|
|
||||||
|
|
Loading…
Reference in new issue