use strict;
use warnings;

use Data::Dumper qw( Dumper );
use English qw( -no_match_vars );

use lib "lib";
use Provision::Unix;
use Provision::Unix::VirtualOS;

my $prov = Provision::Unix->new( debug => 0 );
my $util = $prov->get_util;
my $vos  = Provision::Unix::VirtualOS->new( prov => $prov, fatal => 0, debug => 0 );

my $virt_class = ref $vos->{vtype};
my @parts = split /::/, $virt_class;
my $virt_type = lc( $parts[-1] );
print "virtualization type: $virt_type\n";


my $ve_id_or_name = $util->ask( 'VPS name' );

if ( $vos->is_present( name => $ve_id_or_name ) ) {
    my $r = $vos->get_status( name => $ve_id_or_name ) or
        die "could not find $ve_id_or_name\n";
    warn Dumper($r);
};

my $user = $util->ask( 'user name', default => 'root');
my $pass = $util->ask( 'password',  password => 1 );
my $ssh_key = $util->ask( 'ssh_key' );

$vos->set_password( 
    name     => $ve_id_or_name,
    user     => $user,
    password => $pass,
    ssh_key  => $ssh_key,
); 

$prov->error( 'dump' );