Gopher::Server::Response - A server response for Gopher requests

  Gopher::Server::Response -- A server response for Gopher requests 

  Timm Murray
  CPAN ID: TMURRAY
  E-Mail: tmurray@cpan.org
  Homepage: http://www.wumpus-cave.net

package Gopher::Server::Response;
use strict; 
use warnings;


sub new 
{
	my ($class, $in) = @_;
	die "Need a hashref" unless ref $in eq 'HASH';

	my $request = $in->{request} 
		or die "Need a request to give a response to";
	my $self = {
		request             => $request, 
		gopher_plus         => $in->{gopher_plus}, 
		fh                  => $in->{fh}, 
		information_blocks  => $in->{information_blocks}, 
		menu_items          => $in->{menu_items}, 
	};
	bless $self, $class;
}


sub print_to 
{
	my $self  = shift;
	my $fh    = shift || *STDOUT;

	if($self->{fh}) {
		$self->_print_filehandle( $fh );
	}
	elsif($self->{menu_items}) {
		$self->_print_menu( $fh );
	}
	elsif($self->{information_blocks}) {
		$self->_print_info( $fh );
	}
	else {
		die "Don't have anything to print!";
	}
}

sub _print_filehandle 
{
	my ($self, $fh) = @_;
	my $in = $self->{fh};

	while( read( $in, my $buf, 8192 ) ) {
		print $fh $buf;
	}
}

sub _print_menu 
{
	my ($self, $fh) = @_;

	foreach my $menu_item (@{ $self->{menu_items} }) {
		print $fh $menu_item->as_string, "\r\n";
	}

	print $fh ".\r\n";
}

sub _print_info 
{
	my ($self, $fh) = @_;
}


sub request { $_[0]->{request} }

1;
__END__