#!/usr/bin/perl
#
#  Compile and/or show compiled version of WebDyne HTML scripts
#
package main;


#  Compiler pragma
#
use strict qw(vars);
use vars   qw($VERSION $REVISION);
use FindBin qw($RealBin);
use lib $RealBin;
use File::Spec;
use perl5lib File::Spec->catdir($RealBin, File::Spec->updir());


#  Use the base and constants module
#
use WebMod::Base qw(:all);


#  External modules
#
use WebDyne;


#  Version Info, must be all one line for MakeMaker, CPAN.
#
$VERSION = eval { require WebDyne::VERSION; do $INC{'WebDyne/VERSION.pm'}};


#  Release info
#
$REVISION = (qw $Revision: 1.6 $)[1];


#  Run main
#
&main(\@ARGV) || die errstr();


#============================================================================

sub Apache::OK {

    0;

}


sub main {


    #  Get argv array ref
    #
    my $argv_ar=shift();


    #  Get srce file, 
    #
    my $srce_fn=$argv_ar->[0] ||
	return err('no source file specified');
    my %param=(
        filename => $srce_fn
       );


    #  Run through WebDyne handler
    #
    defined(WebDyne->handler(undef, \%param)) ||
    	return err();
    1;


}

