/[Frey]/branches/zimbardo/lib/App/RoomReservation/Email.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/zimbardo/lib/App/RoomReservation/Email.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/lib/App/RoomReservation/Email.pm revision 1134 by dpavlin, Tue Jun 30 15:59:41 2009 UTC branches/zimbardo/lib/App/RoomReservation/Email.pm revision 1172 by dpavlin, Sun Jul 5 21:40:16 2009 UTC
# Line 16  sub send { Line 16  sub send {
16    
17          $sth->execute($email);          $sth->execute($email);
18    
19          die "can't find registered user with e-mail $email" unless $sth->rows == 1;          die qq|<error>Can't find registered user with e-mail $email| unless $sth->rows == 1;
20    
21          my ($ime,$prezime) = $sth->fetchrow_array;          my ($ime,$prezime) = $sth->fetchrow_array;
22          my $to = qq{"$ime $prezime" <$email>};          my $to = qq{"$ime $prezime" <$email>};
23    
         $body =~ s{FREY_HOSTNAME}{192.168.1.13:3000}gs;  
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(
Legend:
Removed from v.1134  
changed lines
  Added in v.1172
  ViewVC Help
Powered by ViewVC 1.1.26