#!/usr/bin/perl

#script per invio fax da allegato mail
#v0.1.3
#modificato 2004-05-07 14.43

use Mail::POP3Client;
use Mail::MboxParser::Mail;

# configurare pop con i parametri del proprio pop3
my $pop = new Mail::POP3Client( USER => "userposta",
PASSWORD => "passwordposta",
HOST => "pop.propriopop.it" );

# configurare la directory dove vengono salvati gli allegati (ad
#esempio se lo script verra' lanciato dall'utente pippo, creare la
#directory /home/pippo/allegati)
my $mydirallegati='/home/pippo/allegati';

for( $i = 1; $i <= $pop->Count(); $i++ ) {
my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
[ $pop->Body($i) ] );

if($mynumeritel=$msg->header->{subject}=~/fax\:\ (.*)/)
{
	my $sender_address = $msg->from->{email};
	unlink <$mydirallegati/*>;
	$msg->store_all_attachments( path => $mydirallegati );
	my $mapping = $msg->get_attachments;
	my $myfilename;
	for $filename (keys %$mapping) {
	$myfilename=$filename;
	}
	$mynumeritel=$1;
	$mynumeritel=~s/\,/\ \-d\ /g;
	$myistr='sendfax -D -n  -f '.$sender_address.' -d '.$mynumeritel.' '.$mydirallegati.'/'.$myfilename;
	`$myistr`;
	$pop->Delete($i);
}
}
$pop->Close();
unlink <$mydirallegati/*>;