22 |
my $to = qq{"$ime $prezime" <$email>}; |
my $to = qq{"$ime $prezime" <$email>}; |
23 |
|
|
24 |
$body =~ s{^\s+}{}gm; # strip whitespace at beginning of line |
$body =~ s{^\s+}{}gm; # strip whitespace at beginning of line |
25 |
|
$body =~ s{<br>}{\n}gs; |
26 |
$body =~ s{<[^>]+/?>}{}gs; # strip html |
$body =~ s{<[^>]+/?>}{}gs; # strip html |
27 |
|
|
28 |
my $m = Email::Simple->create( |
my $m = Email::Simple->create( |
29 |
header => [ |
header => [ |
30 |
To => $to, |
To => $to, |
31 |
From => '"Room Reservation" <room-reservation@rot13.org>', |
From => '<predavanje_psih@ffzg.hr>', |
32 |
Subject => $subject, |
Subject => $subject, |
33 |
], |
], |
34 |
body => $body, |
body => $body, |