#!/usr/bin/perl -w
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $filename='photorec.log';
open(LOG,'<',$filename) or die("Can't open file $filename: $!\n");
while(my $line=<LOG>)
{
  if($line=~/^(recup_dir\S+\/)([^\s\/]+)\s+(\d+-.+)/)
  {
    my($pathname,$filename,$location)=($1,$2,$3);
    my $file=$pathname.$filename;
    if(-e $file)
    {
      my $status='X';
      my $type='';
      $status=$1 if($filename=~/^(.)/);
      $type=$1 if($filename=~/\.([^\.]+)$/);
      $status='b' if($status eq 'f' && $type eq 'txt');
      $type='email' if($type eq 'imm');
      open(FILE, $file) or die "Can't open '$file': $!";
      binmode(FILE);
      my $digest=Digest::MD5->new->addfile(*FILE)->hexdigest;
      close(FILE);
      my $filesize = -s $file;
      print $status.';'.$digest.';'.$location.';'.$filesize.';'.$type."\n";
    }
  }
}
close(LOG);