#!/usr/bin/perl
unless ( $ARGV[0] && $ARGV[1] && $ARGV[2] ) { print "uzage: Learn Perl Bici;)\n" }
$| = "1";
open(TARGETS, "+< $ARGV[0]");
while(<TARGETS>) {
        ($name,$user, $target) = split /\%/;
   chop $target;
   print "name: $name id: $user\t mail: $target\n";
##rendom  setings ;)
$pass_length = 3;  ##  password usual length
#$free_pass        ##  number of available passwords
$max_pass = 100;   ##  free passwords buffer max dimenssion
$min_pass = 50;    ##  free passwords buffer min dimenssion
## routine rout  jenerator ;)
sub generate_random_route
{
  my $passwordsize = 2;
    ##my @alphanumeric = ('a'..'z', 'A'..'Z', 0..9);
    ##my @alphanumeric = ('a'..'z', 0..9);
        my @alphanumeric = ( 0..9);
          my $randroute1 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
            my $randroute2 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
              my $randroute3 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
               my $randroute4 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
                my $randroute5 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
                my $randroute=$randroute1.'-'.$randroute2.'-'.$randroute3.'-'.$randroute4;
                  return $randroute;
                 }
          $route = generate_random_route($pass_length);
#rendom  riplai jenerator ;)
sub generate_random_reply
{
  my $passwordsize = 3;
  my @alphanumeric = ('a'..'z', 'A'..'Z', 0..9);
  ## my @alphanumeric = ('a'..'z', 0..9);
     my @alphanumeric1 = ( 0..9);
      my $randreply1 = join '', map $alphanumeric1[rand @alphanumeric1], 0..$passwordsize;
       my $randreply2 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
        my $randreply3 = join '', map $alphanumeric[rand @alphanumeric], 0..$passwordsize;
         my $randreply=$randreply1.'-'.$randreply2.'-'.$randreply3;
          return $randreply;
             }
              $reply = generate_random_reply($pass_length).'@'.'noreply.customer.com';

#$date = (system("date -u"));

$from     = '"contatto" <contact@london.jp>';
$subject  = "Aggiorna i tuoi dati di pagamento [ID#$route]" ;
$reply_to = "$reply";
$sendmail = "/usr/sbin/sendmail";

  open(SENDMAIL, "|$sendmail -t") or die "Cannot open $sendmail: $!";
        print SENDMAIL "From: $from\n";
        print SENDMAIL "Reply-to: $reply_to\n";
        print SENDMAIL "Subject: $subject\n";
        print SENDMAIL "To: $target\n";
        print SENDMAIL "Content-type: text/html\n\n";
        open(SPAMTEXT, "$ARGV[1]");
        while (<SPAMTEXT>) {
        s/xname/$name/g;
        s/xuser/$user/g;
        s/xmail/$target/g;
        s/xroute/$route/g;
#       s/xdate/$date/g;
        print SENDMAIL $_;
        }
        close(SPAMTEXT);
        close(SENDMAIL);
        print "imeil sent tu $target using $from ;) \n";
        open (LOG, ">$ARGV[2]");
        print LOG "$target\n";
        close(LOG);
        sleep 4;
};