ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/mymap/mymapd
(Generate patch)

Comparing Coro/mymap/mymapd (file contents):
Revision 1.2 by pcg, Wed Aug 27 01:38:42 2003 UTC vs.
Revision 1.3 by pcg, Sat Nov 15 03:53:10 2003 UTC

… …
96 96
97 #resp $fh, "*", "OK IMAP4 service ready."; 97 #resp $fh, "*", "OK IMAP4 service ready.";
98 resp $fh, "*", "PREAUTH IMAP4 service ready."; #$uid = 1; 98 resp $fh, "*", "PREAUTH IMAP4 service ready."; #$uid = 1;
99 CMD: 99 CMD:
100 while (<$fh>) { 100 while (<$fh>) {
101 warn $_;#d#
101 /^(\S+)(?: (\S+)([^\015\012]*))?$CRLF$/os or last; 102 /^(\S+)(?: (\S+)([^\015\012]*))?$CRLF$/os or last;
102 my ($tag, $cmd, $arg) = ($1, $2, $3); 103 my ($tag, $cmd, $arg) = ($1, $2, $3);
103 my @arg; 104 my @arg;
104 $cmd = lc $cmd; 105 $cmd = lc $cmd;
105 while () { 106 while () {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines