projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e6af211
)
fix message ID generation for ancient perl, bah
author
ivan
<ivan>
Mon, 6 Jun 2005 17:00:57 +0000
(17:00 +0000)
committer
ivan
<ivan>
Mon, 6 Jun 2005 17:00:57 +0000
(17:00 +0000)
FS/FS/Misc.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Misc.pm
b/FS/FS/Misc.pm
index
1bb1ae1
..
74f73a2
100644
(file)
--- a/
FS/FS/Misc.pm
+++ b/
FS/FS/Misc.pm
@@
-118,8
+118,13
@@
sub send_email {
}
}
- $options{'from'} =~ /\@([\w\.\-]+)/ or $1 = 'example.com';
- my $message_id = join('.', rand()*(2**32), $$, time). "\@$1";
+ my $domain;
+ if ( $options{'from'} =~ /\@([\w\.\-]+)/ ) {
+ $domain = $1;
+ } else {
+ $domain = 'example.com';
+ }
+ my $message_id = join('.', rand()*(2**32), $$, time). "\@$domain";
my $message = MIME::Entity->build(
'From' => $options{'from'},
my $message = MIME::Entity->build(
'From' => $options{'from'},