use Modern::Perl;
use Data::Dump "dump";
use DNS::ZoneParse;
use File::Copy;
use Net::SCP;
use Net::SSH2;
use v5.14;

use lib '../../';
use app::zone::rndc_interface;
package app::zone::edit;
use Moose;

has [ qw/zname zdir host user/ ] => qw/is ro required 1/;

sub get {
    my ($self) = @_;
    my $dest = '/tmp/' . $self->zname;
    my $file = $self->zdir.'/'.$self->zname;

    $self->_scp_get($file, $dest);
    DNS::ZoneParse->new($dest, $self->zname);
}

=pod
    copie du template pour créer une nouvelle zone
    update du serial
    ajout de la zone via rndc
    retourne la zone + le nom de la zone
=cut

sub addzone {
    my ($self) = @_;

    my $tpl = $self->zdir."/tpl.zone";
    my $tmpfile = '/tmp/'.$self->zname;

    $self->_scp_get($tpl, $tmpfile); # get the template
    $self->_sed($tmpfile); # sed CHANGEMEORIGIN by the real origin

    my $zonefile = DNS::ZoneParse->new($tmpfile, $self->zname);
    $zonefile->new_serial(); # update the serial number

    # write the new zone tmpfile to disk 
    my $newzone;
    open($newzone, '>', $tmpfile) or die "error";
    print $newzone $zonefile->output();
    close $newzone;

    my $file = $self->zdir.'/'.$self->zname;
    $self->_scp_put($tmpfile, $file); # put the final zone on the server
    unlink($tmpfile); # del the temporary file

    my $rndc = app::zone::rndc_interface->new();
    $rndc->addzone($self->zdir, $self->zname);

    return $zonefile;
}

=pod
    màj du serial
    push reload de la conf
=cut

sub update {
    my ($self, $zonefile) = @_;

    # update the serial number
    $zonefile->new_serial();

    my $tmpfile = '/tmp/' . $self->zname;

    # write the new zone tmpfile to disk 
    my $newzone;
    open($newzone, '>', $tmpfile) or die "error";
    print $newzone $zonefile->output();
    close $newzone;

    my $file = $self->zdir.'/'.$self->zname;
    $self->_scp_put($tmpfile, $file); # put the final zone on the server
    unlink($tmpfile); # del the temporary file

    my $rndc = app::zone::rndc_interface->new();
    $rndc->reload($self->zname);
    1;
}

=pod
    udpate via the raw content of the zonefile
=cut

sub update_raw {
    my ($self, $zonetext) = @_;

    my $zonefile;
    my $file = '/tmp/'.$self->zname;

    # write the updated zone file to disk 
    my $newzone;
    open($newzone, '>', $file) or die "error";
    print $newzone $zonetext;
    close $newzone;

    eval { $zonefile = DNS::ZoneParse->new($file, $self->zname); };

    if( $@ ) {
        unlink($file);
        0;
    }

    unlink($file);

    $self->update($zonefile);
}

# sera utile plus tard, pour l'interface
sub new_tmp {
    my ($self) = @_;

    my $tpl = $self->zdir."/tpl.zone";
    my $file = '/tmp/'.$self->zname;

    $self->_scp($tpl, $file);
    $self->_sed($file);

    my $zonefile = DNS::ZoneParse->new($file, $self->zname);
    $zonefile->new_serial(); # update the serial number

    unlink($file);

    return $zonefile;
}

sub _cp {
    my ($self, $src, $dest) = @_;

    File::Copy::copy($src, $dest) or die "Copy failed: $! ($src -> $dest)";
}

sub _scp_put {
    my ($self, $src, $dest) = @_;

    my $scp = Net::SCP->new( { host => $self->host, user => $self->user } );
    $scp->put($src, $dest) or die $scp->{errstr};
}

sub _scp_get {
    my ($self, $src, $dest) = @_;

    my $scp = Net::SCP->new( { host => $self->host, user => $self->user } );
    $scp->get($src, $dest) or die $scp->{errstr};
}

sub _sed {
    my ($self, $file) = @_;
    my $orig = $self->zname;
    my $cmd = qq[sed -i "s/CHANGEMEORIGIN/$orig/" $file 2>/dev/null 1>/dev/null];

    system($cmd);
}

sub del {
    my ($self) = @_;
    my $rndc = app::zone::rndc_interface->new();
    $rndc->delzone($self->zdir, $self->zname);
    $rndc->reconfig();

    my $ssh = Net::SSH2->new();

    $ssh->connect($self->host);
    $ssh->auth( username => $self->user);

    my $chan = $ssh->channel();
    my $file = $self->zdir.'/'.$self->zname;
    $chan->exec( "rm $file" );
    $ssh->disconnect();
    1;
}

1;