#!/usr/bin/perl
use Modern::Perl;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin;
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use MARC::File::XML(BinaryEncoding=>"utf8");
use MARC::Record;
use C4::AuthoritiesMarc;
use POSIX;
MARC::File::XML::default_record_format("UNIMARCAUTH");
my $dbh = C4::Context->dbh;
my $rq= $dbh->prepare(qq|
  SELECT authid
  FROM auth_header
  |);
my $filename= shift @ARGV;
$rq->execute;
#ATTENTION : Mettre la base en utf8 auparavant.
#BEWARE : Set database into utf8 before.
while (my ($authid)=$rq->fetchrow){
open my $fileoutput, '>:encoding(UTF-8)', "./$filename/$authid.xml" or die "unable to open $filename";
  my $record=AUTHgetauthority($dbh,$authid);
  if (! utf8::is_utf8($record)) {
    utf8::decode($record);
  }
			
#  if (C4::Context->preference('marcflavour') eq "UNIMARC"){
	$record->leader('     nac  22     1u 4500');
    my @time = localtime(time);
    my $time = sprintf('%04d%02d%02d', $time[5] + 1900, $time[4] + 1, $time[3]);
    my $string = ($time=~m/([0-9\-]+)/) ? $1 : undef;
    $string=~s/\-//g;
     $string = sprintf("%-*s",26, $string);
     substr($string,9,6,"frey50");
     unless ($record->subfield(100,"a")){
       $record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>$string));
     }
     unless ($record->subfield('001')){
       $record->insert_fields_ordered(MARC::Field->new('001',$authid));
     }
     # } else {
#    $record->encoding( 'UTF-8' );
#  }
  print {$fileoutput}  $record->as_xml();
close $fileoutput;

}
