Subversion Repositories ORC

Rev

Rev 46 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46 Rev 47
Line 24... Line 24...
24 
  );
 24 
  );
25 
  die "Could not connect to GMAIL SMTP server!" unless $smtp;
 25 
  die "Could not connect to GMAIL SMTP server!" unless $smtp;
Line 26... Line 26...
26
26
27 
	my $msg = Email::Simple->create(
 27 
	my $msg = Email::Simple->create(
28 
	  header => [
 28 
	  header => [
29 
	    To      => $email,
 29 
	    To             => $email,
30 
	    From    => $user,
 30 
	    From           => $user,
- 
 
 31 
	    Subject        => $subject,
31 
	    Subject => $subject,
 32 
	    'Content-type' => 'text/html',
32 
    ],
 33 
    ],
33 
	  body => $body,
 34 
	  body => $body,
Line 34... Line 35...
34 
	);
 35 
	);