package dpuser;

#------------------------------------------------------------------
# Modules
#------------------------------------------------------------------

use strict;
use Carp;

use AppConfig;

use dp;

#------------------------------------------------------------------
# BEGIN
#------------------------------------------------------------------

BEGIN {
  
  use Exporter ();
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);  
  $VERSION = 1.0;
  @ISA = qw(Exporter);

  #--- Exported stuff:
  @EXPORT = qw(&dpuser_init);

  %EXPORT_TAGS = ();

  #--- Exported on demand:
  @EXPORT_OK = ();

  #--- Initialize default settings:
}

#------------------------------------------------------------------
# Externally accessible variables:
#------------------------------------------------------------------

#------------------------------------------------------------------
=pod

=head1 MODULE INITIALIZATION

The user supplied module initialization 
C<dpuser_init($user, $main)> function, initializes the module with the
settings read from the user and main configuration objects C<$user> and
C<$main>, respectively. 

=cut
#------------------------------------------------------------------
# dpuser_init($user, $main)
#
# $user
#   User configuration object.
#
# $main
#   Main configuration object.
#------------------------------------------------------------------
sub dpuser_init {

  my($cfg) = @_ ;

  printf STDERR "user_init()\n";

  return(1);

}

1;