Subversion Repositories ORC

Rev

Rev 14 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14 Rev 46
Line 5... Line 5...
5 
my $server   = "smtp.gmail.com";
 5 
my $server   = "smtp.gmail.com";
6 
my $port     = 587;
 6 
my $port     = 587;
7 
my $user     = 'officials.rollercon.schedule@gmail.com';
 7 
my $user     = 'officials.rollercon.schedule@gmail.com';
8 
my $password = 'qdxnqqygcwnixrlq';
 8 
my $password = 'qdxnqqygcwnixrlq';
Line 9... Line -...
9 
 
 - 
 
10 
my $smtp = Net::SMTPS->new(
 - 
 
11 
  $server,
 9 
 
12 
  Hello => 'gmail.com',
 - 
 
13 
  Port => $port,
 - 
 
14 
  doSSL => 'starttls',
 - 
 
15 
  Timeout => 15,
 - 
 
16 
#  Debug => 1
 - 
 
17 
);
 - 
 
18 
die "Could not connect to GMAIL SMTP server!" unless $smtp;
 - 
 
Line 19... Line 10...
19 
 
 10 
warn "loaded RCMailer...";
20 
 
 11 
 
21 
sub EmailUser {
 12 
sub EmailUser {
22 
	my $email = shift;
 13 
	my $email = shift;
- 
 
 14 
	my $subject = shift;
- 
 
 15 
	my $body = shift;
- 
 
 16 
warn "DEBUG: Emailing $email...";
- 
 
 17 
  my $smtp = Net::SMTPS->new(
- 
 
 18 
    $server,
- 
 
 19 
    Hello => 'gmail.com',
- 
 
 20 
    Port => $port,
- 
 
 21 
    doSSL => 'starttls',
- 
 
 22 
    Timeout => 15,
- 
 
 23 
  #  Debug => 1
Line 23... Line 24...
23 
	my $subject = shift;
 24 
  );
24 
	my $body = shift;
 25 
  die "Could not connect to GMAIL SMTP server!" unless $smtp;
25
26
26 
	my $msg = Email::Simple->create(
 27 
	my $msg = Email::Simple->create(