From b5457cd37995feaceeaf505641ffba8ca96072bb Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 May 2009 16:32:36 +0200
Subject: tipi

---
 Build.PL                   | 1 +
 lib/LDFM/MainController.pm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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];
     }
-- 
cgit v1.2.3