Quoting Florin Andrei (florin@xxxxxxxxxxxxxxx): > John Capo wrote: > > > >A 32MB message occupies a lot more than 32MB when its a Perl string. > >Use a temp file instead. > > > > my $message_file = "/tmp/xfer-$$"; > > unlink($message_file); > > $from->message_to_file($message_file, $f_msg); > > > >And further down. > > > > unless($new_id = $to->append_file($t_fold, $message_file, $flags_f, $d)) > > > >Instead of > > > > unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)) > > It's hard to tell without actually testing that change, but I assume it > would slow down the script a little bit? I doubt that you would see a speed difference unless you were transferring to and from completely idle GigE connected machines and maybe not even then. > Anyway, slower is better than crashing. I'll try and contact the author > to make him aware of this discussion thread. Agreed. > > -- > Florin Andrei > > http://florin.myip.org/ > ---- > Cyrus Home Page: http://cyrusimap.web.cmu.edu/ > Cyrus Wiki/FAQ: http://cyrusimap.web.cmu.edu/twiki > List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html ---- Cyrus Home Page: http://cyrusimap.web.cmu.edu/ Cyrus Wiki/FAQ: http://cyrusimap.web.cmu.edu/twiki List Archives/Info: http://asg.web.cmu.edu/cyrus/mailing-list.html
