package ADE;

#  Wed Jan 10 11:00:42 CET 2007 - Alexis Huxley
#  The following export has no effect whatsoever :-( It seems that
#  the one in ade_utils.pl somehow has a higher priority. But I
#  don't understand why.

require Exporter;
@ISA=qw(Exporter);
push(@EXPORT,qw($ade_app_progname $ade_tmp_dir $ade_err_ok $ade_err_fail));

#  Notice the absence of 'my' on any of these. 

#
#  Constants
#

($ade_err_ok, $ade_err_fail) = (0, 1);

#
#  Paths
#

($ade_tmp_dir) = defined($ENV{TMP_DIR}) ? ${TMP_DIR} : "/var/tmp";
($ade_app_progname) = ($0 =~ /.*\/([^\/]*)$/);

1;
