summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2009-05-23 16:32:36 +0200
committerdakkar <dakkar@thenautilus.net>2009-05-23 16:32:36 +0200
commitb5457cd37995feaceeaf505641ffba8ca96072bb (patch)
treefda64523359784a3419bb7bc72eefffd6123057b
parentdialog (diff)
downloadGtkPerlFileManager-b5457cd37995feaceeaf505641ffba8ca96072bb.tar.gz
GtkPerlFileManager-b5457cd37995feaceeaf505641ffba8ca96072bb.tar.bz2
GtkPerlFileManager-b5457cd37995feaceeaf505641ffba8ca96072bb.zip
tipi
-rw-r--r--Build.PL1
-rw-r--r--lib/LDFM/MainController.pm6
2 files changed, 6 insertions, 1 deletions
diff --git a/Build.PL b/Build.PL
index b1afdd9..4b70324 100644
--- a/Build.PL
+++ b/Build.PL
@@ -15,6 +15,7 @@ my $builder = Module::Build->new(
'Gtk2::Ex::Simple::List' => 0,
'Readonly' => 0,
'Path::Class' => 0,
+ 'File::MMagic' => 0,
},
build_requires => {
'Test::More' => 0,
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 19f7cbe..571d5ab 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -7,6 +7,7 @@ use Gtk2::Ex::Simple::List;
use LDFM::DialogController;
use Readonly;
use Path::Class;
+use File::MMagic;
our $VERSION = '0.01';
@@ -18,6 +19,9 @@ sub new {
$self->{glade_dir}=$params{glade_dir};
+ # inizializzo il sistema di riconoscimento tipi file
+ $self->{filetype}=File::MMagic->new('/usr/share/file/magic.mime');
+
# cambio le liste con qualcosa di piĆ¹ comodo
$self->simplify_list('left');
$self->simplify_list('right');
@@ -70,7 +74,7 @@ sub update_list_with_path {
push @row,'DIR',0;
}
else {
- push @row,'FILE',-s $item;
+ push @row,$self->{filetype}->checktype_filename($item),-s $item;
}
push @dir_list,[@row];
}