log some actions

1 files changed, 6 insertions, 0 deletions

diff --git a/mdkonline.pm b/mdkonline.pm
index 9b76676e..38cc4a15 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -12,6 +12,7 @@ use Net::HTTPS;
 use HTTP::Request::Common;
 use HTTP::Request;
 use SOAP::Lite;
+use log;
 
 #For debugging
 use Data::Dumper;
@@ -91,26 +92,31 @@ sub get_distro_type() {
 
 sub soap_create_account {
     my $data = $s->registerUser(@_)->result;
+    log::l("creating account $_[0]")
     $data;
 }
 
 sub soap_authenticate_user {
     my $data = $s->authenticateUser(@_)->result; 
+    log::l("authenticating account $_[0]")
     $data;
 }
 
 sub soap_register_host {
     my $data = $s->registerHost(@_)->result;
+    log::l("registering host $_[3] named $_[4] in country $_[5]")
     $data;	
 }
 
 sub soap_upload_config {
     my $data = $s->setHostConfig(@_);
+    log::l("uploading config")
     $data ? $data->result : undef;
 }
 
 sub soap_query_bundle {
     my ($wc, $bundle_name) = @_;
+    log::l("querying the bundle $bundle_name")
     my $data = $s->query($wc->{HOST_ID}, $wc->{HOST_KEY}, 'Software::get_bundle', $bundle_name)->result;
     $data;
 }