#!/usr/bin/perl

use Time::Local;

$filelist=`find`;



foreach my $file (split(/\n/,$filelist)) 
{

 print STDERR "processing $file\n";
 if ($file=~/xml/)
 {
  system ("cat $file |gunzip > ./huh.xml");

$name="";
$displayname="";
$number="";
$type="";
$date="";
$text="";
  open (drzak, "huh.xml");
  while($in=<drzak>)
  {

if ($in=~/Date.([0-9]{10})/) {$date=$1;}
if ($in=~/Name.(.+?)</) {$name=$1;}
if ($in=~/DisplayName.(.+?)</) {$displayname=$1;}
if ($in=~/Number.(.+?)</) {$number=$1;}
if ($in=~/Type.(.+?)</) {$type=$1; if ($type==1){$type="prichozi";}else{$type="odchozi";}}


if ($in=~/ws.Address.(.+?)</) {$number=$1;}

if ($in=~/ws.Body.(.+?)</) {$text=$1;}
elsif($in=~/ws.Body.(.+?)/) {$text=$1;}
elsif($in=~/(.+?)<.ws.Body/) {$text=$text.$1;}


if ($in=~/.ws.MMSMessage/) {$name="mms.skip;";$number="mms.skip;"}


  }
  close drzak;

#if (!$number){exit;}

$name=~s#
#neznamy#;
$text=~s#
##;


if ($date)
{
print "$date, ";
print scalar localtime($date);
print ", ";
}
else{$type=""; print "phonebook: ";}



print "$number, $name$text$displayname, $type\n";


}
}


exit;