#!/usr/bin/env perl

use strict;
use warnings;

use YAML::XS;
use File::Temp;
use File::Basename;

$| ++;

use Vulcan::Sudo;
use Vulcan::OptConf;
use Cronos::Policy;

Vulcan::Sudo->sudo();

$Vulcan::OptConf::THIS = 'cronos';

=head1 SYNOPSIS

 $0 [ name ]

=cut
my %o = Vulcan::OptConf->load()->get()->dump();

map { "mkdir -p $o{$_}" } keys %o;

if ( @ARGV )
{
    my %path = map { $_ => "$o{$_}/$ARGV[0]" } qw( conf data );
    my $temp = File::Temp->new( UNLINK => 0 );
    Cronos::Policy->new( $path{conf} )->dump( $temp );
    system "chmod a+r $temp && mv $temp $path{data}";
}
else
{
    die "nothing to make.\n" unless my @name =
    map { File::Basename::basename( $_ ) } glob "$o{conf}/*";
    YAML::XS::DumpFile \*STDERR, { 'one of these' => \@name };
}

exit 0;
