#!/usr/bin/perl

use lib "C:/files/Projecten/AccesSite2/lib";
use lib "../lib";
#use lib "/dev/a/staff/roelof/lib";
use AccesSite;

#umask(003);

#my $debug;
#unless ($ENV{PATH_INFO} =~ /download/i) {
#  open (DEBUG, ">debug.log");
#  $debug = \*DEBUG;
#  }
$main::AS= new AccesSite(
  data_path => "../data",
#  debug_to => $debug,
  # Any other settings can be overwritten here:
  #inline_res_path => "/accessite/data/uploads/inline",
  #default_lang => 'en',
  #no_search => 1,
  #statistics => 1,
) || die "new AccesSite: $!";

print $main::AS->Auto()."\n\n";

close(DEBUG) if $debug;
exit(0);