Subversion Repositories VORC

Rev

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

Rev 47 Rev 50
Line -... Line 1...
- 
 
 1 
package RCMailer;
- 
 
 2 
 
- 
 
 3 
use strict;
- 
 
 4 
use Exporter 'import';
1 
use Net::SMTPS;
 5 
use Net::SMTPS;
2 
use Email::Simple;
 6 
use Email::Simple;
- 
 
 7 
 
3 
use strict;
 8 
our @EXPORT = qw( EmailUser );
Line 4... Line 9...
4 
 
 9 
 
5 
my $server   = "smtp.gmail.com";
 10 
my $server   = "smtp.gmail.com";
6 
my $port     = 587;
 11 
my $port     = 587;
7 
my $user     = 'officials.rollercon.schedule@gmail.com';
 12 
my $user     = 'officials.rollercon.schedule@gmail.com';
Line 8... Line 13...
8 
my $password = 'qdxnqqygcwnixrlq';
 13 
my $password = 'qdxnqqygcwnixrlq';
Line 9... Line 14...
9 
 
 14 
 
10 
warn "loaded RCMailer...";
 15 
#warn "loaded RCMailer...";
11 
 
 16 
 
12 
sub EmailUser {
 17 
sub EmailUser {