154 |
$body =~ s,----(\S+),----\n$1,gs; |
$body =~ s,----(\S+),----\n$1,gs; |
155 |
|
|
156 |
# attachments |
# attachments |
157 |
|
$body =~ s,\[attachment:([^\]]+)(gif|png|jpg|jpeg)\],{image: $1$2},gis; |
158 |
$body =~ s,\[attachment:([^\]]+)\],{file: $1},gs; |
$body =~ s,\[attachment:([^\]]+)\],{file: $1},gs; |
159 |
|
|
160 |
return $body; |
return $body; |
191 |
$body .= qq{ |
$body .= qq{ |
192 |
---- |
---- |
193 |
|
|
194 |
Original http://www.razmjenavjestina.org/$full_name {date: $date} |
"original"<http://www.razmjenavjestina.org/$full_name> {date: $date} |
195 |
}; |
}; |
196 |
|
|
197 |
Encode::_utf8_off( $body ); |
Encode::_utf8_off( $body ); |