Parent Directory
| 
Revision Log
| 
Patch
| revision 1150 by dpavlin, Tue Jun 30 15:59:41 2009 UTC | revision 1151 by dpavlin, Wed Jul 1 21:47:04 2009 UTC | |
|---|---|---|
| # | Line 21 sub send { | Line 21 sub send { |
| 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{<[^>]+/?>}{}gs; # strip html | $body =~ s{<[^>]+/?>}{}gs; # strip html |
| 26 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |