I'm writing this module for apache. It is nearing a first release. This will be the first module I've ever written. It makes mod_dav useable in environments where a server embedded scripting language, such as PHP, is used. I seek the wisdom of the Perlmonks for guidance as to any features that may be useful to have, as well as places to announce the availability of the module and any other advice anyone could offer. Thanks all. dap

package Apache::ParseControl;

use strict;
use Apache::Constants qw(:common);

sub handler {
        my $r = shift;
        my $debug;
        
        $debug = $r->dir_config('debugNoParse') eq 'on' ? 1 : 0;

        my $flags = 'O_RDONLY';
        my $filename = $r->filename;

        $r->send_http_header;

        if ($debug == 1){
                my $host = $r->get_remote_host;
                my $ct = $r->content_type;
                my $uri = $r->uri;
                my $filetype ="";
                if (-B $filename) {
                        $filetype = "binary";
                        }
                else {
                        $filetype = "text";
                        }
                $r->print("$host\n$ct\n$uri\n$filename\n$filetype\n");
                }

        print $r->dir_config('debugNoParse');
        sysopen(FH, $filename, $flags); 
        while(<FH>){
                print;
                }
        close(FH);
        return OK;
        }
        
1;

__END__

=head1 NAME

Apache::ParseControl - an apache module to control the parsing of serv
+er-side scripts

=head1 SYNOPSIS

In a VirtualHost, Location, or Directory directive

        SetHandler perl-script
        PerlHandler Apache::ParseControl

=head1 ABSTRACT

This module operates at the content handling stage of resource retriev
+al in Apache, returning binary files as binary and text files as text
+, that is, it will return the source of cgi, php, etc. instead of par
+sing any server-side scriping.

=head1 DESCRIPTION



=head1 AUTHOR INFORMATION

Copyright 2001, D. Anthony Patrick.  All rights reserved.

Originally conceived and written for the College and Graduate School o
+f Education at Kent State University.

Released with permission of The College and Graduate School of Educati
+on, Kent State University.

This library is free software;  you can distribute it and/or modify it
+ under the same terms as Perl itself.

Check http://www.cpan.org and http://home.config.com/~dpatrick/computi
+ng/perl/
for new versions and updates.

=head1 CREDITS

=head1 BUGS

=head1 SEE ALSO

Stein & MacEachern, Writing Apache Modules with Perl and C, 1999, O'Re
+illy and Associates, ISBN 1-56592-567-X

WebDAV Resources Site - http://www.webdav.org

=head1 THANKS

To MDK for listening (and not listening) to my endless drone about the
+ wonders of Perl and nature of computing today.

=cut
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.