Subversion Repositories VORC

(root)/trunk/perl/RCMailer.pm – Rev 50 → 57



 
sub EmailUser {
	my $email = shift;
	my $subject = shift;
	my $body = shift;
#warn "DEBUG: Emailing $email...";
  my $smtp = Net::SMTPS->new(
    $server,
    Hello => 'gmail.com',
    Port => $port,

Rev 50	Rev 57
Line 16...	Line 16...
16		16
17	`sub EmailUser {`	17	`sub EmailUser {`
18	`my $email = shift;`	18	`my $email = shift;`
19	`my $subject = shift;`	19	`my $subject = shift;`
20	`my $body = shift;`	20	`my $body = shift;`
21	`warn "DEBUG: Emailing $email...";`	21	`#warn "DEBUG: Emailing $email...";`
22	`my $smtp = Net::SMTPS->new(`	22	`my $smtp = Net::SMTPS->new(`
23	`$server,`	23	`$server,`
24	`Hello => 'gmail.com',`	24	`Hello => 'gmail.com',`
25	`Port => $port,`	25	`Port => $port,`