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

better regex matchnig behavior

Browse source
This commit is contained in:
Graham Knop 2007-10-05 19:57:38 +00:00
parent f715c29c67
commit 9167097d11
2 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Mail/Get.pm
View file

@ -236,8 +236,10 @@ sub parseParts {
my $body = $message->bodyhandle;
if (defined $body) {
my $disposition = $message->head->get("Content-Disposition");
$disposition =~ m/filename=\"(.*)\"/;
my $filename = $1;
my $filename = "";
if($disposition =~ m/filename=\"(.*)\"/) {
$filename = $1;
}
return [{content => $body->as_string, type=>$type, filename=>$filename}];
}
my @parts = ();

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

@ -115,8 +115,8 @@ sub addPost {
content=>$content,
ownerUserId=>$user->userId,
username=>$user->profileField("alias") || $user->username,
originalEmail=>join("",@{$message->{rawMessage}})
});
originalEmail=>join("",@{$message->{rawMessage}}),
});
if (scalar(@attachments)) {
my $storage = $post->getStorageLocation;
foreach my $file (@attachments) {
@ -176,13 +176,11 @@ sub execute {
return $self->COMPLETE unless (defined $mail);
my $i18n = WebGUI::International->new($self->session, "Asset_Collaboration");
my $postGroup = $cs->get("postGroupId"); #group that's allowed to post to the CS
while (my $message = $mail->getNextMessage) {
next unless (scalar(@{$message->{parts}})); # no content, skip it
my $from = $message->{from};
$from =~ /<(\S+\@\S+)>/;
$from = $1 || $from;
$from =~ /(\S+\@\S+)/;
$from =~ s/<(\S+\@\S+)>/$1/;
my $user = WebGUI::User->newByEmail($self->session, $from); #instantiate the user by email
unless (defined $user) { #if no user
@ -209,9 +207,8 @@ sub execute {
}
my $post = undef;
if ($message->{inReplyTo}) {
$message->{inReplyTo} =~ m/cs\-([\w_-]{22})\@/;
my $id = $1;
if ($message->{inReplyTo} && $message->{inReplyTo} =~ m/cs\-([\w_-]{22})\@/) {
my $id = $1;
$post = WebGUI::Asset->newByDynamicClass($self->session, $id);
}