Gopher::Server::ParseRequest - Parse a request from a client

Gopher-Server documentation Contained in the Gopher-Server distribution.

Index

Code Index:

NAME

Top

  Gopher::Server::ParseRequest - Parse a request from a client

SYNOPSIS

Top

DESCRIPTION

Top

AUTHOR

Top

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

LICENSE

Top

Gopher::Server Copyright (C) 2004 Timm Murray

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

Gopher-Server documentation Contained in the Gopher-Server distribution. 
package Gopher::Server::ParseRequest;
use strict;
use warnings;
use Net::Gopher::Request;

# Constants
sub HOST       ()  { "localhost" }
sub PORT       ()  { 70 }

sub parse 
{
	my ($class, $str) = @_;

	my $request = Net::Gopher::Request->new( 'Gopher', 
		Host      => HOST, 
		Port      => PORT, 
		Selector  => $str, 
	);

	return $request;
}

1;
__END__