r804@narval2: dakkar | 2005-11-20 12:05:55 +0100

 aggiunto riconoscimento tipi file


git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@49 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 5 insertions, 1 deletions

diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 9a6756a..31b45da 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];
     }