summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2006-03-14 12:19:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2006-03-14 12:19:24 +0000
commit0a9d03996fc46458b0916280146d7a05dbf84652 (patch)
treeb8b2cd5e0ccf301e6bfdbe2cc02203df9c200f29
parent2668d72390388c569ce1ed817fa50c8bb60b8f84 (diff)
downloadmgaonline-0a9d03996fc46458b0916280146d7a05dbf84652.tar
mgaonline-0a9d03996fc46458b0916280146d7a05dbf84652.tar.gz
mgaonline-0a9d03996fc46458b0916280146d7a05dbf84652.tar.bz2
mgaonline-0a9d03996fc46458b0916280146d7a05dbf84652.tar.xz
mgaonline-0a9d03996fc46458b0916280146d7a05dbf84652.zip
log some actions
-rw-r--r--mdkonline.pm6
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;
}