oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

oops

Browse source
This commit is contained in:
Graham Knop 2007-10-05 21:07:48 +00:00
parent ee85bc1e02
commit 792109761b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Workflow/Activity/GetCsMail.pm
View file

@ -180,8 +180,10 @@ sub execute {
while (my $message = $mail->getNextMessage) {
next unless (scalar(@{$message->{parts}})); # no content, skip it
my $from = $message->{from};
$from =~ s/<(\S+\@\S+)>/$1/;
my $user = WebGUI::User->newByEmail($self->session, $from); #instantiate the user by email
if ($from =~ /<(\S+\@\S+)>/) {
$from = $1;
}
my $user = WebGUI::User->newByEmail($self->session, $from); #instantiate the user by email
unless (defined $user) { #if no user
unless ($postGroup eq 1 || $postGroup eq 7) { #reject mail if no registered email, unless post group is Visitors (1) or Everyone (7)