<div dir="ltr"><div><div><div><div>I've written this perl script to cancel oldest mail on a mail server. <br></div>But It dosn't work.<br></div>What's wrong?<br></div>Thanks in advance,<br></div>Simone<br><br><div>use Net::POP3;</div><div>use Date::Parse;</div><div>use strict;</div><div><br></div><div>my $host = "<a href="http://pop3.fondazioneboni.it" target="_blank">pop3.xxx.it</a>";</div><div>my $user = "simone.spagna\@<a href="http://fondazioneboni.it" target="_blank">xxx.it</a>";</div><div>my $pass = "xxxxyyy02";</div><div>my $max_age = 20*24*3600; # max allowed age in seconds</div><div><br></div><div><div>my $pop = Net::POP3->new($host) or die "cannot connect to mail server";</div><div>$pop->user($user );</div><div>my $msgs = $pop->pass($pass);</div><div>if ( $msgs )</div><div>{</div></div><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>my $now = time;</div></div><div><div>my $href = $pop->list();</div></div><div><div>foreach (keys %$href)</div></div><div>{<br></div></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>my $r = $pop->top( $_, 0 );</div></div></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>foreach (@$r)</div></div></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>{</div></div></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>next unless $_ =~ /^date:/i;</div></div></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>my($date) = $_ =~ /^date:\s+(.*)$/i;</div></div></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>my $time = str2time $date;</div></div></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>$pop->delete($_) if $now - $time >= $max_age;</div></div></blockquote></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>}</div></div></blockquote></blockquote><blockquote style="margin:0px 0px 0px 40px;border-width:medium;border-style:none;border-color:currentcolor;padding:0px"><div><div>}</div></div></blockquote><div>}</div><div>$pop->quit();</div></div>