1 package Yaala::Report::Core;
5 use vars qw#$OUTPUTDIR#;
8 use Yaala::Config qw#get_config#;
10 @Yaala::Report::Core::EXPORT_OK = qw#$OUTPUTDIR#;
11 @Yaala::Report::Core::ISA = ('Exporter');
13 my $VERSION = '$Id: Core.pm,v 1.5 2003/12/07 14:53:30 octo Exp $';
14 print STDERR $/, __FILE__, ": $VERSION" if ($::DEBUG);
16 $OUTPUTDIR = get_config ('directory');
22 print STDERR $/, __FILE__, qq#: Directory "$OUTPUTDIR" does not exist.\n#;
29 $OUTPUTDIR = 'reports/';
33 print STDERR $/, __FILE__, ": Unknown output directory. Using current ",
35 $/, __FILE__, ": To abort press CTRL+c within the next 10 secons";