bin/send_passwords.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Mail::Sendmail;
   5
   6 my $file = shift;
   7 my $host = shift;
   8
   9 if (!$host) { die "Need file and host as arguments\n"; }
  10
  11 open(my $F, "< :encoding(UTF8)", $file) || die "Can't open file $file";
  12
  13 while (<$F>) {
  14     chomp;
  15     my ($first_name, $last_name, $username, $email, $password) = split /\t/;
  16
  17     my $message_text = "Dear $first_name $last_name\n\nYour account on $host has been created. The username is $username and the password is $password\n\nBest regards,\n\nBreedbase";
  18
  19     print STDERR "Sending message: $message_text... ";
  20
  21     my %mail = ( To      => $email,
  22                  From    => 'production@breedbase.org',
  23                  Subject => "Your Breedbase Account",
  24                  Message => $message_text
  25                );
  26
  27     sendmail(%mail) or die $Mail::Sendmail::error;
  28     print STDERR "Done!\n";
  29 }