Parent Directory | Revision Log | Patch
revision 1134 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 |