use Tk;
use Asterisk::AMI::Common;

my %config = (
  user => "abuser",
  host => '192.168.1.22',
  secret => 'guessnot',
  port => '5038',
);


&InitAsterisk;
&DoneAsterisk; 

$top = MainWindow->new();
$button1 = $top->Button( -text => 'Exit', -command => sub {  $top->destroy; },)->pack;
print "\n0\n";
MainLoop();
print "\n1\n";
exit;

############################################################
sub InitAsterisk {
 $asterisk = Asterisk::AMI->new(PeerAddr        =>     $config{host},
				PeerPort        =>     $config{port},
				Username        =>     $config{user},
				Secret          =>     $config{secret}, 
			);
 die "Unable to connect to asterisk" unless ($asterisk);
 print "Asterisk connected\n";
}


############################################################
sub DoneAsterisk {
  print $asterisk->disconnect;
  print $asterisk->destroy;
  print "Asterisk disconnected\n";
  die "Unable to DISCONNECT " unless ($asterisk);
}