#!/usr/bin/perl

use strict;
use Data::Dumper;
use File::Basename;
use File::Compare;
use File::Copy;
use File::Temp qw/ tempfile tempdir /;
use IO::File;
use List::Util qw/shuffle/;

use Ernad::Common;
use Ernad::Erimp;

my $impna='nep';
my $e=Ernad::Erimp->new({'impna'=>$impna});
my $reports_dir=$e->{'dir'}->{'reports'};
my $home_dir=$e->{'dir'}->{'home'};
my $out_dir="$home_dir/nep/public_html/";
my $tmp_file='/tmp/make_access_pages';

my $reports=shuffle $e->{'r'}->list();

foreach my $repcode (@{$reports}) {
  my $report_doc=$e->{'r'}->doc($repcode);
  $report_doc->toFile($tmp_file);
  my $doc=$e->{'t'}->transform($report_doc,'access_page');
  $doc->toFile($tmp_file);
  my $out_file="$out_dir/$repcode.html";
  if(compare($out_file,$tmp_file)==0) {
    next;
  }
  copy($tmp_file,$out_file);
}




__END__;