########################################
#
# insert here the list of known names
#
########################################

my %nomi=(
	'elenaleonardi' => 'ele',
	'lellobove' => 'cte',
	'dark.prg' => 'mazzini',
	'robertopar' => 'parolisi',
	'meloinfo' => 'melo',
	'massimogab' => 'max',
	'simofiore' => 'simone',
	'mpagnucci'=> 'pagnucci',
	'zeromega'=> 'pagnucci',
	'melojunior'=> 'melo',
	'mmelillo'=> 'melo',
	'marcomelillo'=> 'melo',
	'matteobagn'=> 'matteo',
	'uncoucou' => 'lorena',
	'zappagalattica' => 'zappa',
	'gavrilus' => 'zappa',
	'carloalbertodue' => 'carlone',
	'bugman996' => 'bug',
	'michel' => 'ziobudda',
	'Bagnoli' => 'matteo',
	'salciaiola' => 'stegualerci',
      );
      
########################################
#
# hash of main data types
#
########################################
      
my %hash;
while (my $t = $p->get_token){
next    unless     $t->[0] eq 'S'
	and        $t->[1] eq 'th'
	and        defined $t->[2]{'class'}
	and        $t->[2]{'class'} eq 'DatTh';
my $key = $p->get_text('/th');
chop $key;
$p->get_tag('td');
my $value = $p->get_text('/td');
$value =~ s/^\s*//;
$value =~ s/\s*\[Add\]\s*$//;
$value=~s/[AP]M.*$//;
$hash{$key} = $value;
}

my $name=$hash{From};

my $date=$hash{Date};

&Date_Init("TZ=GMT","DateFormat=UK");
$date=UnixDate($date,"%y%m%d");
$name=~s/\@.*//;
$name=~s/.*\"//;
$name=~s/.*\<//;
if (exists $nomi{$name})
    {
    $name=$nomi{$name};
    }
$name=$name.$date.".html";
###########################################
#
# find contemporaries and number'em 
# using roman numbers upto V. more than V
# messages a day from the same folk are
#          *EVIL* !!! :-P
#
###########################################

if (-e $name)
    {
    $name=~s/.html/II.html/;
    }
if (-e $name)
    {
    $name=~s/II.html/III.html/;
    }
if (-e $name)
    {
    $name=~s/III.html/IV.html/;
    }
if (-e $name)
    {
    $name=~s/IV.html/V.html/;
    }
rename $ARGV[0], $name if (! -e $name) || die "\nToo many! Please rename manually.\n\n";
print "\nRenamed as: ";
print "$name\n\n";