From 55ee18016845d5030a066ef52db17e52fdaf6385 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 28 Mar 2006 16:58:13 +0000
Subject: s/log::l/log::explanations/

---
 mdkonline.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index a055f471..fb6ab34b 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -92,31 +92,31 @@ sub get_distro_type() {
 
 sub soap_create_account {
     my $data = $s->registerUser(@_)->result;
-    log::l("creating account $_[0]");
+    log::explanations("creating account $_[0]");
     $data;
 }
 
 sub soap_authenticate_user {
     my $data = $s->authenticateUser(@_)->result; 
-    log::l("authenticating account $_[0]");
+    log::explanations("authenticating account $_[0]");
     $data;
 }
 
 sub soap_register_host {
     my $data = $s->registerHost(@_)->result;
-    log::l("registering host $_[3] named $_[4] in country $_[5]");
+    log::explanation("registering host $_[3] named $_[4] in country $_[5]");
     $data;	
 }
 
 sub soap_upload_config {
     my $data = $s->setHostConfig(@_);
-    log::l("uploading config");
+    log::explanations("uploading config");
     $data ? $data->result : undef;
 }
 
 sub soap_query_bundle {
     my ($wc, $bundle_name) = @_;
-    log::l("querying the bundle $bundle_name");
+    log::explanations("querying the bundle $bundle_name");
     my $data = $s->query($wc->{HOST_ID}, $wc->{HOST_KEY}, 'Software::get_bundle', $bundle_name)->result;
     $data;
 }
-- 
cgit v1.2.1