package RSApache::Response::DownloadIteratorText;

use strict;
use warnings;

use Apache2::Const qw(OK);

use lib ('/app/tools/common/lib');
use RSApache::Response;
use base 'RSApache::Response::DownloadIterator';

sub _outputLine {
    my ( $self, $line ) = @_;

    # We're going to tack on a carriage return to make this DOS friendly.
    #
    $line =~ s/(?<!\r)\n/\r\n/g;
    print $line;
}

###
1;    # Play nicely.
###