Subversion Repositories VORC

Rev

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

Rev 65 Rev 67
Line 23... Line 23...
23 
	my $email = shift;
 23 
	my $email = shift;
24 
	my $subject = shift;
 24 
	my $subject = shift;
25 
	my $body = shift;
 25 
	my $body = shift;
Line 26... Line 26...
26
26
- 
 
 27 
	my $dev = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "" : '[DEV] ';
- 
 
 28
- 
 
 29 
  if ($body !~ /^<p>/i) {
- 
 
 30 
    use HTML::Tiny;
Line -... Line 31...
- 
 
 31 
    my $h = HTML::Tiny->new( mode => 'html' );
- 
 
 32 
 
- 
 
 33 
    $body = $h->p (split "\n", $body);
27 
	my $dev = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "" : '[DEV] ';
 34 
  }
Line 28... Line 35...
28 
 
 35
29 
#warn "DEBUG: Emailing $email...";
 36 
#warn "DEBUG: Emailing $email...";
30 
 
 37