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

removed bogus bugfix of mine

Browse source
This commit is contained in:
Nik Ogura 2007-05-02 20:21:38 +00:00
parent fe5bc93a52
commit b3ebabb5fc
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -175,7 +175,6 @@ sub execute {
}); });
return $self->COMPLETE unless (defined $mail); return $self->COMPLETE unless (defined $mail);
my $i18n = WebGUI::International->new($self->session, "Asset_Collaboration"); my $i18n = WebGUI::International->new($self->session, "Asset_Collaboration");
my $msgnum = 1;
while (my $message = $mail->getNextMessage) { while (my $message = $mail->getNextMessage) {
next unless (scalar(@{$message->{parts}})); # no content, skip it next unless (scalar(@{$message->{parts}})); # no content, skip it
my $from = $message->{from}; my $from = $message->{from};
@ -183,10 +182,7 @@ sub execute {
$from = $1 || $from; $from = $1 || $from;
$from =~ /(\S+\@\S+)/; $from =~ /(\S+\@\S+)/;
my $user = WebGUI::User->newByEmail($self->session, $from); my $user = WebGUI::User->newByEmail($self->session, $from);
if (!$cs->get("requireSubscriptionForEmailPosting") && !(defined $user)) { #this one is for unregistered posters unless (defined $user) {
$user = WebGUI::User->new($self->session, undef);
}
unless (defined $user ) {
my $send = WebGUI::Mail::Send->create($self->session, { my $send = WebGUI::Mail::Send->create($self->session, {
to=>$message->{from}, to=>$message->{from},
inReplyTo=>$message->{messageId}, inReplyTo=>$message->{messageId},
@ -225,7 +221,6 @@ sub execute {
$send->send; $send->send;
} }
# just in case there are a lot of messages, we should release after a minutes worth of retrieving # just in case there are a lot of messages, we should release after a minutes worth of retrieving
$msgnum ++;
last if (time() > $start + 60); last if (time() > $start + 60);
} }
$mail->disconnect; $mail->disconnect;