Loading tests/ftpserver.pl +18 −0 Original line number Diff line number Diff line Loading @@ -586,6 +586,7 @@ sub protocolsetup { 'CAPABILITY' => \&CAPABILITY_imap, 'CHECK' => \&CHECK_imap, 'CLOSE' => \&CLOSE_imap, 'COPY' => \©_imap, 'CREATE' => \&CREATE_imap, 'DELETE' => \&DELETE_imap, 'EXAMINE' => \&EXAMINE_imap, Loading Loading @@ -1239,6 +1240,23 @@ sub EXPUNGE_imap { return 0; } sub COPY_imap { my ($args) = @_; my ($uid, $mailbox) = split(/ /, $args, 2); fix_imap_params($uid, $mailbox); logmsg "COPY_imap got $args\n"; if (($uid eq "") || ($mailbox eq "")) { sendcontrol "$cmdid BAD Command Argument\r\n"; } else { sendcontrol "$cmdid OK COPY completed\r\n"; } return 0; } sub LOGOUT_imap { sendcontrol "* BYE cURL IMAP server signing off\r\n"; sendcontrol "$cmdid OK LOGOUT completed\r\n"; Loading Loading
tests/ftpserver.pl +18 −0 Original line number Diff line number Diff line Loading @@ -586,6 +586,7 @@ sub protocolsetup { 'CAPABILITY' => \&CAPABILITY_imap, 'CHECK' => \&CHECK_imap, 'CLOSE' => \&CLOSE_imap, 'COPY' => \©_imap, 'CREATE' => \&CREATE_imap, 'DELETE' => \&DELETE_imap, 'EXAMINE' => \&EXAMINE_imap, Loading Loading @@ -1239,6 +1240,23 @@ sub EXPUNGE_imap { return 0; } sub COPY_imap { my ($args) = @_; my ($uid, $mailbox) = split(/ /, $args, 2); fix_imap_params($uid, $mailbox); logmsg "COPY_imap got $args\n"; if (($uid eq "") || ($mailbox eq "")) { sendcontrol "$cmdid BAD Command Argument\r\n"; } else { sendcontrol "$cmdid OK COPY completed\r\n"; } return 0; } sub LOGOUT_imap { sendcontrol "* BYE cURL IMAP server signing off\r\n"; sendcontrol "$cmdid OK LOGOUT completed\r\n"; Loading