#!/usr/bin/perl
#
#  Dump the compiled version of WebDyne HTML scripts, as stored in the cache dir
#
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);
use WebDyne::Constant;


#  External modules
#
use Getopt::Long;
use Data::Dumper;
use Storable;


#  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.5 $)[1];


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


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


sub main {


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


    #  Get options, argv array
    #
    my %option;
    GetOptions(\%option, 'inode|i');


    #  Get srce file, add to options
    #
    my $srce_pn=$argv_ar->[0] ||
	return err('no source file specified');


    #  Retrieve
    #
    my $data_ar=Storable::retrieve($srce_pn);


    #  Dump
    #
    print Data::Dumper::Dumper($data_ar);


}

