diff options
Diffstat (limited to 'lib/LDFM')
-rw-r--r-- | lib/LDFM/MainController.pm | 6 |
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]; } |