From 71cf33e3bf3b1eee514b16acca9c3b7e9afe0a42 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 14 Mar 2006 17:10:56 +0000
Subject: fix log::l() calls

---
 mdkonline.pm | 10 +++++-----
 mdkupdate    |  8 ++++----
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/mdkonline.pm b/mdkonline.pm
index 38cc4a15..a055f471 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::l("creating account $_[0]");
     $data;
 }
 
 sub soap_authenticate_user {
     my $data = $s->authenticateUser(@_)->result; 
-    log::l("authenticating account $_[0]")
+    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]")
+    log::l("registering host $_[3] named $_[4] in country $_[5]");
     $data;	
 }
 
 sub soap_upload_config {
     my $data = $s->setHostConfig(@_);
-    log::l("uploading config")
+    log::l("uploading config");
     $data ? $data->result : undef;
 }
 
 sub soap_query_bundle {
     my ($wc, $bundle_name) = @_;
-    log::l("querying the bundle $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;
 }
diff --git a/mdkupdate b/mdkupdate
index 28b21f46..536e9f5a 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -155,7 +155,7 @@ if (!$bundle) {
     
     my $res = mdkonline::prepare_upload_conf($wc);
     if ($bundle_vars{CLIENT_VERSION} > $CLIENT_VERSION) {
-        log::l("the client is too old in order to install the bundle $bundle_vars{BUNDLE}")
+        log::l("the client is too old in order to install the bundle $bundle_vars{BUNDLE}");
         $in->ask_warn(N("Warning"), N("The version of the Mandriva Online client is too old.
 
 You need to update to a newer version. You can get a new one from http://start.mandriva.com"));
@@ -226,10 +226,10 @@ sub install_pkgs {
     my $w = $in->wait_message(N("Please wait"), N("Installing packages ...\n"));
     eval {
         if (!$o_options->{is_bundle}) {
-            log::l("applying the updates")
+            log::l("applying the updates");
             system "/usr/sbin/gurpmi", "--auto", "--media", $media_name, @$choosed;
         } else {
-            log::l("installing the bundle")
+            log::l("installing the bundle");
             system "/usr/bin/gurpmi", '--auto', if_($o_options->{auto_select}, "--auto-select"),
               if_($o_options->{medias}, "--media", join(',', @{$o_options->{medias}})),
                 "--searchmedia", $media_name, @$choosed;
@@ -277,7 +277,7 @@ sub auto_install_rpms {
 
 sub add_media {
     my ($media_name, $mirror, $hdlist, $option) = @_;
-    log::l("removing/adding the media $media_name")
+    log::l("removing/adding the media $media_name");
     eval { 
 	system "/usr/sbin/urpmi.removemedia", $media_name;
 	# use curl because wget sometime fail on https url
-- 
cgit v1.2.1