mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-05 12:17:16 +02:00
282 lines
8.8 KiB
Text
Executable file
282 lines
8.8 KiB
Text
Executable file
# Directives
|
|
# ( none)
|
|
# Start-up Actions
|
|
|
|
{
|
|
my $subpartCount = 0;
|
|
my $partCount = 0;
|
|
}
|
|
|
|
#
|
|
# Atoms
|
|
TEXT: /^"TEXT"|^TEXT/i { $return = "TEXT" }
|
|
PLAIN: /^"PLAIN"|^PLAIN/i { $return = "PLAIN" }
|
|
HTML: /"HTML"|HTML/i { $return = "HTML" }
|
|
MESSAGE: /^"MESSAGE"|^MESSAGE/i { $return = "MESSAGE" }
|
|
RFC822: /^"RFC822"|^RFC822/i { $return = "RFC822" }
|
|
NIL: /^NIL/i { $return = "NIL" }
|
|
NUMBER: /^(\d+)/ { $return = $item[1]; $return||defined($return);}
|
|
|
|
# Strings:
|
|
|
|
SINGLE_QUOTED_STRING: "'" /(?:\\'|[^'])*/ "'" {
|
|
|
|
$return = $item{__PATTERN1__} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
DOUBLE_QUOTED_STRING: '"' /(?:\\"|[^"])*/ '"' {
|
|
|
|
$return = $item{__PATTERN1__} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
QUOTED_STRING: DOUBLE_QUOTED_STRING | SINGLE_QUOTED_STRING {
|
|
|
|
$return = $item{DOUBLE_QUOTED_STRING}||$item{SINGLE_QUOTED_STRING} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
BARESTRING: ...!/^[)('"]/ /^(?!\(|\))(?:\\ |\S)+/ {
|
|
$return = $item{__PATTERN1__} ; $return||defined($return);
|
|
}
|
|
|
|
STRING: QUOTED_STRING | BARESTRING {
|
|
$return = $item{QUOTED_STRING}||$item{BARESTRING} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
OLDSTRING: /^"((?:[^"\\]|\\.)*)"/ | /^([^ \(\)]+)/
|
|
{ $item{__PATTERN1__} =~ s/^"(.*)"$/$1/;
|
|
$return = $item{__PATTERN1__} || $item{__PATTERN2__} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
#BARESTRING: /^[^(]+\s+(?=\()/
|
|
# { $return = $item[1] ; $return||defined($return);}
|
|
|
|
textlines: NIL | NUMBER { $return = $item[1] || $item[2]; $return||defined($return); }
|
|
rfc822message: MESSAGE RFC822 { $return = "MESSAGE RFC822" }
|
|
key: STRING { $return = $item{STRING} ; $return||defined($return);}
|
|
value: NIL | '(' <commit> kvpair(s) ')'| NUMBER | STRING
|
|
{ $return = $item{NIL} ||
|
|
$item{NUMBER} ||
|
|
$item{STRING} ||
|
|
{ map { (%$_) } @{$item{'kvpair(s)'}} } ;
|
|
$return||defined($return);
|
|
}
|
|
kvpair: ...!")" key value
|
|
{ $return = { $item{key} => $item{value} }; $return||defined($return);}
|
|
bodytype: STRING
|
|
{ $return = $item{STRING} ; $return||defined($return);}
|
|
bodysubtype: PLAIN | HTML | NIL | STRING
|
|
{ $return = $item{PLAIN}||$item{HTML}||$item{NIL}||$item{STRING} ;
|
|
$return||defined($return);
|
|
}
|
|
bodyparms: NIL | '(' kvpair(s) ')'
|
|
{
|
|
$return = $item{NIL} ||
|
|
{ map { (%$_) } @{$item{'kvpair(s)'}} };
|
|
$return || defined($return);
|
|
}
|
|
bodydisp: NIL | '(' kvpair(s) ')'
|
|
{
|
|
$return = $item{NIL} ||
|
|
{ map { (%$_) } @{$item{'kvpair(s)'}} };
|
|
$return || defined($return);
|
|
}
|
|
bodyid: ...!/[()]/ NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING} ; $return||defined($return);}
|
|
|
|
bodydesc: ...!/[()]/ NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
bodyenc: NIL | STRING | '(' kvpair(s) ')'
|
|
{
|
|
$return = $item{NIL} ||
|
|
$item{STRING} ||
|
|
{ map { (%$_) } @{$item{'kvpair(s)'}} };
|
|
$return||defined($return);
|
|
|
|
}
|
|
bodysize: ...!/[()]/ NIL | NUMBER
|
|
{ $return = $item{NIL} || $item{NUMBER}; $return||defined($return);}
|
|
|
|
bodyMD5: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
bodylang: NIL | STRING | "(" STRING(s) ")"
|
|
{ $return = $item{NIL} || $item{'STRING(s)'}; $return||defined($return);}
|
|
|
|
bodyextra: NIL | STRING | "(" STRING(s) ")"
|
|
{ 0 }
|
|
|
|
personalname: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
sourceroute: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
mailboxname: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
hostname: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING}; $return||defined($return);}
|
|
|
|
addressstruct: "(" personalname sourceroute mailboxname hostname ")"
|
|
{ bless {
|
|
personalname => $item{personalname} ,
|
|
sourceroute => $item{sourceroute} ,
|
|
mailboxname => $item{mailboxname} ,
|
|
hostname => $item{hostname} ,
|
|
}, 'Mail::IMAPClient::BodyStructure::Address';
|
|
}
|
|
|
|
subject: NIL | STRING
|
|
{
|
|
$return = $item{NIL} || $item{STRING} ;
|
|
$return||defined($return);
|
|
}
|
|
inreplyto: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING} ;$return||defined($return);}
|
|
|
|
messageid: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING} ;$return||defined($return);}
|
|
|
|
date: NIL | STRING
|
|
{ $return = $item{NIL} || $item{STRING} ;$return||defined($return);}
|
|
|
|
cc: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
bcc: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
from: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
replyto: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
sender: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
to: NIL | "(" addressstruct(s) ")"
|
|
{ $return = $item{NIL} || $item{'addressstruct(s)'} }
|
|
|
|
envelopestruct: "(" date subject from sender replyto to cc bcc inreplyto messageid ")"
|
|
{ $return = bless {}, "Mail::IMAPClient::BodyStructure::Envelope";
|
|
$return->{$_} = $item{$_}
|
|
for qw/date subject from sender replyto to cc/
|
|
, qw/bcc inreplyto messageid/ ;
|
|
$return;
|
|
}
|
|
|
|
basicfields: bodysubtype bodyparms bodyid(?)
|
|
bodydesc(?) bodyenc(?)
|
|
bodysize(?) {
|
|
|
|
|
|
$return =
|
|
{ bodysubtype => $item{bodysubtype}
|
|
, bodyparms => $item{bodyparms}
|
|
};
|
|
$return->{$_} = ref $item{"$_(?}"} ? $item{"$_(?}"}[0] :$item{"$_(?}"}
|
|
for qw/bodyid bodydesc bodyenc bodysize/;
|
|
$return;
|
|
}
|
|
|
|
textmessage: TEXT <commit> basicfields textlines(?) bodyMD5(?)
|
|
bodydisp(?) bodylang(?) bodyextra(?)
|
|
{
|
|
$return = $item{basicfields} || {};
|
|
$return->{bodytype} = 'TEXT';
|
|
foreach my $what (qw/textlines(?) bodyMD5(?) bodydisp(?) bodylang(?)/)
|
|
{ my $k = $what; $k =~ s/\(\?\)$//;
|
|
$return->{$k} = $item{$what}[0] if ref $item{$what};
|
|
}
|
|
|
|
$return;
|
|
}
|
|
|
|
othertypemessage: bodytype basicfields bodyparms(?) bodydisp(?)
|
|
bodylang(?) bodyextra(?)
|
|
{ $return = {};
|
|
foreach my $what ( qw/bodytype bodyparms(?) bodydisp(?)/
|
|
, qw/bodylang(?) bodyextra(?)/ )
|
|
{ my $k = $what; $k =~ s/\(\?\)$//;
|
|
$return->{$k} = ref($item{$what})? $item{$what}[0] : $item{$what} ;
|
|
}
|
|
while( my($k,$v) = each %{$item{basicfields}} ) { $return->{$k} = $v }
|
|
$return;
|
|
}
|
|
|
|
messagerfc822message:
|
|
rfc822message <commit> bodyparms bodyid bodydesc bodyenc bodysize
|
|
envelopestruct bodystructure textlines
|
|
bodyMD5(?) bodydisp(?) bodylang(?) bodyextra(?)
|
|
{
|
|
$return = {};
|
|
foreach my $what (qw/ bodyparms bodyid bodydesc bodyenc bodysize
|
|
envelopestruct bodystructure textlines
|
|
bodyMD5(?) bodydisp(?) bodylang(?) bodyextra(?)
|
|
/
|
|
) {
|
|
my $k = $what; $k =~ s/\(\?\)$//;
|
|
$return->{$k} = ref $item{$what} =~ 'ARRAY'?
|
|
$item{$what}[0] : $item{$what};
|
|
}
|
|
while(my($k,$v) = each %{$item{bodystructure}[0]}) { $return->{$k} = $v}
|
|
while(my($k,$v) = each %{$item{basicfields}}) { $return->{$k} = $v}
|
|
$return->{bodytype} = "MESSAGE" ;
|
|
$return->{bodysubtype} = "RFC822" ;
|
|
$return;
|
|
}
|
|
|
|
subpart: "(" part ")"
|
|
{ $return = $item{part} ;
|
|
$return||defined($return);
|
|
} <defer: ++$subpartCount;>
|
|
|
|
|
|
part: subpart(s) <commit> basicfields
|
|
bodyparms(?) bodydisp(?) bodylang(?) bodyextra(?)
|
|
<defer: $subpartCount = 0>
|
|
{ $return = bless $item{basicfields},"Mail::IMAPClient::BodyStructure";
|
|
$return->{bodytype} = "MULTIPART";
|
|
$return->{bodystructure} = $item{'subpart(s)'};
|
|
foreach my $b (qw/bodyparms(?) bodydisp(?) bodylang(?) bodyextra(?)/)
|
|
{ my $k = $b; $k =~ s/\(\?\)$//;
|
|
$return->{$k} = ref($item{$b}) ? $item{$b}[0] : $item{$b};
|
|
}
|
|
$return;
|
|
}
|
|
| textmessage
|
|
{ $return = bless $item{textmessage}, "Mail::IMAPClient::BodyStructure";
|
|
$return||defined($return);
|
|
}
|
|
| messagerfc822message
|
|
{ $return = bless $item{messagerfc822message}, "Mail::IMAPClient::BodyStructure";
|
|
$return||defined($return);
|
|
}
|
|
| othertypemessage
|
|
{ $return = bless $item{othertypemessage}, "Mail::IMAPClient::BodyStructure";
|
|
$return||defined($return);
|
|
}
|
|
|
|
bodystructure: "(" part(s) ")"
|
|
{ $return = $item{'part(s)'} ;
|
|
$return||defined($return);
|
|
}
|
|
|
|
start: /.*\(.*BODYSTRUCTURE \(/i part(1) /\).*\)\r?\n?/
|
|
{
|
|
#print STDERR "item = ",Data::Dumper->Dump([\%item],['$item']);
|
|
$return = $item{'part(1)'}[0];
|
|
$return || defined $return;
|
|
}
|
|
|
|
envelope: /.*\(.*ENVELOPE/ envelopestruct /.*\)/
|
|
{ $return = $item{envelopestruct};
|
|
$return || defined $return;
|
|
}
|