/usr/local/CPAN/Net-WWD/Net/WWD/Parser.pm

• package Net::WWD::Parser
  • handler
• EOF

package Net::WWD::Parser;

#############################################
# WWD File parser for integration with Apache
# (C) Copyright 2001-2005 John Baleshiski
# All rights reserved.
#############################################

use warnings;
use CGI qw(:standard escapeHTML);
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Headers;
use CGI::Carp "fatalsToBrowser";
use Apache::RequestRec ();
use Apache::RequestIO ();
use Data::Dumper;
use Apache::Const -compile => qw(OK);
use Time::Local;
use Net::WWD::Functions;
use Net::WWD::ParserEngine;

my $DEBUG = 0;

sub handler {
	my $r = shift;
	%params = ();
	$r->content_type('text/html');
	my $req = $ENV{'REQUEST_URI'};
	if($req =~ /\?/) { $req = $'; } else { $req = ""; }
	my @p = split(/&/, $req);
	$params{'t'} = "";
	$params{'o'} = "";
	$params{'p'} = "";
	$params{'v'} = "";
	$params{'a'} = "";
	$params{'tp'} = "";
	$params{'rp'} = "";
	$params{'mp'} = "";
	$params{'ttl'} = "";
	$params{'ac'} = "";
	for(my $i=0; $i<@p; $i++) {
		my ($s, $t) = split(/=/, $p[$i]);
		$params{$s} = $t;
	}

	print Net::WWD::ParserEngine::processWWDFile($ENV{'SCRIPT_FILENAME'}, $ENV{'SERVER_NAME'});
	return Apache::OK;
}

1;