#!/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::State::BerkeleyDB;
use Data::Dumper;
use Storable qw(thaw);
$Data::Dumper::Indent=1;


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


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


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

sub main {


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


    #  Dump state
    #
    my $self=WebDyne::State::BerkeleyDB->new() ||
	return err();
    my $state_hr=$self->_state_hr() ||
	return err();
    my %state=map { $_=>thaw($state_hr->{$_}) } keys %{$state_hr};
    print Dumper(\%state);


}

